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