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

15 lines
154 B
Plaintext

var ch = char
var n = integer
ch = 'a'
n = ch
print ch; " = "; n
print ch; " = "; asc(ch)
n = 97
ch = n
print n; " = "; ch
print n; " = "; chr$(n)
end