1 REM THIS PROGRAM APPEARS AT PAGE 56 OF THE ITALIAN VERSION OF
2 REM "PROGRAMMING IN BASIC" 1ST EDITION, BY BYRON S. GOTTFRIED 
10 REM AN ITERATIVE METHOD FOR COMPUTING ROOTS OF AN EQUATION
12 REM NOTE: THE FOLLOWING LINE WAS NOT IN THE ORIGINAL PROGRAM
15 PRINT "INPUT INITIAL GUESS AND NUMBER OF ITERATIONS";
20 INPUT X,N
25 PRINT
30 LET I=1
40 LET X1=(10-3*X^2)^.2
50 PRINT "I="I,"X1="X1
60 IF ABS(X-X1)<.00001 THEN 110
70 IF I=N THEN 160
80 LET X=X1
90 LET I=I+1
100 GO TO 40
110 PRINT
120 PRINT "THE FINAL ANSWER IS X="X1
130 PRINT
140 PRINT "NUMBER OF INTERATIONS REQUIRED ="I
150 GO TO 190
160 PRINT
165 PRINT "COMPUTATION HAS NOT CONVERGED AFTER"I;" ITERATIONS"
170 PRINT
180 PRINT "LAST VALUE OF X="X1
190 END
