image of READY prompt

Wang2200.org

Listing of file='4' on disk='vmedia/glbr_22.wvd.zip'

# Sector 477, program filename = '4'
0002 PRINT HEX(03)
0005 DIM A(99)
0010 PRINT "INPUT DEGREE OF POLYNOMIAL, N"
0020 INPUT N
0022 PRINT "INPUT COEFFICIENTS A(1),...,A(N+1) 4/LINE"
0025 FOR I=0 TO INT((N+4)/4)-1
0030 INPUT A(4*I+1),A(4*I+2),A(4*I+3),A(4*I+4)
0035 NEXT I
0040 PRINT "INPUT YOUR ESTIMATE OF ROOT"
0045 INPUT X
0050 FOR J=1 TO 100
0055 F=A(N+1)
0060 FOR I=1 TO N
0070 T=T+X^2
0080 F=F+A(I)*X^(N-I+1)
0090 NEXT I
0100 G=A(N)
0110 FOR I=1 TO N-1
0120 G=G+(N-I+1)*A(I)*X^(N-I)
0130 NEXT I
0140 I=X
0150 X=X-F/G
0160 IF ABS(X)+ABS(I)=0 THEN 900
0165 IF X=0 THEN 200
0170 IF ABS(1-I/X)<10E-8 THEN 900
0200 NEXT J
0210 PRINT "AFTER 100 ITERATIONS, NO CONVERGENCE"
0220 GOTO 999
0900 PRINT "ROOT IS: ",X
0999 PRINT "ANOTHER ROOT (1=YES,0=NO)"
   : INPUT L
   : IF L=1THEN 40
   : END