' Character code conversion: ASC, CHR$
#COMPILE EXE
#DIM ALL

FUNCTION PBMAIN() AS LONG
    LOCAL s AS STRING
    LOCAL code AS LONG

    s = "ABC"

    code = ASC(s)
    PRINT "ASC(ABC):"; code

    code = ASC(s, 2)
    PRINT "ASC(ABC, 2):"; code

    s = CHR$(65, 66, 67)
    PRINT "CHR$(65,66,67):"; s

    s = CHR$(32)
    PRINT "CHR$(32) is space: '" + s + "'"

    s = CHR$(&H48, &H49)
    PRINT "CHR$(&H48,&H49):"; s

    PRINT "ASC/CHR operations complete."

    FUNCTION = 0
END FUNCTION
