\start83\
\comment=Program file dated 08/31/97, 12:50
\name=PIVOTCLN
\file=C:\WINLINK\PIVOTCLN.TXT
Disp "ENTER ROW"
Disp "AND COLUMN"
Prompt R,C
Disp R,C
[D](R,C)\->\M
*row(M\^-1\,[D],R)\->\[D]
dim([D])\->\L\6\
For(K,1,L\6\(1))
If (K\!=\R)
Then
\(-)\[D](K,C)\->\M
*row+(M,[D],R,K)\->\[D]
End
End
For(K,1,L\6\(1))
For(L,1,L\6\(2))
If abs([D](K,L))<10^(\(-)\10)
Then
0\->\[D](K,L)
End
End
End
[D]\>\Frac

\stop83\