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