100 FOR I=&H81 TO &HFE
110   K1$=MID$(STR$(I-&H80),2):K2$=MID$(STR$(I-&HD0),2)
120   IF I<=&H8F THEN PRINT"JIS非漢字(";K1$;"区)":GOTO 180
130   IF I<=&HAF THEN PRINT"JIS第1水準漢字(";K1$;"区)":GOTO 180
140   IF I<=&HD4 THEN PRINT"JIS第2水準漢字(";K1$;"区)":GOTO 180
150   IF I<=&HDE THEN PRINT"ベンダー拡張漢字(";K1$;"区)":GOTO 180
160   IF I =&HDF THEN 270
170   IF I<=&HFE THEN PRINT"JIS補助漢字(";K2$;"区)":GOTO 180
180   PRINT SPC(5);:FOR X=0 TO 15:PRINT "+";HEX$(X);:NEXT:PRINT
190   FOR J=&H80 TO &HDF
200     IF J MOD 16=0 THEN PRINT LEFT$(HEX$(I*256+J),3);"x:";
210     CODE=I*256+J:MOJI$=CHR$(CODE)
220     IF MOJI$="" THEN MOJI$="  "
230     PRINT MOJI$;
240     IF J MOD 16=15 THEN PRINT
250   NEXT
260   PRINT
270 NEXT
280 FOR I=&HE0 TO &HFE
290   K2$=MID$(STR$(I-&HB1),2)
300   PRINT"JIS補助漢字(";K2$;"区)"
310   PRINT SPC(5);:FOR X=0 TO 15:PRINT "+";HEX$(X);:NEXT:PRINT
320   FOR J=&H80 TO &HDF
330     ADDR$=HEX$(J*256+I)
340     IF J MOD 16=0 THEN PRINT LEFT$(ADDR$,1);"x";RIGHT$(ADDR$,2);":";
350     CODE=J*256+I:MOJI$=CHR$(CODE)
360     IF MOJI$="" THEN MOJI$="  "
370     PRINT MOJI$;
380     IF J MOD 16=15 THEN PRINT
390   NEXT
400   PRINT
410 NEXT
420 PRINT"JIS第3･第4水準漢字"
430 PRINT SPC(5);:FOR X=0 TO 15:PRINT "+";HEX$(X);:NEXT:PRINT
440 FOR I=&HE0 TO &HFE
450   FOR J=&HE0 TO &HFF
460     IF J MOD 16=0 THEN PRINT LEFT$(HEX$(I*256+J),3);"x:";
470     CODE=I*256+J:MOJI$=CHR$(CODE)
480     IF MOJI$="" THEN MOJI$="  "
490     PRINT MOJI$;
500     IF J MOD 16=15 THEN PRINT
510   NEXT
520 NEXT:PRINT
530 PRINT"ユーザー定義外字"
540 FOR I=&HFF TO &HFF
550   FOR J=&H80 TO &HFF
560     IF J MOD 16=0 THEN PRINT LEFT$(HEX$(I*256+J),3);"x:";
570     CODE=I*256+J:MOJI$=CHR$(CODE)
580     IF MOJI$="" THEN MOJI$="  "
590     PRINT MOJI$;
600     IF J MOD 16=15 THEN PRINT
610   NEXT
620 NEXT
