Tim Swan's MATSOL in ti-Basic

ClrHome
Prompt R
If R
Then
Disp "A:
Prompt X
Prompt Y
{Y,X+1→dim([C]
For(A,1,X+1
For(B,1,Y
ClrHome
Disp "ROW
Disp B
Disp "COL
Disp A
Prompt C
C→[C](B,A
End
End
End
rref([C])→[B]
Disp [B]
Pause
1→S
1→T
0→C
0→D
0→F
While T≤Y and S≤X
If [B](T,S)=0
Then
D+1→D
–D→L₁(S)
S+1→S
Else
C+1→C
1→L₁(S)
S+1→S
T+1→T
End
End
While S≤X
D+1→D
–D→L₁(S)
S+1→S
End
0→B
For(A,1,X
If L₁(A)=1
Then
B+1→B
Disp [B](B,X+1
Else
Disp 0
End
End
Pause
0→E
For(A,1,D
ClrHome
1→F
E+1→E
While L₁(E)=1
E+1→E
End
For(B,1,X
If L₁(B)<1
Then
If –L₁(B)=A
Then
Disp 1
Else
Disp 0
End
Else
Disp –[B](F,E
F+1→F
End
End
Pause
End