image of READY prompt

Wang2200.org

Listing of file='19A' on disk='vmedia/glbr_22.wvd.zip'

# Sector 528, program filename = '19A'
0010 J,T=0
0020 PRINT "INPUT 'K, LAMBDA' (OR '-1,-1' TO PRINT THE SUM OF THE "
0030 PRINT "PROBABILITES CALCULATED THUS FAR, OR '0,0' TO END PROGRAM.)"
0035 INPUT K,L
0040 IF L=0 THEN 999
0045 IF L=-1 THEN 110
0050 IF K=0 THEN 70
0054 J=1
0056 FOR I=1 TO K
0058 J=J*I
0060 NEXT I
0062 J=LOG(J)
0070 J=EXP(-L+K*LOG(L)-J)
0080 PRINT "P(K,LAMBDA)=";J
0090 T=T+J
0100 GOTO 120
0110 PRINT "SUM OF PROBABILITIES=";T
0120 PRINT
0130 PRINT "INPUT 'K,LAMBDA'"
0140 GOTO 35
0999 END