10  ! This program illustrates the CSIZE command by showing the results of
20  ! changing the size, aspect ration, and slant of the letter "M".
30  ! 
40  INTEGER size,column,slant
50  REAL aspect_ratio
60  !
70  PEN 1 @ GCLEAR @ LORG 5 @ DEG @ SCALE 0,9,0,4 
80  !
90  size=1 !   Change sizes.
100 FOR column=1 TO 8 
110    MOVE column,3 @ CSIZE size @ LABEL USING "K" ; "M"
120    size=size+5 
130 NEXT column 
140 !                             
150 aspect_ratio=0.1 !   Change aspect ratios.
160 FOR column=1 TO 8 
170     MOVE column,2 @ CSIZE 8,aspect_ratio @ LABEL USING "K" ; "M"
180     aspect_ratio=aspect_ratio+0.5 
190 NEXT column 
200 !                             
210 slant=0 !   Change slants
220 FOR column=1 TO 8 
230    MOVE column,1 @ CSIZE 8,0.6,slant @ LABEL USING "K" ; "M"
240    slant=slant+10 
250 NEXT column 
260 !                             
270 END