1 PRINT "From the October 1985 SKY & TELESCOPE, pp. 366-7."
2 PRINT
3 PRINT "This program finds the saros number to which any eclipse belongs when"
4 PRINT "you enter its Julian Day number.  First the program does a rough"
5 PRINT "check to see that the Moon is new on the date you enter."
6 PRINT
7 PRINT "INPUT:  Julian Day number." : PRINT
8 PRINT "OUTPUT:  Brown lunation, saros number, relative eclipse."
9 PRINT
10 REM     SAROS SERIES
14 REM
18 PRINT
22 INPUT "JULIAN DAY NUMBER";J
26 Q=J/29.530588#-82064!
30 B=INT(Q): N=Q-B
34 IF N>.28 AND N<.36 THEN 42
38 PRINT "WARNING: NOT NEW MOON!"
42 PRINT "  BROWN LUNATION ";B
46 D=B-848
50 S=136+38*D
54 X=-61*D
58 C=INT(X/358+.5-D/(12*358*358))
62 S=S+223*C
66 X=X-358*C
70 IF ABS(X-(S-136)/12)<55 THEN 78
74 PRINT "WARNING: NO ECLIPSE!"
78 PRINT "  SAROS NUMBER ";S
82 PRINT "  RELATIVE ECLIPSE ";
86 PRINT INT(X-(S-136)/12+.5)
90 PRINT
94 RUN "ASTRMENU.BAS"