**TI85** Ñ ÄROWOPÄÂLbl AÖPause AFracÖ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ÖADTÖETAÖDTETÖElseÖAETÖ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ÖZ—