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