program Pacman;

uses Types, QuickDraw, Events, MiscTool;

var

  i, j: Integer;

  tick: LongInt;

  r: Rect;

begin

  graphics(320);

  clearScreen(black);

  hideCursor;

  setSolidBackPat(black);

  setSolidPenPat(9);

  tick := getTick;

  { Draw dots }

  for i := 1 to 15 do begin

    setRect(r, i * 20, 96, i * 20 + 8, 104);

    paintOval(r);

  end;

  { Draw Pacman }

  setRect(r, 0, 80, 40, 120);

  paintArc(r, 120, 300);

  for i := 1 to 80 do begin

    { Erase Pacman }

    setRect(r, i * 4 - 4, 80, i * 4 + 36, 120);

    eraseOval(r);

    { Move Pacman }

    setRect(r, i * 4, 80, i * 4 + 40, 120);

    if odd(i) then paintArc(r, 100, 340)

    else paintArc(r, 120, 300);

    { Digest food }

    repeat until getTick - tick > 3;

    tick := getTick;

    if button(0) then exit;

  end;

end.