RosettaCodeData/Task/Character-codes/BASIC/character-codes-4.basic

8 lines
103 B
Plaintext

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