S.20　KanTab

Public Sub Proc20()      'KANTAB.BAS
    Dim Jis(0 To 15) As Integer, a$(0 To 15)
    Dim SJis(0 To 15) As Integer, NLine, XP, YP, YPS, i, j
    Dim First$, Htitle$, KANCONT$, VTITLE$
'  "先頭のＪＩＳ漢字コードを入力してください ===>"; FIRST$
    First$ = "3020"
    NLine = 12
    Jis(0) = Val("&H" + First$)
    SJis(0) = JISTOMS(Jis(0))
'
    Dperas
    Dpwind 10, 10, 25
    Call KANJI(3!, 19.5, 1.5, 0!, "ＪＩＳ漢字コード一覧", 0!, 10)
    Htitle$ = " 0 1 2 3 4 5 6 7 8 9 A B C D E F"
    Call SYMBOL(2!, 17.5, 0.6, Htitle$, 0!, 32)
'
    XP = 2!
    YPS = 16!
    For i = 1 To NLine
        For j = 1 To 15
            Jis(j) = Jis(j - 1) + 1
            SJis(j) = JISTOMS(Jis(j))
        Next j
'
        KANCONT$ = ""
        For j = 0 To 15
            KANCONT$ = KANCONT$ + Chr$(JISTOMS(Jis(j)))
        Next j
'
        VTITLE$ = Hex$(Jis(0))
        YP = YPS - (i - 1) * 1.2 * 1.2
        Call SYMBOL(-1!, YP, 0.6, VTITLE$, 0!, 4)
        Call KANJI(XP, YP, 1.2, 0!, KANCONT$, 0!, 16)
'
        If ((Jis(0) Mod 256) = 7 * 16) Then
            If (Jis(0) \ 256 = 2 * 16 + 7) Then
                Jis(0) = Jis(0) + 8 * 256
            End If
            Jis(0) = Jis(0) + 11 * 16
        Else
            Jis(0) = Jis(0) + 16
        End If
    Next i
End Sub