23 lines
445 B
ObjectPascal
23 lines
445 B
ObjectPascal
//Концепция ReadKey в селедующих версиях будет изменена.
|
|
uses CRT;
|
|
|
|
var
|
|
c: char;
|
|
begin
|
|
TextBackGround(LightBlue);
|
|
ClrScr;
|
|
GotoXY(40,12);
|
|
repeat
|
|
c:=ReadKey;
|
|
if c=#0 then begin
|
|
c:=readkey;
|
|
case c of
|
|
{L} #37: GotoXY(WhereX-1,WhereY);
|
|
{R} #39: GotoXY(WhereX+1,WhereY);
|
|
{U} #38: GotoXY(WhereX,WhereY-1);
|
|
{D} #40: GotoXY(WhereX,WhereY+1);
|
|
end;
|
|
end;
|
|
until c=#27;
|
|
end.
|