home *** CD-ROM | disk | FTP | other *** search
/ HAM Radio 1 / HamRadio.cdr / log / hamsys / hamcnfg.bas < prev    next >
BASIC Source File  |  1987-02-03  |  4KB  |  115 lines
  1. 10 ' HAMCNFG - PROGRAM TO SET UP AND MAINTAIN THE DEFAULT FILE
  2. 15 'CHANGE DATE - 1/16/87
  3. 20 DEF SEG = 64 : POKE 23,64 : ' SET CAPS LOCK ON
  4. 30 KEY OFF
  5. 40 FOR I = 1 TO 10:KEY I,"":NEXT
  6. 50 FOR I = 1 TO 3 :KEY(I) ON : NEXT
  7. 60 CLS
  8. 70 PRINT "Do you want to copy the configuration file to another drive (Y/N) ?"
  9. 80 O$=INKEY$ : IF O$="" THEN GOTO 80
  10. 90 IF O$ <> "Y" THEN GOTO 190
  11. 100 PRINT "What drive do you want this copied to?"
  12. 110 GOSUB 1100
  13. 120 DR1$=O$+":"
  14. 130 OPEN "cnfg.dat" AS 1 LEN = 58
  15. 140 FIELD 1,58 AS A$ : GET 1,1
  16. 150 OPEN DR1$+"cnfg.dat" AS 2 LEN = 58
  17. 160 FIELD 2,58 AS B$ : LSET B$ = A$ : PUT 2,1
  18. 170 CLOSE
  19. 180 GOTO 60
  20. 190 GOSUB 1020
  21. 200 ON KEY (1) GOSUB 680
  22. 210 ON KEY (2) GOSUB 710
  23. 220 CLS
  24. 230 PRINT "The present default values are:"
  25. 240 PRINT
  26. 250 PRINT  "F1  Data drive - ";DR1$
  27. 260 PRINT "F2  Fast lookup drive - ";SPEEDLUK$
  28. 270 GOSUB 1060                                   ' Wait for user
  29. 280 O$=INKEY$:IF O$="" GOTO 280
  30. 290 IF ASC(O$) = 27 THEN RUN "mmenu"
  31. 300 IF ASC(O$) <> 13 THEN GOTO 280
  32. 310 ON KEY (1) GOSUB 740
  33. 320 ON KEY (2) GOSUB 770
  34. 330 ON KEY (3) GOSUB 800
  35. 340 CLS
  36. 350 PRINT "    Antennas "
  37. 360 PRINT "F1  ";ANT1$
  38. 370 PRINT "F2  ";ANT2$
  39. 380 PRINT "F3  ";ANT3$
  40. 390 GOSUB 1060
  41. 400 O$=INKEY$:IF O$="" GOTO 400
  42. 410 IF ASC(O$) = 27 THEN RUN "mmenu"
  43. 420 IF ASC(O$) <> 13 THEN GOTO 400
  44. 430 ON KEY (1) GOSUB 830
  45. 440 ON KEY (2) GOSUB 860
  46. 450 ON KEY (3) GOSUB 890
  47. 460 CLS
  48. 470 PRINT "    Default rigs"
  49. 480 PRINT "F1  ";RIG1$
  50. 490 PRINT "F2  ";RIG2$
  51. 500 PRINT "F3  ";RIG3$
  52. 510 GOSUB 1060                                   ' Wait for user
  53. 520 O$=INKEY$:IF O$="" GOTO 520
  54. 530 IF ASC(O$) = 27 THEN RUN "mmenu"
  55. 540 IF ASC(O$) <> 13 THEN GOTO 520
  56. 550 ON KEY (1) GOSUB 920
  57. 560 ON KEY (2) GOSUB 950
  58. 570 ON KEY (3) GOSUB 980
  59. 580 CLS
  60. 590 PRINT "    Default transmission type"
  61. 600 PRINT "F1  ";TRT1$
  62. 610 PRINT "F2  ";TRT2$
  63. 620 PRINT "F3  ";TRT3$
  64. 630 GOSUB 1060                                   ' Wait for user
  65. 640 O$=INKEY$:IF O$="" GOTO 640
  66. 650 IF ASC(O$) = 27 THEN RUN "mmenu"
  67. 660 IF ASC(O$) <> 13 THEN GOTO 640
  68. 670 GOTO 220                                      ' Go back to start at top
  69. 680 PRINT "Enter in the letter of the drive that you want your data file on"
  70. 690 GOSUB 1100
  71. 700 LSET DR1$=O$+":" : GOSUB 1010 : RETURN 220
  72. 710 PRINT "Enter in the letter of the drive where you want you fast lookup"
  73. 720 GOSUB 1100
  74. 730 LSET SPEEDLUK$=O$+":" : GOSUB 1010 : RETURN 220
  75. 740 PRINT "Enter the name of your primary antenna"
  76. 750 INPUT A$
  77. 760 LSET ANT1$=LEFT$(A$,8)  : GOSUB 1010 : RETURN 340
  78. 770 PRINT "Enter the name of you second antenna"
  79. 780 INPUT A$
  80. 790 LSET ANT2$=LEFT$(A$,8)   :GOSUB 1010 : RETURN 340
  81. 800 PRINT "Enter the name of your third antenna"
  82. 810 INPUT A$
  83. 820 LSET ANT3$=LEFT$(A$,8)  : GOSUB 1010 : RETURN 340
  84. 830 PRINT "Enter the name of your primary rig"
  85. 840 INPUT A$
  86. 850 LSET RIG1$=LEFT$(A$,8) : GOSUB 1010 :RETURN 460
  87. 860 PRINT "Enter the name of your second rig"
  88. 870 INPUT A$
  89. 880 LSET RIG2$=LEFT$(A$,8) : GOSUB 1010 :RETURN 460
  90. 890 PRINT "Enter the name of your third rig"
  91. 900 INPUT A$
  92. 910 LSET RIG3$=LEFT$(A$,8) : GOSUB 1010 :RETURN 460
  93. 920 PRINT "Enter the name of your primary transmission type"
  94. 930 INPUT A$
  95. 940 LSET TRT1$=LEFT$(A$,8) : GOSUB 1010 : RETURN 580
  96. 950 PRINT "Enter the name of your second transmission type"
  97. 960 INPUT A$
  98. 970 LSET TRT2$=LEFT$(A$,8) : GOSUB 1010 : RETURN 580
  99. 980 PRINT "Enter the name of your third transmission type"
  100. 990 INPUT A$
  101. 1000 LSET TRT3$=LEFT$(A$,8) : GOSUB 1010 : RETURN 580
  102. 1010 PUT 1,1 : CLOSE                            ' Write out file and close it.
  103. 1020 OPEN "CNFG.DAT" AS 1 LEN = 58          ' Open the config file
  104. 1030 FIELD 1,2 AS DR1$,2 AS SPEEDLUK$,8 AS ANT1$,8 AS ANT2$,8 AS ANT3$,5 AS RIG1$,5 AS RIG2$,5 AS RIG3$,5 AS TRT1$,5 AS TRT2$,5 AS TRT3$
  105. 1040 GET 1,1                               ' Get configuration record
  106. 1050 RETURN
  107. 1060 PRINT: PRINT "To change any value press the function key listed in front of the value"
  108. 1070 PRINT "ESC quits the program and return continues to next section"
  109. 1080 PRINT
  110. 1090 RETURN
  111. 1100 O$=INKEY$:IF O$="" GOTO 1100
  112. 1110 IF O$="A" OR O$="B" THEN RETURN
  113. 1120 IF O$="C" OR O$="D" THEN RETURN
  114. 1130 GOTO 1100
  115.