\START\
\COMMENT=Program file dated 08/06/95, 22:05
\NAME=Newton
\FILE=NEWTON.85P
ClLCD
Disp "   Newtons Method"
Disp ""
Disp "Do you want graphics"
Menu(1,"Yes",YES,5,"No",NO)
Lbl NO
0\->\G
Disp "No Graphics"
Lbl YES
1\->\G
Disp "Graphics"
Prompt xMin
Prompt xMax
Disp "Starting x value:"
Prompt X
If G==1
Then
FnOff 
FnOn 1
fMax(y1,x,xMin,xMax)\->\V
evalF(y1,x,V)\->\yMax
fMin(y1,x,xMin,xMax)\->\V
evalF(y1,x,V)\->\yMin
(yMax-yMin)/62\->\Z
yMax+Z\->\yMax
yMin-Z\->\yMin
2\->\G
ClDrw
DrawF y1
End
Lbl NextIt
evalF(y1,x,X)\->\Y
evalF(y2,x,X)\->\M
If G\<>\0
Then
Line(X,Y,X-Y/M,0)
Pause 
End
X-Y/M\->\X
Disp X
Menu(1,"Again",NextIt,5,"Quit",Quit)
Lbl Quit
\STOP\