5 ONERRORGOTO500
10 f=EXP(-k):s=f
20 FORi=1 TOx:f=f*k/i:s=s+f:NEXT
80 s=1-s+f:RETURN
500 IFERR=1 THENCLS:ONERRORGOTO0
510 sr=1:RESUME80
