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