Umístnení souboru www.TrSek.com/cover/benkovic/pohybx.pas{ POHYBX.PAS Copyright (c) Jan Benkovic }
{ Pomocou sipok sa pohybuje X. }
{ }
{ Datum:01.08.1999 http://www.trsek.com }
uses crt;
var c:char;
x,y,x0,y0:integer;
procedure vykresli;
begin
gotoxy(x,y);
write('X');
end;
begin
clrscr;
x:=40;
y:=14;
x0:=x;
y0:=y;
vykresli;
gotoxy(1,1);
write('Pohyb sipkami, ESC-koniec');
repeat
c:=readkey;
if c=#0 then c:=readkey;
case c of
'H': begin y0:=y;x0:=x;y:=y-1; end;
'P': begin y0:=y;x0:=x;y:=y+1; end;
'K': begin x0:=x;y0:=y;x:=x-1; end;
'M': begin x0:=x;y0:=y;x:=x+1; end;
end;