1
10 A$=STRING$(16,"+-")+"+"
20 PRINT A$
30 FOR A%=32 TO 127
40 PRINT ":";:IF A%=127:VDU 32 ELSE VDU A%
50 IF (A% AND 15)=15:PRINT ":"'A$
60 NEXT A%
70 PRINT " REGULAR ";
80 PRINT "BOLD";STRING$(4,CHR$8);"BOLD ";
90 PRINT STRING$(9,"_");STRING$(9,CHR$8);"UNDERLINE ";
95 PRINT STRING$(6,"-");STRING$(6,CHR$8);"STRIKE"
100 FOR A%=0 TO 3
110 PRINT STRING$(A%*2+1,"T");CHR$9;
120 NEXT:PRINT "T"