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

BACK TO PROGRAM