home *** CD-ROM | disk | FTP | other *** search
/ CP/M / CPM_CDROM.iso / cpm / basic / astrmenu.lbr / ASTRMENU.BZS / ASTRMENU.BAS
BASIC Source File  |  1987-04-26  |  5KB  |  92 lines
  1. 10 '*************************************************************************
  2. 20 '* Filename:          MENU.BAS                                           *
  3. 30 '*                                                                       *
  4. 40 '* Associated Files:  See list in Program Selection Menu                 *
  5. 50 '*                                                                       *
  6. 60 '* Purpose:           Simple menu interface for astronomy programs in    *
  7. 70 '*                    associated files.                                  *
  8. 80 '*                                                                       *
  9. 90 '* Programmer:        Martin E. Morrison                                 *
  10. 100 '*                                                                       *
  11. 110 '* Versions:          1.0   85-11-17                                     *
  12. 120 '*                                                                       *
  13. 130 '* Copyright:         None (public-domain software).                     *
  14. 140 '*************************************************************************
  15. 150 '
  16. 160 '========================== INITIALIZATION ================================
  17. 170 '
  18. 180 REM: KEY OFF:WIDTH 80:SCREEN 0,0,0:COLOR 7,0:CLS
  19. 190 REM:CLS
  20. 200 '
  21. 210 '=======================PROGRAM SELECTION MENU ============================
  22. 220 '
  23. 230 PRINT "                                 PROGRAM SELECTION MENU"
  24. 240 PRINT
  25. 250 PRINT " (1) HALLEY.BAS:  Computes ephemeris of Comet Halley for any date"
  26. 260 PRINT " (2) SUNNY .BAS:  Computes time of sunrise, sunset, and twilight"
  27. 270 PRINT " (3) PRECES.BAS:  Computes rigorous precession of any coordinates"
  28. 280 PRINT " (4) ADDMAG.BAS:  Computes the combined magnitude of two bodies"
  29. 290 PRINT " (5) INTERP.BAS:  Interpolates values in an ephemeris"
  30. 300 PRINT " (6) CALJD .BAS:  Converts between civil date and Julian date"
  31. 310 PRINT " (7) JDCAL .BAS:  Converts between Julian date and civil date"
  32. 320 PRINT " (8) GMST  .BAS:  Calculates sidereal time for Greenwich meridian"
  33. 330 PRINT " (9) ALTAZ .BAS:  Calculates altitude and aximuth of a star"
  34. 340 PRINT "(10) LENGTH.BAS:  Computes length of stay within 1 AU for any comet"
  35. 350 PRINT "(11) ANGULR.BAS:  Computes angular separation of two objects"
  36. 360 PRINT "(12) SUNSHI.BAS:  Computes the hours of sunshine for a place"
  37. 370 PRINT "(13) LENS  .BAS:  Computes the curves on an aplanatic lens"
  38. 380 PRINT "(14) LUNAR .BAS:  Determines heights of lunar features from photos"
  39. 390 PRINT "(15) PHOTOM.BAS:  Reduces photometric observations of an object"
  40. 400 PRINT "(16) MOONS .BAS:  Calculates the times of new and full moons"
  41. 410 PRINT "(17) SHUTTR.BAS:  Computes shutter speeds for astrophotographs"
  42. 420 PRINT "(18) WAVEL .BAS:  Calculates wavelengths of lines in a spectrum"
  43. 430 PRINT "(19) GREGOR.BAS:  Generates a perpetual Gregorian calendar"
  44. 440 PRINT "(20) KEPLER.BAS:  Solves Kepler's equation in orbit computation"
  45. 450 PRINT
  46. 460 INPUT "PRESS <RETURN> WHEN READY... ",CONTINUE$ : REM: CLS
  47. 470 PRINT "(21) HELIAC.BAS:  Calculates heliacal risings and settings"
  48. 480 PRINT "(22) SAROS .BAS:  Computes the saros number for solar eclipses"
  49. 490 PRINT "(23) XYZ   .BAS:  Computes the X, Y, and Z coordinates of the Sun"
  50. 500 PRINT "(98) RETURN TO TOP OF PROGRAM SELECTION MENU"
  51. 510 PRINT "(99) EXIT FROM PROGRAM SELECTION MENU"
  52. 520 PRINT
  53. 530 PRINT
  54. 540 '
  55. 550 '============================INPUT ROUTINE=================================
  56. 560 '
  57. 570 INPUT "INPUT SELECTION NUMBER... ",SELECTION%
  58. 580 IF SELECTION%=98 THEN  GOTO 230   'Return to Program Selection Menu
  59. 590 IF SELECTION%=99 THEN  END    'Exit
  60. 600 ON SELECTION% GOSUB 650,660,670,680,690,700,710,720,730,740,750,760,770,780,790,800,810,820,830,840,850,860,870
  61. 610  GOTO 230                     'Input exceeds number of selections
  62. 620 '
  63. 630 '=========================CHAIN TO PROGRAMS================================
  64. 640 '
  65. 650  CHAIN "HALLEY.BAS"
  66. 660  CHAIN "SUNNY .BAS"
  67. 670  CHAIN "PRECES.BAS"
  68. 680  CHAIN "ADDMAG.BAS"
  69. 690  CHAIN "INTERP.BAS"
  70. 700  CHAIN "CALJD .BAS"
  71. 710  CHAIN "JDCAL .BAS"
  72. 720  CHAIN "GMST  .BAS"
  73. 730  CHAIN "ALTAZ .BAS"
  74. 740  CHAIN "LENGTH.BAS"
  75. 750  CHAIN "ANGULR.BAS"
  76. 760  CHAIN "SUNSHI.BAS"
  77. 770  CHAIN "LENS  .BAS"
  78. 780  CHAIN "LUNAR .BAS"
  79. 790  CHAIN "PHOTOM.BAS"
  80. 800  CHAIN "MOONS .BAS"
  81. 810  CHAIN "SHUTTR.BAS"
  82. 820  CHAIN "WAVEL .BAS"
  83. 830  CHAIN "GREGOR.BAS"
  84. 840  CHAIN "KEPLER.BAS"
  85. 850  CHAIN "HELIAC.BAS"
  86. 860  CHAIN "SAROS .BAS"
  87. 870  CHAIN "XYZ   .BAS"
  88. 880  END
  89. IN "GREGOR.BAS"
  90. 840  CHAIN "KEPLER.BAS"
  91. 850  CHAIN "HELIAC.BAS"
  92. 860  CHAIN "SAR