1 SCREEN 1
10 DEFDBL A-Z
20 PRINT "LOG(X) WHEN INPUT X=1.5"
25 PRINT "lOG(X)=2*{((X-1/X+1)^2N+1)/2N+1} X>0"
30 C = 0
40 A = 1.5
41 PLAY "mbeed#l2el4eed#l2e"
42 PLAY "mbl4eed#edo3bgo4l2cl4"
50 FOR Z = 0 TO 11200
60 B = (((A - 1) / (A + 1)) ^ ((2 * Z) + 1)) / ((2 * Z) + 1)
70 C = C + B
80 NEXT Z
85 C = 2 * C
90 PRINT "CALCULATED LOG", C
100 PRINT "LOG(X)=", LOG(A)
110 FOR ZZ = 1 TO 10000000
120 NEXT ZZ
130 SYSTEM