10 '
20 ' ************************************************************************
30 ' ** BY L.A. GERIG, R.R.#1, MONROEVILLE, IND  46773                     **
40 ' ** DOCUMENTATION HISTORY  JUL '85 & JAN '86 HAM RADIO MAGAZINE        **
50 ' **                        MAY '86 COMMUNICATIONS MAGAZINE             **
60 ' **                        AUG '86 RF DESIGN                           **
61 ' ** Authorized MBASIC 5.0 Adaptation by Jim Lill 6 May 87             **
62 ' ** Distribution Rights retained by original author and limited to    **
63 ' ** free and non-commercial usage.                                    **
74 ' ***********************************************************************
75 '
80 CLS$ = CHR$(26) : ' put your clearscreen here
90 GOSUB 970
100 PRINT:PRINT TAB(20)"  VHF/UHF/L-BAND PROPAGATION PROGRAM"
110 FOR J=1 TO 9:PRINT:NEXT
120 PRINT CLS$:PRINT
130 PRINT"THIS PROGRAM CALCULATES EXPECTED RANGES FOR VHF (100-175 MHZ),"
140 PRINT"UHF (225-400 MHZ), AND L-BAND (1-3.5 GHZ) FREQUENCIES.  APPROXIMATE"
150 PRINT"DYNAMIC RANGE IS FOR PATH LOSSES OF 125 TO 200 DB, COVERING MOST"
160 PRINT"APPLICATIONS FOR RECEIVER SENSITIVITY .5 TO 10 MICRO-VOLTS AND"
170 PRINT"TRANSMITTER POWER OF 1 TO 1000 WATTS.  THE PROGRAM COVERS ANTENNA"
180 PRINT"HEIGHTS FROM 25 FT TO 100,000 FT."
190 PRINT:PRINT"PROGRAM DEFAULTS TO RCVR SENS AND XMTR PWR IN DBM."
200 PRINT"WOULD YOU RATHER WORK WITH MICROVOLTS AND WATTS (Y=YES)";:INPUT D$
210 IF D$="y" THEN D$="Y"
220 PRINT:INPUT"WHAT IS DESIRED TITLE FOR HARDCOPY";T$
230 PRINT:INPUT"PRESS <V> FOR VHF, <U> FOR UHF, OR <L> FOR L-BAND";F$
240 IF F$="v" THEN F$="V"
250 IF F$="u" THEN F$="U"
260 IF F$="l" THEN F$="L"
270 IF F$="L" THEN GOSUB 3940:GOTO 320
280 IF F$="V" THEN GOSUB 1500:GOTO 320
290 IF F$="U" THEN GOSUB 2720:GOTO 320
300 IF F$="L" THEN GOSUB 3940:GOTO 320
310 GOTO 230
320 PRINT:GOSUB 1050:' SELECT FREQUENCY
330 PRINT:GOSUB 1080:' SELECT XMTR PWR & RCVR SENS
340 PRINT:GOSUB 1460:' SELECT ANTENNA GAINS
350 PRINT:GOSUB 1220:' SELECT ANTENNA HEIGHTS
360 PRINT CLS$:IF F$<>"L" THEN PRINT F$;"HF PROPAGATION:  FREQ =";F;"MHZ"
370 IF F$="L" THEN PRINT"L-BAND PROPAGATION:  FREQ =";F;"MHZ"
380 PRINT:PRINT"TRANSMITTER POWER OUT:";PD;TAB(30);"DBM"
390 PRINT TAB(22);PW;TAB(30);"WATTS"
400 PRINT:PRINT"RECEIVER SENSITIVITY: ";RD;TAB(30);"DBM"
410 PRINT TAB(22);RM;TAB(30);"UV"
420 PRINT:PRINT"LOWER ANTENNA : ";GL;"DBI @";H1;"FT"
430 PRINT"UPPER ANTENNA : ";GU;"DBI @";H2;"FT"
440 PRINT:PRINT"COAXIAL LINE LOSSES : ";LL;"DB"
450 PL=PD-RD+GU+GL-LL
460 DF=PL-37-20*LOG(F)/LOG(10)
470 DF=10^(DF/20):DF=INT(DF+.5)
480 PRINT:PRINT PL;"DB PATH"
490 PRINT"FREE SPACE PATH =";DF;"MILES"
500 PL=PL-20*LOG(F/F1)/LOG(10):PRINT
510 IF PL<P1 THEN PRINT"RANGE NOT IN PROGRAM:  <";S1;"MILES"
520 IF PL<P1 THEN PRINT TAB(23);"<";D1;"(NAUT MI)"
530 IF PL>P5 THEN PRINT "RANGE NOT IN PROGRAM:  >";S5;"MILES"
540 IF PL>P5 THEN PRINT TAB(23);">";D5;"(NAUT MI)"
550 IF PL>=P1 AND PL<P2 THEN DN=D1+(D2-D1)*(PL-P1)/(P2-P1)
560 IF PL>=P2 AND PL<P3 THEN DN=D2+(D3-D2)*(PL-P2)/(P3-P2)
570 IF PL>=P3 AND PL<P4 THEN DN=D3+(D4-D3)*(PL-P3)/(P4-P3)
580 IF PL>=P4 AND PL<P5 THEN DN=D4+(D5-D4)*(PL-P4)/(P5-P4)
590 DS=INT(DN*1.151+.5):DN=INT(DN+.5)
600 PRINT"MAXIMUM EXPECTED RANGE: ";DS;"MILES"
610 PRINT TAB(24);DN;"(NAUT MI)"
620 PRINT:PRINT LL$
630 PRINT"G=MODIFY ANT GAINS            H=MODIFY ANT HEIGHTS"
640 PRINT"X=MODIFY R/T SENS/PWR         F=NEW FREQ (SAME BAND)"
650 PRINT"P=PRINTER DUMP                R=RUN AGAIN"
660 INPUT "YOUR CHOICE";A$
670 PRINT:PRINT
680 IF A$="R" OR A$="r" THEN GOTO 220
690 IF A$="G" OR A$="g" THEN GOSUB 1460
700 IF A$="H" OR A$="h" THEN GOSUB 1220
710 IF A$="X" OR A$="x" THEN GOSUB 1080
720 IF A$="F" OR A$="f" THEN GOSUB 1050
730 IF A$="P" OR A$="p" THEN GOSUB 750
740 GOTO 360
750 ' SCFREEN DUMP TO PRINTER
760 LPRINT M$;LL$:LPRINT:LPRINT:LPRINT M$;"TITLE:  ";T$:LPRINT
770 IF F$<> "L" THEN LPRINT M$;F$"HF PROPAGATION:  FREQ ="F"MHZ
780 IF F$="L" THEN LPRINT M$;"L-BAND PROPAGATION:  FREQ ="F"MHZ
790 LPRINT:LPRINT M$;"TRANSMITTER POWER OUT:"PD;TAB(37);"DBM
800 LPRINT TAB(29);PW TAB(37)"WATTS"
810 LPRINT:LPRINT M$;"RECEIVER SENSITIVITY: "RD;TAB(37);"DBM
820 LPRINT TAB(29);RM TAB(37)"UV
830 LPRINT:LPRINT M$;"LOWER ANTENNA : "GL"DBI @"H1"FT
840 LPRINT M$;"UPPER ANTENNA:  "GU"DBI @"H2"FT
850 LPRINT:LPRINT M$;"COAXIAL LINE LOSSES: "LL"DB
860 LPRINT:LPRINT M$;PL"DB PATH
870 LPRINT:LPRINT M$;"FREE SPACE PATH ="DF"MILES":LPRINT
880 IF PL<P1 THEN LPRINT M$;"RANGE NOT IN PROGRAM: <"S1"MILES
890 IF PL<P1 THEN LPRINT TAB(30);"<"D1"(NAUT MI)"
900 IF PL>P5 THEN LPRINT M$;"RANGE NOT IN PROGRAM: >"S5"MILES
910 IF PL>P5 THEN LPRINT TAB(30);">"D5"(NAUT MI)"
920 IF PL<P1 OR PL>P5 THEN 950
930 LPRINT M$;"MAXIMUM EXPECTED RANGE:"DS"MILES
940 LPRINT TAB(31) ;DN"(NAUT MI)
950 LPRINT:LPRINT M$;LL$:LPRINT:LPRINT
960 RETURN
970 D$="N"
980 DIM H$(15,15)
990 DIM H(15)
1000 H(1)=25:H(2)=50:H(3)=100:H(4)=500:H(5)=1000:H(6)=2000
1010 H(7)=5000:H(8)=10000:H(9)=15000:H(10)=20000:H(11)=30000
1020 H(12)=40000!:H(13)=60000!:H(14)=80000!:H(15)=100000!
1030 LL$="---------------------------------------"
1040 M$="       ":RETURN
1050 PRINT"FREQUENCY IN MHZ (";FL;"-";FU;")";:INPUT F
1060 IF F<FL OR F>FU THEN 1050
1070 RETURN
1080 IF D$="Y" THEN INPUT"INPUT XMTR POWER (IN WATTS)";PW:GOTO 1130
1090 INPUT"INPUT XMTR POWER (IN DBM)";PD
1100 PW=(PD-30)/10:PW=10^PW
1110 IF PW>=1 THEN PW=INT(PW*10+.5)/10:GOTO 1140
1120 IF PW<1 THEN PW=INT(PW*1000+.5)/1000:GOTO 1140
1130 PD=10*LOG(PW)/LOG(10)+30:PD=INT(PD*10+.5)/10
1140 IF D$="Y" THEN INPUT"RCVR SENSITIVITY (IN MICRO-VOLTS)";RM:GOTO 1200
1150 INPUT"RCVR SENSITIVITY (IN DBM)";RD
1160 IF RD>0 THEN PRINT"<1 MW IS A NEGATIVE NUMBER":GOTO 1150
1170 RM=(RD+107)/20:RM=10^RM
1180 IF RM>=1 THEN RM=INT(RM*10+.5)/10:GOTO 1210
1190 IF RM<1 THEN RM=INT(RM*100+.5)/100:GOTO 1210
1200 RD=20*LOG(RM)/LOG(10)-107:RD=INT(RD*10+.5)/10
1210 RETURN
1220 ' ANTENNA HEIGHTS
1230 PRINT CLS$:PRINT"CHOOSE ANTENNA HEIGHTS BY SELECTING"
1240 PRINT"NUMBERS FROM THE FOLLOWING MENU":PRINT:PRINT
1250 PRINT"1 =   25'    6 =   2000'   11 =  30000'"
1260 PRINT"2 =   50'    7 =   5000'   12 =  40000'"
1270 PRINT"3 =  100'    8 =  10000'   13 =  60000'"
1280 PRINT"4 =  500'    9 =  15000'   14 =  80000'"
1290 PRINT"5 = 1000'   10 =  20000'   15 = 100000'"
1300 PRINT:PRINT
1310 INPUT"SELECT HEIGHT OF LOWER ANTENNA";H1
1320 INPUT"SELECT HEIGHT OF UPPER ANTENNA";H2
1330 IF H1<1 OR H2<1 OR H1>15 OR H2>15 THEN PRINT"NOT IN MENU"
1340 IF H1<1 OR H2<1 OR H1>15 OR H2>15 THEN GOTO 1310
1350 IF H1>H2 THEN PRINT"LOWER AND UPPER REVERSED"
1360 IF H1>H2 THEN GOTO 1310
1370 H$=H$(H1,H2):H1=H(H1):H2=H(H2)
1380 P1=VAL(MID$(H$,1,3)):D1=VAL(MID$(H$,4,3))
1390 P2=VAL(MID$(H$,7,3)):D2=VAL(MID$(H$,10,3))
1400 P3=VAL(MID$(H$,13,3)):D3=VAL(MID$(H$,16,3))
1410 P4=VAL(MID$(H$,19,3)):D4=VAL(MID$(H$,22,3))
1420 P5=VAL(MID$(H$,25,3)):D5=VAL(MID$(H$,28,3))
1430 S1=INT(D1*1.151+.5)
1440 S5=INT(D5*1.151+.5)
1450 PRINT:PRINT:PRINT:PRINT:RETURN
1460 INPUT"GAIN OF LOWER ANTENNA (IN DBI)";GL
1470 INPUT"GAIN OF UPPER ANTENNA (IN DBI)";GU
1480 INPUT"COAXIAL LINE LOSSES (IN DB)";LL
1490 RETURN
1500 F1=125:FL=100:FU=175:' VHF DATA
1510 H$( 1, 1)="140010160025170035176050225340"
1520 H$( 1, 2)="135010160030170046175065225360"
1530 H$( 1, 3)="130010160037170055175075225385"
1540 H$( 1, 4)="117010162060170075175100225405"
1550 H$( 1, 5)="113010165070169085173100225415"
1560 H$( 1, 6)="105010158080170100175120225425"
1570 H$( 1, 7)="100010140085170130177160218400"
1580 H$( 1, 8)="118060132100170165176180213400"
1590 H$( 1, 9)="125100150160175195185260210400"
1600 H$( 1,10)="126120145170165200175215215450"
1610 H$( 1,11)="130160150210177250186320210440"
1620 H$( 1,12)="128180150240177285188360210470"
1630 H$( 1,13)="128220145280178330188400210510"
1640 H$( 1,14)="132270150330177365189440210550"
1650 H$( 1,15)="132300150365178410189480210580"
1660 H$( 2, 2)="125010155030165045170060210300"
1670 H$( 2, 3)="120010150032165050175105210310"
1680 H$( 2, 4)="110010158060167080183180205300"
1690 H$( 2, 5)="105010160075168100180170207320"
1700 H$( 2, 6)="110030163090170120183200208340"
1710 H$( 2, 7)="115050133085162125168140210370"
1720 H$( 2, 8)="120090148140165160170175210400"
1730 H$( 2, 9)="125120150165170195180260210420"
1740 H$( 2,10)="125140140170171215185300210440"
1750 H$( 2,11)="130180145215171250182320205440"
1760 H$( 2,12)="130210150250173285185360211500"
1770 H$( 2,13)="130255150300174335187420206510"
1780 H$( 2,14)="130290150340173370190470208560"
1790 H$( 2,15)="135340150375174410185480208600"
1800 H$( 3, 3)="125015155045166065174120203280"
1810 H$( 3, 4)="115020152060163080177160203300"
1820 H$( 3, 5)="110020152070165100195260210355"
1830 H$( 3, 6)="110030150080164110195275209360"
1840 H$( 3, 7)="115060140100164135196300211400"
1850 H$( 3, 8)="125110158160167175184270204380"
1860 H$( 3, 9)="125130140160165195172220205410"
1870 H$( 3,10)="125150135170165215172240205430"
1880 H$( 3,11)="125185145220165250173280210500"
1890 H$( 3,12)="130220138240165280175320203480"
1900 H$( 3,13)="130270145300160320170340203520"
1910 H$( 3,14)="135320165370175400180440203560"
1920 H$( 3,15)="135355163400175435178460204600"
1930 H$( 4, 4)="110030150080159095165120204330"
1940 H$( 4, 5)="115045151090160110170155204340"
1950 H$( 4, 6)="116060155110161125176200204350"
1960 H$( 4, 7)="123100156145165165190295210420"
1970 H$( 4, 8)="125135157180165200195350210450"
1980 H$( 4, 9)="130170160210168235199400218500"
1990 H$( 4,10)="130190158225168260195400210495"
2000 H$( 4,11)="130225160260170295184375205485"
2010 H$( 4,12)="135260160294169320183400203500"
2020 H$( 4,13)="125180129300163350172380202540"
2030 H$( 4,14)="125180130340162385173420205600"
2040 H$( 4,15)="125180132380165430174460204620"
2050 H$( 5, 5)="116065144090155110165140203340"
2060 H$( 5, 6)="120080145110160135170180204360"
2070 H$( 5, 7)="125120145140158160165180203380"
2080 H$( 5, 8)="125150150180162200167215202400"
2090 H$( 5, 9)="125174150205160220165234201420"
2100 H$( 5,10)="127200150225159240166260200435"
2110 H$( 5,11)="129235155265160275165286202480"
2120 H$( 5,12)="125180128266160305167325201500"
2130 H$( 5,13)="125180130315157350168374200540"
2140 H$( 5,14)="128260131355150380168410203600"
2150 H$( 5,15)="128260132395160430170455199600"
2160 H$( 6, 6)="125100150130160150168180200350"
2170 H$( 6, 7)="122130149160160180170220200375"
2180 H$( 6, 8)="125166154200160210168240200405"
2190 H$( 6, 9)="125190150220160235168265200430"
2200 H$( 6,10)="126212150240160260167275200445"
2210 H$( 6,11)="129250153280163300170325200480"
2220 H$( 6,12)="125180129285150306166335200510"
2230 H$( 6,13)="125180130330155360168390205590"
2240 H$( 6,14)="127220131370155405169430205620"
2250 H$( 6,15)="127220132410155440168465200625"
2260 H$( 7, 7)="125165150195160210169240200400"
2270 H$( 7, 8)="125200143220157240166260200430"
2280 H$( 7, 9)="127225155260164280170300200460"
2290 H$( 7,10)="128250153280164300170320201480"
2300 H$( 7,11)="130285150310160325166340200510"
2310 H$( 7,12)="125180129315150340167370200535"
2320 H$( 7,13)="127230130365156395170425200580"
2330 H$( 7,14)="127230132405158440170465200620"
2340 H$( 7,15)="127230133445155470170500200650"
2350 H$( 8, 8)="129235155265163280168300200460"
2360 H$( 8, 9)="130260155290160300168320203500"
2370 H$( 8,10)="130280155310164330169350200505"
2380 H$( 8,11)="130320150340162360170385200540"
2390 H$( 8,12)="125180131350157380170410200565"
2400 H$( 8,13)="125180132395160435170460200605"
2410 H$( 8,14)="127230133440156470170500200650"
2420 H$( 8,15)="127230133475160510175555205720"
2430 H$( 9, 9)="130290145305157320166340200505"
2440 H$( 9,10)="130305155340165360170375205560"
2450 H$( 9,11)="130345156375167400175430205595"
2460 H$( 9,12)="125180131374155405170440200590"
2470 H$( 9,13)="127240132425159460170485201640"
2480 H$( 9,14)="130320133465160505170525200675"
2490 H$( 9,15)="130320133500160540175580200710"
2500 H$(10,10)="125180130330165380175415202560"
2510 H$(10,11)="125180132370155395170430205615"
2520 H$(10,12)="127230132395160435175475205640"
2530 H$(10,13)="129280133450155475172510201660"
2540 H$(10,14)="130300133490155515172550205725"
2550 H$(10,15)="130300134525165570178620205760"
2560 H$(11,11)="125180133400160440175480205650"
2570 H$(11,12)="130300133435155460172500205675"
2580 H$(11,13)="130300134485165530180580205725"
2590 H$(11,14)="130300135525160560175600205760"
2600 H$(11,15)="130300135560165605180655205800"
2610 H$(12,12)="130300133460163505175540205700"
2620 H$(12,13)="130300134515167560177600205750"
2630 H$(12,14)="130300135555165600178640210820"
2640 H$(12,15)="130300135590160625175660205825"
2650 H$(13,13)="130300135560162600175635200760"
2660 H$(13,14)="130300135605160635175675200805"
2670 H$(13,15)="130300136640161675177715200840"
2680 H$(14,14)="130300136645170700185760208900"
2690 H$(14,15)="130300137685162720177760210940"
2700 H$(15,15)="130300137720163760179800210980"
2710 RETURN
2720 F1=300:FL=225:FU=500:' UHF DATA
2730 H$( 1, 1)="142010170030178050187100225315"
2740 H$( 1, 2)="136010150020170035178060220300"
2750 H$( 1, 3)="130010150025170045176060215275"
2760 H$( 1, 4)="125020168055176070185125210260"
2770 H$( 1, 5)="120020165065175080185135210270"
2780 H$( 1, 6)="127040145060170085177100215305"
2790 H$( 1, 7)="127060140080174120178130210305"
2800 H$( 1, 8)="126085140110176155180166200280"
2810 H$( 1, 9)="132120145145175180181190200300"
2820 H$( 1,10)="135145150170175195180210215400"
2830 H$( 1,11)="135175145200177235181245200355"
2840 H$( 1,12)="140220150235175265183280200380"
2850 H$( 1,13)="140260150285180320185330200430"
2860 H$( 1,14)="140300150325179360185370200465"
2870 H$( 1,15)="140333151360180395187410200500"
2880 H$( 2, 2)="132010155030166040175060215280"
2890 H$( 2, 3)="125010150030164045175070213280"
2900 H$( 2, 4)="120020165060170070175090210270"
2910 H$( 2, 5)="120030165070171080175096210280"
2920 H$( 2, 6)="120040137060167090173100210290"
2930 H$( 2, 7)="125070140090170125176135210320"
2940 H$( 2, 8)="131110140125170155178175205320"
2950 H$( 2, 9)="135135151160170180177190205340"
2960 H$( 2,10)="135160150180170205179220205360"
2970 H$( 2,11)="140200145210173240180255205400"
2980 H$( 2,12)="140230147240172270180285205425"
2990 H$( 2,13)="140275148290173320181335200445"
3000 H$( 2,14)="137308148330175365184380200480"
3010 H$( 2,15)="139350150370175395184420197500"
3020 H$( 3, 3)="120010140025160045170060205240"
3030 H$( 3, 4)="118020160060170075183140210280"
3040 H$( 3, 5)="120030160070167080173100205260"
3050 H$( 3, 6)="122050155080168100175120210300"
3060 H$( 3, 7)="130080155110170130175145210325"
3070 H$( 3, 8)="135120168160173170177180210360"
3080 H$( 3, 9)="132140166180175195180220210380"
3090 H$( 3,10)="132160145180165200177220210400"
3100 H$( 3,11)="135200150220170245177255215460"
3110 H$( 3,12)="135230150250173280180300210460"
3120 H$( 3,13)="138280150300172320180345210500"
3130 H$( 3,14)="139320150340170360180380210540"
3140 H$( 3,15)="140355155380172400180415210580"
3150 H$( 4, 4)="120040155070165085175115205265"
3160 H$( 4, 5)="125055153080167100175125210305"
3170 H$( 4, 6)="125072157100170120180160210315"
3180 H$( 4, 7)="128105160135170150178180210345"
3190 H$( 4, 8)="132145155165168180177200215400"
3200 H$( 4, 9)="135170158190172210180240210395"
3210 H$( 4,10)="135192165215175240180260210420"
3220 H$( 4,11)="135225165255175275180290210450"
3230 H$( 4,12)="138260160280172295180320215500"
3240 H$( 4,13)="140310155325170340180365210520"
3250 H$( 4,14)="140352160370171385180406210560"
3260 H$( 4,15)="140390154400170420180440210590"
3270 H$( 5, 5)="124065160100171120177140210310"
3280 H$( 5, 6)="127085160115170130178160206300"
3290 H$( 5, 7)="130115160144170160177180210350"
3300 H$( 5, 8)="132150155170168190176206210380"
3310 H$( 5, 9)="133175159200170215175230210400"
3320 H$( 5,10)="135200158220170235178260210425"
3330 H$( 5,11)="135232161260173280179300210455"
3340 H$( 5,12)="136265160290171305180330210485"
3350 H$( 5,13)="139320160340174360180380210530"
3360 H$( 5,14)="140360160380174400180415210560"
3370 H$( 5,15)="140394165420175436182455210600"
3380 H$( 6, 6)="128105149120166140176166210340"
3390 H$( 6, 7)="132135159160170175177195210360"
3400 H$( 6, 8)="134170156190171210178230211400"
3410 H$( 6, 9)="134195161220170232177250211420"
3420 H$( 6,10)="136220160240171255179280211440"
3430 H$( 6,11)="138254165280173295179315210470"
3440 H$( 6,12)="137285155300170315178340211500"
3450 H$( 6,13)="138330165360174375181395210540"
3460 H$( 6,14)="140375164400175415181430210580"
3470 H$( 6,15)="143415167440176455184480210610"
3480 H$( 7, 7)="132165165200175220180240205363"
3490 H$( 7, 8)="135205156220170240180270210420"
3500 H$( 7, 9)="136230160250170265180295210445"
3510 H$( 7,10)="130130135245165275176300210460"
3520 H$( 7,11)="131140137288168315178335210495"
3530 H$( 7,12)="133200138315165345180375210525"
3540 H$( 7,13)="133200139368170400182430212580"
3550 H$( 7,14)="135240140410170440180465210610"
3560 H$( 7,15)="135240140445165470180495210640"
3570 H$( 8, 8)="130140135235165260180300210450"
3580 H$( 8, 9)="130140136255165290177310210470"
3590 H$( 8,10)="130140137280165310178340205470"
3600 H$( 8,11)="130140138320165346178370210520"
3610 H$( 8,12)="135240138350168380179405210550"
3620 H$( 8,13)="135240139400170430180455210600"
3630 H$( 8,14)="135240140445170470180495210640"
3640 H$( 8,15)="137300141480170510182540210670"
3650 H$( 9, 9)="132160137286169320183360210500"
3660 H$( 9,10)="132160138310169340183380210515"
3670 H$( 9,11)="135240138347170380180405210550"
3680 H$( 9,12)="135240139375163400182440210575"
3690 H$( 9,13)="135240140425170460181485210620"
3700 H$( 9,14)="135240141465170500181525210660"
3710 H$( 9,15)="138340142505165530181560210695"
3720 H$(10,10)="135240138330167360180390210530"
3730 H$(10,11)="135240138370168400180425208560"
3740 H$(10,12)="135240139395170430182460210595"
3750 H$(10,13)="135240140446170480185520210640"
3760 H$(10,14)="137300141490170520180545210680"
3770 H$(10,15)="137300142525170555185595210715"
3780 H$(11,11)="135240140405165430180455210600"
3790 H$(11,12)="135240140430165460181490210630"
3800 H$(11,13)="137300141485172520183550210670"
3810 H$(11,14)="137300142528172560185590210715"
3820 H$(11,15)="138300143565170592185630210750"
3830 H$(12,12)="140400141465175505184530210660"
3840 H$(12,13)="140400142515172550187590210705"
3850 H$(12,14)="140400143555165580185620209740"
3860 H$(12,15)="140400143590175635188670210780"
3870 H$(13,13)="138360142565170595186630210755"
3880 H$(13,14)="138360143608170640185670210790"
3890 H$(13,15)="138360144645178690191730210830"
3900 H$(14,14)="140420143647170680185710210830"
3910 H$(14,15)="140420144686170715188755210870"
3920 H$(15,15)="140400145720170750190800210900"
3930 RETURN
3940 F1=1600:FL=1000:FU=3500:' L-BAND DATA
3950 H$( 1, 1)="140010175024190050200088224208"
3960 H$( 1, 2)="140012175028190057200092225212"
3970 H$( 1, 3)="140014175032190060200098225218"
3980 H$( 1, 4)="140030175045190070200106225225"
3990 H$( 1, 5)="140040175060190080200115225235"
4000 H$( 1, 6)="140056175072190092200128225248"
4010 H$( 1, 7)="145088180105190120200150230300"
4020 H$( 1, 8)="145120180140190150200180235360"
4030 H$( 1, 9)="150150180165190175200205235380"
4040 H$( 1,10)="141080148170185190200220235400"
4050 H$( 1,11)="141080149205185225200255235430"
4060 H$( 1,12)="144120151237185255200280235460"
4070 H$( 1,13)="144120153290185305200330235500"
4080 H$( 1,14)="144120154332185347200370235540"
4090 H$( 1,15)="148190155365185384200405235575"
4100 H$( 2, 2)="130009175030190060200095230240"
4110 H$( 2, 3)="130010175036190062200100230245"
4120 H$( 2, 4)="135027175052190078200110230258"
4130 H$( 2, 5)="135040175060190085200120230265"
4140 H$( 2, 6)="140060180080190100200135230275"
4150 H$( 2, 7)="135040142090180110195140230300"
4160 H$( 2, 8)="135040145125185150200190230332"
4170 H$( 2, 9)="139070146150180167195195235380"
4180 H$( 2,10)="142090148170185195200230235400"
4190 H$( 2,11)="145125150210185230200260235430"
4200 H$( 2,12)="145125150240185260200290235460"
4210 H$( 2,13)="145125152290185310200335235500"
4220 H$( 2,14)="145125153332185350200375235540"
4230 H$( 2,15)="145125155370185385201415235575"
4240 H$( 3, 3)="130015175040190065200105230250"
4250 H$( 3, 4)="135035175055190078200120230260"
4260 H$( 3, 5)="135045175065190086200126230270"
4270 H$( 3, 6)="138060175080190100200140235310"
4280 H$( 3, 7)="138060142095180115195140235335"
4290 H$( 3, 8)="138060145130180145195170235360"
4300 H$( 3, 9)="138060147155180173195195235385"
4310 H$( 3,10)="138060148175185200200235235405"
4320 H$( 3,11)="145130150212185235200265235440"
4330 H$( 3,12)="145130150245185265200295235460"
4340 H$( 3,13)="145130152295185315200340235505"
4350 H$( 3,14)="145130153340185355200380235545"
4360 H$( 3,15)="145130154375185390200415235580"
4370 H$( 4, 4)="135040136050175067195105235300"
4380 H$( 4, 5)="135040138060175075195115235305"
4390 H$( 4, 6)="135040140075180095198140235320"
4400 H$( 4, 7)="135040143105185133200175235340"
4410 H$( 4, 8)="140075147140185165200205235370"
4420 H$( 4, 9)="140075148170185190200225235390"
4430 H$( 4,10)="140075149190185215200245235410"
4440 H$( 4,11)="140075151230185250200280235445"
4450 H$( 4,12)="145140152260185280200305235470"
4460 H$( 4,13)="145140153308185330200355235520"
4470 H$( 4,14)="145140154350185370200395235555"
4480 H$( 4,15)="145140155390185405200415235585"
4490 H$( 5, 5)="135040140072180090195120235315"
4500 H$( 5, 6)="135040142090180110195140235325"
4510 H$( 5, 7)="135040145120180140195165235350"
4520 H$( 5, 8)="140072147160180170195195235380"
4530 H$( 5, 9)="140072148182180200195220235400"
4540 H$( 5,10)="140072149205185225200260235420"
4550 H$( 5,11)="145140151240185260200295235455"
4560 H$( 5,12)="145140152270185295200320235480"
4570 H$( 5,13)="145140154320185340200370235525"
4580 H$( 5,14)="145140155365185380200405235565"
4590 H$( 5,15)="145140156400185416200440235600"
4600 H$( 6, 6)="135040143105185130200170235340"
4610 H$( 6, 7)="135040146136185160200200235360"
4620 H$( 6, 8)="143105149172185190200225235395"
4630 H$( 6, 9)="143105150197185215200250235410"
4640 H$( 6,10)="143105151220185240200270235430"
4650 H$( 6,11)="143105151255185275200305235465"
4660 H$( 6,12)="145140153290185305200330235495"
4670 H$( 6,13)="145140155340185355200380235540"
4680 H$( 6,14)="145140155380185395200420235575"
4690 H$( 6,15)="145140157415190440205470235610"
4700 H$( 7, 7)="135040148170180185200220235385"
4710 H$( 7, 8)="145140150205185225200250235415"
4720 H$( 7, 9)="145140151230185250200280235435"
4730 H$( 7,10)="145140152250185270200300235455"
4740 H$( 7,11)="145140153290185305200335235490"
4750 H$( 7,12)="145140154320185335200360235520"
4760 H$( 7,13)="145140156370185385200410235560"
4770 H$( 7,14)="145140157410185425200450235600"
4780 H$( 7,15)="145140157450190470205500235640"
4790 H$( 8, 8)="145140152240185260200290235445"
4800 H$( 8, 9)="145140152265185285200310235470"
4810 H$( 8,10)="145140153285185305200335235490"
4820 H$( 8,11)="145140155325185340200370235520"
4830 H$( 8,12)="145140155355190380205410235550"
4840 H$( 8,13)="145140156405190425205460235600"
4850 H$( 8,14)="145140157450190470205500235640"
4860 H$( 8,15)="145140158485190505205540235670"
4870 H$( 9, 9)="145140153290185310200335235490"
4880 H$( 9,10)="145140154310185330200355235510"
4890 H$( 9,11)="145140155350185365200390235540"
4900 H$( 9,12)="145140156380185395200420235570"
4910 H$( 9,13)="145140157430190450205485235620"
4920 H$( 9,14)="145140158470190495205525235660"
4930 H$( 9,15)="145140159510190530205560235695"
4940 H$(10,10)="145140154330185350200375235525"
4950 H$(10,11)="145140156372185386200410235560"
4960 H$(10,12)="145140157400190425205455235590"
4970 H$(10,13)="145140157450190470205505235640"
4980 H$(10,14)="145140158494190510205545235675"
4990 H$(10,15)="145140159530190550205580235715"
5000 H$(11,11)="145140152300156406200445235600"
5010 H$(11,12)="145140152300157440200475235620"
5020 H$(11,13)="145140152300158486200525235675"
5030 H$(11,14)="145140152300159530200565235710"
5040 H$(11,15)="145140152300159570200600235740"
5050 H$(12,12)="145140152300157465200505235650"
5060 H$(12,13)="145140152300158520200550235700"
5070 H$(12,14)="145140152300159560200595235735"
5080 H$(12,15)="145140152300160600200630235770"
5090 H$(13,13)="145140152300159570200605235745"
5100 H$(13,14)="145140152300160610200645235785"
5110 H$(13,15)="145140152300160645200685235820"
5120 H$(14,14)="145140152300160650200690235820"
5130 H$(14,15)="145140152300161690200725235860"
5140 H$(15,15)="145140152300160725205770235900"
5150 RETURN