**TI85** Program file dated 02/05/99, 21:25, POLYDIVLbl A1ÖClLCDÖDisp "P(x)/D(x)"ÖInput "Order of P(x): ",tÖt+1dimL LST1ÖDisp "Enter term :"ÖFor(K,1,t+1)ÖOutpt(3,12,K)ÖInput A9ÖA9LST1(K)ÖEnd:ClLCDÖDisp "P(x)/D(x)"ÖInput "Order of D(x): ",rÖr+1tÖIf r>tÖGoto A1Ör+1dimL xStatÖDisp "Enter term :"ÖFor(A9,1,r+1)ÖOutpt(3,12,A9)ÖInput KÖKxStat(A9)ÖEndÖ(t-r+1)dimL yStatÖFor(x,1,t-r+1)ÖLST1(x)/xStat(1)yStat(x)ÖyStat(x)*xStatLST2Ö1KÖFor(y,x,x+r)ÖLST1(y)-LST2(K)LST1(y):K+1KÖEndÖEnd:ClLCDÖDisp "Order of Q(x):",(dimL yStat)-1ÖDisp "Q(x)="ÖPause yStatÖDisp "Remainder:"ÖPause LST1ÖStopÖ]¸