#COMPILE EXE "s28_array_strings.exe"
' Sample: String arrays
FUNCTION PBMAIN() AS LONG
    DIM names(3) AS STRING, i AS LONG
    names(0) = "Alice": names(1) = "Bob"
    names(2) = "Charlie": names(3) = "Diana"
    PRINT "Name list:"
    FOR i = 0 TO 3
        PRINT "  "; names(i)
    NEXT i
    FUNCTION = 0
END FUNCTION
