10  ! This program demonstrates the "axes" statement.  Try playing with the
20  ! parameters for fun.  Note that the display is remapped from the default
30  ! "graphics" units to "user" units using the "scale" command.  (Note that
40  ! all the parameters do NOT have to be specified.        
50  !
60  INTEGER X_TICK,Y_TICK,X_ORIGIN,Y_ORIGIN,X_BIG_TICK,Y_BIG_TICK,SIZE_OF_TICK
70  X_TICK=5 !        X-tick-mark every 5 user's units.
80  Y_TICK=10 !       Y-tick-mark every 10 user's units.
90  X_ORIGIN=0 !      Origin at (x,y) = (0,20) in user's units.
100 Y_ORIGIN=20 
110 X_BIG_TICK=4 !    Every fourth x-tick-mark is a big tick.
120 Y_BIG_TICK=2 !    Every second y-tick-mark is a big tick.
130 SIZE_OF_TICK=10 ! Big ticks are four graphics units long.
140 !
150 PEN 1 @ GCLEAR @ LINE TYPE 1 @ SETGU @ SCALE -100,100,-50,50 
160 !
170 AXES X_TICK,Y_TICK,X_ORIGIN,Y_ORIGIN,X_BIG_TICK,Y_BIG_TICK,SIZE_OF_TICK 
180 !                                      
190 END