100 REM: COINCIDENT BIRTHDAY PROBABILITY PROBLEM
110 REM: COPYRIGHT 1979 BY TOM RUGG AND PHIL FELDMAN
115 REM: NABU VERSION COPYRIGHT 2026 BY BRANDON TAYLOR
120 PRINT CHR$(26)
125 DEFDBL Q
130 PRINT"NO. OF     PROB. OF 2 OR MORE"
140 PRINT"PEOPLE     WITH SAME BIRTHDAY"
150 Q=1
160 FOR N%=1 TO 60
165 IF N%=21 OR N%=41 THEN GOSUB 200
170 PRINT N%,1-Q
180 Q=Q*(365-N%)/365
190 NEXT N%
195 END
200 PRINT"HIT ANY KEY TO CONTINUE"
210 X$=INKEY$:IF X$="" THEN 210 ELSE RETURN

180 Q=Q*(365-N%)/365