10 LPRINT 
   20 LPRINT "PROGRAM BINPROBS: SINGLE TERMS OF THE BINOMIAL DISTRIBUTION"
   30 REM N IS NUMBER OF TRIES
   40 INPUT "N=",N
   50 PRINT 
   60 LPRINT "N =";N
   70 REM R IS NUMBER OF SUCCESSES
   80 INPUT "R=",R
   90 PRINT 
  100 LPRINT "R =";R
  110 PRINT "RUNTIME =";.23*R;"seconds"
  120 PRINT 
  130 REM THETA IS PROBABILITY OF SUCCESS PER TRY
  140 INPUT "THETA =",T
  150 LPRINT "THETA =";T
  160 PRINT 
  170 PRINT "CALCULATIONS IN PROGRESS"
  180 FOR X=1 TO R
  190 LET Y=Y+LOG10(X)
  200 NEXT X
  210 LET M=N-R+1
  220 FOR Z=M TO N
  230 LET P=P+LOG10(Z)
  240 NEXT Z
  250 LET C=P-Y
  260 LET S=1-T
  270 LET Q=R*LOG10(T)
  280 LET U=(N-R)*LOG10(S)
  290 LET L=C+Q+U
  300 PRINT "LOGPROB =";L
  310 LPRINT "LOGPROB =";L
  320 PRINT "probability =";10^(L-INT(L)+1);"ten";INT(L)-1
  330 LPRINT "PROBABILITY =";10^(L-INT(L)+1);"TEN";INT(L)-1
  340 LET G2=10-INT(LOG10(ABS(Y+Q+U)))-INT(LOG10(1.25*R))
  350 PRINT "CALCULATIONS GOOD TO ";G2;" DIGITS"
  360 LPRINT "CALCULATIONS GOOD TO ";G2;" DIGITS"
  370 PRINT "--oo000oo--"
  380 LPRINT "--oo000oo--"
  390 PRINT 
  400 LPRINT 
  410 END