Newton's Numerical Solve Routine:

This program uses the Newton-Raphson method to find the roots (zeros) of a function 
numerically.  You must enter the function in Y1 before running the program.  You will be 
prompted to give an initial guess.  The program will then take over and locate the root.

PROGRAM:NEWTON
:INPUT "INITIAL X=",X
:LBL N
:X-Y1/NDERIV(Y1,X,X)->R
:DISP R
:PAUSE 
:IF ABS (X-R)\<=\ABS (X/1\EE\10)
:STOP
:R->X
:GOTO N