home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Phoenix CD 2.0
/
Phoenix_CD.cdr
/
02a
/
orbsrc14.zip
/
ORBS.BAS
< prev
next >
Wrap
BASIC Source File
|
1988-05-12
|
2KB
|
59 lines
'= = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = =
'ORBS.BAS
'880511-1
'Compile as .EXE file
' ORBS Menu routine
'
'= = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = =
cls
color 0,7
PRINT"= = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = =
PRINT"= =
PRINT"= O R B S =
PRINT"= Version 1.4.1 =
PRINT"= ORBITAL PREDICTION PROGRAM WITH TIME WINDOWS =
PRINT"= 5/11/1988 =
PRINT"= Turbo BASIC Ron Dunbar W0PN =
PRINT"= = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = =
color 7,0
PRINT
PRINT
offset = 17 'left margin for menu
print tab(offset)"1. Generate orbital predictions."
print
print tab(offset)"2. Update Elements."
print
print tab(offset)"3. Modify beacon frequency file."
print
print tab(offset)"4. Modify observers data file."
print
print tab(offset)"5. Exit to operating system."
print
print
tryagain:
print tab(offset+8);
color 0,7
print " Your choice..";
choice$ = input$ (1)
print choice$;
color 7,0
print
choice = val(choice$)
if not (choice > 0 AND choice < 6) then tryagain 'choice invalid
select case choice
case 1 'Generate orbital predictions
chain "orbp" 'goto mainline
case 2
chain "orbupdat" 'read in ELEMENTS
case 3
chain "modfreq" 'modify FREQS.ORB
case 4
chain "modcfg" 'modify ORBS.CFG
case 5
system
end select
END