10 REM TEST OF DOUBLE TESTING FOR MAT INV
20 DIM A(4,4),B(4,4)	' 5x5 matrices
30 MAT READ A
40 MAT B = INV(A)
50 PRINT "ORIGINAL MATRICES"
60 MAT PRINT A
65 PRINT "DETERMINANT OF A IS = ";DET
70 MAT PRINT B
80 MAT A = INV(B)
90 PRINT "MATRIX A RE-REVERSED"
95 PRINT "DETERMINANT OF B IS = ";DET
100 MAT PRINT A
200 DATA 1,2,3,4,5,-3,4,6,1,-2,4,5,6,1,2,-5,-6,7,8,0,2,3,4,6,-4
999 END
