10  ! This program demonstrates the "pdir" command (which changes the drawing
20  ! angle for incremental moves and draws) by drawing a "daisy wheel".  (All
30  ! the program does is draw a triangle with the starting vertex at 0,0, 
40  ! then rotates ten degrees, draws the triangle again ... and so on through
50  ! the full circle.)
60  !
70  INTEGER angle
80  !
90  PEN 1 @ GCLEAR @ DEG @ SCALE -100,100,-50,50 
100 !    
110 FOR angle=0 TO 360 STEP 10 
120    PDIR angle !               Rotate ten degrees.
130    MOVE 0,0 !                 Draw the triangle.
140    IDRAW 40,0 
150    IDRAW 0,3 
160    IDRAW -40,-3 
170 NEXT angle !                  Do it again.
180 !               
190 END