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