100 REM Program to calculate E by an infinite series
110 LET E=1
120 LET E0=E
130 LET I=I+1
140 LET D=1
150 FOR J=1 TO I
160 LET D=D*J
170 NEXT J
180 LET E=E+1/D
190 PRINT E
200 IF ABS(E-E0)>1.00000E-07 GO TO 120
210 END
