\start83\
\comment=09/17/03, 20:41
\name=ROWOP
\file=C:\MYPROGS\TI_NEW~1\ROWOP83.TXT
Lbl A
Pause [A]\>\Frac
Pause [A]
Disp "1 TO DIVIDE"
Disp "2 TO *ROW+"
Disp "3 TO REVERT"
Disp "4 TO SWAP ROWS"
Input ("5 TO STOP ",V)
If V=5
Then
Stop
Else
If V=3
Then
[A]\->\[I]
[J]\->\[A]
[I]\->\[J]
Else
[A]\->\[J]
If V=1
Then
Input ("DIVIDE ROW ",R)
Input ("BY ",X):*row(1/X,[A],R)\->\[A]
Else
If V=4
Then
Input ("SWAP ROW ",R)
Input ("AND ROW ",J)
rowSwap([A],R,J)\->\[A]
Else
Input ("REPLACE ROW ",R)
Input ("BY IT+K*ROW J:K= ",K)
Input (" J=",J):*row+(K,[A],J,R)\->\[A]
End:End:End
Goto A

\stop83\