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) & _
" , &#" & 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