unicodeGenerator

Unicode Generator
Displays Unicode Characters Decimal 1 - 65535 code format="vbnet" cssID #uBox, "{Width: 25px; Height: 30px; Font-Family: Verdana; Font-Size: 16pt; Float: Left}" cssID #nUni, "{Width: 75px; Font-Family: Verdana; Font-Size 4pt; Float: Left}" cssID #CRLF, "{Clear: Both}" cssID #hTitle, "{Margin-Left: 100px; Font-Family: Verdana; Font-Size: 18pt}" Html "" EventKey$ = "#Unicode00001"

[UnicodeLink] u1 = Val(Right$(EventKey$, 5)) u2 = u1 + 2399 If u2 > 65535 Then u2 = 65535 End If Cls Gosub [DisplayLinks] Gosub [DisplayUnicode] Wait

[DisplayUnicode] n$ = "Unicode Characters ";Right$("00000";u1, 5);" - ";Right$("00000";u2, 5) Div hTitle Print: Print Print n$ End Div Print For i = u1 to u2  If (i - 1) Mod 40 = 0 Then Div CRLF Print " " End Div Div nUni Print i;"-" If i + 39 > 65535 Then Print "65535" Else Print i + 39 End If     End Div End If  Div uBox u$ = "&#";i html u$  End Div Next i  Div CRLF Print " " End Div Return

[DisplayLinks] Print: Print ct = 0 For i = 1 to 64801 Step 2400 n = i + 2399 If n > 65535 Then n = 65535 End If  If n < 65536 Then ct = ct + 1 nChar$ = Right$("00000";i, 5);" - ";Right$("00000";n, 5) lnk$ = "#Unicode";Right$("00000";i, 5) Link #lnk$, nChar$, [UnicodeLink] Print " "; If ct Mod 7 = 0 Then Print End If  End If Next i Return code