Example 10 REM international character sets
20 LPRINT CHR$(27);"R";CHR$(0) ;"ASCII : ";:GOSUB 160
30 LPRINT CHR$(27);"R";CHR$(1) ;"FRANCE : ";:GOSUB 160
40 LPRINT CHR$(27);"R";CHR$(2) ;"GERMANY : ";:GOSUB 160
50 LPRINT CHR$(27);"R";CHR$(3) ;"UK : ";:GOSUB 160
60 LPRINT CHR$(27);"R";CHR$(4) ;"DENMARK I : ";:GOSUB 160
70 LPRINT CHR$(27);"R";CHR$(5) ;"SWEDEN : ";:GOSUB 160
80 LPRINT CHR$(27);"R";CHR$(6) ;"ITALY : ";:GOSUB 160
90 LPRINT CHR$(27);"R";CHR$(7) ;"SPAIN I : ";:GOSUB 160
100 LPRINT CHR$(27);"R";CHR$(8) ;"JAPAN : ";:GOSUB 160
110 LPRINT CHR$(27);"R";CHR$(9) ;"NORWAY : ";:GOSUB 160
120 LPRINT CHR$(27);"R";CHR$(10);"DENMARK II : ";:GOSUB 160
130 LPRINT CHR$(27);"R";CHR$(11);"SPAIN II : ";:GOSUB 160
140 LPRINT CHR$(27);"R";CHR$(12);"LATIN AMERICA: ";:GOSUB 160
150 END
160 LPRINT CHR$(35);CHR$(36);CHR$(64);CHR$(91);
170 LPRINT CHR$(92);CHR$(93);CHR$(94);CHR$(96);
180 LPRINT CHR$(123);CHR$(124);CHR$(125);CHR$(126);
190 RETURN
102
Miscellaneous