\start83\
\comment=Program file dated 08/31/97, 12:50
\name=ROWOPS
\file=C:\WINLINK\ROWOPS.TXT
Lbl Z:ClrHome
Menu("*SELECT MATRIX*","[A]",A,"[B]",B,"[C]",C,"[D]",D,"[E]",E,"",Z,"QUIT PROGRAM",Q)
Lbl A
[A]\->\[E]
Goto E
Lbl B
[B]\->\[E]
Goto E
Lbl C
[C]\->\[E]
Goto E
Lbl D
[D]\->\[E]
Lbl E
Disp "ENTER TO CONT":Pause [E]\>\Frac
Lbl O
Menu("**OPERATIONS***","rowSwap(",S,"row+(",T,"*row(",U,"*row+(",V,"",O,"",O,"QUIT TO MAIN",Z)
Lbl S
Input "FIRST ROW  ",I
Input "SECOND ROW ",J
rowSwap([E],I,J)\->\[E]:Goto E
Lbl T
Input "FIRST ROW  ",I
Input "SECOND ROW ",J
row+([E],I,J)\->\[E]:Goto E
Lbl U
Input "MULTILY ROW  ",I
Input "BY           ",M
*row(M,[E],I)\->\[E]:Goto E
Lbl V
Input "MULTIPLY ROW ",I
Input "BY           ",M
Input "ADD TO ROW   ",J
*row+(M,[E],I,J)\->\[E]:Goto E
Lbl Q
Stop

\stop83\