10  ! This program demonstrates scaling in both English and metric units by   
20  ! drawing a six-inch ruler across the top of the display and a ten-       
30  ! centimeter ruler across the bottom of the display.   
40  !
50  ! Note that 1 centimeter is roughly 27 pixels, & that 1 inch is roughly 
60  ! 68 pixels.  The display is rescaled into pixel units for convenience.
70  !
80  PEN 1 @ GCLEAR @ LINE TYPE 1 @ CSIZE 8 @ LORG 5 
90  LOCATE 0,200,0,100 @ SCALE 0,511,0,254 
100 !
110 CLIP 52,460,157,225 @ FRAME !     Create 6" x 1" ruler.
120 AXES 68,0,52,157,0,0,12 
130 MOVE 255,140 @ LABEL USING "K" ; "Inches!"
140 !        
150 CLIP 93,417,50,77 @ FRAME !       Create 12 cm x 1 cm ruler.
160 AXES 27,0,93,50,0,0,6 
170 MOVE 255,25 @ LABEL USING "K" ; "Centimeters!"
180 !        
190 END