home *** CD-ROM | disk | FTP | other *** search
/ CP/M / CPM_CDROM.iso / cpm / hamradio / vhfprop.bas < prev    next >
BASIC Source File  |  1994-07-13  |  25KB  |  520 lines
  1. 10 '
  2. 20 ' ************************************************************************
  3. 30 ' ** BY L.A. GERIG, R.R.#1, MONROEVILLE, IND  46773                     **
  4. 40 ' ** DOCUMENTATION HISTORY  JUL '85 & JAN '86 HAM RADIO MAGAZINE        **
  5. 50 ' **                        MAY '86 COMMUNICATIONS MAGAZINE             **
  6. 60 ' **                        AUG '86 RF DESIGN                           **
  7. 61 ' ** Authorized MBASIC 5.0 Adaptation by Jim Lill 6 May 87             **
  8. 62 ' ** Distribution Rights retained by original author and limited to    **
  9. 63 ' ** free and non-commercial usage.                                    **
  10. 74 ' ***********************************************************************
  11. 75 '
  12. 80 CLS$ = CHR$(26) : ' put your clearscreen here
  13. 90 GOSUB 970
  14. 100 PRINT:PRINT TAB(20)"  VHF/UHF/L-BAND PROPAGATION PROGRAM"
  15. 110 FOR J=1 TO 9:PRINT:NEXT
  16. 120 PRINT CLS$:PRINT
  17. 130 PRINT"THIS PROGRAM CALCULATES EXPECTED RANGES FOR VHF (100-175 MHZ),"
  18. 140 PRINT"UHF (225-400 MHZ), AND L-BAND (1-3.5 GHZ) FREQUENCIES.  APPROXIMATE"
  19. 150 PRINT"DYNAMIC RANGE IS FOR PATH LOSSES OF 125 TO 200 DB, COVERING MOST"
  20. 160 PRINT"APPLICATIONS FOR RECEIVER SENSITIVITY .5 TO 10 MICRO-VOLTS AND"
  21. 170 PRINT"TRANSMITTER POWER OF 1 TO 1000 WATTS.  THE PROGRAM COVERS ANTENNA"
  22. 180 PRINT"HEIGHTS FROM 25 FT TO 100,000 FT."
  23. 190 PRINT:PRINT"PROGRAM DEFAULTS TO RCVR SENS AND XMTR PWR IN DBM."
  24. 200 PRINT"WOULD YOU RATHER WORK WITH MICROVOLTS AND WATTS (Y=YES)";:INPUT D$
  25. 210 IF D$="y" THEN D$="Y"
  26. 220 PRINT:INPUT"WHAT IS DESIRED TITLE FOR HARDCOPY";T$
  27. 230 PRINT:INPUT"PRESS <V> FOR VHF, <U> FOR UHF, OR <L> FOR L-BAND";F$
  28. 240 IF F$="v" THEN F$="V"
  29. 250 IF F$="u" THEN F$="U"
  30. 260 IF F$="l" THEN F$="L"
  31. 270 IF F$="L" THEN GOSUB 3940:GOTO 320
  32. 280 IF F$="V" THEN GOSUB 1500:GOTO 320
  33. 290 IF F$="U" THEN GOSUB 2720:GOTO 320
  34. 300 IF F$="L" THEN GOSUB 3940:GOTO 320
  35. 310 GOTO 230
  36. 320 PRINT:GOSUB 1050:' SELECT FREQUENCY
  37. 330 PRINT:GOSUB 1080:' SELECT XMTR PWR & RCVR SENS
  38. 340 PRINT:GOSUB 1460:' SELECT ANTENNA GAINS
  39. 350 PRINT:GOSUB 1220:' SELECT ANTENNA HEIGHTS
  40. 360 PRINT CLS$:IF F$<>"L" THEN PRINT F$;"HF PROPAGATION:  FREQ =";F;"MHZ"
  41. 370 IF F$="L" THEN PRINT"L-BAND PROPAGATION:  FREQ =";F;"MHZ"
  42. 380 PRINT:PRINT"TRANSMITTER POWER OUT:";PD;TAB(30);"DBM"
  43. 390 PRINT TAB(22);PW;TAB(30);"WATTS"
  44. 400 PRINT:PRINT"RECEIVER SENSITIVITY: ";RD;TAB(30);"DBM"
  45. 410 PRINT TAB(22);RM;TAB(30);"UV"
  46. 420 PRINT:PRINT"LOWER ANTENNA : ";GL;"DBI @";H1;"FT"
  47. 430 PRINT"UPPER ANTENNA : ";GU;"DBI @";H2;"FT"
  48. 440 PRINT:PRINT"COAXIAL LINE LOSSES : ";LL;"DB"
  49. 450 PL=PD-RD+GU+GL-LL
  50. 460 DF=PL-37-20*LOG(F)/LOG(10)
  51. 470 DF=10^(DF/20):DF=INT(DF+.5)
  52. 480 PRINT:PRINT PL;"DB PATH"
  53. 490 PRINT"FREE SPACE PATH =";DF;"MILES"
  54. 500 PL=PL-20*LOG(F/F1)/LOG(10):PRINT
  55. 510 IF PL<P1 THEN PRINT"RANGE NOT IN PROGRAM:  <";S1;"MILES"
  56. 520 IF PL<P1 THEN PRINT TAB(23);"<";D1;"(NAUT MI)"
  57. 530 IF PL>P5 THEN PRINT "RANGE NOT IN PROGRAM:  >";S5;"MILES"
  58. 540 IF PL>P5 THEN PRINT TAB(23);">";D5;"(NAUT MI)"
  59. 550 IF PL>=P1 AND PL<P2 THEN DN=D1+(D2-D1)*(PL-P1)/(P2-P1)
  60. 560 IF PL>=P2 AND PL<P3 THEN DN=D2+(D3-D2)*(PL-P2)/(P3-P2)
  61. 570 IF PL>=P3 AND PL<P4 THEN DN=D3+(D4-D3)*(PL-P3)/(P4-P3)
  62. 580 IF PL>=P4 AND PL<P5 THEN DN=D4+(D5-D4)*(PL-P4)/(P5-P4)
  63. 590 DS=INT(DN*1.151+.5):DN=INT(DN+.5)
  64. 600 PRINT"MAXIMUM EXPECTED RANGE: ";DS;"MILES"
  65. 610 PRINT TAB(24);DN;"(NAUT MI)"
  66. 620 PRINT:PRINT LL$
  67. 630 PRINT"G=MODIFY ANT GAINS            H=MODIFY ANT HEIGHTS"
  68. 640 PRINT"X=MODIFY R/T SENS/PWR         F=NEW FREQ (SAME BAND)"
  69. 650 PRINT"P=PRINTER DUMP                R=RUN AGAIN"
  70. 660 INPUT "YOUR CHOICE";A$
  71. 670 PRINT:PRINT
  72. 680 IF A$="R" OR A$="r" THEN GOTO 220
  73. 690 IF A$="G" OR A$="g" THEN GOSUB 1460
  74. 700 IF A$="H" OR A$="h" THEN GOSUB 1220
  75. 710 IF A$="X" OR A$="x" THEN GOSUB 1080
  76. 720 IF A$="F" OR A$="f" THEN GOSUB 1050
  77. 730 IF A$="P" OR A$="p" THEN GOSUB 750
  78. 740 GOTO 360
  79. 750 ' SCFREEN DUMP TO PRINTER
  80. 760 LPRINT M$;LL$:LPRINT:LPRINT:LPRINT M$;"TITLE:  ";T$:LPRINT
  81. 770 IF F$<> "L" THEN LPRINT M$;F$"HF PROPAGATION:  FREQ ="F"MHZ
  82. 780 IF F$="L" THEN LPRINT M$;"L-BAND PROPAGATION:  FREQ ="F"MHZ
  83. 790 LPRINT:LPRINT M$;"TRANSMITTER POWER OUT:"PD;TAB(37);"DBM
  84. 800 LPRINT TAB(29);PW TAB(37)"WATTS"
  85. 810 LPRINT:LPRINT M$;"RECEIVER SENSITIVITY: "RD;TAB(37);"DBM
  86. 820 LPRINT TAB(29);RM TAB(37)"UV
  87. 830 LPRINT:LPRINT M$;"LOWER ANTENNA : "GL"DBI @"H1"FT
  88. 840 LPRINT M$;"UPPER ANTENNA:  "GU"DBI @"H2"FT
  89. 850 LPRINT:LPRINT M$;"COAXIAL LINE LOSSES: "LL"DB
  90. 860 LPRINT:LPRINT M$;PL"DB PATH
  91. 870 LPRINT:LPRINT M$;"FREE SPACE PATH ="DF"MILES":LPRINT
  92. 880 IF PL<P1 THEN LPRINT M$;"RANGE NOT IN PROGRAM: <"S1"MILES
  93. 890 IF PL<P1 THEN LPRINT TAB(30);"<"D1"(NAUT MI)"
  94. 900 IF PL>P5 THEN LPRINT M$;"RANGE NOT IN PROGRAM: >"S5"MILES
  95. 910 IF PL>P5 THEN LPRINT TAB(30);">"D5"(NAUT MI)"
  96. 920 IF PL<P1 OR PL>P5 THEN 950
  97. 930 LPRINT M$;"MAXIMUM EXPECTED RANGE:"DS"MILES
  98. 940 LPRINT TAB(31) ;DN"(NAUT MI)
  99. 950 LPRINT:LPRINT M$;LL$:LPRINT:LPRINT
  100. 960 RETURN
  101. 970 D$="N"
  102. 980 DIM H$(15,15)
  103. 990 DIM H(15)
  104. 1000 H(1)=25:H(2)=50:H(3)=100:H(4)=500:H(5)=1000:H(6)=2000
  105. 1010 H(7)=5000:H(8)=10000:H(9)=15000:H(10)=20000:H(11)=30000
  106. 1020 H(12)=40000!:H(13)=60000!:H(14)=80000!:H(15)=100000!
  107. 1030 LL$="---------------------------------------"
  108. 1040 M$="       ":RETURN
  109. 1050 PRINT"FREQUENCY IN MHZ (";FL;"-";FU;")";:INPUT F
  110. 1060 IF F<FL OR F>FU THEN 1050
  111. 1070 RETURN
  112. 1080 IF D$="Y" THEN INPUT"INPUT XMTR POWER (IN WATTS)";PW:GOTO 1130
  113. 1090 INPUT"INPUT XMTR POWER (IN DBM)";PD
  114. 1100 PW=(PD-30)/10:PW=10^PW
  115. 1110 IF PW>=1 THEN PW=INT(PW*10+.5)/10:GOTO 1140
  116. 1120 IF PW<1 THEN PW=INT(PW*1000+.5)/1000:GOTO 1140
  117. 1130 PD=10*LOG(PW)/LOG(10)+30:PD=INT(PD*10+.5)/10
  118. 1140 IF D$="Y" THEN INPUT"RCVR SENSITIVITY (IN MICRO-VOLTS)";RM:GOTO 1200
  119. 1150 INPUT"RCVR SENSITIVITY (IN DBM)";RD
  120. 1160 IF RD>0 THEN PRINT"<1 MW IS A NEGATIVE NUMBER":GOTO 1150
  121. 1170 RM=(RD+107)/20:RM=10^RM
  122. 1180 IF RM>=1 THEN RM=INT(RM*10+.5)/10:GOTO 1210
  123. 1190 IF RM<1 THEN RM=INT(RM*100+.5)/100:GOTO 1210
  124. 1200 RD=20*LOG(RM)/LOG(10)-107:RD=INT(RD*10+.5)/10
  125. 1210 RETURN
  126. 1220 ' ANTENNA HEIGHTS
  127. 1230 PRINT CLS$:PRINT"CHOOSE ANTENNA HEIGHTS BY SELECTING"
  128. 1240 PRINT"NUMBERS FROM THE FOLLOWING MENU":PRINT:PRINT
  129. 1250 PRINT"1 =   25'    6 =   2000'   11 =  30000'"
  130. 1260 PRINT"2 =   50'    7 =   5000'   12 =  40000'"
  131. 1270 PRINT"3 =  100'    8 =  10000'   13 =  60000'"
  132. 1280 PRINT"4 =  500'    9 =  15000'   14 =  80000'"
  133. 1290 PRINT"5 = 1000'   10 =  20000'   15 = 100000'"
  134. 1300 PRINT:PRINT
  135. 1310 INPUT"SELECT HEIGHT OF LOWER ANTENNA";H1
  136. 1320 INPUT"SELECT HEIGHT OF UPPER ANTENNA";H2
  137. 1330 IF H1<1 OR H2<1 OR H1>15 OR H2>15 THEN PRINT"NOT IN MENU"
  138. 1340 IF H1<1 OR H2<1 OR H1>15 OR H2>15 THEN GOTO 1310
  139. 1350 IF H1>H2 THEN PRINT"LOWER AND UPPER REVERSED"
  140. 1360 IF H1>H2 THEN GOTO 1310
  141. 1370 H$=H$(H1,H2):H1=H(H1):H2=H(H2)
  142. 1380 P1=VAL(MID$(H$,1,3)):D1=VAL(MID$(H$,4,3))
  143. 1390 P2=VAL(MID$(H$,7,3)):D2=VAL(MID$(H$,10,3))
  144. 1400 P3=VAL(MID$(H$,13,3)):D3=VAL(MID$(H$,16,3))
  145. 1410 P4=VAL(MID$(H$,19,3)):D4=VAL(MID$(H$,22,3))
  146. 1420 P5=VAL(MID$(H$,25,3)):D5=VAL(MID$(H$,28,3))
  147. 1430 S1=INT(D1*1.151+.5)
  148. 1440 S5=INT(D5*1.151+.5)
  149. 1450 PRINT:PRINT:PRINT:PRINT:RETURN
  150. 1460 INPUT"GAIN OF LOWER ANTENNA (IN DBI)";GL
  151. 1470 INPUT"GAIN OF UPPER ANTENNA (IN DBI)";GU
  152. 1480 INPUT"COAXIAL LINE LOSSES (IN DB)";LL
  153. 1490 RETURN
  154. 1500 F1=125:FL=100:FU=175:' VHF DATA
  155. 1510 H$( 1, 1)="140010160025170035176050225340"
  156. 1520 H$( 1, 2)="135010160030170046175065225360"
  157. 1530 H$( 1, 3)="130010160037170055175075225385"
  158. 1540 H$( 1, 4)="117010162060170075175100225405"
  159. 1550 H$( 1, 5)="113010165070169085173100225415"
  160. 1560 H$( 1, 6)="105010158080170100175120225425"
  161. 1570 H$( 1, 7)="100010140085170130177160218400"
  162. 1580 H$( 1, 8)="118060132100170165176180213400"
  163. 1590 H$( 1, 9)="125100150160175195185260210400"
  164. 1600 H$( 1,10)="126120145170165200175215215450"
  165. 1610 H$( 1,11)="130160150210177250186320210440"
  166. 1620 H$( 1,12)="128180150240177285188360210470"
  167. 1630 H$( 1,13)="128220145280178330188400210510"
  168. 1640 H$( 1,14)="132270150330177365189440210550"
  169. 1650 H$( 1,15)="132300150365178410189480210580"
  170. 1660 H$( 2, 2)="125010155030165045170060210300"
  171. 1670 H$( 2, 3)="120010150032165050175105210310"
  172. 1680 H$( 2, 4)="110010158060167080183180205300"
  173. 1690 H$( 2, 5)="105010160075168100180170207320"
  174. 1700 H$( 2, 6)="110030163090170120183200208340"
  175. 1710 H$( 2, 7)="115050133085162125168140210370"
  176. 1720 H$( 2, 8)="120090148140165160170175210400"
  177. 1730 H$( 2, 9)="125120150165170195180260210420"
  178. 1740 H$( 2,10)="125140140170171215185300210440"
  179. 1750 H$( 2,11)="130180145215171250182320205440"
  180. 1760 H$( 2,12)="130210150250173285185360211500"
  181. 1770 H$( 2,13)="130255150300174335187420206510"
  182. 1780 H$( 2,14)="130290150340173370190470208560"
  183. 1790 H$( 2,15)="135340150375174410185480208600"
  184. 1800 H$( 3, 3)="125015155045166065174120203280"
  185. 1810 H$( 3, 4)="115020152060163080177160203300"
  186. 1820 H$( 3, 5)="110020152070165100195260210355"
  187. 1830 H$( 3, 6)="110030150080164110195275209360"
  188. 1840 H$( 3, 7)="115060140100164135196300211400"
  189. 1850 H$( 3, 8)="125110158160167175184270204380"
  190. 1860 H$( 3, 9)="125130140160165195172220205410"
  191. 1870 H$( 3,10)="125150135170165215172240205430"
  192. 1880 H$( 3,11)="125185145220165250173280210500"
  193. 1890 H$( 3,12)="130220138240165280175320203480"
  194. 1900 H$( 3,13)="130270145300160320170340203520"
  195. 1910 H$( 3,14)="135320165370175400180440203560"
  196. 1920 H$( 3,15)="135355163400175435178460204600"
  197. 1930 H$( 4, 4)="110030150080159095165120204330"
  198. 1940 H$( 4, 5)="115045151090160110170155204340"
  199. 1950 H$( 4, 6)="116060155110161125176200204350"
  200. 1960 H$( 4, 7)="123100156145165165190295210420"
  201. 1970 H$( 4, 8)="125135157180165200195350210450"
  202. 1980 H$( 4, 9)="130170160210168235199400218500"
  203. 1990 H$( 4,10)="130190158225168260195400210495"
  204. 2000 H$( 4,11)="130225160260170295184375205485"
  205. 2010 H$( 4,12)="135260160294169320183400203500"
  206. 2020 H$( 4,13)="125180129300163350172380202540"
  207. 2030 H$( 4,14)="125180130340162385173420205600"
  208. 2040 H$( 4,15)="125180132380165430174460204620"
  209. 2050 H$( 5, 5)="116065144090155110165140203340"
  210. 2060 H$( 5, 6)="120080145110160135170180204360"
  211. 2070 H$( 5, 7)="125120145140158160165180203380"
  212. 2080 H$( 5, 8)="125150150180162200167215202400"
  213. 2090 H$( 5, 9)="125174150205160220165234201420"
  214. 2100 H$( 5,10)="127200150225159240166260200435"
  215. 2110 H$( 5,11)="129235155265160275165286202480"
  216. 2120 H$( 5,12)="125180128266160305167325201500"
  217. 2130 H$( 5,13)="125180130315157350168374200540"
  218. 2140 H$( 5,14)="128260131355150380168410203600"
  219. 2150 H$( 5,15)="128260132395160430170455199600"
  220. 2160 H$( 6, 6)="125100150130160150168180200350"
  221. 2170 H$( 6, 7)="122130149160160180170220200375"
  222. 2180 H$( 6, 8)="125166154200160210168240200405"
  223. 2190 H$( 6, 9)="125190150220160235168265200430"
  224. 2200 H$( 6,10)="126212150240160260167275200445"
  225. 2210 H$( 6,11)="129250153280163300170325200480"
  226. 2220 H$( 6,12)="125180129285150306166335200510"
  227. 2230 H$( 6,13)="125180130330155360168390205590"
  228. 2240 H$( 6,14)="127220131370155405169430205620"
  229. 2250 H$( 6,15)="127220132410155440168465200625"
  230. 2260 H$( 7, 7)="125165150195160210169240200400"
  231. 2270 H$( 7, 8)="125200143220157240166260200430"
  232. 2280 H$( 7, 9)="127225155260164280170300200460"
  233. 2290 H$( 7,10)="128250153280164300170320201480"
  234. 2300 H$( 7,11)="130285150310160325166340200510"
  235. 2310 H$( 7,12)="125180129315150340167370200535"
  236. 2320 H$( 7,13)="127230130365156395170425200580"
  237. 2330 H$( 7,14)="127230132405158440170465200620"
  238. 2340 H$( 7,15)="127230133445155470170500200650"
  239. 2350 H$( 8, 8)="129235155265163280168300200460"
  240. 2360 H$( 8, 9)="130260155290160300168320203500"
  241. 2370 H$( 8,10)="130280155310164330169350200505"
  242. 2380 H$( 8,11)="130320150340162360170385200540"
  243. 2390 H$( 8,12)="125180131350157380170410200565"
  244. 2400 H$( 8,13)="125180132395160435170460200605"
  245. 2410 H$( 8,14)="127230133440156470170500200650"
  246. 2420 H$( 8,15)="127230133475160510175555205720"
  247. 2430 H$( 9, 9)="130290145305157320166340200505"
  248. 2440 H$( 9,10)="130305155340165360170375205560"
  249. 2450 H$( 9,11)="130345156375167400175430205595"
  250. 2460 H$( 9,12)="125180131374155405170440200590"
  251. 2470 H$( 9,13)="127240132425159460170485201640"
  252. 2480 H$( 9,14)="130320133465160505170525200675"
  253. 2490 H$( 9,15)="130320133500160540175580200710"
  254. 2500 H$(10,10)="125180130330165380175415202560"
  255. 2510 H$(10,11)="125180132370155395170430205615"
  256. 2520 H$(10,12)="127230132395160435175475205640"
  257. 2530 H$(10,13)="129280133450155475172510201660"
  258. 2540 H$(10,14)="130300133490155515172550205725"
  259. 2550 H$(10,15)="130300134525165570178620205760"
  260. 2560 H$(11,11)="125180133400160440175480205650"
  261. 2570 H$(11,12)="130300133435155460172500205675"
  262. 2580 H$(11,13)="130300134485165530180580205725"
  263. 2590 H$(11,14)="130300135525160560175600205760"
  264. 2600 H$(11,15)="130300135560165605180655205800"
  265. 2610 H$(12,12)="130300133460163505175540205700"
  266. 2620 H$(12,13)="130300134515167560177600205750"
  267. 2630 H$(12,14)="130300135555165600178640210820"
  268. 2640 H$(12,15)="130300135590160625175660205825"
  269. 2650 H$(13,13)="130300135560162600175635200760"
  270. 2660 H$(13,14)="130300135605160635175675200805"
  271. 2670 H$(13,15)="130300136640161675177715200840"
  272. 2680 H$(14,14)="130300136645170700185760208900"
  273. 2690 H$(14,15)="130300137685162720177760210940"
  274. 2700 H$(15,15)="130300137720163760179800210980"
  275. 2710 RETURN
  276. 2720 F1=300:FL=225:FU=500:' UHF DATA
  277. 2730 H$( 1, 1)="142010170030178050187100225315"
  278. 2740 H$( 1, 2)="136010150020170035178060220300"
  279. 2750 H$( 1, 3)="130010150025170045176060215275"
  280. 2760 H$( 1, 4)="125020168055176070185125210260"
  281. 2770 H$( 1, 5)="120020165065175080185135210270"
  282. 2780 H$( 1, 6)="127040145060170085177100215305"
  283. 2790 H$( 1, 7)="127060140080174120178130210305"
  284. 2800 H$( 1, 8)="126085140110176155180166200280"
  285. 2810 H$( 1, 9)="132120145145175180181190200300"
  286. 2820 H$( 1,10)="135145150170175195180210215400"
  287. 2830 H$( 1,11)="135175145200177235181245200355"
  288. 2840 H$( 1,12)="140220150235175265183280200380"
  289. 2850 H$( 1,13)="140260150285180320185330200430"
  290. 2860 H$( 1,14)="140300150325179360185370200465"
  291. 2870 H$( 1,15)="140333151360180395187410200500"
  292. 2880 H$( 2, 2)="132010155030166040175060215280"
  293. 2890 H$( 2, 3)="125010150030164045175070213280"
  294. 2900 H$( 2, 4)="120020165060170070175090210270"
  295. 2910 H$( 2, 5)="120030165070171080175096210280"
  296. 2920 H$( 2, 6)="120040137060167090173100210290"
  297. 2930 H$( 2, 7)="125070140090170125176135210320"
  298. 2940 H$( 2, 8)="131110140125170155178175205320"
  299. 2950 H$( 2, 9)="135135151160170180177190205340"
  300. 2960 H$( 2,10)="135160150180170205179220205360"
  301. 2970 H$( 2,11)="140200145210173240180255205400"
  302. 2980 H$( 2,12)="140230147240172270180285205425"
  303. 2990 H$( 2,13)="140275148290173320181335200445"
  304. 3000 H$( 2,14)="137308148330175365184380200480"
  305. 3010 H$( 2,15)="139350150370175395184420197500"
  306. 3020 H$( 3, 3)="120010140025160045170060205240"
  307. 3030 H$( 3, 4)="118020160060170075183140210280"
  308. 3040 H$( 3, 5)="120030160070167080173100205260"
  309. 3050 H$( 3, 6)="122050155080168100175120210300"
  310. 3060 H$( 3, 7)="130080155110170130175145210325"
  311. 3070 H$( 3, 8)="135120168160173170177180210360"
  312. 3080 H$( 3, 9)="132140166180175195180220210380"
  313. 3090 H$( 3,10)="132160145180165200177220210400"
  314. 3100 H$( 3,11)="135200150220170245177255215460"
  315. 3110 H$( 3,12)="135230150250173280180300210460"
  316. 3120 H$( 3,13)="138280150300172320180345210500"
  317. 3130 H$( 3,14)="139320150340170360180380210540"
  318. 3140 H$( 3,15)="140355155380172400180415210580"
  319. 3150 H$( 4, 4)="120040155070165085175115205265"
  320. 3160 H$( 4, 5)="125055153080167100175125210305"
  321. 3170 H$( 4, 6)="125072157100170120180160210315"
  322. 3180 H$( 4, 7)="128105160135170150178180210345"
  323. 3190 H$( 4, 8)="132145155165168180177200215400"
  324. 3200 H$( 4, 9)="135170158190172210180240210395"
  325. 3210 H$( 4,10)="135192165215175240180260210420"
  326. 3220 H$( 4,11)="135225165255175275180290210450"
  327. 3230 H$( 4,12)="138260160280172295180320215500"
  328. 3240 H$( 4,13)="140310155325170340180365210520"
  329. 3250 H$( 4,14)="140352160370171385180406210560"
  330. 3260 H$( 4,15)="140390154400170420180440210590"
  331. 3270 H$( 5, 5)="124065160100171120177140210310"
  332. 3280 H$( 5, 6)="127085160115170130178160206300"
  333. 3290 H$( 5, 7)="130115160144170160177180210350"
  334. 3300 H$( 5, 8)="132150155170168190176206210380"
  335. 3310 H$( 5, 9)="133175159200170215175230210400"
  336. 3320 H$( 5,10)="135200158220170235178260210425"
  337. 3330 H$( 5,11)="135232161260173280179300210455"
  338. 3340 H$( 5,12)="136265160290171305180330210485"
  339. 3350 H$( 5,13)="139320160340174360180380210530"
  340. 3360 H$( 5,14)="140360160380174400180415210560"
  341. 3370 H$( 5,15)="140394165420175436182455210600"
  342. 3380 H$( 6, 6)="128105149120166140176166210340"
  343. 3390 H$( 6, 7)="132135159160170175177195210360"
  344. 3400 H$( 6, 8)="134170156190171210178230211400"
  345. 3410 H$( 6, 9)="134195161220170232177250211420"
  346. 3420 H$( 6,10)="136220160240171255179280211440"
  347. 3430 H$( 6,11)="138254165280173295179315210470"
  348. 3440 H$( 6,12)="137285155300170315178340211500"
  349. 3450 H$( 6,13)="138330165360174375181395210540"
  350. 3460 H$( 6,14)="140375164400175415181430210580"
  351. 3470 H$( 6,15)="143415167440176455184480210610"
  352. 3480 H$( 7, 7)="132165165200175220180240205363"
  353. 3490 H$( 7, 8)="135205156220170240180270210420"
  354. 3500 H$( 7, 9)="136230160250170265180295210445"
  355. 3510 H$( 7,10)="130130135245165275176300210460"
  356. 3520 H$( 7,11)="131140137288168315178335210495"
  357. 3530 H$( 7,12)="133200138315165345180375210525"
  358. 3540 H$( 7,13)="133200139368170400182430212580"
  359. 3550 H$( 7,14)="135240140410170440180465210610"
  360. 3560 H$( 7,15)="135240140445165470180495210640"
  361. 3570 H$( 8, 8)="130140135235165260180300210450"
  362. 3580 H$( 8, 9)="130140136255165290177310210470"
  363. 3590 H$( 8,10)="130140137280165310178340205470"
  364. 3600 H$( 8,11)="130140138320165346178370210520"
  365. 3610 H$( 8,12)="135240138350168380179405210550"
  366. 3620 H$( 8,13)="135240139400170430180455210600"
  367. 3630 H$( 8,14)="135240140445170470180495210640"
  368. 3640 H$( 8,15)="137300141480170510182540210670"
  369. 3650 H$( 9, 9)="132160137286169320183360210500"
  370. 3660 H$( 9,10)="132160138310169340183380210515"
  371. 3670 H$( 9,11)="135240138347170380180405210550"
  372. 3680 H$( 9,12)="135240139375163400182440210575"
  373. 3690 H$( 9,13)="135240140425170460181485210620"
  374. 3700 H$( 9,14)="135240141465170500181525210660"
  375. 3710 H$( 9,15)="138340142505165530181560210695"
  376. 3720 H$(10,10)="135240138330167360180390210530"
  377. 3730 H$(10,11)="135240138370168400180425208560"
  378. 3740 H$(10,12)="135240139395170430182460210595"
  379. 3750 H$(10,13)="135240140446170480185520210640"
  380. 3760 H$(10,14)="137300141490170520180545210680"
  381. 3770 H$(10,15)="137300142525170555185595210715"
  382. 3780 H$(11,11)="135240140405165430180455210600"
  383. 3790 H$(11,12)="135240140430165460181490210630"
  384. 3800 H$(11,13)="137300141485172520183550210670"
  385. 3810 H$(11,14)="137300142528172560185590210715"
  386. 3820 H$(11,15)="138300143565170592185630210750"
  387. 3830 H$(12,12)="140400141465175505184530210660"
  388. 3840 H$(12,13)="140400142515172550187590210705"
  389. 3850 H$(12,14)="140400143555165580185620209740"
  390. 3860 H$(12,15)="140400143590175635188670210780"
  391. 3870 H$(13,13)="138360142565170595186630210755"
  392. 3880 H$(13,14)="138360143608170640185670210790"
  393. 3890 H$(13,15)="138360144645178690191730210830"
  394. 3900 H$(14,14)="140420143647170680185710210830"
  395. 3910 H$(14,15)="140420144686170715188755210870"
  396. 3920 H$(15,15)="140400145720170750190800210900"
  397. 3930 RETURN
  398. 3940 F1=1600:FL=1000:FU=3500:' L-BAND DATA
  399. 3950 H$( 1, 1)="140010175024190050200088224208"
  400. 3960 H$( 1, 2)="140012175028190057200092225212"
  401. 3970 H$( 1, 3)="140014175032190060200098225218"
  402. 3980 H$( 1, 4)="140030175045190070200106225225"
  403. 3990 H$( 1, 5)="140040175060190080200115225235"
  404. 4000 H$( 1, 6)="140056175072190092200128225248"
  405. 4010 H$( 1, 7)="145088180105190120200150230300"
  406. 4020 H$( 1, 8)="145120180140190150200180235360"
  407. 4030 H$( 1, 9)="150150180165190175200205235380"
  408. 4040 H$( 1,10)="141080148170185190200220235400"
  409. 4050 H$( 1,11)="141080149205185225200255235430"
  410. 4060 H$( 1,12)="144120151237185255200280235460"
  411. 4070 H$( 1,13)="144120153290185305200330235500"
  412. 4080 H$( 1,14)="144120154332185347200370235540"
  413. 4090 H$( 1,15)="148190155365185384200405235575"
  414. 4100 H$( 2, 2)="130009175030190060200095230240"
  415. 4110 H$( 2, 3)="130010175036190062200100230245"
  416. 4120 H$( 2, 4)="135027175052190078200110230258"
  417. 4130 H$( 2, 5)="135040175060190085200120230265"
  418. 4140 H$( 2, 6)="140060180080190100200135230275"
  419. 4150 H$( 2, 7)="135040142090180110195140230300"
  420. 4160 H$( 2, 8)="135040145125185150200190230332"
  421. 4170 H$( 2, 9)="139070146150180167195195235380"
  422. 4180 H$( 2,10)="142090148170185195200230235400"
  423. 4190 H$( 2,11)="145125150210185230200260235430"
  424. 4200 H$( 2,12)="145125150240185260200290235460"
  425. 4210 H$( 2,13)="145125152290185310200335235500"
  426. 4220 H$( 2,14)="145125153332185350200375235540"
  427. 4230 H$( 2,15)="145125155370185385201415235575"
  428. 4240 H$( 3, 3)="130015175040190065200105230250"
  429. 4250 H$( 3, 4)="135035175055190078200120230260"
  430. 4260 H$( 3, 5)="135045175065190086200126230270"
  431. 4270 H$( 3, 6)="138060175080190100200140235310"
  432. 4280 H$( 3, 7)="138060142095180115195140235335"
  433. 4290 H$( 3, 8)="138060145130180145195170235360"
  434. 4300 H$( 3, 9)="138060147155180173195195235385"
  435. 4310 H$( 3,10)="138060148175185200200235235405"
  436. 4320 H$( 3,11)="145130150212185235200265235440"
  437. 4330 H$( 3,12)="145130150245185265200295235460"
  438. 4340 H$( 3,13)="145130152295185315200340235505"
  439. 4350 H$( 3,14)="145130153340185355200380235545"
  440. 4360 H$( 3,15)="145130154375185390200415235580"
  441. 4370 H$( 4, 4)="135040136050175067195105235300"
  442. 4380 H$( 4, 5)="135040138060175075195115235305"
  443. 4390 H$( 4, 6)="135040140075180095198140235320"
  444. 4400 H$( 4, 7)="135040143105185133200175235340"
  445. 4410 H$( 4, 8)="140075147140185165200205235370"
  446. 4420 H$( 4, 9)="140075148170185190200225235390"
  447. 4430 H$( 4,10)="140075149190185215200245235410"
  448. 4440 H$( 4,11)="140075151230185250200280235445"
  449. 4450 H$( 4,12)="145140152260185280200305235470"
  450. 4460 H$( 4,13)="145140153308185330200355235520"
  451. 4470 H$( 4,14)="145140154350185370200395235555"
  452. 4480 H$( 4,15)="145140155390185405200415235585"
  453. 4490 H$( 5, 5)="135040140072180090195120235315"
  454. 4500 H$( 5, 6)="135040142090180110195140235325"
  455. 4510 H$( 5, 7)="135040145120180140195165235350"
  456. 4520 H$( 5, 8)="140072147160180170195195235380"
  457. 4530 H$( 5, 9)="140072148182180200195220235400"
  458. 4540 H$( 5,10)="140072149205185225200260235420"
  459. 4550 H$( 5,11)="145140151240185260200295235455"
  460. 4560 H$( 5,12)="145140152270185295200320235480"
  461. 4570 H$( 5,13)="145140154320185340200370235525"
  462. 4580 H$( 5,14)="145140155365185380200405235565"
  463. 4590 H$( 5,15)="145140156400185416200440235600"
  464. 4600 H$( 6, 6)="135040143105185130200170235340"
  465. 4610 H$( 6, 7)="135040146136185160200200235360"
  466. 4620 H$( 6, 8)="143105149172185190200225235395"
  467. 4630 H$( 6, 9)="143105150197185215200250235410"
  468. 4640 H$( 6,10)="143105151220185240200270235430"
  469. 4650 H$( 6,11)="143105151255185275200305235465"
  470. 4660 H$( 6,12)="145140153290185305200330235495"
  471. 4670 H$( 6,13)="145140155340185355200380235540"
  472. 4680 H$( 6,14)="145140155380185395200420235575"
  473. 4690 H$( 6,15)="145140157415190440205470235610"
  474. 4700 H$( 7, 7)="135040148170180185200220235385"
  475. 4710 H$( 7, 8)="145140150205185225200250235415"
  476. 4720 H$( 7, 9)="145140151230185250200280235435"
  477. 4730 H$( 7,10)="145140152250185270200300235455"
  478. 4740 H$( 7,11)="145140153290185305200335235490"
  479. 4750 H$( 7,12)="145140154320185335200360235520"
  480. 4760 H$( 7,13)="145140156370185385200410235560"
  481. 4770 H$( 7,14)="145140157410185425200450235600"
  482. 4780 H$( 7,15)="145140157450190470205500235640"
  483. 4790 H$( 8, 8)="145140152240185260200290235445"
  484. 4800 H$( 8, 9)="145140152265185285200310235470"
  485. 4810 H$( 8,10)="145140153285185305200335235490"
  486. 4820 H$( 8,11)="145140155325185340200370235520"
  487. 4830 H$( 8,12)="145140155355190380205410235550"
  488. 4840 H$( 8,13)="145140156405190425205460235600"
  489. 4850 H$( 8,14)="145140157450190470205500235640"
  490. 4860 H$( 8,15)="145140158485190505205540235670"
  491. 4870 H$( 9, 9)="145140153290185310200335235490"
  492. 4880 H$( 9,10)="145140154310185330200355235510"
  493. 4890 H$( 9,11)="145140155350185365200390235540"
  494. 4900 H$( 9,12)="145140156380185395200420235570"
  495. 4910 H$( 9,13)="145140157430190450205485235620"
  496. 4920 H$( 9,14)="145140158470190495205525235660"
  497. 4930 H$( 9,15)="145140159510190530205560235695"
  498. 4940 H$(10,10)="145140154330185350200375235525"
  499. 4950 H$(10,11)="145140156372185386200410235560"
  500. 4960 H$(10,12)="145140157400190425205455235590"
  501. 4970 H$(10,13)="145140157450190470205505235640"
  502. 4980 H$(10,14)="145140158494190510205545235675"
  503. 4990 H$(10,15)="145140159530190550205580235715"
  504. 5000 H$(11,11)="145140152300156406200445235600"
  505. 5010 H$(11,12)="145140152300157440200475235620"
  506. 5020 H$(11,13)="145140152300158486200525235675"
  507. 5030 H$(11,14)="145140152300159530200565235710"
  508. 5040 H$(11,15)="145140152300159570200600235740"
  509. 5050 H$(12,12)="145140152300157465200505235650"
  510. 5060 H$(12,13)="145140152300158520200550235700"
  511. 5070 H$(12,14)="145140152300159560200595235735"
  512. 5080 H$(12,15)="145140152300160600200630235770"
  513. 5090 H$(13,13)="145140152300159570200605235745"
  514. 5100 H$(13,14)="145140152300160610200645235785"
  515. 5110 H$(13,15)="145140152300160645200685235820"
  516. 5120 H$(14,14)="145140152300160650200690235820"
  517. 5130 H$(14,15)="145140152300161690200725235860"
  518. 5140 H$(15,15)="145140152300160725205770235900"
  519. 5150 RETURN
  520.