10 OPTION NOT TAB
20 INPUT "Zeichensatz (0-7) ";Zeichen
30 IF Zeichen<0 OR Zeichen>7 GOTO 20
40 PRINT CHR$(27);"2";CHR$(Zeichen);
50 PRINT:PRINT:PRINT:
60 PRINT "    JOYCE Zeichensatz - LANGUAGE =";Zeichen:PRINT
70 PRINT "    00 01 02 03 04 05 06 07 08 09 0A 0B 0C 0D 0E 0F"
80 PRINT "    -----------------------------------------------"
90 PRINT "    (ESCape vorweg)"
100 CH0=1:CH1=0:CH2=31:GOSUB 180
110 PRINT "   (ASCII Spezial)"
120 PRINT "7F:                                              ";CHR$(127):PRINT
130 PRINT "    (Erweiterte Zeichen)"
140 CH0=0:CH1=128:CH2=255:GOSUB 180
150 PRINT:PRINT:PRINT
160 END
170 '
180 FOR I=CH1 TO CH2 STEP 16
190 : IF I=0 THEN PRINT "0";
200 : PRINT HEX$(I);": ";
210 : FOR J=0 TO 15
220 :: IF CH0=1 THEN PRINT CHR$(27);
230 :: PRINT CHR$(I+J);"  ";
240 : NEXT
250 : PRINT
260 NEXT
270 PRINT
280 RETURN