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