10  ! This program demonstrates the "lorg" (label origin) command by
20  ! putting up a grid and then labeling the vertices of the grid -
30  ! with the point of attachment of the label determined by the 
40  ! "lorg" command.
50  !
60  !
70  INTEGER label_origin,x_coordinate,y_coordinate
80  !
90  PEN 1 @ GCLEAR @ CSIZE 8 @ LINE TYPE 1 @ FRAME 
100 SCALE 0.75,3.25,0.75,3.25 @ GRID 1,1
110 !        
120 label_origin=1 
130 FOR x_coordinate=1 TO 3 
140    FOR y_coordinate=1 TO 3 
150       MOVE x_coordinate,y_coordinate 
160       LORG label_origin @ LABEL USING "K,DD" ; "LORG",label_origin
170       label_origin=label_origin+1 
180    NEXT y_coordinate 
190 NEXT x_coordinate 
200 !
210 END