home *** CD-ROM | disk | FTP | other *** search
/ Programmer 7500 / MAX_PROGRAMMERS.iso / CLIPPER / MISC / ORBSRC14.ZIP / MODCFG.BAS < prev    next >
Encoding:
BASIC Source File  |  1988-05-12  |  5.2 KB  |  197 lines
  1. 'MODCFG.BAS
  2. 'Compile as .TBC file
  3. '880511-1
  4.  
  5. defdbl a - z
  6.  
  7. cls
  8. color 0,7
  9. PRINT"  = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = =   "
  10. PRINT"  =                                                                   =   "
  11. PRINT"  =                     Modify ORBS.CFG Entries                       =   "
  12. PRINT"  =                                                                   =   "
  13. PRINT"  =                            5/11/1988                              =   "
  14. PRINT"  = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = =   "
  15. print
  16. print"The ORBS.CFG file contains 'observer specific' data used by the prediction"
  17. print"program.  Existing entries will be displayed for possible modification.   "
  18. print"Latitude is entered as decimal degrees (nn.nnn); Southern latitudes are   "
  19. print"preceeded by a '-' (-nn.nnn).  Longitude is entered as decimal degrees    "
  20. print"West longitude.  Observer Altitude is entered in meters...(feet x 0.3048)."      "
  21. print"Minimum elevation is that elevation (in degrees) above which you wish the "
  22. print"printout to commence (usually 0 or -1).                                   "
  23. color 7,0
  24. print
  25.  
  26. sflag = 0                    'station selected flag
  27. open "ORBS.TMP" for OUTPUT as #2        'open output file
  28. open "ORBS.CFG" for INPUT as #1            'prepare to read file
  29.  
  30. while not EOF(1)
  31.   input# 1, c$, lat, lon, alt, minel, sflag     'read record
  32.   gosub recdisplay                'display the record
  33.  
  34.   y6 = csrlin                    'save csrlin for query
  35.   color 0,7
  36.   print"Accept or Modify this entry (A/m): ";
  37.   resp$ = input$ (1)
  38.   if resp$ = chr$(13) then resp$ = "A"
  39.   resp$ = ucase$(resp$)
  40.   print resp$
  41.   color 7,0
  42.   if resp$ = "M" then gosub update        'go update the record
  43. '  if resp$ = "D" then
  44. '    locate y3,45
  45. '    color 0,7
  46. '    print "RECORD DELETED"
  47. '    color 7,0
  48. '    delay 0.75
  49. '    gosub clrbot                'clr screen, delete record
  50. '    goto nowrite
  51. '  end if
  52. writerec:
  53.   write# 2, c$, lat, lon, alt, minel, sflag    'write the record
  54. nowrite:
  55.   locate y1,1
  56.   for i = y1 to 23                'clear bottom of screen
  57.     print"                                                           "
  58.   next i
  59.   locate y1,1
  60. WEND                        'fall thru when input file MT
  61.  
  62.   close# 1                    'input file is MT, close it.
  63.  
  64. 'getadtl:                    'Get addtl new records
  65. '  c$    = ""                    'empty the fields
  66. '  lat   = 0
  67. '  lon   = 0
  68. '  alt   = 0
  69. '  minel = 0
  70.  
  71. '  locate y1, 1
  72. '  gosub recdisplay                'display empty record
  73. '  locate y6, x1
  74. '  color 0,7
  75. '  print " Lone  <CR>  ENDS additions."
  76. '  color 7,0
  77.  
  78. '  locate y1, x1                    'input new call letters
  79. '  line input;resp$
  80. '  if len(resp$) = 0 then alldone        'exit on lone <CR>
  81. '  resp$ = ucase$(resp$)
  82. '  c$ = resp$
  83. '  locate y1, x1
  84. '  print resp$;"                  "
  85. '  locate y6, x1
  86. '  print "                                       "   'erase <CR> message
  87. '  gosub up1                    'go get rest of data
  88. '  write# 2, c$, lat, lon, alt, minel,sflag    'write new record to ORBS.TMP
  89. '  gosub clrbot                    'clear bottom of screen
  90. '  goto getadtl                'go get records til <CR> for C$
  91.  
  92. alldone:
  93.   gosub clrbot                    'clear bottom of screen
  94.   locate y1,1
  95.   print"                     ";
  96.   color 0,7
  97.   print " Modification complete.."
  98.   color 7,0
  99.   close# 2
  100.  
  101.   kill "ORBS.CFG"
  102.   name "ORBS.TMP" as "ORBS.CFG"
  103.  
  104.   RUN "ORBS.EXE"                'EXIT to menu program
  105.  
  106. '= = = = = = = = = = = = = = = = = = = =
  107.  
  108. update:
  109. up0:
  110.   locate y1, x1
  111.   line input;resp$
  112.   if len(resp$) = 0 then up1
  113.   print"                     "
  114.   c$ = resp$
  115. up1:
  116.   locate y2, x2
  117.   line input;resp$
  118.   if len(resp$) = 0 then up2
  119.   print"                     "
  120.   lat = val(resp$)
  121. up2:
  122.   locate y3, x3
  123.   line input;resp$
  124.   if len(resp$) = 0 then up3
  125.   print"                     "
  126.   lon = val(resp$)
  127. up3:
  128.   locate y4, x4
  129.   line input;resp$
  130.   if len(resp$) = 0 then up4
  131.   print"                     "
  132.   alt = val(resp$)
  133. up4:
  134.   locate y5, x5
  135.   line input;resp$
  136.   if len(resp$) = 0 then up5
  137.   print"                     "
  138.   minel = val(resp$)
  139. up5:
  140.   locate y6,1
  141.   print "                                        ";
  142.   print "                                       "
  143.   locate y6,1
  144.   color 0,7
  145.   print " Is data correct (Y/n): ";
  146.   resp$ = input$ (1)
  147.   if resp$ = chr$(13) then resp$ = "Y"
  148.   resp$ = ucase$(resp$)
  149.   print resp$
  150.   color 7,0
  151.   if resp$ = "N" then up0                       'Try update again
  152.  
  153. RETURN                        'RETURN to write record
  154.  
  155. '= = = = = = = = = = = = = = = = = = = = = = = =
  156.  
  157. recdisplay:
  158.   print "           Station call:  ";
  159.   x1 = pos(1)
  160.   y1 = csrlin                    'save cursor position
  161.   print c$
  162.  
  163.   print "       Station latitude: ";
  164.   x2 = pos(1)
  165.   y2 = csrlin
  166.   print using "###.###";lat
  167.  
  168.   print "   Station W. longitude: ";
  169.   x3 = pos(1)
  170.   y3 = csrlin
  171.   print using "###.###";lon
  172.  
  173.   print "       Station altitude: ";
  174.   x4 = pos(1)
  175.   y4 = csrlin
  176.   print alt
  177.  
  178.   print "Min sat elevation (deg): ";
  179.   x5 = pos(1)
  180.   y5 = csrlin
  181.   print minel
  182.  
  183.   print
  184. RETURN
  185.  
  186. '= = = = = = = = = = = = = = = = = = = = = = = =
  187.  
  188. clrbot:
  189.     locate y1,1
  190.   for i = y1 to 23                'clear bottom of screen
  191.     print "                                        ";
  192.     print "                                       "
  193.   next i
  194.   return
  195.  
  196. '= = = = = = = = = = = = = = = = = = = = = = = =
  197.