size Example
10 OPTION BASE 1
20 DIM A(16,6)
30 CLEAR SCREEN
40 Pass_a(A(*))
50 PRINT "After REDIM"
60 REDIM A(7,3)
70 Pass_a(A(*))
80 END
90 SUB Pass_a(REAL A(*))
100 L=RANK(A)
110 PRINT "The number of elements in each dimension of A is (";SIZE(A,1);",";SIZE(A,2);")"
120 SUBEND
