Uses Crt;
Const
        UpArr      = 72;        Image = 'X';
        DownArr    = 80;
        LeftArr    = 75;
        RightArr   = 77;
Type
        MovStatus = ( Stay, Left, Right, Up, Down );
Var
        X, Y : Byte;
        CurStatus : MovStatus;

Procedure Beep;
 Begin
       Sound(200);
       Delay(100);
       NoSound;
 End;

Begin
X := 10;
Y := 10;
 Repeat
  ClrScr;
  GoToXY(X,Y);
  Write(Image);
 Until KeyPressed and (ReadKey = #27);
End.