#COMPILE EXE "s18_asc_chr.exe"
' Sample: ASC and CHR$ functions
FUNCTION PBMAIN() AS LONG
    DIM i AS LONG
    PRINT "Character codes:"
    FOR i = 65 TO 70
        PRINT "CHR$("; i; ") = "; CHR$(i)
    NEXT i
    PRINT "ASC('A') ="; ASC("A")
    PRINT "ASC('Z') ="; ASC("Z")
    FUNCTION = 0
END FUNCTION
