{ 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;

    gotoxy(x0,y0);
    write(' ');

    vykresli;

  until c=#27;

end.