 10 REM * MAT CON * REDIMENSION TEST PROGRAM
 20 DIM A(3,7)
 30 MAT A=CON(2,6)
 40 FOR I=1 TO 2
 50   FOR J=1 TO 6
 60     PRINT A(I,J);
 70   NEXT J
 80   PRINT
 90 NEXT I
100 PRINT "'MAT CON' PASSED THE TEST IF A"
110 PRINT "2X6 ARRAY OF ONES WAS PRINTED."
999 END
