BASE 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 array passed in, has the following dimensions."
120 PRINT "Rank: ";L
130 PRINT "Base: ";BASE(A,L)
140 PRINT "Size: ";SIZE(A,L)
15 SUBEND
