\start83\
\comment=Program file dated 10/07/97, 14:24
\name=NEWTON
\file=J:\NEWTON.AS3
prgmFACSU
Disp "ENTER Y\1\"
Disp ""
Disp "(IN QUOTES)"
Disp ""
Input "Y\1\=",Y\1\
ClrHome
0\->\N
Disp "ENTER INITIAL"
Disp "GUESS"
Disp ""
Prompt X
X\->\G
Lbl 2
Y\1\(G)\->\Y
nDeriv(Y\1\,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

\stop83\