 10 REM * MAT ASSIGNMENT * 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 MAT B=A
 90 FOR I=1 TO 2
100   FOR J=1 TO 3
110     IF B(I,J) <> A(I,J) THEN 160
120   NEXT J
130 NEXT I
140 PRINT "MAT ASSIGNMENT PASSED THE TEST"
150 GOTO 999
160 PRINT "MAT ASSIGNMENT FAILED THE TEST"
170 DATA 1, 2, 3, 4, 5, 6
999 END
 