10 LPRINT
20 LPRINT "REM: THIS IS 'LSTBIN', SINGLE TERMS OF THE BINOMIAL DISTRIBUTION"
30 DEFDBL L
40 PRINT
50 LPRINT
60 INPUT; "N:"; N
70 PRINT
80 LPRINT "N=";N
90 INPUT; "R:";R
100 PRINT
110 LPRINT "R=";R
120 PRINT "RUNTIME =" .0908*R "SECONDS"
130 PRINT
140 INPUT; "THETA"; T
150 LPRINT "THETA="; T
160 PRINT
170 PRINT "CALCULATIONS IN PROGRESS"
180 FOR X = 1 TO R
190 Y = Y + LOG(X)/LOG(10)
200 NEXT
210 M = N - R + 1
220 FOR Z = M TO N
230 P = P + LOG(Z)/LOG(10)
240 NEXT Z
250 NCR = P - Y
260 S = 1 - T
270 Q = R*LOG(T)/LOG(10)
280 U = (N-R)*LOG(S)/LOG(10)
290 LOGPROB = NCR + Q + U
300 LPRINT
310 LPRINT
320 LPRINT "LOGPROB =" LOGPROB
330 LPRINT "PROBABILITY =" 10^(LOGPROB-INT(LOGPROB)), "TEN"INT(LOGPROB)
340 LPRINT
350 END