10 PRINT:PRINT:PRINT
20 PRINT "Nationale Zeichen:"
30 PRINT "HEX   DEC  USA     FRANCE  GERMANY UK      DENMARK SWEDEN  ITALY   SPAIN   JAPAN"
40 CH=35:GOSUB 210
50 CH=36:GOSUB 210
60 CH=64:GOSUB 210
70 CH=91:GOSUB 210
80 CH=92:GOSUB 210
90 CH=93:GOSUB 210
100 CH=94:GOSUB 210
110 CH=96:GOSUB 210
120 CH=123:GOSUB 210
130 CH=124:GOSUB 210
140 CH=125:GOSUB 210
150 CH=126:GOSUB 210
160 PRINT:PRINT:PRINT
170 END
180 '
190 ' Zeichenausgabe
200 '
210 PRINT HEX$(CH);"H  ";
220 IF ch<99 THEN PRINT " ";
230 PRINT CH;" ";
240 FOR zeichen=0 TO 8
250 : PRINT CHR$(27);"2";CHR$(zeichen);
260 : PRINT CHR$(CH);
270 : IF zeichen<8 THEN PRINT "       ";
280 NEXT
290 PRINT
300 RETURN