10
20 *FONTFX
30 MODE 0
40 FOR style=0 TO 7 STEP 2
50 GCOL 141,0
60 READ style1$,style2$
70 PRINT style1$;TAB(40);style2$
80 GCOL 141,(2^style)DIV2:FOR A=32 TO 47:VDUA:NEXT:PRINTSPC(24);
90 GCOL 141,(2^style):FOR A=32 TO 47:VDUA:NEXT:PRINT
100 GCOL 141,(2^style)DIV2:FOR A=48 TO 63:VDUA:NEXT:PRINTSPC(24);
110 GCOL 141,(2^style):FOR A=48 TO 63:VDUA:NEXT:PRINT
120 GCOL 141,(2^style)DIV2:FOR A=64 TO 95:VDUA:NEXT:PRINTSPC(8);
130 GCOL 141,(2^style):FOR A=64 TO 95:VDUA:NEXT:PRINT
140 GCOL 141,(2^style)DIV2:FOR A=96 TO 126:VDUA:NEXT:PRINTSPC(9);
150 GCOL 141,(2^style):FOR A=96 TO 126:VDUA:NEXT:PRINT
160 PRINT
170 NEXT
180 GCOL 141,0
190 PRINT "Wide"
200 GCOL 141,128
210 FOR A=32 TO 47:VDUA:NEXT:PRINT
220 FOR A=48 TO 63:VDUA:NEXT:PRINT
230 FOR A=64 TO 95:VDUA:NEXT:PRINT
240 FOR A=96 TO 126:VDUA:NEXT:PRINT
250 PRINT
260 GCOL 141,0
270 END
280 :
290 DATA Plain,Underline,Bold,Italics,Thin
300 DATA Superscript,Subscript,Inverse,Wide