2 PRINT HEX(03)
5 DIM A(99)
10 PRINT "INPUT DEGREE OF POLYNOMIAL, N"  
20 INPUT N 
22 PRINT "INPUT COEFFICIENTS A(1),...,A(N+1) 4/LINE"  
25 FOR I=0 TO INT((N+4)/4)-1
30 INPUT A(4*I+1),A(4*I+2),A(4*I+3),A(4*I+4)  
35 NEXT I 
40 PRINT "INPUT YOUR ESTIMATE OF ROOT"  
45 INPUT X 
50 FOR J=1 TO 100
55 F=A(N+1) 
60 FOR I=1 TO N 
70 T=T+X^2  
80 F=F+A(I)*X^(N-I+1) 
90 NEXT I 
100 G=A(N)  
110 FOR I=1 TO N-1  
120 G=G+(N-I+1)*A(I)*X^(N-I)  
130 NEXT I  
140 I=X
150 X=X-F/G
160 IF ABS(X)+ABS(I)=0 THEN 900 
165 IF X=0 THEN 200
170 IF ABS(1-I/X)<10E-8 THEN 900 
200 NEXT J  
210 PRINT "AFTER 100 ITERATIONS, NO CONVERGENCE"  
220 GOTO 999  
900 PRINT "ROOT IS: ",X
999 PRINT "ANOTHER ROOT (1=YES,0=NO)":INPUT L:IF L=1THEN 40:END 

