Letter W

 
 

Program W;

Uses Types, QuickDraw;


Begin

  Graphics(320);

  hidecursor;

  ClearScreen(0) ;

  moveto(0,0);

  SetSolidPenPat(7);

  LineTo(77,199);

  SetSolidPenPat(15);

  LineTo(155,0);

  SetSolidPenPat(1);

  LineTo(232,199);

  SetSolidPenPat(3);

  LineTo(319,0);


  readln;

End.

This is Ding Wen first Pascal program developed for Apple IIGS.


Instead of a simple “Hello World”, he demonstrates the understanding of Super Hires coordinate system and simple QuickDraw commands.