home *** CD-ROM | disk | FTP | other *** search
/ 8bitfiles.net/archives / archives.tar / archives / genie-commodore-file-library / C64Software / W2PV-ANT-DESIGN (.txt) < prev    next >
Encoding:
Commodore BASIC  |  2019-04-13  |  8.1 KB  |  180 lines
  1. 5 PRINT"ô":POKE53280,0:POKE53281,6:GOTO2000
  2. 8 GOTO 2000
  3. 10 PRINT" *****THAT CONCLUDES THE ANT. PGM *****Æ"
  4. 15 END
  5. 40 END
  6. 48 PRINT"ô"
  7. 50 PRINT"    HIGH FREQUENCY ANTENNA DESIGN"
  8. 52 PRINT"<><><><><><><><><><><><><><><><><><><><>"
  9. 55 PRINT"CENTER FREQUENCY DESIRED IN MHZ.";:INPUTX
  10. 57 POKE53281,11:POKE53280,6
  11. 90 PRINT"DRIVEN ELEMENT----------";:PRINT467.4719981/X;:PRINT"FT."
  12. 120 PRINT"REFLECTOR ELEMENT-------";:PRINT498.48484/X;:PRINT"FT."
  13. 140 PRINT"FIRST DIRECTOR----------";:PRINT457.630482/X;:PRINT"FT."
  14. 160 PRINT"SECOND DIRECTOR---------";:PRINT 440.8999065/X;:PRINT"FT."
  15. 180 PRINT"  IF MORE DIRECTORS ARE USED MAKE         THEM THE SAME AS THE SECOND"
  16. 190 PRINT" **************************************"
  17. 200 PRINT"  THE FOLLOWING IS THE ELEMENT SPACINGÆ"
  18. 210 PRINT"REF TO THE RAD----------";:PRINT.1235*299.97/X*39.37/12;:PRINT"FT."
  19. 220 PRINT"RAD T0 THE 1ST DIR------";:PRINT.2005*299.97/X*39.37/12;:PRINT"FT."
  20. 240 PRINT "1ST DIR TO THE 2ND DIR--";:PRINT.2495*299.97/X*39.37/12;:PRINT"FT."
  21. 260 PRINT"    ANY ADDED DIR'S SHOULD BE SPACEDÆ"
  22. 270 PRINT"        THE SAME AS THE 2ND DIR"
  23. 280 PRINT" **************************************"
  24. 285 PRINT"BOOM LENGTH FOR 3 ELE.";:PRINT299.97/X*39.37/12*.3242;:PRINT"FT."
  25. 290 PRINT"BOOM LENGTH FOR 4 ELE.";:PRINT299.97/X*39.37/12*.5792;:PRINT"FT."
  26. 295 PRINT"BOOM LENGTH FOR 5 ELE.";:PRINT299.97/X*39.37/12*.8232;:PRINT"FT."
  27. 300 PRINT"BOOM LENGTH FOR 6 ELE.";:PRINT299.97/X*39.37/12*1.045;:PRINT"FT."
  28. 310 PRINT"FOR BOOM MATERIAL SEE INSTRUCTIONS"
  29. 320 PRINT"    ***SET UP FOR BATA MATCH?(Y/N)***Æ"
  30. 325 GETZ$:IFZ$=""THEN325
  31. 330 IFZ$="Y"THEN GOSUB340
  32. 340 IFZ$="N"THEN395
  33. 350 PRINT"ENTER SPACING BETWEEN BATA BARS";:INPUTS
  34. 360 PRINT"ENTER DIAMETER OF BATA RODS";:INPUTD
  35. 370 PRINT"CHAR. IMPEDANCE--";:PRINT276*LOG(2*S/D)/LOG(10);:PRINT"OHMS"
  36. 390 PRINT"SHORTING STRAP PLACEMENT";:PRINT.0276*299.97/X*39.37;:PRINT"IN."
  37. 395 PRINT"    *DO YOU WISH A GRAPHC LOOK?(Y/N)*"
  38. 400 GETZ$:IFZ$=""THEN400
  39. 405 IFZ$="Y"THEN GOSUB407
  40. 406 IFZ$="N"THEN620
  41. 407 PRINT"ô" :PRINT"" :PRINT""
  42. 410 PRINT"  └└└└└└▓└└└└└└áREF.    ";:PRINT498.48484/X;:PRINT"FT."
  43. 411 PRINT"        ┬ _└REF TO RAD  ";:PRINT.1235*299.97/X*39.37/12;:PRINT"FT."
  44. 412 PRINT"   └└└└└█└└└└└  RAD.    ";:PRINT467.4719981/X;:PRINT"FT."
  45. 413 PRINT"        ┬ _└RAD TO 1ST  ";:PRINT.2005*299.37/X*39.37/12;:PRINT"FT."
  46. 414 PRINT"        ┬              "
  47. 415 PRINT"    └└└└█└└└└   1ST DIR.";:PRINT457.630482/X;:PRINT"FT."
  48. 416 PRINT"        ┬ _└1ST TO 2ND  ";:PRINT.2495*299.97/X*39.37/12;:PRINT"FT."
  49. 417 PRINT"        ┬               "
  50. 418 PRINT"    └└└└█└└└└   2ND DIR.";:PRINT 440.8999065/X;:PRINT"FT."
  51. 419 PRINT"        ┬ _└2ND TO 3RD  ";:PRINT.2495*299.97/X*39.37/12;:PRINT"FT."
  52. 420 PRINT"        ┬               "
  53. 421 PRINT"    └└└└█└└└└   3RD DIR.";:PRINT 440.8999065/X;:PRINT"FT."
  54. 422 PRINT"        ┬ _└3RD TO 4TH  ";:PRINT.2495*299.97/X*39.37/12;:PRINT"FT."
  55. 423 PRINT"        ┬               "
  56. 424 PRINT"    └└└└▒└└└└   4TH DIR.";:PRINT 440.8999065/X;:PRINT"FT."
  57. 450 PRINT""
  58. 620 PRINT"   ***DO YOU WISH A HARD COPY?(Y/N)***Æ"
  59. 625 GETZ$:IFZ$=""THEN625
  60. 630 IFZ$="Y"THEN GOSUB990
  61. 990 IFZ$="N" THEN1380
  62. 992 PRINT" "
  63. 995 PRINT"   HOLD ON A SECOND I AM PRINTING YOUR    HARD COPYÆ"
  64. 1000 OPEN1,4,0
  65. 1002 PRINT#1:PRINT#1:PRINT
  66. 1003 PRINT#1,"      ********************************************************"
  67. 1004 PRINT#1,"      *       MONO BAND ANT DESIGN 3 TO 6 ELEMENTS"
  68. 1006 PRINT#1,"      *       FROM AN ARTICAL BY K1GQ ON A W2PV"
  69. 1008 PRINT#1,"      *       ANTENNA SYSTEM IN OCT. 86 QST.
  70. 1010 PRINT#1,"      *       ADAPTED TO THE COMMODORE 64 BY W5GG"
  71. 1012 PRINT#1,"      *       TO HELP CONSTRUCTION. THE MEASURMENTS"
  72. 1014 PRINT#1,",     *       GIVEN ARE STARTING POINTS AND"
  73. 1015 PRINT#1,",     *       THEY WILL WORK VERY GOOD WITH OUT ANY CHANGES"
  74. 1017 PRINT#1,"      *******************************************************"
  75. 1018 PRINT#1,"      *"
  76. 1020 PRINT#1,"      *       CENTER DESIGN FREQ.";X"MHZ"
  77. 1025 PRINT#1,"      *       DRIVEN ELEMENT--";467.4719981/X"FT."
  78. 1030 PRINT#1,"      *       REFLECTOR ELE.--";498.48484/X"FT."
  79. 1040 PRINT#1,"      *       1ST DIRECTOR----";457.630482/X"FT."
  80. 1050 PRINT#1,"      *       2ND DIRECTOR----";440.8999/X"FT."
  81. 1060 PRINT#1,"      *       3RD DIRECTOR----";440.8999/X"FT."
  82. 1070 PRINT#1,"      *       4TH DIRECTOR----";440.8999/X"FT."
  83. 1072 PRINT#1,"      *"
  84. 1098 IF D=0  GOTO1200
  85. 1100 PRINT#1,"      *       BATA MATCH RODS CONSTRUCTION"
  86. 1105 PRINT#1,"      *       BATA ROD SPACING";S"INCHES."
  87. 1110 PRINT#1,"      *       BATA ROD DIA.---";D"INCHES."
  88. 1120 PRINT#1,"      *       DISTANCE FROM RADIATOR TO THE SHORTING BAR"
  89. 1122 PRINT#1,"      *       SHORTING BAR----";.0276*299.97/X*39.37"INCHES"
  90. 1130 PRINT#1,"      *       CHAR INPEDENCE--";276*LOG(2*S/D)/LOG(10)"OHMS"
  91. 1200 PRINT#1,"      *       BOOM LENGTH IN FEET FOR 3 TO 6 ELEMENT BEAM"
  92. 1210 PRINT#1,"      *       FOR 3 ELEMENT---";299.97/X*3.28*.3242"FT."
  93. 1220 PRINT#1,"      *       FOR 4 ELEMENT---";299.97/X*3.281*.5792"FT."
  94. 1230 PRINT#1,"      *       FOR 5 ELEMENT---";299.97/X*3.281*.8232"FT."
  95. 1240 PRINT#1,"      *       FOR 6 ELEMENT---";299.97/X*3.281*1.0452"FT."
  96. 1242 PRINT#1
  97. 1243 PRINT#1,"      *       THE FOLLOWING IS A LIST OF MATERIALS"
  98. 1245 PRINT#1,"      *       --------BOOMS MATERIAL--------"
  99. 1247 PRINT#1,"      *       50MHZ 1 TO 1.5 INCHES DIA."
  100. 1250 PRINT#1,"      *       28MHZ 1.5 TO 2 INCHES DIA."
  101. 1252 PRINT#1,"      *       24MHZ 1.5 TO 2 INCHES DIA."
  102. 1254 PRINT#1,"      *       21MHZ 2 TO 2.5 INCHES DIA."
  103. 1256 PRINT#1,"      *       14MHZ 3 TO 4   INCHES DIA."
  104. 1258 PRINT#1,"      *       SELECT THE LENGTH FOR NUMBER OF ELEMENTS USED"
  105. 1260 PRINT#1,"      *       THE BOOM MATERIAL SHOULD BE 60/61T6"
  106. 1262 PRINT#1,"      *"
  107. 1264 PRINT#1,"      *       --------ELEMENT MATERIAL--------"
  108. 1266 PRINT#1,"      *       50MHZ TAPER .68 INTO .75 INCH TUBING"
  109. 1268 PRINT#1,"      *       28MHZ TAPER .68 INTO .75 INCH TUBING"
  110. 1270 PRINT#1,"      *       24MHZ TAPER .68 INTO .75 INCH TUBING"
  111. 1272 PRINT#1,"      *       14MHZ TAPER .88 INTO 1.O INCH TUBING"
  112. 1274 PRINT#1,"      *       THIS TUBING SHOULD BE 60/61T6 (HARD)
  113. 1276 PRINT#1,"      *       THE SIZES OF TUBING MAY BE CHANGED WITHIN REASON"
  114. 1278 PRINT#1,"      *       KEEP IN MIND THE DESIGN FREQ. WILL CHANGE IF LARGE"
  115. 1279 PRINT#1,"      *       CHANGES ARE MADE. 14MHZ MAY REQUIRE 3 TAPERS"
  116. 1280 PRINT#1,"      * * * * * * * * * * * * * * * * * * * * * * * * * * * "
  117. 1290 PRINT#1,"      *        └└└└└└▓└└└└└└áREF.----";498.48484/X"FT."
  118. 1291 PRINT#1,"      *              ┬ REF TO RAD _└";.1235*299.97/X*39.37/12"FT."
  119. 1292 PRINT#1,"      *         └└└└└█└└└└└  RAD ----";476.4719981/X"FT."
  120. 1293 PRINT#1,"      *              ┬ RAD TO 1ST _└";.2005*299.97/X*39.37/12"FT."
  121. 1294 PRINT#1,"      *              ┬   "
  122. 1295 PRINT#1,"      *          └└└└█└└└└á  1ST ----";457.630482/X"FT."
  123. 1297 PRINT#1,"      *              ┬ 1ST TO 2ND _└";.2495*299.97/X*39.37/12"FT."
  124. 1298 PRINT#1,"      *              ┬   "
  125. 1299 PRINT#1,"      *          └└└└█└└└└   2ND ----";440.899906/X"FT."
  126. 1300 PRINT#1,"      *              ┬ 2ND TO 3RD _└";.2495*299.97/X*39.37/12"FT."
  127. 1301 PRINT#1,"      *              ┬   "
  128. 1302 PRINT#1,"      *          └└└└▒└└└└   3RD ----";440.899906/X"FT."
  129. 1303 PRINT#1,"      *              ┬ 3RD TO 4TH _└";.2495*299.97/X*39.37/12"FT."
  130. 1304 PRINT#1,"      *              ┬   "
  131. 1305 PRINT#1,"      *          └└└└▒└└└└   4TH ----";440.899906/X"FT."
  132. 1306 PRINT#1,"      ********************************************************"
  133. 1380 PRINT"DO YOU WISH TO DESIGN ANOTHER ANT?(Y/N)Æ"
  134. 1382 GETZ$:IFZ$=""THEN1382
  135. 1384 IFZ$="Y"THEN GOSUB48
  136. 1386 IFZ$="N"THEN1450
  137. 1400 END
  138. 1450 GOTO10
  139. 1500 GOTO 10
  140. 1600 GOTO5
  141. 2000 PRINT  CHR$(5)
  142. 2002 PRINT"DO YOU WISH INSTRUCTIONS?(Y/N)Æ";:INPUTC$
  143. 2005 PRINT"ô":POKE53281,0:POKE53280,3
  144. 2010 IFC$="N"THEN48
  145. 2015 PRINT"THIS IS A SMALL PROGRAM DERIVED FROM AN ARTICAL IN OCT.86 QST WRITTEN
  146. 2020 PRINT"BY BILL MYERS K1GQ ON THE W2PV ANTENNA  FOR 24MHZ.
  147. 2025 PRINT"THIS WILL GIVE  VERY CLOSE DIMENTIONS   FOR THE BAND SELECTED.
  148. 2030 PRINT"SAY 14 THRU 50MHZ.
  149. 2035 PRINT"PROGRAM WRITTEN FOR COMMODORE 64 BY          W5GG-H H WHITTENBERG-"
  150. 2090 PRINT"****************************************"
  151. 2100 PRINT"**THE FOLLOWING IS A LIST OF MATERIALS**
  152. 2102 PRINT"   ------BOOM MATERIAL------"
  153. 2110 PRINT"   50MHZ 1 TO 1.5 INCHES DIA."
  154. 2120 PRINT"   28MHZ 1.5 TO 2 INCHES DIA."
  155. 2130 PRINT"   24MHZ 1.5 TO 2 INCHES DIA."
  156. 2140 PRINT"   21MHZ 2 TO 2.5 INCHES DIA."
  157. 2150 PRINT"   14MHZ 3 TO 4   INCHES DIA."
  158. 2160 PRINT"   SELECT THE LENGTH NEEDED FOR NUMBER     OF ELEMENTS DESIRED"    
  159. 2162 PRINT"   THE BOOM MATERIAL SHOULD BE 60/61T6"
  160. 2168 PRINT" "
  161. 2170 PRINT"   TO CONTINUE PRESSRETURNÆ";:INPUTY$
  162. 2172 PRINT"ô"
  163. 2178 PRINT"                                                       "
  164. 2180 PRINT"   *******ELEMENT MATERIAL**********"
  165. 2182 PRINT"   50MHZ TAPER .68 INTO .75 INCH"
  166. 2184 PRINT"   28NMZ TAPER .68 INTO .75 INCH"
  167. 2186 PRINT"   24MHZ TAPER .68 INTO .75 INCH"
  168. 2188 PRINT"   21MHZ TAPER .68 INTO .75 INCH"
  169. 2190 PRINT"   14MHZ TAPER .88 INTO 1.0 INCH":PRINT"á"
  170. 2192 PRINT"   NOTE THAT THE TUBEING SIZES MAY         BE CHANGED WITHIN REASON"
  171. 2300 PRINT"   THE ELEMENT MATERIAL IS 60/61T6"
  172. 2301 PRINT""
  173. 2305 PRINT"   ****BATA MATCH CONSTRUCTION****"
  174. 2310 PRINT"   FOR BATA MATCH IMPEDANCE STAY NEAR      230 OHMS"
  175. 2320 PRINT"   KEEP THE SPACING TO DIAMETER RATIO      ABOUT 3.5 TO 1"
  176. 2325 PRINT"   IF YOU ELECT NOT TO USE BATA MATCH      A-T-OR GAMMA WORKS GOOD."
  177. 2330 PRINT"   THERE MAY BE A SLIGHT CHANGE IN THE     LENGTH OF THE DRIVEN ELE."
  178. 2390 PRINT" "
  179. 2398 
  180.