bwBASIC/B15B/shower.bas

 10 REM      METEOR SHOWERS
 12 R1=3.1415927/180: DIM M$(12)
 14 DIM N$(9),S0(9),S1(9),J5(9)
 16 FOR I=1 TO 12: READ M$(I): NEXT
 18 DATA JAN,FEB,MAR,APR,MAY,JUN
 20 DATA JUL,AUG,SEP,OCT,NOV,DEC
 22 FOR I=1 TO 9
 24 READ N$(I),S0(I),S1(I),J5(I)
 26 NEXT I
 28 INPUT "YEAR";Y: T5=(Y-1950)/100
 30 FOR I=1 TO 9
 32 IF ABS(T5)<1.5 THEN 36
 34 IF I=1 OR I=4 OR I=9 THEN 70
 36 S=S0(I)+S1(I)*T5
 38 S=S+1.39663*T5+.0003*T5*T5
 40 S=S-360*INT(S/360)
 42 J=J5(I)+36525.636*T5+S1(I)*T5
 44 FOR K=1 TO 2
 46 T=(J+2433000-2415020)/36525
 48 L=279.7+36000.769*T+.0003*T*T
 50 M=358.48+35999.05*T-.0002*T*T
 52 S5=L+(1.92-.005*T)*SIN(M*R1)
 54 S5=S5+.02*SIN(2*M*R1)
 56 S5=S5-360*INT(S5/360)
 58 J=J-(S5-S)/(.986+.033*COS(M*R1))
 60 NEXT K
 62 F=J-INT(J): J=INT(J)+2433000
 64 GOSUB 96
 66 PRINT N$(I);TAB(15);M$(M);
 68 PRINT USING "###.#";D
 70 NEXT I
 72 END
 74 REM  SHOWER DATA
 76 DATA "QU'DNTDS",282.9,-0.4,285.3
 78 DATA "LYRIDS  ",31.7,0.06,393.9
 80 DATA "ETA AQR ",44.0,0.3,406.6
 82 DATA "DLT AQR ",125.0,-1.0,491.2
 84 DATA "PERSEIDS",139.2,0.03,506.0
 86 DATA "ORIONIDS",207.7,0.4,576.2
 88 DATA "TAURIDS ",220.0,0.44,588.5
 90 DATA "LEONIDS ",234.3,1.5,602.7
 92 DATA "GEMINIDS",261.4,0,629.5
 94 REM
 96 REM   JD --> CALENDAR
 98 G=1: IF J<2299161 THEN G=0
 100 F=F+.5: IF F<1 THEN 104
 102 F=F-1: J=J+1
 104 IF G=1 THEN 108
 106 A=J: GOTO 112
 108 A1=INT((J/36524.25)-51.12264)
 110 A=J+1+A1-INT(A1/4)
 112 B=A+1524
 114 C=INT((B/365.25)-.3343)
 116 D=INT(365.25*C)
 118 E=INT((B-D)/30.61)
 120 D=B-D-INT(30.61*E)+F
 122 M=E-1: Y=C-4716
 124 IF E>13.5 THEN M=M-12
 126 IF M<2.5 THEN Y=Y+1
 128 RETURN
 200 REM *******************************
 210 REM  FOR ANY GIVEN YEAR, THIS
 220 REM  PROGRAM LISTS THE MAJOR METEOR
 230 REM  SHOWERS AND THE UT DATES OF 
 240 REM  MAXIMUM ACTIVITY.  FROM SKY
 250 REM  & TELESCOPE, AUG '89, P. 195.
 260 REM *******************************