Spezielle Unicode-Zeichen ausgeben

// Unicode darstellen (X3)

// Einige gebräuchliche Zeichen gibt es hier in dezimal und hexadezimal.
// https://wiki.selfhtml.org/wiki/Referenz:HTML/Zeichenreferenz

 cls
 print "XProfan-Version ",$profver
 
 declare string     s1, checkIt_s, checkItEasy_s
 declare widestring s2, checkIt_w, checkItEasy_w

 // Kreuz und ein Häckchen selbst codiert als UTF-8
 checkIt_s = chr$($E2)+chr$($9C)+chr$($97) + " " + chr$($E2)+chr$($9C)+chr$($93) // UTF-8
 checkIt_w = UTF8Decode(checkIt_s)

 // Kreuz und ein Häckchen im Unicode
 checkItEasy_s = chr$($2717) + " " + chr$($2713)
 checkItEasy_w = chr$($2717) + " " + chr$($2713)
 

 s1 = "ÜberFliegerTest " + checkIt_s
 s2 = "ÜberFliegerTest " + checkIt_w

 print "\n---mit PRINT---"
 print "s       <";s1;">"
 print "s lower <";lower$(s1);">"
 print "s upper <";upper$(s1);">"
 print "\nw       <";s2;">"
 print "w lower <";lower$(s2);">"
 print "w upper <";upper$(s2);">\n"
 
 // liegt's am Font?
 font 0
 print "font 0  <";s1;">";
 print "   <"; s2; ">"

 font 1
 print "font 1  <";s1;">";
 print "   <"; s2; ">"
 
 font 2
 print "font 2  <";s1;">";
 print "   <"; s2; ">"


 var int Zeile = 220
 DrawText 1,Zeile, "---mit DrawText (ansi/wide)---  <" $ s1 $ "> " $ "<" $ s2 $ "> "


 s1 = "Unicode läßt sich also darstellen  "
 s1 = UTF8Encode(s1) + checkIt_s + "  // Chr$ bis 255 (mit UTF8)"
 s2 = UTF8Decode(s1)
 inc Zeile,30
 DrawText 50,Zeile, s2

 s2 = "Unicode läßt sich also darstellen  " + checkItEasy_w + \
      "\nMit WideString und Chr$(>255) ganz einfach." + \
      "\n[ungleich " + chr$(8800) + "]"
 inc Zeile,30
 DrawText 50,Zeile, 300,0, s2, (1 + 16)

 waitinput
 end

' s2 = "[ungleich " + Chr$($2260) + "]"
' s2 = "[ungleich " + Chr$(8800) + "]"