10  ! This program demonstrates the "scale" command by rescaling the entire
20  ! screen into "user" units - and then plotting the same figure as plotted
30  ! in example 1.  (Try changing the four coordinates for fun.)
40  !
50  INTEGER LEFT,RIGHT,BOTTOM,TOP
60  LEFT=0 @ RIGHT=20 @ BOTTOM=0 @ TOP=20 
70  !
80  PEN 1 @ GCLEAR @ LINE TYPE 1 @ SETGU !  Initializations - ignore them.
90  SCALE LEFT,RIGHT,BOTTOM,TOP !  Perform the mapping.
100 !
110 MOVE 1,1 @ DRAW 9,1 @ DRAW 5,9 @ DRAW 1,1 !  Draw a triangle.
120 !
130 END