5 POKE55,.:POKE56,56:CLR
10 DV=PEEK(186):IFDV<8THENDV=8
15 POKE53280,0:POKE53281,0:PRINT"[147]"
16 POKE53371,0
30 AD=49152
35 SYSAD:SYSAD+12
40 MP=.1
42 PO$="[150][193][211][212][210][207][206][207][205][201][195][193][204]  [208][210][207][194][193][194][201][204][201][212][217]  &  [207][196][196][211]"
44 BS$="[150]_[157]_[157]_[157]_[157]_[157]_[157]_[157]_[157]_[157]_[157]_[157]_[157]_[157]_[157]_[157]_[157]_[157]_[157]_[157]_[157]_[157]_"
45 A1$=" -[208]ROBABILITY AND [207]DDS ARE- "
48 TQ=TI
50 A2$="[153][197]VT[159] [204]ESS [212]HAN [158] [197]XACTLY   [150] [199]REATER [212]HAN"
52 POKE53272,31
55 BX$="[154]_[157]_[157]_[157]_[157]_[157]_[157]_[157]_"
57 GOSUB500
60 PRINT"[147]":POKE53280,.:POKE53281,.:SYSAD+9,2
61 PRINTTAB(2)""PO$
62 POKE214,4:PRINT:PRINTTAB(3)"[154]^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^"
63 PRINTTAB(3)BX$""TAB(34)BX$
64 PRINTTAB(3)"[154]^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^"
65 REM GET INPUT AND PRINT HEADER
75 PRINT"":PRINTTAB(5)"[158][197]VENT RATE [153]([204]AMBDA) ";:L9%=8:GOSUB355:L=Q9
80 PRINTTAB(5)"[158][201]NTERVAL [153]([212]IME) ";:L9%=5:GOSUB355:T=Q9
85 IFEXP(-L*T)>0THEN97
90 PRINT:PRINTTAB(5)"[158] [211]ORRY - OUT OF [210]ANGE! "
91 TQ=TI
92 IFTI<TQ+200THEN92
95 GOTO60
97 PRINT:PRINTTAB(7)"[155][201]S THIS CORRECT? (Y[155]/N[155])":POKE198,.
98 GETHC$:IFHC$<>"Y"ANDHC$<>"N"THEN98
100 PRINT"[147]":SYSAD+9,4:GOSUB400
104 PRINTTAB(5)A1$
105 PRINT""A2$
115 :
120 REM INITIALIZE LOOP VARIABLES
125 N=0
130 MU=L*T
135 PF=0:REM PROB OF FEWER THAN N
140 PE=100*EXP(-MU): REM PROB OF EXACTLY N
145 :
150 REM COMPUT PROBABILITIES (AND ODDS)
155 :
160 PG=100-PF-PE: REM PROB MORE THAN N
165 IFPG>99.999THEN190
170 SYSAD+9,5:PRINT"[153]"N;
175 P=PF:C=1:GOSUB220
180 P=PE:C=13:GOSUB220
185 P=PG:C=25:GOSUB220:PRINT
190 N=N+1:IFN=18ORN=36ORN=54ORN=72THENGOSUB410
195 PF=PF+PE
200 PE=PE*MU/N
205 IFPG>=MPTHEN160
210 GOSUB3000
212 GOTO40
215 :
220 REM PRINT PROB (AND ODDS)
225 PRINTTAB(C);
230 IFP>.001ANDP<99.999 THEN240
235 PRINTTAB(5)"[156]- N/A -";:GOTO275
240 PRINT""INT(P);"[157]%";
245 IFP>50 THEN265
250 PRINT"[154] 1[150]:";
255 V=((100-P)/P)
260 GOSUB285:GOTO275
265 V=(P/(100-P))
270 GOSUB285:PRINT"[150]:[154]1";
275 RETURN
280 :
285 REM FORMAT ODDS
290 IFV>=9.5THEN305
295 PRINT"[155]"INT(V);
300 GOTO310
305 PRINT"[155]"INT(V+.5);
310 RETURN
355 Q9$="":POKE198,.
360 GETA$
365 POKE646,RND(1)*15+1:PRINT"*[157]";:IFA$=""THEN360
370 IFA$=CHR$(13)THENPRINT" ":Q9=VAL(Q9$):RETURN
375 IF(A$=CHR$(20)ANDLEN(Q9$))THENQ9$=LEFT$(Q9$,LEN(Q9$)-1):GOTO397
380 IFLEN(Q9$)>=L9%THENSYSAD+9,1:GOTO360
385 IF(A$>="0"ANDA$<="9")ORA$="."ORA$="-"ORA$="+"THEN390
387 GOTO360
390 Q9$=Q9$+A$
395 PRINT""A$;:SYSAD+9,3:GOTO360
397 PRINT" [157][157] [157]";:GOTO360
400 FORI=217TO242:POKEI,PEEK(I)OR128:NEXT:RETURN
410 PRINT:PRINTTAB(8)"[150][193]NY KEY TO CONTINUE.":POKE198,.
415 GETHC$:IFHC$=""THEN415
420 PRINT"[147]";TAB(5)A1$
450 PRINT""A2$:RETURN
500 PRINT"[147][153][214]IEW [193]STRONOMICAL [197]VENT [195]HART? (Y[153]/N[153])":POKE198,.
502 SYSAD+9,1
505 GETA$:IFA$<>"Y"ANDA$<>"N"THEN505
510 IFA$="N"THEN60
515 PRINT"[147][150]^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^"
520 PRINTBS$;""TAB(38)BS$
525 PRINT"[150]^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^":SYSAD+9,2
530 PRINT"":PRINTTAB(6)"[156] [193][211][212][210][207][206][207][205][201][195][193][204] [197][214][197][206][212] [195][200][193][210][212] "
535 PRINTTAB(2)"[158][211]PORADIC [205]ETEORS      [158]  6 TO 10/HOUR"
538 PRINTTAB(2)"[159]([211]INGLE OBSERVER WITH DARK SKIES) "
540 PRINTTAB(2)"[158][198]IREBALLS               .005/HOUR"
545 PRINTTAB(2)"[208]ERSEID [205]ETEORS          60/HOUR  "
548 PRINTTAB(2)"[159](SEEN NEAR ITS PEAK)"
550 PRINTTAB(2)"[158][208]ERSEID [208]HOTO [159](400 [201][211][207] [158] .6/HOUR"
552 PRINTTAB(2)"[159]50 MM F/1.8 LENS)"
555 PRINTTAB(2)"[158][199]REAT [195]OMET [159](MAG. 1    [158] .1/YEAR"
558 PRINTTAB(2)"[159]OR BRIGHTER)"
560 PRINTTAB(2)"[158][194]RIGHT [206]OVA [159](MAG. 3    [158] .06/YEAR"
562 PRINTTAB(2)"[159]OR BRIGHTER)"
565 PRINTTAB(2)"[158][211][213][208][197][210][206][207][214][193]               .004/YEAR"
568 PRINTTAB(2)"[159](MAG. 3 OR BRIGHTER)"
570 PRINTTAB(2)"[158][195]RATER FORMING   .0000001/CENTURY"
575 PRINTTAB(2)"[158]IMPACT [159](ON EARTH PER SQUARE MILE)"
580 PRINTTAB(2)"[158][195]RATER FORMING IMPACT   6/CENTURY"
585 PRINTTAB(2)"[159](ANYWHERE ON LAND MASS)"
590 PRINTTAB(2)"[158][197]XTINCTION CAUSING   .000003/CENTURY"
592 PRINTTAB(2)"IMPACTS [159](BY ASTERIOD OR COMET)"
600 PRINT:PRINTTAB(7)"[193]NY KEY FOR [215]ORK [211]CREEN":POKE198,.
605 GETA$:IFA$=""THEN605
610 GOTO60
3000 PRINT:PRINTTAB(8)"[159](1[159]) [212]RY ANOTHER ONE
3010 [153][163]8)"OPEN(2OPEN) (null)O (null)(null)RIGHT$(null)VAL(null)(null)VAL (null)ENU
3020 POKE198,0
3030 GETA$:IFA$<"1"ORA$>"2"THEN3030
3040 IFA$="1"THENRETURN
3050 SYSAD+15
3060 PRINT"[147][144]LOAD"CHR$(34)"B.UNIVERSE III"CHR$(34)","DV
3070 PRINT"RUN28"
3080 POKE631,13:POKE632,13:POKE198,2:END
10000 D=PEEK(186):N$="0:ASTRO-ODDS":OPEN15,D,15,"S"+N$:CLOSE15:SAVEN$,D:END