home *** CD-ROM | disk | FTP | other *** search
/ Oakland CPM Archive / oakcpm.iso / cpm / basic / astrmenu.lbr / SAROS.BZS / SAROS.BAS
Encoding:
BASIC Source File  |  1987-04-26  |  1.0 KB  |  34 lines
  1. 1 PRINT "From the October 1985 SKY & TELESCOPE, pp. 366-7."
  2. 2 PRINT
  3. 3 PRINT "This program finds the saros number to which any eclipse belongs when"
  4. 4 PRINT "you enter its Julian Day number.  First the program does a rough"
  5. 5 PRINT "check to see that the Moon is new on the date you enter."
  6. 6 PRINT
  7. 7 PRINT "INPUT:  Julian Day number." : PRINT
  8. 8 PRINT "OUTPUT:  Brown lunation, saros number, relative eclipse."
  9. 9 PRINT
  10. 10 REM     SAROS SERIES
  11. 14 REM
  12. 18 PRINT
  13. 22 INPUT "JULIAN DAY NUMBER";J
  14. 26 Q=J/29.530588#-82064!
  15. 30 B=INT(Q): N=Q-B
  16. 34 IF N>.28 AND N<.36 THEN 42
  17. 38 PRINT "WARNING: NOT NEW MOON!"
  18. 42 PRINT "  BROWN LUNATION ";B
  19. 46 D=B-848
  20. 50 S=136+38*D
  21. 54 X=-61*D
  22. 58 C=INT(X/358+.5-D/(12*358*358))
  23. 62 S=S+223*C
  24. 66 X=X-358*C
  25. 70 IF ABS(X-(S-136)/12)<55 THEN 78
  26. 74 PRINT "WARNING: NO ECLIPSE!"
  27. 78 PRINT "  SAROS NUMBER ";S
  28. 82 PRINT "  RELATIVE ECLIPSE ";
  29. 86 PRINT INT(X-(S-136)/12+.5)
  30. 90 PRINT
  31. 94 RUN "ASTRMENU.BAS"
  32. 78 PRINT "  SAROS NUMBER ";S
  33. 82 PRINT "  RELATIVE ECLIPSE ";
  34. 86 PRINT INT(X-(