%%HP: T(1)A(R)F(.);
 CLEAR
"INFORM TO SOLVE MATRIX A"
{ { "A:"
"ENTER MATRIX ELEMENTS"
} "B:" "C:" "D:"
"E:" "F:" "G:" "H:"
{ "I:"
"ENTER THE NUMBER AND PRESS OK!"
} } { 3 1 } { } { }
INFORM DROP EVAL {
3 3 } ARRY  A
  
    IF A DET 0 ==
    THEN
"  Matrix not 
  inversible"
MSGBOX
    ELSE
" INVERSE MATRIX" {
"A:" "B:" "C:" "D:"
"E:" "F:" "G:" "H:"
"I:" "DET" } { 3 1
} { } 'INV(A)' EVAL
OBJ DROP A DET 10
LIST INFORM CLEAR
    END
  

