program LANRPGKanske;
uses crt;
var
player:text;
i,x,y,x2,y2,readonce:integer;
key:char;
(*
procedure
readlogin;
var
login:text;
password:array[1..100] of integer;
username:array[
begin
   assign(login, ‘loginfile.txt’);
   reset(login);
*)

begin
assign(player, ‘player.txt’);
reset(player);
x:=1;
y:=1;
repeat
  delay(1);
key:=””;
   if keypressed=true then begin
        key:=ReadKey;
   end;
   gotoxy(x,y);
   write(' ');
   if key='H' then begin
       //if map[x+(y-1)*80-80]=' ' then
           y:=y-1;
       end
       else if key='P' then begin
          // if map[x+(y+1)*80-80]=' ' then
             y:=y+1;
       end
       else if key='K' then begin
           //if map[(x-1)+y*80-80]=' ' then
             x:=x-1;
       end
       else if key='M' then begin
           //if map[(x+1)+y*80-80]=' ' then
            x:=x+1;
       end;

      gotoxy(x,y);
      write(#2);
    read
                  gotoxy(70,24);
      write('x:',x,'y:',y:2);
until (key=#27);


end.