 10 REM * MAT MULTIPLICATION * TEST PROGRAM
 20 DIM A(2,3), B(3,2), C(2,2)
 30 FOR I=1 TO 2
 40   FOR J=1 TO 3
 50     READ A(I,J)
 60   NEXT J
 70 NEXT I
 80 FOR I=1 TO 3
 90   FOR J=1 TO 2
100     READ B(I,J)
110   NEXT J
120 NEXT I
130 MAT C=A*B
140 FOR I=1 TO 2
150   FOR J=1 TO 2
160     PRINT C(I,J);
170   NEXT J
180   PRINT
190 NEXT I
200 PRINT "MAT MULTIPLICATION PASSED THE TEST IF 10 14"
210 PRINT "                                      4 41 WAS PRINTED"
220 DATA 1,2,3,   4,5,0
230 DATA 1,4,  0,5,  3,0
999 END
 