Pascalban hogy tudok ilyet írni?

Nem nagy varázslat megírni. Ez alapján a Free Pascal kód alapján elindulhatsz:

program kurzor;

{$mode objfpc}{$H+}

uses

crt;

var

ch : char;

begin

clrscr;

writeln('Kilépés - ESC');

window(2,2,79,23);

textbackground(4);

clrscr;

cursoroff;

repeat

ch:=ReadKey;

if ch=#0 then

begin

ch:=ReadKey;

case ch of

#72 : writeln('Fel'); //fel

#80 : writeln('Le'); //le

#77 : writeln('Jobb'); //jobbra

#75 : writeln('Bal'); //balra

end;

end;

until ch=#27;

window(1,1,80,24);

textbackground(0);

clrscr;

cursoron;

end.

Program A;

Uses Crt;

Const

JOBBRA:Char='j';

BALRA:Char='b';

FEL:Char='f';

LE:Char='l';

KILEPES:Char=#27; {ESCape}

MIT:Char='A';

Var

x,y:Byte;

billentyu:Char;

Procedure FelLep;begin if y>1 then Dec(y);end;

Procedure LeLep;begin if y<25 then Inc(y);end;

Procedure JobbraLep;begin if x<80 then Inc(x);end;

Procedure BalraLep;begin if x>1 then Dec(x);end;

Begin

x:=40;

y:=12;

ClrScr;

CursorOff;

Repeat

GotoXY(x,y);Write(MIT);

billentyu:=ReadKey;

GotoXY(x,y);Write(' ');

case billentyu of

#0: begin

billentyu:=ReadKey;

case billentyu of

#72:FelLep;

#80:LeLep;

#77:JobbraLep;

#75:BalraLep;

end;

end;

end;

if billentyu=FEL then FelLep;

if billentyu=LE then LeLep;

if billentyu=JOBBRA then JobbraLep;

if billentyu=BALRA then BalraLep;

Until billentyu=kilepes;

CursorOn;

End.