' Array basics
#COMPILE EXE
#DIM ALL

FUNCTION PBMAIN() AS LONG
    LOCAL arr(10) AS LONG
    LOCAL i AS LONG
    FOR i = 0 TO 10
        arr(i) = i * 10
    NEXT i
    PRINT "arr(0)=" + STR$(arr(0))
    PRINT "arr(5)=" + STR$(arr(5))
    PRINT "arr(10)=" + STR$(arr(10))
    PRINT "Done."
    FUNCTION = 0
END FUNCTION
