asterisco en el centro de la pantalla para deplazarlo
{A qui lo tienes fácil no}
program esterisc;
uses
crt;
const
steri = '*';
var
tecla : char;
x, y : integer;
procedure ponsteri(x1, y1 : integer; pres : boolean);
begin
if pres = true then
begin
gotoxy(x1,y1);write(steri);
end
else
begin
gotoxy(x1,y1);write(' ');
end;
end;
begin
clrscr;
x := 40;
y := 11;
gotoxy(24,1);write('Tecla [ESC] salir teclas [',chr(24),chr(25),
chr(26),chr(27),'] Mueven');
ponsteri(x,y,true);
repeat
ponsteri(x,y,true);
tecla := readkey;
ponsteri(x,y,false);
if tecla = #80 then
begin
y := y + 1;
if y > 22 then
y := 22;
end;
if tecla = #72 then
begin
y := y - 1;
if y < 2 then
y := 2;
end;
if tecla = #77 then
begin
x := x + 1;
if x > 79 then
x := 79;
end;
if tecla = #75 then
begin
x := x - 1;
if x < 1 then
x := 1;
end;
until tecla = #27;
end.