home *** CD-ROM | disk | FTP | other *** search
/ HAM Radio 1 / HamRadio.cdr / tech / eepub08 / vhfprop.bas < prev    next >
BASIC Source File  |  1986-08-26  |  25KB  |  524 lines
  1. 1 X=7:Y=0:GOSUB 500
  2. 2 COLOR X,Y:CLS:PRINT:PRINT
  3. 3 REM
  4. 4 REM ************************************************************************
  5. 5 REM ** BY L.A. GERIG, R.R.#1, MONROEVILLE, IND  46773                     **
  6. 6 REM ** DOCUMENTATION HISTORY  JUL '85 & JAN '86 HAM RADIO MAGAZINE        **
  7. 7 REM **                        MAY '86 COMMUNICATIONS MAGAZINE             **
  8. 8 REM **                        AUG '86 RF DESIGN                           **
  9. 9 REM ************************************************************************
  10. 10 PRINT:PRINT TAB(20)"  VHF/UHF/L-BAND PROPAGATION PROGRAM"
  11. 12 PRINT:PRINT TAB(20)"            FOR THE IBM PC"
  12. 14 PRINT:PRINT TAB(20)"            V1.01 C 1986 BY"
  13. 16 PRINT:PRINT TAB(20)"             LYNN A. GERIG"
  14. 20 FOR J=1 TO 9:PRINT:NEXT
  15. 22 PRINT"TO CHANGE LETTER COLORS, INPUT L.
  16. 24 PRINT"TO CHANGE BACKGROUND COLOR, INPUT B.
  17. 26 PRINT"ANY OTHER INPUT WILL JUMP TO PROGRAM WITH THESE COLORS.
  18. 28 PRINT:INPUT"WHAT IS YOUR CHOICE";A$
  19. 30 IF A$="L" OR A$="l" THEN X=X+1:IF X=8 THEN X=0
  20. 32 IF A$="B" OR A$="b" THEN Y=Y+1:IF Y=8 THEN Y=0
  21. 34 IF A$="L" OR A$= "l" OR A$="b" OR A$="B" THEN 2
  22. 36 CLS:PRINT
  23. 50 PRINT"THIS PROGRAM CALCULATES EXPECTED RANGES FOR VHF (100-175 MHZ),"
  24. 52 PRINT"UHF (225-400 MHZ), AND L-BAND (1-3.5 GHZ) FREQUENCIES.  APPROXIMATE"
  25. 56 PRINT"DYNAMIC RANGE IS FOR PATH LOSSES OF 125 TO 200 DB, COVERING MOST"
  26. 60 PRINT"APPLICATIONS FOR RECEIVER SENSITIVITY .5 TO 10 MICRO-VOLTS AND"
  27. 62 PRINT"TRANSMITTER POWER OF 1 TO 1000 WATTS.  THE PROGRAM COVERS ANTENNA"
  28. 64 PRINT"HEIGHTS FROM 25 FT TO 100,000 FT."
  29. 70 PRINT:PRINT"PROGRAM DEFAULTS TO RCVR SENS AND XMTR PWR IN DBM."
  30. 72 PRINT"WOULD YOU RATHER WORK WITH MICROVOLTS AND WATTS (Y=YES)";:INPUT D$
  31. 74 IF D$="y" THEN D$="Y"
  32. 80 PRINT:INPUT"WHAT IS DESIRED TITLE FOR HARDCOPY";T$
  33. 100 PRINT:INPUT"PRESS <V> FOR VHF, <U> FOR UHF, OR <L> FOR L-BAND";F$
  34. 102 IF F$="v" THEN F$="V"
  35. 104 IF F$="u" THEN F$="U"
  36. 106 IF F$="l" THEN F$="L"
  37. 108 IF F$="L" THEN GOSUB 4000:GOTO 200
  38. 114 IF F$="V" THEN GOSUB 2000:GOTO 200
  39. 116 IF F$="U" THEN GOSUB 3000:GOTO 200
  40. 118 IF F$="L" THEN GOSUB 4000:GOTO 200
  41. 120 GOTO 100
  42. 200 PRINT:GOSUB 600:REM SELECT FREQUENCY
  43. 205 PRINT:GOSUB 700:REM SELECT XMTR PWR & RCVR SENS
  44. 210 PRINT:GOSUB 900:REM SELECT ANTENNA GAINS
  45. 215 PRINT:GOSUB 800:REM SELECT ANTENNA HEIGHTS
  46. 300 CLS:IF F$<>"L" THEN PRINT F$;"HF PROPAGATION:  FREQ =";F;"MHZ"
  47. 301 IF F$="L" THEN PRINT"L-BAND PROPAGATION:  FREQ =";F;"MHZ"
  48. 302 PRINT:PRINT"TRANSMITTER POWER OUT:";PD;TAB(30);"DBM"
  49. 304 PRINT TAB(22);PW;TAB(30);"WATTS"
  50. 306 PRINT:PRINT"RECEIVER SENSITIVITY: ";RD;TAB(30);"DBM"
  51. 308 PRINT TAB(22);RM;TAB(30);"UV"
  52. 310 PRINT:PRINT"LOWER ANTENNA : ";GL;"DBI @";H1;"FT"
  53. 312 PRINT"UPPER ANTENNA : ";GU;"DBI @";H2;"FT"
  54. 314 PRINT:PRINT"COAXIAL LINE LOSSES : ";LL;"DB"
  55. 320 PL=PD-RD+GU+GL-LL
  56. 322 DF=PL-37-20*LOG(F)/LOG(10)
  57. 324 DF=10^(DF/20):DF=INT(DF+.5)
  58. 326 PRINT:PRINT PL;"DB PATH"
  59. 328 PRINT"FREE SPACE PATH =";DF;"MILES"
  60. 350 PL=PL-20*LOG(F/F1)/LOG(10):PRINT
  61. 352 IF PL<P1 THEN PRINT"RANGE NOT IN PROGRAM:  <";S1;"MILES"
  62. 354 IF PL<P1 THEN PRINT TAB(23);"<";D1;"(NAUT MI)"
  63. 356 IF PL>P5 THEN PRINT "RANGE NOT IN PROGRAM:  >";S5;"MILES"
  64. 358 IF PL>P5 THEN PRINT TAB(23);">";D5;"(NAUT MI)"
  65. 360 IF PL>=P1 AND PL<P2 THEN DN=D1+(D2-D1)*(PL-P1)/(P2-P1)
  66. 362 IF PL>=P2 AND PL<P3 THEN DN=D2+(D3-D2)*(PL-P2)/(P3-P2)
  67. 364 IF PL>=P3 AND PL<P4 THEN DN=D3+(D4-D3)*(PL-P3)/(P4-P3)
  68. 366 IF PL>=P4 AND PL<P5 THEN DN=D4+(D5-D4)*(PL-P4)/(P5-P4)
  69. 368 DS=INT(DN*1.151+.5):DN=INT(DN+.5)
  70. 370 PRINT"MAXIMUM EXPECTED RANGE: ";DS;"MILES"
  71. 372 PRINT TAB(24);DN;"(NAUT MI)"
  72. 400 PRINT:PRINT LL$
  73. 402 PRINT"G=MODIFY ANT GAINS            H=MODIFY ANT HEIGHTS"
  74. 406 PRINT"X=MODIFY R/T SENS/PWR         F=NEW FREQ (SAME BAND)"
  75. 410 PRINT"P=PRINTER DUMP                R=RUN AGAIN"
  76. 412 INPUT "YOUR CHOICE";A$
  77. 414 PRINT:PRINT
  78. 415 IF A$="R" OR A$="r" THEN GOTO 80
  79. 418 IF A$="G" OR A$="g" THEN GOSUB 900
  80. 420 IF A$="H" OR A$="h" THEN GOSUB 800
  81. 422 IF A$="X" OR A$="x" THEN GOSUB 700
  82. 424 IF A$="F" OR A$="f" THEN GOSUB 600
  83. 426 IF A$="P" OR A$="p" THEN GOSUB 430
  84. 428 GOTO 300
  85. 430 REM SCFREEN DUMP TO PRINTER
  86. 432 LPRINT M$;LL$:LPRINT:LPRINT:LPRINT M$;"TITLE:  ";T$:LPRINT
  87. 433 IF F$<> "L" THEN LPRINT M$;F$"HF PROPAGATION:  FREQ ="F"MHZ
  88. 434 IF F$="L" THEN LPRINT M$;"L-BAND PROPAGATION:  FREQ ="F"MHZ
  89. 435 LPRINT:LPRINT M$;"TRANSMITTER POWER OUT:"PD;TAB(37);"DBM
  90. 436 LPRINT TAB(29);PW TAB(37)"WATTS"
  91. 438 LPRINT:LPRINT M$;"RECEIVER SENSITIVITY: "RD;TAB(37);"DBM
  92. 440 LPRINT TAB(29);RM TAB(37)"UV
  93. 442 LPRINT:LPRINT M$;"LOWER ANTENNA : "GL"DBI @"H1"FT
  94. 444 LPRINT M$;"UPPER ANTENNA:  "GU"DBI @"H2"FT
  95. 446 LPRINT:LPRINT M$;"COAXIAL LINE LOSSES: "LL"DB
  96. 448 LPRINT:LPRINT M$;PL"DB PATH
  97. 450 LPRINT:LPRINT M$;"FREE SPACE PATH ="DF"MILES":LPRINT
  98. 452 IF PL<P1 THEN LPRINT M$;"RANGE NOT IN PROGRAM: <"S1"MILES
  99. 454 IF PL<P1 THEN LPRINT TAB(30);"<"D1"(NAUT MI)"
  100. 456 IF PL>P5 THEN LPRINT M$;"RANGE NOT IN PROGRAM: >"S5"MILES
  101. 458 IF PL>P5 THEN LPRINT TAB(30);">"D5"(NAUT MI)"
  102. 460 IF PL<P1 OR PL>P5 THEN 474
  103. 470 LPRINT M$;"MAXIMUM EXPECTED RANGE:"DS"MILES
  104. 472 LPRINT TAB(31) ;DN"(NAUT MI)
  105. 474 LPRINT:LPRINT M$;LL$:LPRINT:LPRINT
  106. 476 RETURN
  107. 500 D$="N":DIM H$(15,15):DIM H(15)
  108. 502 H(1)=25:H(2)=50:H(3)=100:H(4)=500:H(5)=1000:H(6)=2000
  109. 504 H(7)=5000:H(8)=10000:H(9)=15000:H(10)=20000:H(11)=30000
  110. 506 H(12)=40000!:H(13)=60000!:H(14)=80000!:H(15)=100000!
  111. 508 LL$="---------------------------------------"
  112. 510 M$="       ":RETURN
  113. 600 PRINT"FREQUENCY IN MHZ (";FL;"-";FU;")";:INPUT F
  114. 602 IF F<FL OR F>FU THEN 600
  115. 604 RETURN
  116. 700 IF D$="Y" THEN INPUT"INPUT XMTR POWER (IN WATTS)";PW:GOTO 710
  117. 702 INPUT"INPUT XMTR POWER (IN DBM)";PD
  118. 704 PW=(PD-30)/10:PW=10^PW
  119. 706 IF PW>=1 THEN PW=INT(PW*10+.5)/10:GOTO 720
  120. 708 IF PW<1 THEN PW=INT(PW*1000+.5)/1000:GOTO 720
  121. 710 PD=10*LOG(PW)/LOG(10)+30:PD=INT(PD*10+.5)/10
  122. 720 IF D$="Y" THEN INPUT"RCVR SENSITIVITY (IN MICRO-VOLTS)";RM:GOTO 730
  123. 722 INPUT"RCVR SENSITIVITY (IN DBM)";RD
  124. 723 IF RD>0 THEN PRINT"<1 MW IS A NEGATIVE NUMBER":GOTO 722
  125. 725 RM=(RD+107)/20:RM=10^RM
  126. 726 IF RM>=1 THEN RM=INT(RM*10+.5)/10:GOTO 740
  127. 728 IF RM<1 THEN RM=INT(RM*100+.5)/100:GOTO 740
  128. 730 RD=20*LOG(RM)/LOG(10)-107:RD=INT(RD*10+.5)/10
  129. 740 RETURN
  130. 800 REM ANTENNA HEIGHTS
  131. 802 CLS:PRINT"CHOOSE ANTENNA HEIGHTS BY SELECTING"
  132. 804 PRINT"NUMBERS FROM THE FOLLOWING MENU":PRINT:PRINT
  133. 806 PRINT"1 =   25'    6 =   2000'   11 =  30000'"
  134. 808 PRINT"2 =   50'    7 =   5000'   12 =  40000'"
  135. 810 PRINT"3 =  100'    8 =  10000'   13 =  60000'"
  136. 812 PRINT"4 =  500'    9 =  15000'   14 =  80000'"
  137. 814 PRINT"5 = 1000'   10 =  20000'   15 = 100000'"
  138. 820 PRINT:PRINT
  139. 830 INPUT"SELECT HEIGHT OF LOWER ANTENNA";H1
  140. 832 INPUT"SELECT HEIGHT OF UPPER ANTENNA";H2
  141. 834 IF H1<1 OR H2<1 OR H1>15 OR H2>15 THEN PRINT"NOT IN MENU"
  142. 835 IF H1<1 OR H2<1 OR H1>15 OR H2>15 THEN GOTO 830
  143. 836 IF H1>H2 THEN PRINT"LOWER AND UPPER REVERSED"
  144. 837 IF H1>H2 THEN GOTO 830
  145. 840 H$=H$(H1,H2):H1=H(H1):H2=H(H2)
  146. 850 P1=VAL(MID$(H$,1,3)):D1=VAL(MID$(H$,4,3))
  147. 852 P2=VAL(MID$(H$,7,3)):D2=VAL(MID$(H$,10,3))
  148. 854 P3=VAL(MID$(H$,13,3)):D3=VAL(MID$(H$,16,3))
  149. 856 P4=VAL(MID$(H$,19,3)):D4=VAL(MID$(H$,22,3))
  150. 858 P5=VAL(MID$(H$,25,3)):D5=VAL(MID$(H$,28,3))
  151. 860 S1=INT(D1*1.151+.5)
  152. 862 S5=INT(D5*1.151+.5)
  153. 870 PRINT:PRINT:PRINT:PRINT:RETURN
  154. 900 INPUT"GAIN OF LOWER ANTENNA (IN DBI)";GL
  155. 902 INPUT"GAIN OF UPPER ANTENNA (IN DBI)";GU
  156. 904 INPUT"COAXIAL LINE LOSSES (IN DB)";LL
  157. 906 RETURN
  158. 2000 F1=125:FL=100:FU=175:REM VHF DATA
  159. 2005 H$( 1, 1)="140010160025170035176050225340"
  160. 2010 H$( 1, 2)="135010160030170046175065225360"
  161. 2015 H$( 1, 3)="130010160037170055175075225385"
  162. 2020 H$( 1, 4)="117010162060170075175100225405"
  163. 2025 H$( 1, 5)="113010165070169085173100225415"
  164. 2030 H$( 1, 6)="105010158080170100175120225425"
  165. 2035 H$( 1, 7)="100010140085170130177160218400"
  166. 2040 H$( 1, 8)="118060132100170165176180213400"
  167. 2045 H$( 1, 9)="125100150160175195185260210400"
  168. 2050 H$( 1,10)="126120145170165200175215215450"
  169. 2055 H$( 1,11)="130160150210177250186320210440"
  170. 2060 H$( 1,12)="128180150240177285188360210470"
  171. 2065 H$( 1,13)="128220145280178330188400210510"
  172. 2070 H$( 1,14)="132270150330177365189440210550"
  173. 2075 H$( 1,15)="132300150365178410189480210580"
  174. 2080 H$( 2, 2)="125010155030165045170060210300"
  175. 2085 H$( 2, 3)="120010150032165050175105210310"
  176. 2090 H$( 2, 4)="110010158060167080183180205300"
  177. 2095 H$( 2, 5)="105010160075168100180170207320"
  178. 2100 H$( 2, 6)="110030163090170120183200208340"
  179. 2105 H$( 2, 7)="115050133085162125168140210370"
  180. 2110 H$( 2, 8)="120090148140165160170175210400"
  181. 2115 H$( 2, 9)="125120150165170195180260210420"
  182. 2120 H$( 2,10)="125140140170171215185300210440"
  183. 2125 H$( 2,11)="130180145215171250182320205440"
  184. 2130 H$( 2,12)="130210150250173285185360211500"
  185. 2135 H$( 2,13)="130255150300174335187420206510"
  186. 2140 H$( 2,14)="130290150340173370190470208560"
  187. 2145 H$( 2,15)="135340150375174410185480208600"
  188. 2150 H$( 3, 3)="125015155045166065174120203280"
  189. 2155 H$( 3, 4)="115020152060163080177160203300"
  190. 2160 H$( 3, 5)="110020152070165100195260210355"
  191. 2165 H$( 3, 6)="110030150080164110195275209360"
  192. 2170 H$( 3, 7)="115060140100164135196300211400"
  193. 2175 H$( 3, 8)="125110158160167175184270204380"
  194. 2180 H$( 3, 9)="125130140160165195172220205410"
  195. 2185 H$( 3,10)="125150135170165215172240205430"
  196. 2190 H$( 3,11)="125185145220165250173280210500"
  197. 2195 H$( 3,12)="130220138240165280175320203480"
  198. 2200 H$( 3,13)="130270145300160320170340203520"
  199. 2205 H$( 3,14)="135320165370175400180440203560"
  200. 2210 H$( 3,15)="135355163400175435178460204600"
  201. 2215 H$( 4, 4)="110030150080159095165120204330"
  202. 2220 H$( 4, 5)="115045151090160110170155204340"
  203. 2225 H$( 4, 6)="116060155110161125176200204350"
  204. 2230 H$( 4, 7)="123100156145165165190295210420"
  205. 2235 H$( 4, 8)="125135157180165200195350210450"
  206. 2240 H$( 4, 9)="130170160210168235199400218500"
  207. 2245 H$( 4,10)="130190158225168260195400210495"
  208. 2250 H$( 4,11)="130225160260170295184375205485"
  209. 2255 H$( 4,12)="135260160294169220183400203500"
  210. 2260 H$( 4,13)="125180129300163350172380202540"
  211. 2265 H$( 4,14)="125180130340162385173420205600"
  212. 2270 H$( 4,15)="125180132380165430174460204620"
  213. 2275 H$( 5, 5)="116065144090155110165140203340"
  214. 2280 H$( 5, 6)="120080145110160135170180204360"
  215. 2285 H$( 5, 7)="125120145140158160165180203380"
  216. 2290 H$( 5, 8)="125150150180162200167215202400"
  217. 2295 H$( 5, 9)="125174150205160220165234201420"
  218. 2300 H$( 5,10)="127200150225159240166260200435"
  219. 2305 H$( 5,11)="129235155265160275165286202480"
  220. 2310 H$( 5,12)="125180128266160305167325201500"
  221. 2315 H$( 5,13)="125180130315157250168374200540"
  222. 2320 H$( 5,14)="128260131355150380168410203600"
  223. 2325 H$( 5,15)="128260132395160430170455199600"
  224. 2330 H$( 6, 6)="125100150130160150168180200350"
  225. 2335 H$( 6, 7)="122130149160160180170220200375"
  226. 2340 H$( 6, 8)="125166154200160210168240200405"
  227. 2345 H$( 6, 9)="125190150220160235168265200430"
  228. 2350 H$( 6,10)="126212150240160260167275200445"
  229. 2355 H$( 6,11)="129250153280163300170325200480"
  230. 2360 H$( 6,12)="125180129285150306166335200510"
  231. 2365 H$( 6,13)="125180130330155360168390205590"
  232. 2370 H$( 6,14)="127220131370155405169430205620"
  233. 2375 H$( 6,15)="127220132410155440168465200625"
  234. 2380 H$( 7, 7)="125165150195160210169240200400"
  235. 2385 H$( 7, 8)="125200143220157240166260200430"
  236. 2390 H$( 7, 9)="127225155260164280170300200460"
  237. 2395 H$( 7,10)="128250153280164300170320201480"
  238. 2400 H$( 7,11)="130285150310160325166340200510"
  239. 2405 H$( 7,12)="125180129315150340167370200535"
  240. 2410 H$( 7,13)="127230130365156395170425200580"
  241. 2415 H$( 7,14)="127230132405158440170465200620"
  242. 2420 H$( 7,15)="127230133445155470170500200650"
  243. 2425 H$( 8, 8)="129235155265163280168300200460"
  244. 2430 H$( 8, 9)="130260155290160300168320203500"
  245. 2435 H$( 8,10)="130280155310164330169350200505"
  246. 2440 H$( 8,11)="130320150340162360170385200540"
  247. 2445 H$( 8,12)="125180131350157380170410200565"
  248. 2450 H$( 8,13)="125180132395160435170460200605"
  249. 2455 H$( 8,14)="127230133440156470170500200650"
  250. 2460 H$( 8,15)="127230133475160510175555205720"
  251. 2465 H$( 9, 9)="130290145305157320166340200505"
  252. 2470 H$( 9,10)="130305155340165360170375205560"
  253. 2475 H$( 9,11)="130345156375167400175430205595"
  254. 2480 H$( 9,12)="125180131374155405170440200590"
  255. 2485 H$( 9,13)="127240132425159460170485201640"
  256. 2490 H$( 9,14)="130320133465160505170525200675"
  257. 2495 H$( 9,15)="130320133500160540175580200710"
  258. 2500 H$(10,10)="125180130330165380175415202560"
  259. 2505 H$(10,11)="125180132370155395170430205615"
  260. 2510 H$(10,12)="127230132395160435175475205640"
  261. 2515 H$(10,13)="129280133450155475172510201660"
  262. 2520 H$(10,14)="130300133490155515172550205725"
  263. 2525 H$(10,15)="130300134525165570178620205760"
  264. 2530 H$(11,11)="125180133400160440175480205650"
  265. 2535 H$(11,12)="130300133435155460172500205675"
  266. 2540 H$(11,13)="130300134485165530180580205725"
  267. 2545 H$(11,14)="130300135525160560175600205760"
  268. 2550 H$(11,15)="130300135560165605180655205800"
  269. 2555 H$(12,12)="130300133460163505175540205700"
  270. 2560 H$(12,13)="130300134515167560177600205750"
  271. 2565 H$(12,14)="130300135555165600178640210820"
  272. 2570 H$(12,15)="130300135590160625175660205825"
  273. 2575 H$(13,13)="130300135560162600175635200760"
  274. 2580 H$(13,14)="130300135605160635175675200805"
  275. 2585 H$(13,15)="130300136640161675177715200840"
  276. 2590 H$(14,14)="130300136645170700185760208900"
  277. 2595 H$(14,15)="130300137685162720177760210940"
  278. 2600 H$(15,15)="130300137720163760179800210980"
  279. 2610 RETURN
  280. 3000 F1=300:FL=225:FU=500:REM UHF DATA
  281. 3005 H$( 1, 1)="142010170030178050182100225315"
  282. 3010 H$( 1, 2)="136010150020170035178060220300"
  283. 3015 H$( 1, 3)="130010150025170045176060215275"
  284. 3020 H$( 1, 4)="125020168055176070185125210260"
  285. 3025 H$( 1, 5)="120020165065175080185135210270"
  286. 3030 H$( 1, 6)="127040145060170085177100215305"
  287. 3035 H$( 1, 7)="127060140080174120178130210305"
  288. 3040 H$( 1, 8)="126085140110176155180166200280"
  289. 3045 H$( 1, 9)="132120145145175180181190200300"
  290. 3050 H$( 1,10)="135145150170175195180210215400"
  291. 3055 H$( 1,11)="135175145200177235181245200355"
  292. 3060 H$( 1,12)="140220150235175265183280200380"
  293. 3065 H$( 1,13)="140260150285180320185330200430"
  294. 3070 H$( 1,14)="140300150325179360185370200465"
  295. 3075 H$( 1,15)="140333151360180395187410200500"
  296. 3080 H$( 2, 2)="132010155030166040175060215280"
  297. 3085 H$( 2, 3)="125010150030164045175070213280"
  298. 3090 H$( 2, 4)="120020165060170070175090210270"
  299. 3095 H$( 2, 5)="120030165070171080175096210280"
  300. 3100 H$( 2, 6)="120040137060167090173100210290"
  301. 3105 H$( 2, 7)="125070140090170125176135210320"
  302. 3110 H$( 2, 8)="131110140125170155178175205320"
  303. 3115 H$( 2, 9)="135135151160170180177190205340"
  304. 3120 H$( 2,10)="135160150180170205179220205360"
  305. 3125 H$( 2,11)="140200145210173240180255205400"
  306. 3130 H$( 2,12)="140230147240172270180285205425"
  307. 3135 H$( 2,13)="140275148290173320181335200445"
  308. 3140 H$( 2,14)="137308148330175365184380200480"
  309. 3145 H$( 2,15)="139350150370175395184420197500"
  310. 3150 H$( 3, 3)="120010140025160045170060205240"
  311. 3155 H$( 3, 4)="118020160060170075183140210280"
  312. 3160 H$( 3, 5)="120030160070167080173100205260"
  313. 3165 H$( 3, 6)="122050155080168100175120210300"
  314. 3170 H$( 3, 7)="130080155110170130175145210325"
  315. 3175 H$( 3, 8)="135120168160173170177180210360"
  316. 3180 H$( 3, 9)="132140166180175195180220210380"
  317. 3185 H$( 3,10)="132160145180165200177220210400"
  318. 3190 H$( 3,11)="135200150220170245177255215460"
  319. 3195 H$( 3,12)="135230150250173280180300210460"
  320. 3200 H$( 3,13)="138280150300172320180345210500"
  321. 3205 H$( 3,14)="139320150340170360180380210540"
  322. 3210 H$( 3,15)="140355155380172400180415210580"
  323. 3215 H$( 4, 4)="120040155070165085175115205265"
  324. 3220 H$( 4, 5)="125055153080167100175125210305"
  325. 3225 H$( 4, 6)="125072157100170120180160210315"
  326. 3230 H$( 4, 7)="128105160135170150178180210345"
  327. 3235 H$( 4, 8)="132145155165168180177200215400"
  328. 3240 H$( 4, 9)="135170158190172210180240210395"
  329. 3245 H$( 4,10)="135192165215175240180260210420"
  330. 3250 H$( 4,11)="135225165255175275180290210450"
  331. 3255 H$( 4,12)="138260160280172295180320215500"
  332. 3260 H$( 4,13)="140310155325170340180365210520"
  333. 3265 H$( 4,14)="140352160370171385180206210560"
  334. 3270 H$( 4,15)="140390154400170420180440210590"
  335. 3275 H$( 5, 5)="124065160100171120177140210310"
  336. 3280 H$( 5, 6)="127085160115170130178160206300"
  337. 3285 H$( 5, 7)="130115160144170160177180210350"
  338. 3290 H$( 5, 8)="132150155170168190176206210380"
  339. 3295 H$( 5, 9)="133175159200170215175230210400"
  340. 3300 H$( 5,10)="135200158220170235178260210425"
  341. 3305 H$( 5,11)="135232161260173280179300210455"
  342. 3310 H$( 5,12)="136265160290171305180330210485"
  343. 3315 H$( 5,13)="139320160340174360180380210530"
  344. 3320 H$( 5,14)="140360160380174400180415210560"
  345. 3325 H$( 5,15)="140394165420175436182455210600"
  346. 3330 H$( 6, 6)="128105149120166140176166210340"
  347. 3335 H$( 6, 7)="132135159160170175177195210360"
  348. 3340 H$( 6, 8)="134170156190171210178230211400"
  349. 3345 H$( 6, 9)="134195161220170232177250211420"
  350. 3350 H$( 6,10)="136220160240171255179280211440"
  351. 3355 H$( 6,11)="138254165280173295179315210470"
  352. 3360 H$( 6,12)="137285155300170315178340211500"
  353. 3365 H$( 6,13)="138330165360174375181395210540"
  354. 3370 H$( 6,14)="140375164400175415181430210580"
  355. 3375 H$( 6,15)="143415167440176455184480210610"
  356. 3380 H$( 7, 7)="132165165200175220180240205363"
  357. 3385 H$( 7, 8)="135205156220170240180270210420"
  358. 3390 H$( 7, 9)="136230160250170265180295210445"
  359. 3395 H$( 7,10)="130130135245165275176300210460"
  360. 3400 H$( 7,11)="131140137188168315178335210495"
  361. 3405 H$( 7,12)="133200138315165345180375210525"
  362. 3410 H$( 7,13)="133200139368170400182430212580"
  363. 3415 H$( 7,14)="135240140410170440180465210610"
  364. 3420 H$( 7,15)="135240140445165470180495210640"
  365. 3425 H$( 8, 8)="130140135235165260180300210450"
  366. 3430 H$( 8, 9)="130140136255165290177310210470"
  367. 3435 H$( 8,10)="130140137280165310178340205470"
  368. 3440 H$( 8,11)="130140138320165346178370210520"
  369. 3445 H$( 8,12)="135240138350168380179405210550"
  370. 3450 H$( 8,13)="135240139400170430180455210600"
  371. 3455 H$( 8,14)="135240140445170470180495210640"
  372. 3460 H$( 8,15)="137300141480170510182540210670"
  373. 3465 H$( 9, 9)="132160137286169320183360210500"
  374. 3470 H$( 9,10)="132160138310169340183380210515"
  375. 3475 H$( 9,11)="135240138347170380180405210550"
  376. 3480 H$( 9,12)="135240139375163400182440210575"
  377. 3485 H$( 9,13)="135240140425170460181485210620"
  378. 3490 H$( 9,14)="135240141465170500181525210660"
  379. 3495 H$( 9,15)="138340142505165530181560210695"
  380. 3500 H$(10,10)="135240138330167360180390210530"
  381. 3505 H$(10,11)="135240138370168400180425208560"
  382. 3510 H$(10,12)="135240139395170430182460210595"
  383. 3515 H$(10,13)="135240140446170480185520210640"
  384. 3520 H$(10,14)="137300141490170520180545210680"
  385. 3525 H$(10,15)="137300142525170555185595210715"
  386. 3530 H$(11,11)="135240140405165430180455210600"
  387. 3535 H$(11,12)="135240140430165460181490210630"
  388. 3540 H$(11,13)="137300141505172520183550210670"
  389. 3545 H$(11,14)="137300142528172560185590210715"
  390. 3550 H$(11,15)="138300143565170592185630210750"
  391. 3555 H$(12,12)="140400141465175505184530210660"
  392. 3560 H$(12,13)="140400142515172550187590210705"
  393. 3565 H$(12,14)="140400143555165580185620209740"
  394. 3570 H$(12,15)="140400143590175635188670210780"
  395. 3575 H$(13,13)="138360142565170595186630210755"
  396. 3580 H$(13,14)="138360143608170640185670210790"
  397. 3585 H$(13,15)="138360144645178690191730210830"
  398. 3590 H$(14,14)="140420143647170680185710210830"
  399. 3595 H$(14,15)="140420144686170715188755210870"
  400. 3600 H$(15,15)="140400145720170750190800210900"
  401. 3610 RETURN
  402. 4000 F1=1600:FL=1000:FU=3500:REM L-BAND DATA
  403. 4005 H$( 1, 1)="140010175024190050200088224208"
  404. 4010 H$( 1, 2)="140012175028190057200092225212"
  405. 4015 H$( 1, 3)="140014175032190060200098225218"
  406. 4020 H$( 1, 4)="140030175045190070200106225225"
  407. 4025 H$( 1, 5)="140040175060190080200115225235"
  408. 4030 H$( 1, 6)="140056175072190092200128225248"
  409. 4035 H$( 1, 7)="145088180105190120200150230300"
  410. 4040 H$( 1, 8)="145120180140190150200180235360"
  411. 4045 H$( 1, 9)="150150180165190175200205235380"
  412. 4050 H$( 1,10)="141080148170185190200220235400"
  413. 4055 H$( 1,11)="141080149205185225200255235430"
  414. 4060 H$( 1,12)="144120151237185255200280235460"
  415. 4065 H$( 1,13)="144120153290185305200330235500"
  416. 4070 H$( 1,14)="144120154332185347200370235540"
  417. 4075 H$( 1,15)="148190155365185384200405235575"
  418. 4080 H$( 2, 2)="130009175030190060200095230240"
  419. 4085 H$( 2, 3)="130010175036190062200100230245"
  420. 4090 H$( 2, 4)="135027175052190078200110230258"
  421. 4095 H$( 2, 5)="135040175060190085200120230265"
  422. 4100 H$( 2, 6)="140060180080190100200135230275"
  423. 4105 H$( 2, 7)="135040142090180110195140230300"
  424. 4110 H$( 2, 8)="135040145125185150200190230332"
  425. 4115 H$( 2, 9)="139070146150180167195195235380"
  426. 4120 H$( 2,10)="142090148170185195200230235400"
  427. 4125 H$( 2,11)="145125150210185230200260235430"
  428. 4130 H$( 2,12)="145125150240185260200290235460"
  429. 4135 H$( 2,13)="145125152290185310200335235500"
  430. 4140 H$( 2,14)="145125153332185350200375235540"
  431. 4145 H$( 2,15)="145125155370185385201415235575"
  432. 4150 H$( 3, 3)="130015175040190065200105230250"
  433. 4155 H$( 3, 4)="135035175055190078200120230260"
  434. 4160 H$( 3, 5)="135045175065190086200126230270"
  435. 4165 H$( 3, 6)="138060175080190100200140235310"
  436. 4170 H$( 3, 7)="138060142095180115195140235335"
  437. 4175 H$( 3, 8)="138060145130180145195170235360"
  438. 4180 H$( 3, 9)="138060147155180173195195235385"
  439. 4185 H$( 3,10)="138060148175185200200235235405"
  440. 4190 H$( 3,11)="145130150212185235200265235440"
  441. 4195 H$( 3,12)="145130150245185265200295235460"
  442. 4200 H$( 3,13)="145130152295185315200340235505"
  443. 4205 H$( 3,14)="145130153340185355200380235545"
  444. 4210 H$( 3,15)="145130154375185390200415235580"
  445. 4215 H$( 4, 4)="135040136050175067195105235300"
  446. 4220 H$( 4, 5)="135040138060175075195115235305"
  447. 4225 H$( 4, 6)="135040140075180095198140235320"
  448. 4230 H$( 4, 7)="135040143105185133200175235340"
  449. 4235 H$( 4, 8)="140075147140185165200205235370"
  450. 4240 H$( 4, 9)="140075148170185190200225235390"
  451. 4245 H$( 4,10)="140075149190185215200245235410"
  452. 4250 H$( 4,11)="140075151230185250200280235445"
  453. 4255 H$( 4,12)="145140152260185280200305235470"
  454. 4260 H$( 4,13)="145140153308185330200355235520"
  455. 4265 H$( 4,14)="145140154350185370200395235555"
  456. 4270 H$( 4,15)="145140155390185405200415235585"
  457. 4275 H$( 5, 5)="135040140072180090195120235315"
  458. 4280 H$( 5, 6)="135040142090180110195140235325"
  459. 4285 H$( 5, 7)="135040145120180140195165235350"
  460. 4290 H$( 5, 8)="140072147160180170195195235380"
  461. 4295 H$( 5, 9)="140072148182180200195220235400"
  462. 4300 H$( 5,10)="140072149205185225200260235420"
  463. 4305 H$( 5,11)="145140151240185260200295235455"
  464. 4310 H$( 5,12)="145140152270185295200320235480"
  465. 4315 H$( 5,13)="145140154320185340200370235525"
  466. 4320 H$( 5,14)="145140155365185380200405235565"
  467. 4325 H$( 5,15)="145140156400185416200440235600"
  468. 4330 H$( 6, 6)="135040143105185130200170235340"
  469. 4335 H$( 6, 7)="135040146136185160200200235360"
  470. 4340 H$( 6, 8)="143105149172185190200225235395"
  471. 4345 H$( 6, 9)="143105150197185215200250235410"
  472. 4350 H$( 6,10)="143105151220185240200270235430"
  473. 4355 H$( 6,11)="143105151255185275200305235465"
  474. 4360 H$( 6,12)="145140153290185305200330235495"
  475. 4365 H$( 6,13)="145140155340185355200380235540"
  476. 4370 H$( 6,14)="145140155380185395200420235575"
  477. 4375 H$( 6,15)="145140157415190440205470235610"
  478. 4380 H$( 7, 7)="135040148170180185200220235385"
  479. 4385 H$( 7, 8)="145140150205185225200250235415"
  480. 4390 H$( 7, 9)="145140151230185250200280235435"
  481. 4395 H$( 7,10)="145140152250185270200300235455"
  482. 4400 H$( 7,11)="145140153290185305200335235490"
  483. 4405 H$( 7,12)="145140154320185335200360235520"
  484. 4410 H$( 7,13)="145140156370185385200410235560"
  485. 4415 H$( 7,14)="145140157410185425200450235600"
  486. 4420 H$( 7,15)="145140157450190470205500235640"
  487. 4425 H$( 8, 8)="145140152240185260200290235445"
  488. 4430 H$( 8, 9)="145140152265185285200310235470"
  489. 4435 H$( 8,10)="145140153285185305200335235490"
  490. 4440 H$( 8,11)="145140155325185340200370235520"
  491. 4445 H$( 8,12)="145140155355190380205410235550"
  492. 4450 H$( 8,13)="145140156405190425205460235600"
  493. 4455 H$( 8,14)="145140157450190470205500235640"
  494. 4460 H$( 8,15)="145140158485190505205540235670"
  495. 4465 H$( 9, 9)="145140153290185310200335235490"
  496. 4470 H$( 9,10)="145140154310185330200355235510"
  497. 4475 H$( 9,11)="145140155350185365200390235540"
  498. 4480 H$( 9,12)="145140156380185395200420235570"
  499. 4485 H$( 9,13)="145140157430190450205485235620"
  500. 4490 H$( 9,14)="145140158470190495205525235660"
  501. 4495 H$( 9,15)="145140159510190530205560235695"
  502. 4500 H$(10,10)="145140154330185350200375235525"
  503. 4505 H$(10,11)="145140156372185386200410235560"
  504. 4510 H$(10,12)="145140157400190425205455235590"
  505. 4515 H$(10,13)="145140157450190470205505235640"
  506. 4520 H$(10,14)="145140158494190510205545235675"
  507. 4525 H$(10,15)="145140159530190550205580235715"
  508. 4530 H$(11,11)="145140152300156406200445235600"
  509. 4535 H$(11,12)="145140152300157440200475235620"
  510. 4540 H$(11,13)="145140152300158486200525235675"
  511. 4545 H$(11,14)="145140152300159530200565235710"
  512. 4550 H$(11,15)="145140152300159570200600235740"
  513. 4555 H$(12,12)="145140152300157465200505235650"
  514. 4560 H$(12,13)="145140152300158520200550235700"
  515. 4565 H$(12,14)="145140152300159560200595235735"
  516. 4570 H$(12,15)="145140152300160600200630235770"
  517. 4575 H$(13,13)="145140152300159570200605235745"
  518. 4580 H$(13,14)="145140152300160610200645235785"
  519. 4585 H$(13,15)="145140152300160645200685235820"
  520. 4590 H$(14,14)="145140152300160650200690235820"
  521. 4595 H$(14,15)="145140152300161690200725235860"
  522. 4600 H$(15,15)="145140152300160725205770235900"
  523. 4610 RETURN
  524.