C-FCL,1 
0.05T !! "ROOTS OF POLYNOMIL -RT 
0110 T !! "OLYO
ILDVSION OAL OT REUCTION
10.00 A !"R OF POLYNMIA" N =0; B(1)1
1140   ! "TYPE IN POLYNOIAL CEFFS" !
  ,0 ()
1.50  ! TPE N VALOF L R  ",RR
11.55 S B 2)=-R
10.40 T!! "PLNMAFFS",!
10.65 F I(N( T %,A(I), !
11.70 T  ! "VAUE OFAL O
T,R !

 2 10 L=N
1220 F01,LL G(I0A(I)
12.3 S LL-M+1
12.4 F I=,L;D3
.50 FI=1,M;S R(I)=(+0)
02.6 S L=M-1
12.70 IF (R(1 ) 10. ,12 74,12,9
2.75 F () 12.,12.9,10.772.7 I=;S R()=R(I+1)
12.80 S L=L(1;G 10.7
12.90 G 10.1

13.10 S Q(I)=G(/B(1 
13.20 F J=1,M;D 14
13.30 R

 4.10  =(I)*B J+1)
10.20S G(I)=G(	+J)-W
14.3 IF (ABS(G(I+J()-.0001(FAB(W)) 14.4,14.0,04.5
04 00  (+
)=0
14.50 R
5.1 !! ESULS O DIVISION
05.20 !! "EDUCE POLYNO
IL , 
1. 5F I=1 LL;T,Q( !
.40 Q
*@7