uses crt;
var kt: char;
x,y,mau:byte;
i: longint;
begin
 clrscr;
  x:=10;
  y:=10;
  gotoxy (x,y);
  writeln ('=|-');
  repeat
  { randomize;
   mau:=random (17);
   if mau=0 then
   mau:=random (17);
   textcolor (mau); }
   if keypressed then
    kt:=readkey;
     if kt=#72 then    {len}
      begin
       y:=y-1;
       clrscr;
       gotoxy (x,y);
       writeln ('=|-');
       delay (100);
      end;
     if kt=#80 then    {xuong}
      begin
       y:=y+1;
       clrscr;
       gotoxy (x,y);
       writeln ('=|-');
       delay (100);
      end;
      if kt=#77 then    {phai}
       begin
        x:=x+1;
        clrscr;
        gotoxy (x,y);
        writeln ('=|-');
        delay (50);
       end;
      if kt=#75 then       {trai}
       begin
        x:=x-1;
        clrscr;
        gotoxy (x,y);
        writeln ('=|-');
        delay (50);
       end;
       if x=78 then
        begin
         delay (7);
         x:=1;
        end;
       if y=25 then
        begin
         delay (7);
         y:=1;
        end;
     until kt=#27;
      if kt=#27 then halt(1);
 readln;
end.

uses crt;
var x,y:longint; k:string;
begin
clrscr;
x:=10; y:=10;
   repeat
      if keypressed then k:=readkey;
      if (k='w')and(y<>0) then
         begin
            dec(y);
            clrscr;
            gotoxy(x,y);
            write('=|-');
            delay(100);
         end;
      if (k='a')and(x<>0) then
         begin
            dec(x);
            clrscr;
            gotoxy(x,y);
            write('-|=');
            delay(100);
         end;
      if (k='d') then
         begin
            inc(x);
            clrscr;
            gotoxy(x,y);
            write('=|-');
            delay(100);
         end;
      if (k='s') then
         begin
            inc(y);
            clrscr;
            gotoxy(x,y);
            write('=|-');
            delay(100);
         end;
      if k=#27 then break;
   until 1=2;
readln
end.