5 ' ### JIS Code Table by KdL (2017.08.18)
10 COLOR 15,4,4: SCREEN 5: DEFINT A-Z
15 JIS=&H2120: OPEN "GRP:" FOR OUTPUT AS #1
20 W=16: N=N+1: PRESET(4,W+172)
25 PRINT#1,"[ BASE ADR ";HEX$(JIS);"H ]  [ PAGE ";
30 PRINT#1,RIGHT$(CHR$(N\10+48)+CHR$(NMOD10+48),2);" ]"
35 FOR Y=0 TO 5: FOR X=0 TO 15
40 PUT KANJI(X*16,W+Y*16),JIS,15
45 JIS=JIS+1: NEXT X: W=W+8: NEXT Y
50 IF JIS=&H7480 THEN CLOSE #1: K$=INPUT$(1): END
55 IF JIS=&H2780 THEN JIS=&H2F80: N=N+8
60 JIS=JIS+&HA0: K$=INPUT$(1): CLS: GOTO 20
