Option Explicit
Sub Main()
    '                       By T.Shibuya 2003-03-22
    '
    Const Flnm  As String = "c:\Test\Test01.html"
    
    Dim X1       As Integer
    Dim X2       As Integer
    Dim X3       As Integer
    Dim X4       As Integer
    Dim Dec      As Long
    Dim XChr(15) As String
    
    On Error Resume Next
    
    XChr(0) = "0"
    XChr(1) = "1"
    XChr(2) = "2"
    XChr(3) = "3"
    XChr(4) = "4"
    XChr(5) = "5"
    XChr(6) = "6"
    XChr(7) = "7"
    XChr(8) = "8"
    XChr(9) = "9"
    XChr(10) = "A"
    XChr(11) = "B"
    XChr(12) = "C"
    XChr(13) = "D"
    XChr(14) = "E"
    XChr(15) = "F"
    
    Open Flnm For Output As #1
    
    Print #1, "<html>"
    Print #1, "<head>"
    Print #1, "<title>UNICODE TEST</title>"
    Print #1, "</head>"
    Print #1, "<body>"
    For X1 = 0 To 15
        For X2 = 0 To 15
            For X3 = 0 To 15
                For X4 = 0 To 15
                    Dec = (X1 * 16 ^ 3) + (X2 * 16 ^ 2) + (X3 * 16 ^ 1) + (X4 * 16 ^ 0)
                        Print #1, "x" & XChr(X1) & XChr(X2) & XChr(X3) & XChr(X4) & _
                                  " , &amp;#" & Format(Dec, "####0") & ";" & _
                                  " , &#" & Format(Dec, "####0") & ";<br>"
                Next X4
            Next X3
        Next X2
    Next X1
    
    Print #1, "</body>"
    Print #1, "</html>"
    
    Close #1
    
End Sub