\start83\
\comment=Program file dated 10/07/97, 14:24
\name=AUGMATRX
\file=J:\AUGMATRX.AS3
ClrHome
Disp "FIRST ENTER THE"
Disp "ORIGINAL MATRIX"
Disp "[A] USING THE"
Disp "MATRIX EDITOR"
Disp ""
Disp "THEN HIT ENTER"
Pause 
ClrHome


Func:FnOff 
ClrHome
Disp "ORIGINAL MATRIX"
Disp [A]
Disp ""
Disp "HIT ENTER"
Pause 
Lbl 1
ClrHome
Disp "ENTER CHOICE"
Disp "1)SWAP TWO ROWS"
Disp "2)ADD TWO ROWS"
Disp "3)MULT ROW BY A"
Disp "  VALUE"
Disp "4)MULT ROW,"
Disp "  THEN ADD ROWS"
Input "CHOICE =",W
If W=2
Goto 2
If W=3
Goto 3
If W=4
Goto 4
ClrHome
Disp "ENTER WHICH ROWS"
Disp "TO SWAP"
Disp ""
Input "FIRST ROW = ",A
Input "2ND ROW = ",B
ClrHome
Disp "NEW MATRIX ="
Disp ""
rowSwap([A],A,B)\->\[A]
Disp [A]\>\Frac
Disp ""
Disp "HIT ENTER"
Pause 
Goto 1
Lbl 2
ClrHome
Disp "ENTER ROWS TO"
Disp "BE ADDED"
Disp ""
Disp "(RESULTS STORED"
Disp "IN 2ND ROW)"
Input "1ST ROW = ",A
Input "2ND ROW = ",B
ClrHome
Disp "NEW MATRIX ="
Disp ""
row+([A],A,B)\->\[A]
Disp [A]\>\Frac
Disp ""
Disp "HIT ENTER"
Pause 
Goto 1
Lbl 3
ClrHome
Disp "ENTER 2 ITEMS:"
Disp ""
Disp "WHICH ROW"
Input "ROW = ",R
Disp "MULT BY WHAT"
Input "VALUE = ",V
*row(V,[A],R)\->\[A]
ClrHome
Disp "NEW MATRIX ="
Disp ""
Disp [A]\>\Frac
Disp ""
Disp "HIT ENTER"
Pause 
Goto 1
Lbl 4
ClrHome
Disp "ENTER 3 ITEMS"
Disp ""
Disp "MULT WHICH ROW"
Input "ROW = ",R
Disp "MULT BY WHAT"
Input "VALUE = ",V
Disp "ADD TO WHICH ROW"
Input "ROW = ",Z
*row+(V,[A],R,Z)\->\[A]
ClrHome
Disp "NEW MATRIX ="
Disp ""
Disp [A]\>\Frac
Disp ""
Disp "HIT ENTER"
Pause 
Goto 1

\stop83\