\START\
\COMMENT=Program file dated 06/28/93, 16:37
\NAME=AUGMAT
\FILE=AUGMAT.85P
Func:FnOff 
ClLCD
Disp "ORIGINAL MATRIX"
Disp ""
Disp M
Disp ""
Disp "HIT ENTER TO CONTINUE"
Pause 

Lbl AA
ClLCD
Disp "SELECT AN OPERATION"

Disp "(1) SWAP TWO ROWS"
Disp "(2) ADD ROW TO A ROW"
Disp "(3) MULT ROW BY A"
Disp "    VALUE"
Disp "(4) MULT ROW,THEN ADD"
Disp "    TO ANOTHER ROW"
Input "CHOICE = ",CH
If CH==2
Goto L2
If CH==3
Goto L3
If CH==4
Goto L4

ClLCD
Disp "ENTER #'S OF TWO ROWS"
Disp "TO SWAP"
Disp ""
Input "FIRST ROW # =",R1
Input "2ND ROW # =",R2
ClLCD
Disp "NEW MATRIX ="
Disp ""
rSwap(M,R1,R2)\->\M
Disp M\>Frac\
Disp ""
Disp "HIT ENTER TO CONTINUE"
Pause 
Goto AA
Lbl L2
ClLCD
Disp "ENTER #'S OF THE ROWS"
Disp "TO BE ADDED"
Disp ""
Disp "(2ND ROW IS WHERE   "
Disp "RESULT WILL BE"
Disp "STORED!)"
Input "1ST ROW # =",R1
Input "2ND ROW # =",R2
ClLCD
Disp "NEW MATRIX ="
Disp ""
rAdd(M,R1,R2)\->\M
Disp M\>Frac\
Disp ""
Disp "HIT ENTER TO CONTINUE"
Pause 
Goto AA
Lbl L3
ClLCD
Disp "ENTER 2 ITENS:"
Disp ""
Disp "WHICH ROW ?"
Input "ROW # = ",R
Disp "MULT BY WHAT VALUE?"
Input "VALUE = ",V
multR(V,M,R)\->\M
ClLCD
Disp "NEW MATRIX ="
Disp ""
Disp M\>Frac\
Disp ""
Disp "HIT ENTER TO CONTINUE"
Pause 
Goto AA
Lbl L4
ClLCD
Disp "ENTER 3 ITEMS"
Disp ""
Disp "WHICH ROW TO MULT ?"
Input "ROW # =",R
Disp "MULT BY WHAT VALUE ?"
Input "VALUE = ",V
Disp "ADD RESULT TO WHAT "
Disp "ROW ?"
Input "ROW = ",R2
mRAdd(V,M,R,R2)\->\M
ClLCD
Disp "NEW MATRIX ="
Disp ""
Disp M\>Frac\
Disp ""
Disp "HIT ENTER TO CONTINUE"
Pause 
Goto AA
\STOP\