program AppleIIGS;

uses Types, QuickDraw, Events;

var

  keys, positionX, positionY: integer;

  r: rect;

begin

  positionX := 60;

  positionY := 70;

  graphics(320);

  hideCursor;

  { Draw screen outside }

  setSolidPenPat(14);

  setRect(r, 80, 37, 180, 112);

  paintRRect(r, 10, 10);

  setSolidPenPat(1);

  frameRRect(r, 10, 10);

  { Draw screen }

  setSolidPenPat(11);

  setRect(r, 90, 50, 170, 100);

  paintRRect(r, 15, 15);

  setSolidPenPat(1);

  frameRRect(r, 15, 15);

  { Draw Apple IIGS neck }

  setSolidPenPat(14);

  setRect(r, 90, 112, 170, 125);

  paintRect(r);

  setSolidPenPat(1);

  frameRect(r);

  { Draw base }

  setSolidPenPat(14);

  setRect(r, 80, 125, 180, 150);

  paintRect(r);

  setSolidPenPat(1);

  frameRect(r);

  setSolidPenPat(14);

  setRect(r, 80, 150, 180, 162);

  paintRect(r);

  setSolidPenPat(1);

  frameRect(r);

  { Draw logo }

  setSolidPenPat(7);

  setPenSize(5, 5);

  moveTo(90, 155);

  line(0, 0);

  move(0, -1);

  move(2, 0);

  setPenSize(1, 1);

  line(0,-1);

  { Draw keyboard }

  setSolidPenPat(14);

  setRect(r, 70, 165, 190, 187);

  paintRect(r);

  setSolidPenPat(1);

  frameRect(r);

  { Draw keys }

  for keys:=1 to 12 do begin

    positionX := positionX + 10;

    positionY := positionY + 10;

    setSolidPenPat(0);

    setRect(r, positionX, 172, positionY, 181);

    frameRect(r);

  end;

  { Draw disk }

  setSolidPenPat(14);

  setRect(r, 180, 125, 240, 150);

  paintRect(r);

  setSolidPenPat(0);

  moveTo(190, 130);

  line(35,0);

  setSolidPenPat(1);

  frameRect(r);

  { Draw mouse }

  setRect(r, 200, 170, 220, 180);

  setSolidPenPat(14);

  paintRRect(r, 10, 10);

  setSolidPenPat(1);

  frameRRect(r, 10, 10);

  repeat until button(0);

end.