10  ! This program demonstrates the incrmental move and draw commands by 
20  ! filling the screen up with "bricks".
30  !
40  INTEGER rows,columns
50  !
60  PEN 1 @ GCLEAR @ LINE TYPE 1 @ SCALE 0,100,0,100 
70  !
80  MOVE 0,0 
90  FOR rows=1 TO 10 
100    FOR columns=1 TO 10 
110       IMOVE 1,1 !               Draw a box.
120       IDRAW 8,0 
130       IDRAW 0,8 
140       IDRAW -8,0 
150       IDRAW 0,-8 
160       IMOVE 9,-1 !              Move to the right and ...             
170    NEXT columns !               ... draw the next box.
180    IMOVE -100,10 !              Move up and back to the left side and ...
190 NEXT rows !                     ... draw the next row of boxes.
200 !               
210 END