program Mac;

uses Types, QuickDraw, Events, MiscTool;

var

  i, x, y, sx, sy, color: Integer;

  tick: LongInt;

  r, mac: Rect;

  p: Point;

 

begin

  { Setup }

 

  tick := getTick;

  x := random mod 280 + 10;

  y := random mod 150 + 10;

  sx := 1;

  sy := 1;

 

  graphics(320);

  clearScreen(black);

  setSolidBackPat(black);

 

  while true do begin

 

    { Erase Mac }

    setRect(r, x, y, x + 25, y + 30);

    eraseRect(r);

 

    { Handle mouse click }

   

    if button(0) then begin

      getMouse(p);

      if ptInRect(p, mac) then begin

        sysBeep;

        x := random mod 280 + 10;

          y := random mod 150 + 10;

          sx := -sx;

          sy := -sy;

        while button(0) do;

      end

      else exit;

    end;

   

    { Draw Mac }

   

    x := x + sx;

    y := y + sy;

    setRect(mac, x, y, x + 25, y + 30);

    setSolidPenPat(15);

    paintRect(mac);

    setRect(r, x + 2, y + 3, x + 23, y + 18);

    setSolidPenPat(11);

    paintRRect(r, 8, 8);

    setSolidPenPat(black);

    setRect(r, x + 5, y + 5, x + 20, y + 15);

    frameArc(r, 90, 180);

    moveTo(x + 8, y + 6);

    line(0, 0);

    moveTo(x + 17, y + 6);

    line(0, 0);

    moveTo(x + 15, y + 23);

    line(7, 0);

    { Bounce }

   

    if (x < 0) or (x > 295) then sx := -sx;

    if (y < 0) or (y > 170) then sy := -sy;

    repeat until getTick > tick;

    tick := tick + 1;

  end;

end.