5 SCREEN 1
10 DEFDBL A-Z
20 PRINT "exponential e^X INPUT X=1"
21 PRINT "Taylor series for e^X=(X^N)/N!"
25 X = 1
30 A = 1
40 M = 1
41 PLAY "mbeed#l2el4eed#l2e"
42 PLAY "mbl4eed#edo3bgo4l2cl4"
50 FOR Z = 1 TO 100
60 A = A * Z
65 IF A > 8.5D+36 THEN GOTO 110
80 M = M + ((X ^ (Z)) / (A))
100 NEXT Z
110 PRINT "CALCULATED EXP(X) OR e^X=", M
130 PRINT "EXP(X)=", EXP(X)
140 FOR ZZ = 1 TO 10000000
150 NEXT ZZ
160 SYSTEM