basic 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