100 PRINT CHR$(27)+"c"
110 PRINT CHR$(14);:REM Select G1 Character Set
120 PRINT CHR$(27)+")0";:REM Point G1 to Special graphics ROM
130 PRINT"CHARACTER ROM 0:"
140 GOSUB 1000
150 PRINT CHR$(27)+")1";:REM Point G1 to Alt char ROM Standard char set
160 PRINT"CHARACTER ROM 1:"
170 GOSUB 1000
180 PRINT CHR$(27)+")2";:REM Point G1 to Alt char ROM Special char set
190 PRINT"CHARACTER ROM 2:"
200 GOSUB 1000
210 PRINT CHR$(27)+")A";:REM Point G1 to UK character set
220 PRINT"UK CHARACTER ROM:"
230 GOSUB 1000
240 PRINT CHR$(27)+")B";:REM Point G1 to US character ROM (standart)
250 PRINT"US CHARACTER ROM:"
260 GOSUB 1000
270 PRINT CHR$(15);:REM Select G0 Character Set
300 END
1000 FOR A=95 TO 127
1010 PRINT CHR$(A);:NEXT A
1020 PRINT:PRINT
1030 RETURN
