◄Example►                 ◄Contents►  ◄Index►  ◄Back►
──────────────────────────────────────────────────────────────────────────────
'This example uses the LBOUND and UBOUND functions in a SUB procedure
'to determine the size of an array passed to the procedure by a calling
'program.
 
DECLARE SUB PRNTMAT (A!())
DIM A(0 TO 3, 0 TO 3)
FOR I% = 0 TO 3
    FOR J% = 0 TO 3
        A(I%, J%) = I% + J%
    NEXT J%
NEXT I%
CALL PRNTMAT(A())
END
 
SUB PRNTMAT (A()) STATIC
    FOR I% = LBOUND(A, 1) TO UBOUND(A, 1)
        FOR J% = LBOUND(A, 2) TO UBOUND(A, 2)
           PRINT A(I%, J%); " ";
        NEXT J%
    PRINT : PRINT
    NEXT I%
END SUB