 10 REM * MAT ZER * REDIMENSION TEST PROGRAM
 20 DIM A(3,8)
 30 FOR I=1 TO 3
 40   FOR J=1 TO 8
 50     A(I,J)=10*I+J
 60   NEXT J
 70 NEXT I
 80 MAT A=ZER(2,6)
 90 FOR I=1 TO 2
100   FOR J=1 TO 6
110     PRINT A(I,J);
120   NEXT J
130   PRINT
140 NEXT I
150 PRINT "'MAT ZER' PASSED THE TEST IF A"
160 PRINT "2X6 ARRAY OF ZEROS WAS PRINTED."
999 END
