\START85\
\COMMENT=
\NAME=ROWOP
\FILE=C:\MYPROGS\TI_NEW~1\ROWOP.85P
:Lbl A
:Pause A\>Frac\
:Pause A
:Disp "1 TO DIVIDE"
:Disp "2 TO mRAdd"
: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\->\DT
:ET\->\A
:DT\->\ET
:Else
:A\->\ET
:If V==1
:Then
:Input ("DIVIDE ROW ",R)
:Input ("BY ",X)
:multR(1/X,A,R)\->\A
:Else
:If V==4
:Then
:Input ("SWAP ROW ",R)
:Input ("AND ROW ",J)
:rSwap(A,R,J)\->\A
:Else
:Input ("REPLACE ROW ",R)
:Input ("BY IT+K*ROW J:K= ",K)
:Input (" J= ",J)
:mRAdd(K,A,J,R)\->\A
:End:End:End
:Goto A
\STOP85\