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

PROGRAM	"Character codes"
VERSION	"0.0000"

DECLARE FUNCTION  Entry ()

FUNCTION  Entry ()
    PRINT "a - >"; ASC("a")
    PRINT "98 -> "; CHR$(98)
END FUNCTION
END PROGRAM