10 REM *
20 REM * Character Set
30 REM *
40 KEY OFF
50 COLOR 15,4,4
60 SCREEN 1
70 PRINT "Double Codes"
80 PRINT
90 FOR I=65 TO 95
100 PRINT CHR$(1)+CHR$(I);
110 NEXT
120 PRINT : PRINT
130 PRINT "Single Codes"
140 PRINT
150 FOR I = 32 TO 255
160 PRINT CHR$ (I);
170 NEXT