home *** CD-ROM | disk | FTP | other *** search
/ Programmer 7500 / MAX_PROGRAMMERS.iso / CLIPPER / MISC / ORBSRC14.ZIP / ORBS.BAS < prev    next >
Encoding:
BASIC Source File  |  1988-05-12  |  1.7 KB  |  59 lines
  1. '= = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = =
  2. 'ORBS.BAS
  3. '880511-1
  4. 'Compile as .EXE file
  5. '                             ORBS Menu routine
  6. '
  7. '= = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = =
  8. cls
  9. color 0,7
  10. PRINT"= = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = =
  11. PRINT"=                                                                   =
  12. PRINT"=                             O R B S                               =
  13. PRINT"=                          Version 1.4.1                            =
  14. PRINT"=          ORBITAL PREDICTION PROGRAM WITH TIME WINDOWS             =
  15. PRINT"=                            5/11/1988                              =
  16. PRINT"= Turbo BASIC                                      Ron Dunbar W0PN  =
  17. PRINT"= = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = =
  18. color 7,0
  19. PRINT
  20. PRINT
  21. offset = 17    'left margin for menu
  22.  
  23. print tab(offset)"1.  Generate orbital predictions."
  24. print
  25. print tab(offset)"2.  Update Elements."
  26. print
  27. print tab(offset)"3.  Modify beacon frequency file."
  28. print
  29. print tab(offset)"4.  Modify observers data file."
  30. print
  31. print tab(offset)"5.  Exit to operating system."
  32. print
  33. print
  34. tryagain:
  35. print tab(offset+8);
  36. color 0,7
  37. print " Your choice..";
  38. choice$ = input$ (1)
  39. print choice$;
  40. color 7,0
  41. print
  42. choice = val(choice$)
  43. if not (choice > 0 AND choice < 6) then tryagain    'choice invalid
  44.  
  45. select case choice
  46.     case 1                    'Generate orbital predictions
  47.         chain "orbp"                    'goto mainline
  48.     case 2
  49.         chain "orbupdat"            'read in ELEMENTS
  50.     case 3
  51.         chain "modfreq"            'modify FREQS.ORB
  52.     case 4
  53.         chain "modcfg"              'modify ORBS.CFG
  54.     case 5
  55.         system
  56. end select
  57.  
  58. END
  59.