10  ! This program demonstrates the GRID command; note that all the parameters
20  ! do NOT have to be specified.  Note also that the screen is remapped from
30  ! graphics units to user units.
40  !
50  INTEGER X_TICK,Y_TICK,X_ORIGIN,Y_ORIGIN,X_BIG_TICK,Y_BIG_TICK,SIZE_OF_TICK
60  X_TICK=5 !       Ticks every five user units.
70  Y_TICK=5 
80  X_ORIGIN=-40 !   Grid origin at (-40,20).
90  Y_ORIGIN=20 
100 X_BIG_TICK=2 !   Grid lines every two ticks.
110 Y_BIG_TICK=2 
120 SIZE_OF_TICK=4 ! Tick marks are four graphic units long.
130 !
140 PEN 1 @ GCLEAR @ LINE TYPE 1 @ SETGU @ SCALE -100,100,-50,50 
150 !
160 GRID X_TICK,Y_TICK,X_ORIGIN,Y_ORIGIN,X_BIG_TICK,Y_BIG_TICK,SIZE_OF_TICK
170 !                                      
180 END