Listing of file='9' on disk='vmedia/glbr_22.wvd.zip'
# Sector 142, program filename = '9' 0005 PRINT "ENTER VALUE OF X. (TO END PROGRAM INPUT 99999)" 0010 INPUT A 0012 IF A=99999 THEN 90 0015 PRINT 0020 PRINT " X","DIFFERENCE QUOTIENT" 0025 D=0 0030 FOR N=1 TO 10 0035 D1=D 0040 X=A+.5^N 0045 D=(FNC(X)-FNC(A))/(X-A) 0050 PRINT INT(X*1E4+.5)/1E4,D 0055 NEXT N 0060 PRINT 0065 PRINT "DERIVATIVE AT X=";A;"IS:";2*D-D1 0070 PRINT 0080 PRINT "ENTER VALUE OF X" 0085 GOTO 10 0090 END