Dim A#(0,0)
Dim I#(0,0)

Function InverseMatrix(size)
   Local x,y,x2,y2,x3,y3
   Local temp#,var#
   Local st$
   Dim I#(size-1,size-1)
   For x=0 To size-1
      For y=0 To size-1
         If x=y Then
            I#(x,y)=1.0
         Else
            I#(x,y)=0.0
         EndIf
      Next
   Next
   For x=0 To size-1
      y=x
      .back
      If Not A#(x,y)=1.0 Then
         If A#(x,y)=0.0 Then
            If y=size-1 Then
               Return 0
            Else
               y2=y+1
               Repeat
                  If A#(x,y2)=0.0 Then
                     If y2=size-1 Then
                        Return 0
                     EndIf
                     y2=y2+1
                  Else
                     For x2=0 To size-1
                        
                        temp#=A#(x2,y)
                        A#(x2,y)=A#(x2,y2)
                        A#(x2,y2)=temp#
                        temp#=I#(x2,y)
                        I#(x2,y)=I#(x2,y2)
                        I#(x2,y2)=temp#
                        
                     Next
                     Goto back
                  EndIf
               Forever
            EndIf
         Else
            var#=A#(x,y)
            For x2=0 To size-1
               A#(x2,y)=A#(x2,y)/var#
               I#(x2,y)=I#(x2,y)/var#
            Next
         EndIf
      EndIf
      For y2=0 To size-1
         If Not y2=y
            If Not A#(x,y2)=0.0
               var#=A#(x,y2)
               For x2=0 To size-1
                  A#(x2,y2)=A#(x2,y2)-A#(x2,y)*var#
                  I#(x2,y2)=I#(x2,y2)-I#(x2,y)*var#
               Next
            EndIf
         EndIf
      Next
   Next
   Return 1
End Function

Dim A#(1,1)
A#(0,0)=1.0
A#(1,0)=0.0
A#(0,1)=-1.0
A#(1,1)=2.0
Dim I#(0,0)

Value=InverseMatrix(2)
If Value=0 Then
   Print "Matrix ist nicht inversierbar!"
Else
   Print "Die inverse Matrix I von A ="
   Print "|"+I#(0,0)+", "+I#(1,0)+"|"
   Print "|"+I#(0,1)+", "+I#(1,1)+"|"
EndIf
WaitKey
End