home *** CD-ROM | disk | FTP | other *** search
/ Compute! Gazette 1992 December / 1992-12.d64 / ham (.txt) < prev    next >
Commodore BASIC  |  2022-09-20  |  5KB  |  171 lines
  1. 1 gosub2075:goto900
  2. 2 print"[147]":gosub2070:gosub4091
  3. 3 printtab(14)"<<-quad->>"
  4. 4 print:print:print:print:print:print
  5. 10 input"[153]center freq.de";f
  6. 20 w=1005/f
  7. 25 print"one wavelength de":gosub4092
  8. 30 x=w/4
  9. 40 gosub4094:gosub4093
  10. 45 gosub4095:gosub4096
  11. 75 input"center freq. ref.";f
  12. 85 w=1035/f
  13. 90 print"one wavelength ref.":gosub4092
  14. 100 x=w/4
  15. 110 gosub4094:gosub4093
  16. 120 gosub4095:gosub4096
  17. 200 input"center freq. dr#1";f
  18. 210 w=995/f
  19. 215 print"one wavelength dr#1":gosub4092
  20. 220 x=w/4
  21. 230 gosub4094:gosub4093
  22. 240 gosub4095:gosub4096
  23. 300 input"center freq.dr#2";f
  24. 310 w=895/f
  25. 315 print"one wavelength dr#2":gosub4092
  26. 320 x=w/4
  27. 330 gosub4094:gosub4093
  28. 340 gosub4095:gosub4096
  29. 364 input:print"[147]"
  30. 380 gosub4098:print"choose 1,2"
  31. 381 geta$:ifa$=""then381
  32. 382 q=val(a$):ifq<1orq>2then381
  33. 383 onqgoto2,900
  34. 386 ifq=2then onvgoto900
  35. 600 rem elm spacing
  36. 601 print"[147]":printtab(11)"<- ant. elm spacing ->"
  37. 602 print "1.yagi ref to de use .15 or .25":print "2.de-dr#1 use .1"
  38. 603 print "3.dr's 2,3,4, use .2":print "4.ea add dr's, use .4"
  39. 604 print "5.ea add dr's 1% less than preceeding director"
  40. 610 input"choice of spacing";a
  41. 620 input"design freq mhz.=";f
  42. 630 k=984
  43. 640 w=(k/f)*a
  44. 650 print w"feet":print w*12"inches"
  45. 655 fort=1to1000:next
  46. 660 gosub4097
  47. 665 input
  48. 670 gosub 4098
  49. 675 gosub4099
  50. 680 geta$:ifa$=""then680
  51. 685 x=val(a$)
  52. 690 onxgoto600,900
  53. 700 gosub 2010
  54. 705 print"[147]":gosub04091
  55. 710 printtab(11)"[129]<- yagi elements ->"
  56. 715 input"center freq ref:";f
  57. 720 w=510/f
  58. 725 print"length of ref elm:":printw"feet":printw*12"inches"
  59. 730 print"from center of boom:":printw"feet":printw*12/2"inches"
  60. 735 x=w
  61. 740 input"center freq de:";f
  62. 745 w=473/f
  63. 750 print"length of de:":printw"feet":printw*12"inches"
  64. 752 print"from center of boom:":printw/2"feet":printw*12/2"inches"
  65. 755 x=w
  66. 765 input"center freq dr#1:";f
  67. 770 w=445/f
  68. 771 print"length of dr#1:":printw"feet":printw*12"inches"
  69. 772 print"from center of boom:":printw"feet":printw*12/2"inches"
  70. 774 gosub4097
  71. 775 input
  72. 777 gosub4098:gosub4099
  73. 780 geta$:ifa$=""then780
  74. 785 x=val(a$)
  75. 790 onxgoto700,900
  76. 800 gosub2015:print"[147]":gosub4091
  77. 820 printtab(13)"<- dipole ->"
  78. 824 input"center freq mhz:";f
  79. 825 w=468/f
  80. 830 print"one half wave dipole:":gosub4092
  81. 835 print"1/4 wave ea side:":printw/2"feet":printw*12"inches"
  82. 840 x=w/2
  83. 845 gosub4097:input:print"[147]"
  84. 860 gosub4098:gosub4099
  85. 875 geta$:ifa$=""then875
  86. 880 x=val(a$)
  87. 885 onxgoto800,900
  88. 900 gosub 2050
  89. 905 print"[147]":printtab(12)"[144]< main menu > ":printtab(10)" antenna builder  "
  90. 910 printtab(11)"program choices":printtab(5)"[155]1.quad":printtab(5)"2.yagi"
  91. 915 printtab(5)"3.spacing":printtab(5)"4.dipole":printtab(5)"5.folded dipole"
  92. 917 printtab(5)"6.long wire"
  93. 918 printtab(6)"a.# 1/2 waves in phase"
  94. 919 printtab(6)"b.length of 1/2 wave coax"
  95. 920 printtab(6)"use #3 for all ant"
  96. 921 printtab(6)"spacing calulations"
  97. 925 print"choose 1,2,3,4,5,6"
  98. 926 geta$:ifa$=""then926
  99. 927 x=val(a$):ifx<1orx>6then926
  100. 928 onxgoto2,700,600,800,3000,4000
  101. 930 ifx=1 goto 2   :rem quad
  102. 935 ifx=2 goto 700 :rem yagi
  103. 940 ifx=3 goto 600 :rem spacing
  104. 945 ifx=4 goto 800 :rem dipole
  105. 950 ifx=5 goto 3000:rem fold dipole
  106. 955 ifx=6 goto 4000:rem long wire
  107. 2010 poke 53281,peek(53281)and248 or 233:print"[144]":return
  108. 2015 poke 53281,peek(53281)or 7:print"[144]":return
  109. 2040 poke 53281,peek(53281)and 328 or 233:print"":return
  110. 2050 poke 53280,14:poke53281,14:print"[147]":return
  111. 2070 poke53280,peek(53281)and248or233:print"[153]":return
  112. 2075 poke 53281,peek(53281)and402 or 160:return
  113. 3000 gosub2040:gosub4091
  114. 3005 print"[147]":printtab(11)"<<<-wire antennas->>>"
  115. 3006 printtab(9)"<- folded dipole ->"
  116. 3009 input"center freq mhz:";f
  117. 3010 w=1005/f
  118. 3015 print"one wave length over all":gosub4092
  119. 3020 print"1/4 wave ea side:":printw/2"feet":printw/2*12"inches"
  120. 3021 x=w/2
  121. 3024 gosub 4097
  122. 3030 input:print"[147]"
  123. 3032 printtab(2)"1.wire ant work well at 30 ft. best at    their resonant freq.
  124. 3033 [153][163]4)"1/2 wave above ground."
  125. 3034 [153][163]2)"2. multiband ant's 1/2 wave at lowest    freq. open wire feed"
  126. 3036 [141]4097:[133]:[153]"load"
  127. 3040 [141]4098:[141]4099
  128. 3055 [161]a$:[139]a$[178]""[167]3055
  129. 3060 x[178][197](a$)
  130. 3065 [145]x[137]3000,900
  131. 4000 [141] 2075:[141]4091
  132. 4005 v[178]2:[153]"load":[153][163]10)" - wire antennas -"
  133. 4006 [153][163]11)"   - long wire -   "
  134. 4007 [153][163]7)"  - harmonic antennas -  "
  135. 4010 [153] "1.cut wire odd 1/2 waves at lowest        freq you will work"
  136. 4013 [153] "2.have good earth gnd and a 4:1 balum     in tuner"
  137. 4015 [153] "3.electrial length of harmonic antennas"
  138. 4020 [153]"1/2 wavelength coax"
  139. 4023 [153]"1.all band inverted vee's.":[153]"2.long wires, have very hi z."
  140. 4024 [153]"where z is in reference to impedance"
  141. 4025 [153]"the load gives to the feedline at a freq"
  142. 4027 [141]4097:[133]:[153]"load"
  143. 4028 [133]"opennumber of odd 1/2 wavelength=  ";n
  144. 4029 [133]"lowest freq in mhz.  ";f
  145. 4030 k[178]492
  146. 4035 w[178](k[173]f)[172]n[171].05
  147. 4037 [153]"syslength of long wire":[141]4092
  148. 4045 [153]"freq in mhz. " f
  149. 4047 k[178]984
  150. 4048 l[178]w
  151. 4049 x[178]f[172](l)[170].025
  152. 4050 [153]"forlength of wire in feet" w
  153. 4058 [153]x[173]936"number of wavelengths":[153]x[173]468"number of 1/2 wavelengths"
  154. 4059 [133]"printcoax velocity factor"; v
  155. 4060 [153]""492[173]f[172]v[173]12"cmdcmdcmdcmdcmdcmdcmdcmdcmdcmd=1/2 wave coax at design freq in feet"
  156. 4062 [141]4097:[133]:[153]"load"
  157. 4065 [141]4098:[141]4099
  158. 4080 [161]a$:[139]a$[178]""[167]4080
  159. 4085 v[178][197](a$)
  160. 4090 [145]v[137]4000,900:[128]
  161. 4091 [153]"load":[142]
  162. 4092 [153]w"feet":[153]w[172]12" inches":[142]
  163. 4093 [153]"1/4 wave ea side":[153] w[173]4"feet":[153] w[172]12[173]4"inches":[142]
  164. 4094 l[178][186]((x[172]x)[170](x[172]x)[173]x[172]x):[142]
  165. 4095 [153]"total width across spreaders":[153]l"feet":[153]l[172]12"inches":[142]
  166. 4096 [153]"drill hole frm cntr boom":[153]l[173]2"feet":[153]l[172]12[173]2"inches":[142]
  167. 4097 [153]"  print press return ":[142]
  168. 4098 [153]"load":[153][163]8)"1.calc again?":[153][163]8)"2.main menu":[142]
  169. 4099 [153]"choose 1 or 2":[142]
  170. 5010 [128]
  171.