RosettaCodeData/Task/Character-codes/BASIC/character-codes-4.basic
2017-09-25 22:28:19 +02:00

7 lines
103 B
Text

' ASCII
c$ = "$"
PRINT c$, ": ", ASC(c$)
' UTF-8
uc$ = "€"
PRINT uc$, ": ", UCS(uc$), ", ", UCS(c$)