11 lines
257 B
Text
11 lines
257 B
Text
If OpenConsole()
|
|
;UTF-8 encoding compiled for Unicode (UCS-2)
|
|
charCode.c = 960
|
|
Char.s = "π"
|
|
PrintN(Chr(charCode)) ;prints π
|
|
PrintN(Str(Asc(Char))) ;prints 960
|
|
|
|
Print(#CRLF$ + #CRLF$ + "Press ENTER to exit")
|
|
Input()
|
|
CloseConsole()
|
|
EndIf
|