home *** CD-ROM | disk | FTP | other *** search
/ Antennas / Antennas_CD-ROM_Walnut_Creek_September_1996.iso / w4mb / vol2 / basic / menu.asc < prev    next >
Text File  |  1996-06-30  |  3KB  |  93 lines
  1. 2 ON ERROR GOTO 60000
  2. 10 PRINT "   ***************************************************************"
  3. 20 PRINT "   *                       COPYRGHT 1990                         *"
  4. 30 PRINT "   *          MINILAB BOOKS, DAYTONA BEACH, FL 32121-1086        *"
  5. 40 PRINT "   ***************************************************************"
  6. 100 DIM A$(32), B$(32)
  7. 110 FOR N = 1 TO 32
  8. 120 READ A$(N)
  9. 130 NEXT N
  10. 140 FOR N = 1 TO 32
  11. 150 READ B$(N)
  12. 160 NEXT N
  13. 170 PRINT
  14. 180 PRINT "           SERIAL NO.,  SHORT NAME - FULL NAME"
  15. 200 FOR N = 1 TO 16
  16. 210 PRINT N; B$(N); "-"; A$(N); N + 16; B$(N + 16); "-"; A$(N + 16)
  17. 220 NEXT N
  18. 300 PRINT
  19. 310 INPUT " ENTER NUMBER OF PROGRAM TO RUN, 33=QUIT"; TEM
  20. 320 IF TEM < 1 OR TEM > 33 THEN 310
  21. 330 IF TEM = 33 THEN STOP
  22. 400 RUN B$(TEM)
  23. 410 END
  24. 1000 PRINT
  25. 1010 DATA "BB RESISTANCE LOADED DIP. "
  26. 1020 DATA "MF-HF BROADBAND DIPOLE    "
  27. 1030 DATA "VHF-SHF BROADBAND DIPOLE  "
  28. 1040 DATA "COAXIAL COLINEAR ANTENNA  "
  29. 1050 DATA "CIRCULAR LOOP ARRAY       "
  30. 1060 DATA "ARRAYS OF VERTICALS       "
  31. 1070 DATA "4 ELEMENT W2PV ARRAY      "
  32. 1080 DATA "BEVERAGE                  "
  33. 1090 DATA "CLOVERLEAF                "
  34. 1100 DATA "CORNER REFLECTOR         "
  35. 1110 DATA "CROSS ANTENNA            "
  36. 1120 DATA "CYLINDER SLOT ANTENNA    "
  37. 1130 DATA "FERRITE ROD ANTENNA      "
  38. 1140 DATA "J-POLE ANTENNA           "
  39. 1150 DATA "POLY-ROD ANTENNA         "
  40. 1160 DATA "SMALL XMIT LOOP          "
  41. 1170 DATA "RHOMBIC                  "
  42. 1180 DATA "WAVEGUIDE END ANTENNAS   "
  43. 1190 DATA "SLEEVE MONOPOLE          "
  44. 1200 DATA "SLOTTED WAVEGUIDE ANTS.  "
  45. 1210 DATA "STANDARD ANTENNA         "
  46. 1220 DATA "WAVEGUIDE DATA           "
  47. 1230 DATA "GAMMA MATCH              "
  48. 1240 DATA "ISOLATION BETWEEN DIPS.  "
  49. 1250 DATA "TRANSMISSION LINE CALCS. "
  50. 1260 DATA "LOAD-GENERATOR TRANSFER  "
  51. 1270 DATA "ELEMENT SIZE CORRECT     "
  52. 1280 DATA "ELEMENT TAPER CORRECT    "
  53. 1290 DATA "SWR TO IMPEDANCE         "
  54. 1300 DATA "STUB MATCH               "
  55. 1310 DATA "EARTH SIGNAL DEPTH       "
  56. 1320 DATA "RF SAFETY LIMITS         "
  57. 2000 REM
  58. 2010 DATA "BBRL"
  59. 2020 DATA "MHBB"
  60. 2030 DATA "VUBB"
  61. 2040 DATA "COCO"
  62. 2050 DATA "CLPA"
  63. 2060 DATA "VRTA"
  64. 2070 DATA "4PVY"
  65. 2080 DATA "BEVR"
  66. 2090 DATA "CLFA"
  67. 2100 DATA "CORR"
  68. 2110 DATA "CROS"
  69. 2120 DATA "CLSA"
  70. 2130 DATA "FROD"
  71. 2140 DATA "JPOL"
  72. 2150 DATA "PROD"
  73. 2160 DATA "SXTL"
  74. 2170 DATA "ROMB"
  75. 2180 DATA "WGED"
  76. 2190 DATA "SLMP"
  77. 2200 DATA "WGSA"
  78. 2210 DATA "STDA"
  79. 2220 DATA "WGDT"
  80. 2230 DATA "GAMM"
  81. 2240 DATA "ISOD"
  82. 2250 DATA "LINE"
  83. 2260 DATA "ZLZG"
  84. 2270 DATA "ELSG"
  85. 2280 DATA "ELTP"
  86. 2290 DATA "SWRZ"
  87. 2300 DATA "STUB"
  88. 2310 DATA "ESGP"
  89. 2320 DATA "SAFE"
  90. 60000 PRINT : PRINT " !!! PROGRAM NOT FOUND- CHECK FILEPATH !!!": PRINT
  91. 60020 GOTO 200
  92.  
  93.