! Takoma
Park M.S.
! Jr-5 Contest 1
! Charles J Argue
DO
DO
INPUT Prompt "How many draws? ": Draw
LOOP until Draw = 1 OR Draw = 2
DO
INPUT Prompt "How many red marbles? ": Red
LOOP until Int(Red) = Red
DO
INPUT Prompt "How many Blue marbles?
": Blue
LOOP until Int(Blue) = Blue
IF Draw = 1 THEN
DO
INPUT PROMPT "What event (R/B)? ": Event$
LET Event$ = UCase$(Event$)
LOOP Until Event$ = "R" OR
Event$ = "B"
ELSE IF Draw = 2 THEN
DO
INPUT PROMPT "Replacement or not?
": Replace$
LET Replace$ = UCase$(Replace$)
LOOP until Replace$ = "Y" OR
Replace$ = "N"
DO
INPUT PROMPT "What Event (enter
two letters, both are either R or B)? ":
Event1$,Event2$
LET Event1$ = Ucase$(Event1$)
LET Event2$ = Ucase$(Event2$)
LOOP UNTIL (Event1$ = "R" OR
Event1$ = "B") AND (Event2$ = "R" OR Event2$ =
"B")
END IF
LET Total = Red + Blue
IF Draw = 1 THEN
IF Event$ = "R" THEN
PRINT Red;"/";Total
ELSE
PRINT Blue;"/";Total
END IF
ELSE IF Draw = 2 THEN
IF Replace$ = "Y" THEN
IF Event1$ = "R" AND Event2$
= "R" THEN
PRINT Red^2;"/";Total^2
ELSE IF Event1$ = "R" AND Event2$ =
"B" OR Event2$ = "R" AND Event1$ = "B" THEN
PRINT Red*Blue;"/";Total^2
ELSE
PRINT Blue^2;"/";Total^2
END IF
ELSE
IF Event1$ = "R" AND Event2$
= "R" THEN
PRINT Red*(Red-1);"/";Total*(Total-1)
ELSE IF Event1$ = "R" AND
Event2$ = "B" OR Event2$ = "R" AND Event1$ = "B"
THEN
PRINT Red*Blue;"/";Total*(Total-1)
ELSE
PRINT Blue*(Blue-1);"/";Total*(Total-1)
END IF
END IF
END IF
INPUT PROMPT "Again(y/n)? ": yn$
LET yn$ = Ucase$(yn$)
LOOP UNTIL yn$ = "N"
END