\START82\
\COMMENT=Program file dated 12/04/95, 15:54
\NAME=NEWTON
\FILE=NEWTON.82P
ClrHome
Disp "FIRST ENTER \Y1\"
Disp ""
Disp "THEN HIT ENTER"
Pause 
ClrHome
0\->\N
Disp "ENTER INITIAL"
Disp "GUESS"
Disp ""
Prompt X
X\->\G
Lbl 2
\Y1\(G)\->\Y
nDeriv(\Y1\,X,G)\->\D
G-Y/D\->\G
N+1\->\N
ClrHome
Disp "STEP =",N
Disp "X =",G
Disp ""
Disp "(1) CONTINUE"
Disp "(2) QUIT"
Input "ENTER 1 OR 2 ",C
If C=1
Goto 2
ClrHome
\STOP82\