home *** CD-ROM | disk | FTP | other *** search
/ HAM Radio 1 / HamRadio.cdr / misc / moon / moontrak.bas (.txt) < prev    next >
Encoding:
QuickBASIC Tokenized Source  |  1989-01-18  |  8.9 KB  |  41 lines
  1.  MOON TRACKING PROGRAM (CP/M)
  2.  ADAPTED FROM WA1JXN'S PROGRAM BY KC6A AND N6NB.  FOR EASE OF
  3.  DATA INPUT, PRINTOUT OF AN UNLIMITED NUMBER OF CONSECUTIVEO
  4.  DAYS REQUIRES ONLY ONE ENTRY DATE.  LATITUDE/LONGITUDE INPUT
  5.  IS AUTOMATIC FOR PRIMARY USERS, AND OUTPUT GOES TO BOTH CRT
  6.  AND LINE PRINTER (WITH FULL PAGINATION).U
  7.  PUT YOUR CLEAR-SCREEN COMMAND HERES
  8.  CALENDAR INFORMATION (LEAP YEAR COMPUTED LATER)
  9.       UTC           AZ            EL             GHA          DEC"
  10.      ####          ###.#         ##.#           ###.#        +##.# &
  11. MOON TRACKING PROGRAM"
  12. WHAT IS YOUR NAME OR CALL SIGN "
  13. DO YOU WANT HARD COPY (Y/N) 
  14.  PUT YOUR CALL AND COORDINATES HERE
  15. WHAT IS THE LATITUDE IN DEGREES, MINUTES
  16. WHAT IS THE LONGITUDE IN DEGREES, MINUTES"
  17. WHAT IS THE DESIRED PRINTING INCREMENT IN MINUTES (1-60)
  18. MOON TRACKING DATA COMPUTED FOR 
  19. LATITUDE: 
  20.  LONGITUDE: 
  21. IF YOU ONLY WANT A PRINTOUT FOR TIMES WHEN THE MOON IS NEAR"
  22. THE HORIZON ENTER 'H' (OTHERWISE HIT <RETURN>) "
  23. BELOW WHAT ELEV. IN DEGREES DO YOU WANT PRINTOUT TO OCCUR 
  24. WHAT IS THE STARTING UTC DATE (MONTH,DAY,YEAR. E.G. 7,4,1982)"
  25. FOR HOW MANY DAYS DO YOU WANT A PRINTOUT "
  26. MOON TRACKING PROGRAM"
  27. DATA COMPUTED FOR 
  28. LATITUDE: 
  29.  LONGITUDE: 
  30. U = EUROPEAN WINDOW. W = W-VE WINDOW. J = JA-VK-ZL WINDOW"
  31. POSITION OF MOON ON 
  32.  UTC FOLLOWS:"
  33. POSITION OF MOON ON 
  34.  UTC FOLLOWS:"
  35.  CALCULATION OF JULIAN DATE FOLLOWS
  36.  (JULIAN DATE-2397547.5) FOR 0 HOURS UTC
  37. \d[?n
  38.  IF YOU TYPED ALL THIS WITHOUT MAKING ANY MISTAKES,
  39.  YOU BELONG IN A SECRETARIAL POOL!
  40. DO YOU WANT THIS DATA FOR ADDITIONAL DATES? (Y/N)"
  41.