1000 DEF FNF(X)=SIN(X)
1020 REM ***** DERIV ***** MATHEMATICS PROGRAM ****:
1025 REM REVISED APRIL, 1972 ANDY ROTH C.C.G.
1040 REM ***** VERSION 1 ***** 7/31/69 *****
1041 INPUT" HAVE YOU DEFINED YOUR FUNCTION";C$
1042 IF C$="YES"THEN 1080
1043 PRINT"DEFINE YOUR FUNCTION IN THE FOLLOWING WAY"
1044 PRINT"TYPE IN '1000 DEF FNF(X)=<YOUR FUNCTION>'"
1045 PRINT"YOUR FUNCTION SHOULD BE LIKE 'SIN(X) OR X^2'"
1046 PRINT "THEN HIT RETURN AND TYPE 'RUNNH'"
1047 GO TO 1400
1060 REM DERIVATIVE OF A FUNCTION AT A POINT
1080 PRINT "WHAT IS THE VALUE OF THE POINT";
1100 INPUT A
1120 PRINT
1140 PRINT "  X","DIFFERENCE QUOTIENT"
1160  K=0
1180 FOR N=1 TO 10
1200  D1=D
1220  X=A+(1/2)^N
1240  D=(FNF(X)-FNF(A))/(X-A)
1260 PRINT INT(X*10000+.5)/10000,D
1280 NEXT N
1300   D=2*D-D1
1320 PRINT
1340 PRINT "DERIVATIVE = "2*D-D1
1360  D=2*D-D1
1400 END