#COMPILE EXE "s16_parse.exe"
' Sample: Parsing strings manually
FUNCTION PBMAIN() AS LONG
    DIM s AS STRING, i AS LONG, pos AS LONG
    s = "apple,banana,cherry"
    PRINT "CSV string: "; s
    PRINT "Comma positions:"
    FOR i = 1 TO LEN(s)
        IF MID$(s, i, 1) = "," THEN PRINT i;
    NEXT i: PRINT
    FUNCTION = 0
END FUNCTION
