 10 REM * MAT IDN * TEST PROGRAM
 20 DIM A(4,4)
 30 MAT A=IDN
 40 FOR I=1 TO 4
 50   FOR J=1 TO 4
 60     PRINT A(I,J);
 70   NEXT J
 80   PRINT
 90 NEXT I
100 PRINT "'MAT IDN' PASSED THE TEST IF A 4X4 IDENTITY"
110 PRINT "MATRIX WAS PRINTED."
999 END
