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