\START85\
\COMMENT=Program file dated 02/05/99, 21:25
\NAME=POLYDIV
\FILE=C:\TI85LINK\PROGRAMS\POLYDIV.85P
:Lbl A1
:ClLCD
:Disp "P(x)/D(x)"
:Input "Order of P(x): ",t
:t+1\->\dimL LST1
:Disp "Enter term  :"
:For(K,1,t+1)
:Outpt(3,12,K)
:Input A9
:A9\->\LST1(K)
:End:ClLCD
:Disp "P(x)/D(x)"
:Input "Order of D(x): ",r
:r+1\->\t
:If r>t
:Goto A1
:r+1\->\dimL xStat
:Disp "Enter term  :"
:For(A9,1,r+1)
:Outpt(3,12,A9)
:Input K
:K\->\xStat(A9)
:End
:(t-r+1)\->\dimL yStat
:For(x,1,t-r+1)
:LST1(x)/xStat(1)\->\yStat(x)
:yStat(x)*xStat\->\LST2
:1\->\K
:For(y,x,x+r)
:LST1(y)-LST2(K)\->\LST1(y):K+1\->\K
:End
:End:ClLCD
:Disp "Order of Q(x):",(dimL yStat)-1
:Disp "Q(x)="
:Pause yStat
:Disp "Remainder:"
:Pause LST1
:Stop
\STOP85\