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