home *** CD-ROM | disk | FTP | other *** search
/ Programmer 7500 / MAX_PROGRAMMERS.iso / CLIPPER / MISC / ORBSRC14.ZIP / MODFREQ.BAS < prev    next >
Encoding:
BASIC Source File  |  1987-11-03  |  4.2 KB  |  179 lines
  1. 'MODFREQ.BAS
  2. 'Compile as .TBC file
  3. '871103-1
  4.  
  5. defdbl a - z
  6.  
  7. cls
  8. color 0,7
  9. PRINT" = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = =
  10. PRINT" =                                                                   =
  11. PRINT" =                    Modify FREQS.ORB Entries                       =
  12. PRINT" =                                                                   =
  13. PRINT" =                           11/03/1987                              =
  14. PRINT" =                                                                   =
  15. PRINT" = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = =
  16. PRINT
  17. PRINT"Existing entries will be presented for possible modification, followed"
  18. print"by blank entry(s) to allow you to add to the list of satellite beacon "
  19. print"frequencies; the frequency specified can be any you wish to track.  It"
  20. print"does not have to be strictly a beacon.  Make certain you enter the    "
  21. print"satellite's CATALOG number accurately.. the record is keyed on it.    "
  22. color 7,0
  23. print
  24.  
  25. open "FREQS.TMP" for OUTPUT as #2        'open output file
  26. open "FREQS.ORB" for INPUT as #1        'prepare to read file
  27.  
  28. while not EOF(1)
  29.   input# 1, s$, cat, f1, f2                     'read record
  30.   gosub recdisplay                'display the record
  31.  
  32.   y5 = csrlin                    'save csrlin for query
  33.   color 0,7
  34.   print"Accept, Delete, Modify this entry (A/d/m): ";
  35.   resp$ = input$ (1)
  36.   if resp$ = chr$(13) then resp$ = "A"
  37.   resp$ = ucase$(resp$)
  38.   print resp$
  39.   color 7,0
  40.   if resp$ = "M" then gosub update        'go update the record
  41.   if resp$ = "D" then nowrite            'skip this record
  42. writerec:
  43.   write# 2, s$, cat, f1, f2
  44. nowrite:
  45.   locate y1,1
  46.   for i = y1 to 23                'clear bottom of screen
  47.     print"                                                           "
  48.   next i
  49.   locate y1,1
  50. WEND
  51.  
  52. close# 1
  53.  
  54. blankbot:
  55.   locate y1,1
  56.   for i = y1 to 23                'clear bottom of screen
  57.     print"                                                           "
  58.   next i
  59.   locate y1,1
  60.   gosub displaymt
  61.  
  62.   y5 = csrlin                    'save csrlin for query
  63.   color 0,7
  64.   print" Make an entry (y/N): ";
  65.   resp$ = input$ (1)
  66.   if resp$ = chr$(13) then resp$ = "N"
  67.   resp$ = ucase$(resp$)
  68.   print resp$
  69.   color 7,0
  70.   if resp$ = "Y" then gosub update else alldone        'go load the record
  71.   write# 2, s$, cat, f1, f2
  72.   goto blankbot                    'go get next one
  73.  
  74. alldone:
  75.   print"                       "
  76.   color 0,7
  77.   print " Updates complete.."
  78.   color 7,0
  79.   close# 2
  80.  
  81.   kill "FREQS.ORB"
  82.   name "FREQS.TMP" as "FREQS.ORB"
  83.  
  84.   RUN "ORBS.EXE"                'EXIT to menu program
  85.  
  86. '= = = = = = = = = = = = = = = = = = = =
  87.  
  88. update:
  89. up0:
  90.   locate y1, x1
  91.   line input;resp$
  92.   if len(resp$) = 0 then up1
  93.   print"            "
  94.   s$ = resp$
  95. up1:
  96.   locate y2, x2
  97.   line input;resp$
  98.   if len(resp$) = 0 then up2
  99.   print"            "
  100.   cat = val(resp$)
  101. up2:
  102.   locate y3, x3
  103.   line input;resp$
  104.   if len(resp$) = 0 then up3
  105.   print"            "
  106.   f1 = val(resp$)
  107. up3:
  108.   locate y4, x4
  109.   line input;resp$
  110.   if len(resp$) = 0 then up4
  111.   print"            "
  112.   f2 = val(resp$)
  113.  
  114. up4:
  115.   locate y5
  116.   print "                                                         "
  117.   locate y5
  118.   color 0,7
  119.   print " Is data correct (Y/n): ";
  120.   resp$ = input$ (1)
  121.   if resp$ = chr$(13) then resp$ = "Y"
  122.   resp$ = ucase$(resp$)
  123.   print resp$
  124.   color 7,0
  125.   if resp$ = "N" then up0                       'Try update again
  126.  
  127. RETURN                        'RETURN to write record
  128.  
  129. '= = = = = = = = = = = = = = = = = = = = = = = =
  130.  
  131. recdisplay:
  132.   print "Satellite name:  ";
  133.   x1 = pos(1)
  134.   y1 = csrlin                    'save cursor position
  135.   print s$
  136.  
  137.   print "Catalog number: ";
  138.   x2 = pos(1)
  139.   y2 = csrlin
  140.   print cat
  141.  
  142.   print "   Frequency 1: ";
  143.   x3 = pos(1)
  144.   y3 = csrlin
  145.   print using "####.###";f1
  146.  
  147.   print "   Frequency 2: ";
  148.   x4 = pos(1)
  149.   y4 = csrlin
  150.   print using "####.###";f2
  151.  
  152.   print
  153. RETURN
  154.  
  155. '= = = = = = = = = = = = = = = = = = = = = = = =
  156.  
  157. displaymt:
  158.   print "Satellite name:  ";
  159.   x1 = pos(1)
  160.   y1 = csrlin                    'save cursor position
  161.   print
  162.  
  163.   print "Catalog number: ";
  164.   x2 = pos(1)
  165.   y2 = csrlin
  166.   print
  167.  
  168.   print "   Frequency 1: ";
  169.   x3 = pos(1)
  170.   y3 = csrlin
  171.   print
  172.  
  173.   print "   Frequency 2: ";
  174.   x4 = pos(1)
  175.   y4 = csrlin
  176.   print
  177.  
  178.   print
  179. RETURN