
        GoTo jmp

        '*******************************************************
        Dim i As Long
        Dim x As Integer
        Dim i2 As Long
        Dim i3 As Long
        i = esiz
        i2 = i

        'MsgBox(i)
        For x = 1 To 16
            i = i \ 2
        Next
        MsgBox("H21 " & i)
        '***************************************************
        If i > 32767 Then
            H(21) = -32768
            i = i - 32767
        End If
        H(21) = H(21) + i

        '****************
        For x = 1 To 16
            i = i * 2
        Next
        i3 = i2 - i

        'MsgBox(i3)


        H(20) = 0
        If i3 > 32767 Then
            H(20) = -32768
            i3 = i3 - 32768
        End If
        H(20) = H(20) + i3
        MsgBox(" h20 " & H(20))


        '====================================
        '======ADD 36 =====FOR HEADER========
        '====================================
        i = esiz + 36 ' is the file length
        i2 = i
        For x = 1 To 16
            i = i \ 2
        Next
        MsgBox("h3 " & i)
        H(3) = i
        For x = 1 To 16
            ' i = i * 2
        Next
        i3 = i2 - i
        'MsgBox(i3)
        H(2) = 0
        If i3 > 32767 Then
            H(2) = -32768
            i3 = i3 - 32768
        End If
        H(2) = H(2) + i3
        MsgBox("h2 " & H(2))

jmp: