**TI86** Program file dated 12/08/98, 22:44’’ü—ī ŽRowOpstcŽÜDisp "Enter a"ÖDisp "2 by 3 matrix:"ÖDisp "A B C"ÖDisp "D E F"ÖPrompt A,B,CÖPrompt D,E,FÖ[[A,B,C][D,E,F]]TEMPÖClLCDÖDisp "Original matrix:"ÖDisp TEMPÖPause Öy2=B(C-A*x)Öy1=E(F-D*x)ÖZStd:Pause :ClLCDÖDisp "Obtain leading"ÖDisp "1 in row 1"ÖmultR(A,TEMP,1)TEMPÖDisp TEMP:Pause Ö"(A/B)(C/A-X)"yÖClDrw:DispG:Pause :ClLCDÖDisp "obtain 0 below"ÖDisp "leading 1 in"ÖDisp "column 1"ÖmRAdd(D,TEMP,1,2)TEMPÖDisp TEMP:Pause ÖIf TEMP(2,2)==0ÖGoto AÖy1=(E-(B*D/A))(F-(D*C/A))ÖClDrw:DispG:Pause :ClLCDÖTEMP(2,2)GÖmultR(G,TEMP,2)TEMPÖDisp "obtain leading"ÖDisp "1 in row 2"ÖDisp TEMP:Pause ÖClDrw:DispG:Pause :ClLCDÖDisp "obtain 0 above"ÖDisp "leading 1 in"ÖDisp "column 2"ÖTEMP(1,2)HÖmRAdd(H,TEMP,2,1)TEMPÖDisp TEMPÖPause :FnOff 2:ClDrwÖVert (B/A)(E-(B*D/A))(F-D*C/A)+C/AÖDispG:Pause :ClLCDÖDisp "the point of"ÖDisp "intersection is"ÖDisp "X=",TEMP(1,3),"Y=",TEMP(2,3)ÖStopÖLbl AÖIf TEMP(2,3)==0ÖThenÖDisp "infinitely many"ÖDisp "solutions"ÖElseÖDisp "inconsistent"ÖDisp "system"ÖEnd֟N