\START85\
\COMMENT=Program file dated 01/10/96, 18:19
\NAME=PolyDiv
\FILE=POLYDIV.85P
:ClLCD
:Input "DEGREE P(X): ",A
:A+1\->\B
:B\->\dimL EE
:Lbl A
:Input E
:E\->\EE(B)
:B-1\->\B
:If B\>=\1
:Goto A
:Input "DEGREE D(X): ",D
:D+1\->\C
:If D>A
:Goto G
:C\->\dimL NN
:Lbl B
:Input N
:N\->\NN(C)
:C-1\->\C
:If C\>=\1
:Goto B
:((A-D)+1)\->\V
:Lbl C
:V-1\->\V
:If V<0
:Goto E
:(V-(A-D))\->\W
:EE((A+W+1))/NN(D+1)\->\X
:Disp X
:Pause 
:0\->\Y
:Lbl D
:Y+1\->\Y
:EE(((A+W)-Y+1))-(X*NN((D-Y+1)))\->\EE(((A+W)-Y+1))
:If Y\>=\D
:Goto C
:Goto D
:Lbl E
:Disp "REMAINDER"
:0\->\Y
:Lbl F
:Y+1\->\Y
:Disp EE(((A+W)-Y+1))
:Pause 
:If Y\>=\D
:Goto G
:Goto F
:Lbl G
:Stop
\STOP85\