FUNCTION PBMAIN() AS LONG
    LOCAL a() AS QUAD
    REDIM a(0 TO 1) AS QUAD
    a(0) = 55
    PRINT a(0)
    REDIM a(0 TO 5) AS QUAD
    a(5) = 55
    PRINT a(5)
    REDIM PRESERVE a(0 TO 600) AS QUAD
    a(600) = 42
    PRINT a(600)
END FUNCTION
