Example 10 REM character sets
20 LPRINT CHR$(27);"(B";
30 LPRINT "US-ASCII: ";:GOSUB 130
40 LPRINT CHR$(27);"(A";
50 LPRINT "UK-ASCII: ";:GOSUB 130
60 LPRINT CHR$(27);"(K";
70 LPRINT "GERMAN : ";:GOSUB 130
80 LPRINT CHR$(27);"(R";
90 LPRINT "FRENCH : ";:GOSUB 130
100 LPRINT CHR$(27);"(Y";
110 LPRINT "ITALIAN : ";:GOSUB 130
120 END
130 LPRINT CHR$(35);CHR$(36);CHR$(64);
140 LPRINT CHR$(91);CHR$(92);CHR$(93);
150 LPRINT CHR$(94);CHR$(96);CHR$(123);
160 LPRINT CHR$(124);CHR$(125);CHR$(126)
170 RETURN
Miscellaneous 85