RosettaCodeData/Task/Character-codes/XBasic/character-codes.basic

11 lines
173 B
Text
Raw Permalink Normal View History

2023-12-16 21:33:55 -08:00
PROGRAM "Character codes"
VERSION "0.0000"
DECLARE FUNCTION Entry ()
FUNCTION Entry ()
PRINT "a - >"; ASC("a")
PRINT "98 -> "; CHR$(98)
END FUNCTION
END PROGRAM