SOURCE CODE FOR PARTY PROGRAM
COLOR 14,1,14
CLS FOR I%=1 TO 6:?:NEXT I%
PRINT " THIS PROGRAM SIMULATES PEOPLE ARRIVING AT RANDOM TO A PARTY"
PRINT " IT CHECKS TO SEE IF ANY TWO PEOPLE PRESENT HAVE THE SAME BIRTH DATE"
PRINT " TYPE IN THE NUMBER OF PARTIES YOU WISH TO RUN THE PROGRAM FOR & ENTER"
PRINT " 100 PARTIES TAKES 50 SECONDS TO RUN"
FOR I%=1 TO 5:?:NEXT I%
INPUT " TYPE IN NO. OF PARTIES ";NP%
CLS
DIM Y%(365)
TOT%=0
FOR J%=1 TO NP%
FOR I%=1 TO 365:Y%(I%)=0:NEXT I%
RANDOMIZE TIMER
FOR K%=1 TO 365
D%=RND(1)*364:IF D%=0 THEN L2
IF Y%(D%)=1 THEN PRINT " PARTY NO. ";J%;" ";K%;" PEOPLE CAME IN":TOT%=TOT%+K%:GOTO L3
Y%(D%)=1
L2:
NEXT K%
L3:
DELAY .5
NEXT J%
?:?
PRINT" THE AVERAGE OVER ";NP%;" PARTIES WAS ";INT(TOT%/NP%);" PEOPLE"
?:?
PRINT " HIT THE CLOSE BUTTON AT THE TOP RIGHT OF THE SMALL SCREEN TO FINISH"
END