10 ! ! EXP ! ! KEYED IN BY TIMOTHY SHANE MCCOY ! AT CENTRAL STATE UNIVERSITY ! ON PDP 11/45 ! VERSION RSTS/E V06C ! 20 INPUT X 30 A = 0 40 S = 0 50 FOR N = 0 TO 100 70 P = 1 80 F = 1 90 FOR J = 1 TO N 100 P = P * X 110 F = F * J 120 NEXT J 130 S = S + P/F 140 IF ABS(S-A) < 1E - 10 THEN 190 150 A = S 160 NEXT N 170 PRINT "DID NOT CONVERGE." 180 GOTO 200 190 PRINT "DID CONVERGE IN"N" INTERATIONS." 200 PRINT "SUM ="S,"EXP(X) ="EXP(X) 210 GOTO 10 220 END