\START82\
\COMMENT=
\NAME=ROWOP
\FILE=C:\MYPROGS\TI_NEW~1\ROWOP.82P
: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]\->\[D]
:[E]\->\[A]
:[D]\->\[E]
:Else
:[A]\->\[E]
: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
\STOP82\