===========================================================================
 BBS: The Abacus * HST/DS * Potterville MI
Date: 03-10-93 (22:40)             Number: 71
From: EARL MONTGOMERY              Refer#: NONE
  To: HANK TASSIN                   Recvd: NO  
Subj: Game Show                      Conf: (35) Quick Basi
---------------------------------------------------------------------------
REM I may be wiping egg off my face for sometime to come but here
REM is my solution. I don't think it is necessary to keep track
REM of the eliminated door for this demonstration. DUCK!
REM Watch out for those flying EGGS!
CLS
DEFINT A-Z
RANDOMIZE TIMER
FOR x = 1 TO 500
wheretheprizeis = RND * 3
thecontestantpick = RND * 3
IF wheretheprizeis = thecontestantpick THEN counter = counter + 1
NEXT
PRINT "When the contestant stuck to his/her first choice the";
PRINT "Contestant picked the correct door"; counter;
PRINT "times out of 500"
begin:
checkfor500 = checkfor500 + 1
IF checkfor500 = 501 THEN GOTO printroutine
wtpi = RND * 3 'Wheretheprizeis
tcp = RND * 3 'Thecontestantpick
GOTO compute
compute:
REM Obviously if he/she had selected the correct door and swapped
REM the credit counter would not increase.
IF wtpi = 1 AND tcp = 1 THEN GOTO begin:  ELSE GOTO fiftypercent
IF wtpi = 2 AND tcp = 2 THEN GOTO begin:  ELSE GOTO fiftypercent
IF wtpi = 3 AND tcp = 3 THEN GOTO begin:  ELSE GOTO fiftypercent
fiftypercent:
wtpi = RND * 2
tcp = RND * 2
IF wtpi = tcp THEN GOTO begin:  ELSE counter2 = counter2 + 1
GOTO begin
printroutine:
PRINT
PRINT "When the host eliminated a door and the contestant swapped his/her"
PRINT "original choice for the other door she picked";
PRINT counter2; : PRINT "out of 500"
PRINT
PRINT "It appears that he/she does increase his/her chances to better"
PRINT "than 50%."
PRINT
INPUT "Do you wish to run it again"; q$
IF q$ = "y" OR q$ = "Y" THEN RUN ELSE END



--- Opus-CBCS 1.73a
 * Origin: HARDWIRED - The WOCin' Bug Zapper (1:124/4210.0)
SEEN-BY: 1/211 11/2 4 13/13 101/1 108/89 109/25 110/69 114/5 123/19 124/1
SEEN-BY: 153/752 154/40 77 157/2 159/100 125 430 950 203/23 209/209 280/1
SEEN-BY: 390/1 396/1 15 397/2 2230/100 3603/20