10 VAR N, X = INTEGER
20 VAR L,Z,R,Y,LOGPROB = REAL.DOUBLE
30 INPUT "X";X
40 LPRINTER
45 PRINT "X=";X
50 CONSOLE
60 PRINT "RUNTIME="; 0.2*X;"SECONDS"
70 PRINT
80 INPUT "LAMBDA =";L
90 LPRINTER
95 PRINT "LAMBDA=";L
100 CONSOLE
110 PRINT "CALCULATIONS IN PROGRESS"
120 FOR N = 1 TO X
130 Y = Y - LOG(N)/LOG(10)
140 NEXT N
150 Z = X*LOG(L)/LOG(10)
160 R = -L/LOG(10)
170 LOGPROB = Y + Z + R
180 LPRINTER
190 PRINT "LOGPROB=";LOGPROB
200 CONSOLE
210 PRINT "LOGPROB=";LOGPROB
220 LPRINTER
225 PRINT "PROBABILITY =";10^(LOGPROB-INT(LOGPROB));"TEN";INT(LOGPROB)
230 CONSOLE
240 PRINT "PROBABILITY =";10^(LOGPROB-INT(LOGPROB));"TEN";INT(LOGPROB)
250 PRINT "--ooOOOoo--"
260 LPRINTER
265 PRINT "--ooOOOoo--"
270 END