Unicode Generator


Displays Unicode Characters Decimal 1 - 65535
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 "</Div>"
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