10  ! This program demonstrates the "line type" command by drawing figures 
20  ! using the eight different line types.                                
30  !
40  PEN 1 @ GCLEAR @ SCALE 0,200,0,100 
50  !
60  MOVE 10,10 
70  LINE TYPE 1 @ DRAW 10,90 
80  LINE TYPE 2 @ DRAW 90,90 
90  LINE TYPE 3 @ DRAW 90,10 
100 LINE TYPE 4 @ DRAW 10,10 
110 MOVE 110,10 
120 LINE TYPE 5 @ DRAW 110,90 
130 LINE TYPE 6 @ DRAW 190,90 
140 LINE TYPE 7 @ DRAW 190,10 
150 LINE TYPE 8 @ DRAW 110,10 
160 !
170 END