&rem **** set printer/plotter for 8.5x11 PORTRAIT *********************
&rem DISP 4 5 24
&rem WIN EXEC 7
WIN FOCUS G
WIN FOCUS T
CLEAR
TEXTSET FONT.TXT
&sv 1 1
&label while
   &goto col2 &if &rn %1 17 32
   &label col1
   &cv 11 1.0
   &cv 12 9 - ( 0.25 * ( %1 - 1 ) )
   MOVE %11 %12
   TEXTSYMBOL 1
   TEXTSIZE 0.12
   TEXT '%1'
   &cv 11 %11 + 0.25
   MOVE %11 %12
   TEXTSYMBOL %1
   TEXTSIZE 0.12
   TEXT 'ABCDabcd1234'
   &goto end
   &label col2
   &cv 11 4.5
   &cv 12 9 - ( 0.25 * ( %1 - 17 ) )
   MOVE %11 %12
   TEXTSYMBOL 1
   TEXTSIZE 0.12
   TEXT '%1'
   &cv 11 %11 + 0.25
   MOVE %11 %12
   TEXTSYMBOL %1
   TEXTSIZE 0.12
   TEXT 'ABCDabcd1234'
   &goto end
&label end
&cv 1 %1 + 1
&goback while &if &rn %1 1 32
MOVE 1 1
TEXTSYMBOL 9
TEXT 'font.txt'
&return