**TI86** ú êSIMPLEX êèClLCDÖABÖdim BL1ÖL1(1)RÖL1(2)SÖseq([B](R,I),I,1,S-1)L2Ömin(L2)TÖIf T0ÖGoto P1ÖLbl P13Ö1JÖLbl P2ÖIf B(R,J)==TÖGoto P3ÖJ+1JÖGoto P2ÖLbl P3Ö1KÖLbl P6ÖIf B(K,J)0ÖGoto P4Ö[[B(K,S)/B(K,J)]]EÖK+1KÖLbl P7ÖIf B(K,J)0ÖGoto P5Öaug(E,[[B(K,S)/B(K,J)]])EÖK+1KÖGoto P7ÖLbl P8Ödim (E)L3Öseq(E(1,I),I,1,L3(2))L4Ömin(L4)MÖ1IÖLbl P10ÖIf B(I,J)==0ÖGoto P14ÖIf B(I,S)/B(I,J)==MÖGoto P11ÖI+1IÖGoto P10ÖLbl P11ÖIf I==1ÖGoto P12ÖmultR(B(I,J),B,I)BÖFor(K,1,I-1,1)ÖmRAdd(B(K,J),B,I,K)BÖEndÖFor(K,I+1,R,1)ÖmRAdd(-B(K.J),B,I,K)BÖEndÖround(B,9)BÖseq(B(R,I),I,1,S-1)L2Ömin(L2)TÖIf T0ÖGoto P1ÖClLCDÖPause BFracÖGoto P13ÖLbl P12ÖmultR(B(I,J),B,1)BÖFor(K,2,R,1)ÖmRAdd(B(K,J),B,1,K)BÖEndÖround(B,11)BÖseq(B(R,I),I,1,S-1)L2Ömin(L2)TÖIf T0ÖGoto P1ÖClLCDÖPause BFracÖGoto P13ÖLbl P4ÖK+1KÖIf K>(R-1)ÖGoto P9ÖGoto P6ÖLbl P5ÖK+1KÖIf K>(R-1)ÖGoto P8ÖGoto P7ÖLbl P1ÖClLCDÖDisp "FINAL SIMPLEX"ÖDisp "MATRIX"ÖDisp " "ÖPause BFracÖStopÖLbl P9ÖDisp "NO MAXIMUM SOLUTION"ÖStopÖLbl P14ÖI+1IÖGoto P10ÖF