image of READY prompt

Wang2200.org

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

# Sector 274, program filename = '17A'
0010 T=0
0020 DIM N(3)
0030 PRINT "INPUT 'K,R,P' (OR '0,0,-1' TO PRINT THE SUM OF THE PROB-"
0035 PRINT "ABILITIES CALCULATED THUS FAR, OR '0,0,0' TO END PROGRAM)"
0040 INPUT K,R,P
0050 IF P=0 THEN 999
0060 IF P=-1 THEN 250
0070 N(1)=R+K-1
0080 N(2)=K
0090 N(3)=R-1
0100 FOR I=1 TO 3
0110 IF N(I)=0 THEN 200
0130 S=1
0140 FOR J=1 TO N(I)
0150 S=S*J
0160 NEXT J
0170 N(I)=LOG(S)
0200 NEXT I
0210 J=EXP(N(1)-N(2)-N(3)+R*LOG(P)+K*LOG(1-P))
0220 PRINT "P(K,R,P)=";J
0230 T=T+J
0240 GOTO 260
0250 PRINT "SUM OF PROBABILITIES=";T
0260 PRINT
0270 PRINT "INPUT 'K,R,P'"
0280 GOTO 40
0999 END