10 LPRINT "REM: THIS IS PROGRAM 'LSTPOIS', SINGLE TERMS OF POISSON DISTRIBUTION"
20 LPRINT
30 PRINT
40 INPUT "LAMBDA =", L
50 LPRINT "LAMBDA ="L;
60 FOR X = 0 TO 2*L
70 PRINT "CALCULATIONS IN PROGRESS"
80 Y = 0
90 FOR N = 1 TO X
100 Y = Y - LOG(N)/LOG(10)
110 NEXT N
120 Z = X*LOG(L)/LOG(10)
130 R = -L/LOG(10)
140 LOGPROB = Y + Z + R
150 CUMPROB = CUMPROB + 10^(LOGPROB)
160 LPRINT "LAMBDA = ";L, "X = ";X
170 LPRINT "LOGPROB:" LOGPROB
180 LPRINT "PROBABILITY =" 10^(LOGPROB-INT(LOGPROB)); "TEN" INT(LOGPROB)
190 LPRINT "CUMPROB =", CUMPROB
200 LPRINT
210 PRINT
220 NEXT X