5 REM 10X10 MATRIX INVERSION
10 LET N=9
20 DATA 1,2,3,4,5,6,7,8,9,0,2,3,4,5,6,7,8,9,0,1
21 DATA 3,4,5,6,7,8,9,0,1,2,4,5,6,7,8,9,0,1,2,3
22 DATA 5,6,7,8,9,0,1,2,3,4,6,7,8,9,0,1,2,3,4,5
23 DATA 7,8,9,0,1,2,3,4,5,6,8,9,0,1,2,3,4,5,6,7
24 DATA 9,0,1,2,3,4,5,6,7,8,0,1,2,3,4,5,6,7,8,9
30 DIM A(N,N), C(N,N), I(N,N)
40 MAT READ A
50 PRINT "ORIGINAL MATRIX:"
60 MAT PRINT A;
70 PRINT
80 MAT C=INV(A)
90 IF DET=0 THEN 200
100 PRINT "DETERMINANT =";DET
110 PRINT
120 PRINT "INVERTED MATRIX:"
130 MAT PRINT C
140 PRINT
150 MAT I=C*A
160 PRINT "PROOF:"
170 MAT PRINT I
180 PRINT
190 STOP
200 PRINT "NO INVERSION POSSIBLE"
300 END

