glist

Program glist_3;

Uses graph, crt;

Var
  xc, yc: array [1..20] Of integer;
  moves: array [1..40] Of char;
  xb, yb, a, x, y, i, o, p, grdriver, grmode: integer;
  ch: char;
Procedure down;
Begin
  setcolor(6);
  y := y+1;
  circle(x, y, 10);
End;
Procedure right;
Begin
  setcolor(6);
  x := x+1;
  circle(x, y, 10);
End;
Procedure left;
Begin
  setcolor(6);
  x := x-1;
  circle(x, y, 10);
End;
Procedure up;
Begin
  setcolor(6);
  y := y-1;
  circle(x, y, 10);
End;
Procedure downb;
Begin
  setcolor(0);
  yb := yb+1;
  circle(xb, yb, 10);
End;
Procedure rightb;
Begin
  setcolor(0);
  xb := xb+1;
  circle(xb, yb, 10);
End;
Procedure leftb;
Begin
  setcolor(0);
  xb := xb-1;
  circle(xb, yb, 10);
End;
Procedure upb;
Begin
  setcolor(0);
  yb := yb-1;
  circle(xb, yb, 10);
End;
Begin
  grdriver := detect;
  initgraph (grdriver, grmode, ' ');
  setcolor(4);
  randomize;
  For a:=1 To 20 Do
    Begin
      xc[a] := random(400);
      yc[a] := random(300);
      circle(xc[a], yc[a], 7);
      floodfill(xc[a], yc[a], 4);
    End;
  x := 10;
  y := 10;
  yb := 10;
  xb := 10;
  Repeat
    ch := readkey;
    Case ch Of
      #0 :
           Begin
             ch := readkey;
             Case ch Of
               #75:
                    Begin
                      left;
                      left;
                    End;
               #77:
                    Begin
                      right;
                      right;
                    End;
               #72:
                    Begin
                      up;
                      up;
                    End;
               #80:
                    Begin
                      down;
                      down;
                    End;
             End;
             moves[40] := ch;
             For i:= 1 To 39 Do
               Begin
                 moves[i] := moves[i+1];
               End;
             Case moves[1] Of
               #75:
                    Begin
                      leftb;
                      leftb;
                    End;
               #77:
                    Begin
                      rightb;
                      rightb;
                    End;
               #72:
                    Begin
                      upb;
                      upb;
                    End;
               #80:
                    Begin
                      downb;
                      downb;
                    End;
             End;
           End;
      #27: writeln('esc');
    End;
  Until ch=#27
End.