Pascal/Turbo Pascal - Hacer APARECER el Cursor

Ya use la funcion que me hacia desaparecer el cursor, pero ahora necesitaria ahora la que me haga traerlo de vuelta. Gracias

uses crt,dos;

procedure apagar;
var r:registers;
begin
r.ah:=$1;
r.ch:=32;
intr($10,r);
end;

procedure aparecer;
var r:registers;
begin
r.ah:=$1;
r.ch:=19;
intr($10,r);
end;

begin
apagar;
readkey;
aparecer;
gotoxy(1,1);
readkey;
end.

si quieres ver más cursores en modo texto en r.ch puedes colocar cualquiera de estos números 1,3,17,18,19.