' +JJJJ ?\>m0M='+l> /+l   d']6@5L&]655]6LF%5 & "L}"BB5L&]6 X  `6 77777777777JJJJx 77L? L7877777777 776i 7 7867 7`77 777777`x =(`(8`5775I7`B` 76`77`>J><;VU<)?<`8'x0|<&HhHh 8 8 8 8V&` aI꽌ɪVɭ&Y:&<&Y:&;: 꽌ɪ\8`&&꽌ɪɖ'*&%&,E'зЮ꽌ɪФ`+*xS&x'8*3Ixix&& 8 9: :' 9: :& :x)*++`FG8`0($ p,&"ųųೳŪŪųųij  !"#$%&'()*+,-./0123456789:;<=>?8  1 '" *"( (9"1 ( ,.(0# 2  /#0/#0 *?'#07#000'#07#0:"4<*55**5*%5)1)1)1)'#0/#0*5*75**5*:5/#0/#0'#07#0:::*::'#07#0"):$(%"%:$(%"%$$2%4%$$2%4%$(2()!)E(!8b $!H(+ "@H !D)"E` @ $ C ` DQ &J80^݌Hh < <݌ < < h < < < <`HJ>݌h Hh݌`葠葠ȔЖȔЖȠHIHHHHhHH݌hHhHh݌H6 (G FG HZXj 80x D9$xxH` >( Z>h Z>L=.xxH >hh@(LH>9L>HH/Hh/ H?-З( 8(& 8$8 H` *8HNx`* >x$50x*$50xL9JJJJ`HHjf5 >h $50x`HA>VD;;P >(ED Z> ?$0x8x D9- 8DD# H8`?E Vˆʎ55L $ 5 55555 &a*5`*5` "L&5_*b*JL%u**Lz%`** $  Q(lXJ̥KlV $  Q(lV eօ3L e3L &%R*L &%Q*L d' "L4% N'e*)n*5 5 &`@-e*f*f* 5 "L# "5f*`L %.* *t*Q*L$ %L&*L` "O**P**u** d' "L% N'e*)n*o*o*n* &8ɍ` ^&f\*555L& ^&NR* & "R*ΩL&)\*Z* ʽ LH*v 3h`0h8` " ['L & N'С55 &5`*A*@` +5L^6L65`  \* ?*0 '\* '  Q( ^&\*lZl^?*c*q)H c*h`f*5h*5j*555@O*AP*`u*@`@5&`Q*R*`E 'Ls' ' ' @DAE@u*`8` %@ @A@`@`**@*A`M5 ) "L&`8@AW*c*@8@-@HAȑ@hHȑ@ȑ@hHȑ@Ȋ@c*h8&ȑ@Hȑ@Ah@L'Hȑ@ȑ@* htphso`hMhL`9V*8U*897T*6S*67`INILOASAVRUCHAIDELETLOCUNLOCCLOSREAEXEWRITPOSITIOOPEAPPENRENAMCATALOMONOMOPRINMAXFILEFINBSAVBLOABRUVERIF!pppp p p p p`" t""#x"p0p@p@@@p@!y q q p@  LANGUAGE NOT AVAILABLRANGE ERROWRITE PROTECTEEND OF DATFILE NOT FOUNVOLUME MISMATCI/O ERRODISK FULFILE LOCKESYNTAX ERRONO BUFFERS AVAILABLFILE TYPE MISMATCPROGRAM TOO LARGNOT DIRECT COMMANč$3>L[dmx- (   ՠ734@~3!+,W,o,*--,,9,-.-~3~3,,,,~3~3,,,,~3_*3 j.5 *H*H`Lc3 (+L3 +55555 1^3_* )3J Q*L_3Ls3443 D23455545554 70 / 7 :/354545455454555535L^/5-5I5555 55` / 4/ 2-5! / 08555454 70L3 (+50+5B5C3 2 70L35 *H*H`Lg3L{3505 *H*H` 3 ,5L3 3 1 ,H 1hBL, 0 BH [1 1h`Lo3 35 ,L3 3 1B , 1L,H 0hB@ 55 [1L133 (+34) 34 70L3 3L3 (+ 055L- (+34L{33454445 70 ^/* / 3B0 HȱBh -355 -8 /L38 25` +5 /3 /. /. 3 E7D B. /. /. 0]34S0J4 4) 3 4D4E B. 4  /. 02L3 Ν3 3`HD٤33DEEhiHLG.h ` /5B5-` /5B-` + X05I33383 33DH /4 E03744Ȍ7 X040 7 J7L35B5C`,5p` / R0-55`50` K/ R0-55`575755` 4/ K/ /( 55L/BȱBL/58` D2BH5BH :/ 75Bȭ5Bhh55 R0B5m55ȱB5m55` /LR0557755`*7*75LR0 E0(33 48`433 R0` E033LR0*7*7`777 555I7575757577** 7757`7 L35555f /55555555 ^/`855 i /B58` 41L 15ȱB5 /5555 /5`3 D23ȑB55B5 / 7 55`5555555555 5555`555`55BC55`5555`L3 /5B5C355 0Q340"B4 3` 02۰Ϭ33B438`3i#`3ЗLw35!50>5555`53 /3m3 3 3733i35 3583 /35ЉLw35`H /5h 25L/~43 533`55555555J5m55m5jn5n5n5ۭ55m5555m55m55`"L? 585H ~.(3` # d ֠z# u*` SOURCE DATA ***"&O10'&IH0E3M&TH(E(I))H(E(I))I(E(I))I(E(I))r&T1(L(I)H(E(I))M(I)I(E(I)))T&T2(M(I)H(E(I))L(I)I(E(I)))T&O1O1(L(I)H(E(I))M(I)I(E(I)))2&"PULSE NO. = ";E(I):"VOLTAGE = (";L(I);" , ";M(I);" J)"-'K %I%IH0N!%"H(I)0/%,I(I)H(I)6%6IC%@JH0E3M%JI1H0l%TC(E(J),1)C(E(J),2)I12x%^IH0N%hH(I)H(I)I1(R(I,E(J))M(J)B(I,E(J))L(J))M%rI(I)I(I)I1(B(I,E(J))M(J)R(I,E(J))L(J))M%|I%J%&8);"***B(L,J)B(L,J)(R(I2,J)S2B(I2,J)S1)3$dR(L,J)H1:$nJA$xLH$IT$IH0N`$LN1It$H(L)I(L)4110$I1H(L)$I2I(L)$KH0N$S1R(K,I1)$S2B(K,I1)$R(K,I1)R(K,I2)$B(K,I1)B(K,I2)$R(K,I2)S1$B(K,I2)S2%I2)0#LH0N2#H1(R(I2,L)S1B(I2,L)S2)TX#B(I2,L)(B(I2,L)S1R(I2,L)S2)Tg#R(I2,L)H1n#Lz# LH0N#I2L3960#S1R(L,I2)#(S2B(L,I2)#2R(L,I2)0#<B(L,I2)R(L,I2)#FJH0N#PH1R(L,J)(R(I2,J)S1B(I2,J)S2)%$ZJ".P(I2)P(I2)1%"8I1I237301"BLH0N@"LS1R(I1,L)O"VS2B(I1,L)c"`R(I1,L)R(I2,L)w"jB(I1,L)B(I2,L)"tR(I2,L)S1"~B(I2,L)S2"L"H(I)I1"I(I)I2"S1R(I2,I2)"S2B(I2,I2)"TS1S1S2S2"R(I2,I2)H0#B(I2,!z B(J,J)B(J,J)I(I)! I*! IH0N5! P(I)0 IN2430 H H01 R W403470 \ IH0W4 f JP(I)!p R(J,J)R(J,J)H(I) N U3T1X U4T2b P1P11(l 280@v U1U1(U3T1)S(J1)X U2U2(U4T2)S(J1)t R(I,J)R(I,J)F(D1U1) B(I,J)B(I,J)F(D2U2) K13370 JI3370 C(J,1)C(J,2)3370 I1I2J1J23370 C(I,1)C(I,2)3370 R(J,I)G(J2)F6F4T2G(J1))F6 D2(X3T5Y3T6Z3T7)W2C P1P1.5M P2P3Y P3P31c P4J2l F12u 280 U1T1 U2T2 P1P11 280 U1(U1T1)S(J2) U2(U2T2)S(J2) P1P11& P3P20 P2P21: P4J1D 270, K12890'6 C(J,1)C(J,2)28905@ IJ2900>J 270ZT X3U1D(J2)F4T1D(J1)v^ Y3U1F(J2)F4T1F(J1)h Z3(F7U1G(J2)F6F4T1G(J1))Fr D1(X3T5Y3T6Z3T7)W2| X3U2D(J2)F4T2D(J1) Y3U2F(J2)F4T2F(J1) Z3(F7U2d KH0n KK1,x C(J,1)C(J,2)2720: K13370D F6F4N F7F5\ K12740p R(I,J)03230| F32K P12J4I1 P22J3J1 P3P2.5 P4J2 F12 280 U1T1F5 U2T2F5 P3P2 P2P2.5" P4J1) T5F5D(I2)F4D(I1)3 T6F5F(I2)F4F(I1)M C(I,1)C(I,2)2570a F4(C(I,1))F4u F5(C(I,2))F5 T7F5G(I2)F4G(I1) J1(C(J,1)) J2(C(J,2))( J3J22 J1J2J3J1< F4(C(J,1))F F5(C(J,2))P F61Z F71  I3GI3 H(I)I3M)$ I(I)I2M0. I;8 I1NFB J1NTL R(I,J)H0bV B(I,J)H0i` Jpj Iyt IH0~ II1 JH0 JJ1 I1(C(I,1)) I2(C(I,2)) J4I2 I1I2J4I1 F4(C(I,1))S(I1) F5(C(I,2))S(I231G318"AZIMUTH ANGLE: INITIAL,INCREMENT,NUMBER";FQ1,M2,M3UM31M31dH014480y"NO. OF LOADS";W4W4H02360I1W4"PULSE NO.,RESISTANCE,REACTANCE";P(I),I2,I3C(P(I),1)C(P(I),2)2330 I2GI2UDE, PHASE"E(I),I2,I30 L(I)I2(I3P0)E*M(I)I2(I3P0)L4Ik>"CURRENT PRINTOUT (Y/N)";sHB$RH014120\"RADIATION PATTERN (Y/N)";fC$pC$"N"2240z"ZENITH ANGLE : INITIAL,INCREMENT,NUMBER";Q2,G2,G3GFW299.8F'M4.77783352WH"WAVELENGTH - ";W;" METERS"TW2PWaW2WW2"ENVIRONMENT (1-FREE SPACE, 2-GROUND)";GG11990G21990"NO. OF EXCITATIONS";E3I1E3  "PULSE NO., VOLTAGE MAGNIT I2 F I1P 910*Z (4);"RUN MENU" CONTENTS"PI2T2NO I3T2Ne( G(I2,I3)H(I2,I3)m2 I3u< I2}F I1P 910Z (4);"RUN TABLE OF CONTENTS"P S3M1S3M1 S3M2S3M2. GP4(S3)h "PORT 1 IMPEDANCE = ( ";G(N1,N1);" +J ";B(N1,N1);")" "PORT 2 IMPEDANCE = (";G(N2,N2);" +J ";B(N2,N2);")" "COUPLING = ";G  I2T2N I3T2N( G(I2,I3)H(I2,I3)2 I3H1G(L,J)(G(I2,J)S0A$"Y"189010"CONTINUE (Y/N)";90"A$J0,A$"Y"1030l06(4);"RUN TABLE OF CONTENTS"NEXCITATION (Y/N)";/A$+/A$"Y"2030K/"CHANGE CONTROL (Y/N)";S/A$d/A$"Y"1890/"CONTINUE (Y/N)";/"A$/,A$"Y"1030/6(4);"RUN MENU"CONTENTS"/A$/A$"Y"2030/"CHANGE CONTROL (Y/N)";0A$.343(P1)".PP2K9(H1H1H2H2)5.ZP21E305240A.dP2999K.n5250^.xP24.343(P2).2);G1;6);M1;8);PT(P1);5);PT(P2).G1G1G2.I2.M1M1M2.I1.."CHANGE PATTERN (Y/N)";.C$.C$"Y"2170/"CHANGE F(L)F3-Y2Y2F4B2F(L)F3,-I3I3H0<-I3H04870C-IJ-Kh-H2(X1T1Y1T2Z1T3)G0-H1(X2T1Y2T2Z2T3)G0- X4(X1V1Y1V2)G0-X3(X2V1Y2V2)G0-P1(X3X3X4X4)K9-(P11E305190-2P1999-<5200 .FP14S1)O+,VS2W(X(J)R1Y(J)R2Z(J)F4R3)8,`S1(S2)E,jS2(S2)`,tB1(S1H(I)S2I(I))O{,~B2(S1I(I)S2H(I))O,Z1Z1B1G(L)F3,Z2Z2B2G(L)F3,C(I,H0)C(I,2)5070,X1X1F4B1D(L)F3,X2X2F4B2D(L)F3-Y1Y1F4B1C(I,1)LC(I,1)+J2L1I&+I330+F3H0J+C(I,H0)C(I,2)4890S+I32_+F31I3t+F3(C(I,I3))F3+L(C(I,I3))+O(R1D(L)R2F(L)F4R3G(L))F3+$S1WS(L)2+.(O)1E74940+8O(2OOS1S13)S1+B4950,LO2(O(U3)*R3(U4)* T1R3V2,*T2R3V1:* T3(U4)H**R1T3V2U*4R2T3V1^*>X10h*HY1X1r*RZ1X1|*\X2X1*fY2X1*pZ2X1*zF4H0*KH0G*KH0F4F4*IH0N*KH04790*C(I,1)C(I,2)5090*LC(I,2)+L00)")K9.016678O1:DP1000D)8);"*** PATTERN DATA ***":s)"ZENITH AZIMUTH HORIZONTAL VERTICAL")" ANGLE ANGLE (DB) (DB)")M1Q1)I1H0M3)G1Q2)I2H0G3)U3M1P0)U4G1P0)V1(U3)*V2N:I;3);H(I);3);I(I):Ic(>:"PULSE MAGNITUDE PHASE":" NO. (AMPS) (DEGREES)"n(@DP100z(DIH0N(NS1(H(I)H(I)I(I)I(I))(XS2(I(I)H(I))P0(](H(I))0S2S2(I(I))180(bI;3);S1;3);PT(S2)(lI)vC$"N"53"CURRENT = ( ";H(E(I));" , ";I(E(I));" J)"W'"IMPEDANCE = ( ";T1;" , ";T2;" J)":^'Iz'"POWER = ";O1;" WATTS"'B$"N"4470''&8);"***** CURRENT DATA *****":'0"PULSE REAL","IMAGINARY"':" NO. (AMPS)","(AMPS)"(<IH05),"COIL DATA :",&5),"LENGTH=";L1;" IN"I&5),"DIAMETER=";D;" IN"e&5),"NO. OF TURNS=";N1&5),"L=";L;" MICROHENRYS"&A03930&&"ENTER CHOICE (1-FIND COIL Q,2-NEW COIL,3-STOP)";&N&&N3850,3500,2890' "ENTER FNCE (MICROHENRYS)=";%LL8%VN1(L(18D40L1)DD)B%`XLDJ%jA0%tX.1X1A83.222202XX168.333334X14.4999998%~X1X4A3.7499987XX30.2499848X73.7499481%X4X10A.249999046XX4.25000538X122.000042%&NDUCTANCE OR , OF TURNS (L/T)";'$ G$<$ "COIL LENGTH=";D$ L1N$ 1110b$ L1L1U(J)U(1)y$ "COIL DIAMETER=";$ D$ 1110$DDU(J)U(1)$G$"T"3650$"NO. OF TURNS=";$$N1$.LN1N1DD(18D40L1)$83680%B"INDUCTA MH"-#4 "FREQENCY (KHZ)","REACTANCE (OHMS)";#> I1J11L#H FF1S(I1)^#R X8(1.)FLg#\ F,Xn#f It#p #z "ENTER CHOICE (1-NEW FREQUENCY RANGE,2-NEW INDUCTANCE,3-STOP)";# N# # N3280,3260,2890# 10);"COIL INDUCTANCE"$ "I" G$"N"2890" 3140=" "INDUCTANCE (MILLIHENRYS)=";D" Lg" "ENTER FREQUENCY RANGE (KHZ)"" "!& "INDUCTOR OR REACTANCE (I/R)";F!0 G$V!: G$U$3260p!D "REACTANCE (OHMS)=";w!N X!X " AT FREQUENCY (KHZ)=";!b F!l LX(8(1.)F)!v "L=";L;" MILLIHENRYS"! ! "ANOTHER INDUCTANCE (Y/N) ";! G$" K1 Y0+ 10);"PARALLEL INDUCTORS"^ "ENTER S TO STOP OR INDUCTANCE (MILLIHENRYS)"| "INDUCTANCE NO. ";K;"="; L$ L$T$2890 L(L$) L03060 YY1L "TOTAL INDUCTANCE=";1Y;" MILLIHENRYS"  KK1  3000! FF1S(I1)% X1E3(8(1.)FC). F,X5 I; x" "ENTER 1-NEW FREQUENCY RANGE, 2-NEW CAPACITOR, 3-STOP";, N6 @ N2690,2620,2260J T I17^ J$(I)h Ir B$(7);| N  N3970,2970,3100,3490,1240,5640 P"C1E12Cx C02620B "ENTER FREQUENCY RANGE (KILOHERZ)"\ "";i F1,F2,Sw S02750 J(((F2F1)S)) 2760 J0  10);"CAPACITIVE REACTANCE" "FREQUENCY(KHZ)","REACTANCE(OHMS)" I1J1   "FREQUENCY (KILOHERTZ) ";% F2 F1E3FI C1(8.(1.)FX)y( "CAPACITANCE=";1E6C;" MF=";1E12C;" PF"2 2260< "CAPACITANCE=";F CP "FARADS (F), MICROFARADS (M)";" OR PICOFARADS (P) ";Z C$d C$"M"C1E6C n C$"C$"P"C1E6C C02470) YY1C3 KK1i "TOTAL CAPACITANCE=";1E6Y;" MF=";1E12Y;" PF"s 2370 6);"CAPACITIVE REACTANCE" "REACTANCE OR CAPACITANCE (R/C)"; G$ G$"C"2620 "CAPACITIVE REACTANCE (OHMS)="; XN ' N3970,2340,2500,1240,5640/$ K17. Y0U8 10);"SERIES CAPACITORS"B "ENTER S TO STOP OR CAPACITANCE NO. ";KL "CAPACITANCE NO. ";K;"=";V C$` C$T$2260j C1E6(C$)t "MICROFARADS OR PICOFARADS (M/P)";~ C$ 1680fR(R$)p910;z"NEW TEMPERATURE (DEG. C)=";BTHaR2R(1X(K)(T20))10);"---";H$;" RESISTANCE---"14);"AT ";T;" DEG. C"10);"R=";R2;" OHMS"1340I16I$(I)IB$(7); AC"ĺ10);"AT ";F;" HERTZ" .S1217081340p"ENTER RESISTANCE (OHMS) AT 20 DEG. C (68 DEG. F)" " OR C TO COMPUTE VALUE""RESISTANCE="; R$*R$"C"21504"AC OR DC RESISTANCE ";>H$HS1RH$"AC"1630\b1110lLLU(J),v"WIRE DIAMETER=";3D=1110JDDU(J)fRC1Z(K)L(DD(1.))H$"AC"RC2(Z(K))U(1)LDU(2)10);"---";H$;" RESISTANCE---"10);"AT 20 DEG. C (68 DEG. F)"10);"R=";R;" OHMS"H$";D1110DDU(J)9L(1.)DDRZ(K)C1cH$"AC"LRD((Z(K))C2U(1)U(2))i10);"---WIRE LENGTH---"&5),"L=";L;" CM=";L100;" M"05)," =";LU(1);" IN=";LU(2);" FT":D1340N"WIRE LENGTH=";XL0""3970,5(4);"RUN TABLE OF CONTENTS"UN(1M3)10N(2M3)N(3M3)t5N(1M3)0D10N(2M3)N(3M3)5S$" "5M4S$X$(N(4))55&5);"DIODE 1N";D;S$505:"ANOTHER DIODE (Y/N) ";5DG$5NG$Q$55705X40605bM 4114044D100N(1M3)10N(2M3)N(3M3)[4N(1M3)0D10N(2M3)N(3M3)f4S$" "{4M4S$X$(N(4))445);"DIODE 1N";D;S$44"ANOTHER DIODE (Y/N) ";4G$4G$Q$5480439704(4);"RUN MENU" CONTENTST53N(5)10T10N(5)100$3L3"5),"INDUCTANCE=";H;" MICROHENRYS"p3,5),"TOLERANCE (+OR-)=";T;" %"v363@"ANOTHER CHOKE (Y/N) ";3JG$3TG$Q$53103^39703h3);"---SEMICONDUCTOR DIODES---"3r8403|"3 0R 4 COLORS ";4#25),"TOLERANCE (+OR-)=";T;" %")2J2"ANOTHER CAPACITOR (Y/N) ";R2G$b2G$Q$4360l2397025);"---RF CHOKES COLOR CODES---"28402M5211402H(10N(2)N(3))10N(4)2N(3)10HN(2)N(4)102TN(5)3N(5)10M35240%1N(1)0N(1)115240H1(5);"TEMPERATURE CAPACITANCE"g125);"COEFFICIENT DRIFT"1<8);"(+OR-)(+OR-)"1FN(6)352201P3);R1;" PPM/DEG.C";R2;" %+";R3;" PF"1Z52501d52501n52401x5),"VOLTAGE RATING=";V;" VOLTS" 0TN(5)0N(5)10T570N(5)10T10N(5)100=0I08),L$v05),"CAPACITANCE=";C;" PICOFARADS (PF)"0M5514005),"TEMPERATURE COEFFICIENT=";B(N(1));" PPM/DEG.C"0C10525005),"TOLERANCE (+OR-)=";T;" PF"0 5260 1"***ERROR-COLOR ,6 NOT ***"J/84480X/BR1D(1,J)f/LR2D(2,J)t/VR3D(3,J)/`R4D(4,J)/j5030/tL$"6-DOT EIA CODE"/~C(100N(1)10N(2)N(3))10N(4)/V100N(6)/N(6)11V20000N(6)12V5005.N(5)0ĺ"*** ERROR-COLOR ,5 CANNOT BE BLACK ***"F.N(5)04480a.N(1)0N(1)114980.N(1)0L$"AWS CODE-MICA CAPACITOR".N(1)11L$"AWS CODE-PAPER CAPACITOR".C(10N(2)N(3))10N(4).R30.JN(6)1.$J0J74930@/.E>***"-\4480--fC(10N(2)N(3))10N(4)8-pTN(5)I-zN(5)0T20Z-N(5)9T10k-C10TT10-C10N(5)8T.25-5060-N(4)10N(4)1-N(4)11N(4)2-N(4)12ĺ"***ERROR-COLOR ,4 CAN NOT BE NO COLOR "-N(4)124480-COLOR ,1 CANNOT BE ";A$(N(1));"***"., 4480M,N(4)3N(4)8N(4)94650W, 4670,*"***ERROR-COLOR ,4 NOT ***",44480,>N(5)3N(5)5N(5)84690,H4710-R"***ERROR ,5 NOT ***")@4040")JM442404)TN(5)124240F)^H10(1N(5))[)hH1H1E34220e)r4240)|"***ERROR-COLOR ,5 NOT ***")4040))5),"RESISTANCE=";R;" OHMS")5),"TOLERANCE (+OR-)=";T;" %"*M44380,1240,56402(8);"---RESISTOR COLOR CODES---";(840`("LEADS: AXIAL OR RADIAL (A/R)";h(G$p(M5(G$U$M4(1140(R(10N(1)N(2))10N(3)(T10N(4)100("T0T5(,T04170 )6"***ERROR-COLOR ,4 NOT IH C921Y1Y0C!R 8\ "CONTINUE (Y/N)";@f Q$Pp Q$"Y"190hz 192.975,150,TX,RX 3.414214,.1464466,.5857864,.8535534 9.395701,5.392947E-4,4.53662,.03888791 1.745761,.3574187,.3574187,.6031541 16.27926,4.249319(Y) A7(Y0(1Y0Y0))/ Y0(A7Y)208 I11O Y1.48859908I13g Y1.553342148I17o C0{ Y1(Y) II12I1 Y2(YY0H(I)) Y3(Y2Y1)2 E7(1842Y3Y2H(I))* (E7)88E7(E7)884 CC((F(I)(E7))(Y2Y2)1B21E11 X1.444 X24X1.33.01833(X18)R& X18X1(.58X18.08)2`0 A4B2.01m: D1.8ıuD YDN 3210X A4Cb YX2l 3210v A4B2(A4C)(2X1)  Y1(Y) Y0.7321597163250 C1Y1  Y0.9716978 X2(S0A0) X(A0R1)+ X303020E (S0)(A0)13020Y (S0).353020t W1.0275(30(60X)) B0(A0) N0 B01.15N.3(B0.87)1.07 B0.87N.3 B0.45N1.4B02.44 B2286W(1.1A0)(X2)N  B21E1(1G8G8) E7(K924)2 (E7)88E7(E7)88F G3C1((E7)2)V" G0G32870`, G0G36 G3A(D(1)K5)B(K9)C(L(1)L(2))D(L0)@ G2(1Z2250)(658(G0))G3J G22G22T ^ W1h AP2A0r BP2S0| CS1A1 1400 )88E7(E7)881 C1C0G8((E7)1)(1G8G8)F T6E((T1X))K9U T602770d E7(T62)~ (E7)88E7(E7)88 G0C1(E7) 2870 T6T6K9 G9T6PK9 E7T6T9 (E7)88E7(E7)88  G0C0((G9)G8((E7)(G9)))0.262570 G00 2870M K9(.26(Y2)(L0))((Y2)(L0)1.0E3)V AK9j B((1K9K9))t( 12902 K912D24P< K9E(K9)F XE((K8K92))P C0(C0)Z T99.7C09.6d T9.1T9.1n G8T9PK9x E7(K9T9) (E7V A0D(J)` A1D(J1)"j 2910/t B7B7A46~ JF LE(B74)W L53L53] f K51} D(1).6289K5.5 Y1.0172(10(M31)30.4D3) Y2.409(Y1) K83.82W012.13((Y1)1.2(2Y1)) K8E(K8) C0(L0Y2)  CE(4.001875L).058!22709E(7.5.001L).058EA0D(2)QA1D(3)[2910gB74A4x L20002360 B7(D(1)2) B8(D(1)2)$ L(A440(1.9784(1((B8.985)B7)2))). 24508 L40002440B B7B72L J8102 /8 INCH,75,.81?4 AJ75TWINLEAD,75,.67,AJ300TWINLEAD,3000,.82s> AJ300 TUBULAR,3000,.8,AJOWTV1/2-INCH,3000,.95H AJOWTV1-INCH,4500,.95R(4);"RUN MENU" CONTENTS"PF CONTENTS"ATENTS"PA1Z0IC1%A2RC11A3RZ0@A4IZ0C1RTA3A3A4A4iZ1(A1A3A2A4)TZ2(A2A3A1A4)T"INPUT IMPEDANCE = ";Z1;" +J ";Z2&"CONTINUE (Y/N)";0A$:A$"Y"160DFF1.C2110068"A1";22);V(Z,2);32);V(Z,3)@B1140VLB$" "rV(M$(V(Z,1)))10B$""`M$(V(Z,1));22);V(Z,2);32);V(Z,3)jC30ĺ22);"10116";32);"10150"tV(Z,8)V(Z,9)1200~FF1B$" "(M--"f22);"FROM TO"&pZS10z1050<F1F11CLM1010XKSE`F0mKM990"CLASS=";L$(G)ZK1050GG1K"CONTINUE (Y/N)";Y$Y$"Y"2701880V(Z,2)V(Z,3)1140$Y$"N"1010 F11# L1N55, S1I? F11S1LI1P CB(F1)900] F$"KHZ"s *B(F1)2F$"MHZ" 4B(F1)6F$"MHZ" >F0 HCB(F1) R"BAND=";C;" METER";20);"FREQUENCY BAND (";F$;")"\"---------------- ------------------DE";20);"FREQUENCY BAND (";F$;")"Q b"---------------- --------------------"k l22);"FROM TO"x vF$"KHZ"~  "CLASS= ";L$(I) F0 ZM 1050 G1 Y$"Y"930 "LIST ALL AVAILABLE BANDS (Y/N)"; Y$   MI J1MSI1 $ * Y "*** FREQUENCY AND MODE ALLOCATION ***" "*";11);"FOR ";C;" METER BAND";39);"*" &"***************************************" 0 :F$"KHZ" DA$"2"F$"MHZ" NA$"6"F$"MHZ"" X" MOSCENSE = ";A$ J T270I ^"160,80,40,30,20,15,10,6,2 METER BAND";Q hA$] rC(A$)h |J1Nx CB(J)440 J "NO SUCH BAND = ";A$  350 "LIST ALL LISCENSES IN ";C;" METERS (Y/N)"; Y$ G1 SJ54 ES4DE ALLOCATION"  C "THIS PROGRAM GIVES THE AUTHORIZED"q "FREQUENCY BANDS AND EMISSION TYPES FOR" "THE DIFFERENT AMATEUR LISCENSES."  "OPERATOR LISCENSE N,T,G,A,E"; A$ "I15 ,A$S$(I)350 6I @"NO SUCH LIF,F0 D,D1 T 3650* W174 F,F0> $D,D0E .TL 8WS BPZ LK` Vu `(4);"RUN MENU" CONTENTS"I* T$4 P1(E$)> F,F10H C1$(E$,P,1)FR C1$C$(36)ī3470\\ C1$C$(27)ī3500rf C1$C$(28)ī3560p C1$H$ī3600z "ERROS IN MORSE CODE" 1580 D,D0 T 3520 D,D1 T F,F0 D,D0 T 3650 ,208v 16355,4  16356,198- 16357,1< 16358,240I 16359,8X 16360,202g 16361,208v 16362,246 16363,166 16364,0 16365,76 16366,218 16367,63 16368,96   K1R1 "MORSE CODE FOR : ";1000101,00010,00000000. 010,01010,000101j 85,42,25,17,13,10,8,1,16346,0,0,72,YOUR,MY,THE," ","" 6502 TONE ROUTINE 16346,165& 16347,00 16348,240: 16349,3D 16350,173N 16351,48X 16352,192b 16353,136l 16354 0110,1101,010,000,1,001,0001,011,1001,1011,1100,01111,00111v 00011,00001,00000,10000,11000,11100,11110,11111 010101,110011,001100,111000,101010,101101,101101,10010,110011 100001,10001 000111000,10101,10101101,100 0,101,01000,,X,Y,Z! 1,2,3,4,5,6,7,8,9,0T ".",",","?",":",";","(",")","/","!","-","=" SOS,ATTENTION,CQ,DE,GO AHEAD,WAIT,BREAK,UNDERSTAND,ERROR,OK END OF MESSAGE,END OF WORK 01,1000,1010,100,0,0010,110,0000,00,0111,101,0100,11,10,111?6)  I 7 "ENTER CHARACTER OR '$' TO QUIT?";A" 2640G, Y6 T$"$"ī2910}@ "NO. OF CHARACTER REPETITION";J R1T ^ h "CONTINUE (Y/N)";r N$| N$"N"ī3680 340 A,B,C,D,E,F,G,H,I,J,K,L,M,N,O,P,Q,R,S,T,U,V,W)M$(37)H$( 33402 J1&< 7700F 1480<P T0$N2$GZ T$N2$Pd T0$Zn T0$;ox T0$(13)ī2710} T$T$T0$ 2660   5);"MORSE CHARACTER TABLE"  A$ F$ B$ G$ D$ I4853 C$(I),C$(I5` T$T$H$"KN"j 2520(t T$N2$4~ I618@ I515T R2(47(1)1)e R243R242v R237R238 T$T$C$(R2) I5 T$T$H$ I6 1150 Q$(J1)T$ R$(J1)E$ J1 J11N1 R11 T$N2$  E$R$(J1N2$?\T$Y$((3(1)1))" ANTENNA IS "C$((26(1)1))"-"KfI516fpT$T$C$((26(1)1))nzI5{T$T$H$I513T$T$((10(1)))I5T$T$" FEET"2520T$N2$T$Y$((3(1)1))" TEMPERATURE IS "I5(1)1))I5T$T$","*I516BT$T$((10(1)))JI5T2520_T$N2$T$Y$((3(1)1))" RECEIVER IS "I516 T$T$C$((26(1)1))I5 T$T$","*I5164T$T$((10(1)))>I5H2520RT$ 2520&T$N2$:0T$Y$((3(1)1))" WEATHER IS "F:I514aDT$T$C$((26(1)1))iNI5{XT$T$" AND "bI514lT$T$C$((26(1)1))vI52520T$N2$T$Y$((3(1)1))" RIG IS "I516T$T$C$((26$N2$(T$Y$((3(1)1))" NAME IS "4I515OT$T$C$((26(1)1))WI5a2520lT$N2$T$Y$((3(1)1))" LOCATION IS "I514T$T$C$((26(1)1))I5T$T$","I517T$T$C$((26(1)1))I530,2130,2240,2310,2420!"T$N2$V,T$"CQ CQ CQ DE "C$((26(1)1))((10(1)))b6I514}@T$T$C$((26(1)1))JI5T2520^T$N2$hT$Y$((3(1)1))" RST IS "((10(1)))rT$T$((10(1)))((10(1)))|2520TJI4ī14603340%/10805g"NO. OF QUESTIONS TO BE SENT OR '0' TO QUIT"oN1N10ī2910R11"BE PATIENCE! QUESTIONS ARE BUILDING..."J11N1I4(11(1)1)I41570,1630,1670,1730,1830,1930,20)L11L1255ī1410+ J(T$)ī1320E(T$,J1,1)H$ī1320O1350[(L1L11k2E$E$M$(K)u<1430FE$E$M$(K)C$(28)P1430ZL1L11dL1255ī1410nE$E$H$x1430"(** ERROR ** SENTENCE IS TOO LONG)"1460ION"; `R1j1150!t1470,~E$N2$5L10DJ1(T$)PK159bT1$(T$,J,1)T1$C$(K)T1$H$ī1230T1$C$(K)ī1270T1$H$ī1370K"(** ERROR ** ILLEGAL CHARACTER IN SENTENCE)"1080L1(M$(K) ARE : "J1E1R11-T$Q$(E(J))AE$R$(E(J))" "K3340RJ^J1N1lQ$(J)N2$zR$(J)N2$U$(J)N2$J$.6108"ENTER SENTENCE OR '$' TO QUIT ?";B2640LT$"$"ī2910V"NO. OF SENTENCE REPETITU$(J)T$ 4U$(J)Q$(J)ī850+ >E1E117 HE(E1)J> RJD \` f"SCORES FOR THIS QUIZ"f p z"NO. OF QUESTIONS = ";N1 "NO. OF CORRECT ANSWERS = ";N1E1 "NO. OF WRONG ANSWERS = ";E1  E10ī1060"THE ANSWERS '0' TO QUIT" vN1% N10ī29101 J1N1E R1(59(1)1)V R143R142g Q$(J)C$(R1){ R$(J)M$(R1)H$ R11 T$N2$ E$R$(J)H$ 3340 J 770 1070 E10 J1N1 "QUESTION #";J;" ?"; 2640 *E SENTENCE"% "(4) SENTENCE QUIZ"+ 2 IK I520,610,1080,1480U 2720a J159t T$C$(J)ī580{ &J 0"** ERROR ** NO SUCH CHARACTER IN TABLE" :520 DE$M$(J)H$ N3340 X520 b l"NO. OF QUESTIONS TO BE SENT OR"NO. OF WORDS PER MINUTE?"9 h"(5,10,15,20,25,30,35)";A rS1S |D0S((S15))_ D1D03e } 10);"COURSE MENU"  "*****************************"  "(1) MORSE CODE CHARACTERS" "(2) CHARACTER QUIZ" "(3) MORSE COD2$ I1426" F$F$C$(I)H$) I4 B$N2$A I2736T B$B$C$(I)H$[ If G$N2$s I3747 G$G$C$(I)H$ I "D$N2$ ,10);"MORSE CODE TUTOR" 6 @"THIS PROGRAM TEACHES THE MORSE CODE." J T"INPUT:" ^v  3090DC$(59),M$(59),S(7),Y$(3),Q$(50),R$(50),U$(50),E(50)PI159[(C$(I)b2In<I159yFM$(I)PIZI17dS(I)nIxD,T,F,F0,F1,Y$(1),Y$(2),Y$(3),H$,N2$A$N2$I113A$A$C$(I)H$I F$N                130(L2(X0P1(1(X0P1)))K74X1A(1)@X2A(2)LX3A(3)b Y2(X1X1X2X2)tY2.0012130} XY2*YA(3)4130>Y1X0P1(1(X0P1))H2180RY3X3Y2\I13fY3X3(Y2K4(Y3Y3K5))pIzY1(Y3)I313"XXP(I1,I3)C(I3,I2)*I39U(I1,I2)XA&I2I0I1U:WG9X5`DZ2P1iN280qXXZ}bX1(X)lY1(X)v20I113X0I313XXC(I1,I3)U(I3,1)I3A(I1)R1XI1YA(2)XA(1)I158|X1(M1M(2)((X1)X1(X1)))(1M(2)(X1))?ILE2X1X4gR1M(1)(1M(2)(E2))X1((E2)M(2))M(1)R1X2M(1)(1M(2)M(2))(E2)R1X(X1X1X2X2)X1X1XY1X2X20I113I213X0)T1(M(11)1000)1500(T1T11=X1X1365K(T1)G1460SWM(11)^Z1000g280{X124X2(X1Z)WM(3)X1Z2P1280"M1Z,WM(6)X1K36Z2P1@280JG9ZTX4M(7)X1^X5M(8)X1hX1M1rM9J60* J100((M9))((M9(M9))60)D(J(J)).5J(J)1LWJV(Z100_2280~<T1G(1)(J100)24Z1440FX21PT1M(11)1410ZX2M(11)dM(11)T1nT1X2xX21WT1Z1000280X1ZT1(T110005:W1.739935893X(628.33195055X6.75582E6)24X1K3EZ2P1N280VXZaM(6)X~" TIME STEP(MIN) ";S96);"SATELLITE GROUND TRACE""TIME";6);"LATITUDE";15);"LONGITUDE";26);"ALTITUDE (M)"J0Z11040 X1(G(1)1000)1+WG(1)3Z1<280TX1K(X1)1000X1ZpX1X1(24M(5)M(3))24}M(11)X1$XX1.WX8Z1B280LX1ZVX(X)`WXjZ1000t280~X(365(X1000)((X10001)4)Z.5)36520(M(1)3)'\M(4)M(1)(1M(2)M(2))DfX31.6239E3(M(4)M(4))lpX11X3M(10)(3P(3,3)P(3,3)1)2zX2X3(5P(3,3)P(3,3)1)2X3X3P(3,3)M(3)M(9)X1M(7)X2M(3)M(8)X3M(3)X1G(1)1WX1Z1000280 N(3)) P(1,3)(N(4))(N(3))<P(2,3)(N(4))(N(3))OP(3,3)(N(3))` M(1)N(1)K1nM(2)N(2) M(5)N(6)K7*M(2)(11M(1))8404"INCONSISTENCY BETWEEN ECCENTRICITY AND AXIS LENGTH">2300HM(10)(1N(2)N(2)) RM(9)K74 P(1,1)(N(5))(N(4))(N(5))(N(4))(N(3))g P(2,1)(N(5))(N(4))(N(5))(N(4))(N(3)) P(3,1)(N(5))(N(3)) P(1,2)(N(5))(N(4))(N(5))(N(4))(N(3)) P(2,2)(N(5))(N(4))(N(5))(N(4))(N(3))P(3,2)(N(5))() K7P1180, &" JU DT-YYDDD.XXXX";6 0G(1)R :G(1)1G(1)99365550h DG(3)(G(1)1000)s NWG(1)~ XZ1000 b280 lG(2)Z vG(3)77550 G(2)1550 G(2)365K(G(3))550 N(3)N(3)K7 N(4)N(4)K7 N(5)N(5)KOM KNOWN"! "EMPHEMERIS DATA."' ? "EPHEMERIS ENTRY:"J J16] " ";B$(J);g N(J)n J N(1)N(1)3.28083990281 K04.4620132877435 K120925639.76 K3.2625161454 K611298.26 K4.00669431777K6 K51(K6K6 "B J "LONG OF ASC NODE","ARG OF PERIGEE ","MEAN ANOMALY "k TB$(1),B$(2),B$(3),B$(4),B$(5),B$(6) ^K(X)(1X4(X4)) h r6);"SATELLITE GROUND TRACE" | "THIS PROGRAM CALCULATES SATELLITE" "GROUND TRACE AND ALTITUDE FR) XYX 220# X06(Y)- XXY8 YP12H WX0Y(X)R Z4Y[ 280d X0Zj { ZWZ(WZ) " ,P14(1) 6N(6),M(11),A(3),C(3,3),U(3,3),B$(6),G(3),P(3,3) @ "SEMI-MAJOR AXIS ","ECCENTRICITY ","INCLINATION P(X)((X.05)100)100( 3004I113@I213O(C(I1,I2)0W2I2_<I1mFC(2,2)X1{PC(2,1)Y1ZC(1,2)Y1dC(3,3)1nC(1,1)X1x(X)(Y)0160"ENTRY PROBLEM"2300(X)(Y)200 X05(X          S)=";ZX4X1Y4Y1$X1X2.Y1Y28X2X4BY2Y4HN"e,"CONTINUE (Y/N)";m6R$}@R$"Y"130J(4);"RUN TABLE OF CONTENTS"X((1SS))S)R7"UPLINK ZENITH ANGLE (DEGREES)=";ZAX4X1KY4Y1UX1X2_Y1Y2iX2X4sY2Y4y","CONTINUE (Y/N)";6R$@R$"Y"130J(4);"RUN MENU" CONTENTS"S))S)R"UPLINK ZENITH ANGLE (DEGREEFA2PT((X1X2)R)0ZTT((Y2Y1)R)TCdV((X1X2)R)ZnVV((Y2Y1)R)VdxTTVsR16.371E6V(R1A1)2(R1A2)2(R1A1)(R1A2)TR2(V)"RANGE (METERS)=";R2S((R1A2)T2(R1A1))R2S1S1Z(); + N, - S";X1>"GROUND LONGITUDE (DEG); + W, - E";FY1m"GROUND ANTENNA HEIGHT (METERS)";u A1"SATELLITE LATITUDE (DEG); + N, - S";X2("SATELLITE LONGITUDE (DEG); + W, - E";2Y2<"SATELLITE HEIGHT (METERS)";"S"1090&jX2B1(B260)(B33600)9tB$"S"X2X2V~"SATELLITE LONGITUDE ";gB1,B2,B3,B$xB$"E"1190B$"W"1150Y2B1(B260)(B33600)B$"E"Y2Y2"SATELLITE HEIGHT ";A21360 "GROUND LATITUDE (DEGB$"S"X1X10"GROUND ANTENNA LONGITUDE ";AB1,B2,B3,B$RB$"E"1050dB$"W"1010Y1B1(B260)(B33600)$B$"E"Y1Y1."GROUND ANTENNA HEIGHT ";8A1B"SATELLITE LATITUDE ";LB1,B2,B3,B$VB$"N"1130 `B$1240/"LATITUDE--DEGREE,MINUTE,SECOND,N/S"Z"LONGITUDE--DEGREE,MINUTE,SECOND,E/W""ANTENNA HEIGHT AND SATELLITE ARE IN METERS""GROUND ANTENNA LATITUDE ";B1,B2,B3,B$B$"N"990B$"S"950X1B1(B260)(B33600)*Y308304870#>X30870.HB11807R870E\B1360B1}fO$"T"ĺ"GREAT CIRCLE DISTANCE (MILES)=";A369.093pO$"T"ĺ"GREAT CIRCLE DISTANCE (KILOMETERS)=";A3111.136z"BEARING (DEGREES; WEST OF NORTH) =";B11570P$"DEG"(X1)(X2)(Y2Y1))"A3G1R/Y3Y1Y2<X3X2X1M(Y3)P760\Y30750iY3P2Y3r760Y3P2Y3U1(P1X1X2G1P1)2C1(U1)(U1P1X1) C10840B1(2R)((((U1P1X2)(U1G1))C1)) Y30860 ITUDE (DEG); + N, - S"; &X1I 0"DESIRED LONGITUDE (DEG); + W, - E";Q :Y1z D"INITIAL LATITUDE (DEG); + N, - S"; NX2 X"INITIAL LONGITUDE (DEG); + W, - E"; bY2 l vX1X1R Y1Y1R X2X2R Y2Y2RG1Q((X1)(X2) B1,B2,B3,B$! B$"N"4502 B$"S"410N X2B1(B260)(B33600)a B$"S"X2X2 "INITIAL LOCATION LONGITUDE"; B1,B2,B3,B$ B$"W"510 B$"E"470 Y2B1(B260)(B33600) B$"E"Y2Y2 620 "DESIRED LAT1,B2,B3,B$ 6B$"N"330+ @B$"S"290G JX1B1(B260)(B33600)Z TB$"S"X1X1} ^"DESIRED LOCATION LONGITUDE"; hB1,B2,B3,B$ rB$"W"390 |B$"E"350 Y1B1(B260)(B33600) B$"E"Y1Y1 "INITIAL LOCATION LATITUDE";) FOR DEGREES OR (DMS) FOR DEGREES,MINUTES,SECONDS";< P$N P$"DEG"240a P$"DMS"200r O$"S"İ910 O$"S"630 P$"DEG"540 "LATITUDE--DEG,MIN,SEC,N/S" "LONGITUDE--DEG,MIN,SEC,E/W" ""DESIRED LOCATION LATITUDE"; ,BTANCE AND ANGLES BETWEEN A GROUND"? o"STATION AND SATELLITE"E x] "PROGRAM OPTIONS:" " S-FOR SATELLITE CALCULATION" " T-FOR TERRESTRIAL CALCULATION" "PROGRAM OPTION"; O$ O$"S"200 O$"T"1304 "ENTER (DEG  P4(1)P1P2$P22PB(Q(X)(X(XX1))P1N2RP180T<kF" ","ANGLE/RANGE"qPZ"THIS PROGRAM CALCULATES FOR TWO POINTS"["ON THE EARTH SURFACE THE DISTANCE AND"d"BEARING. IN ADDITION IT CALCULATES"" n"DIS          G,1,21025.,21250.,2,0.,0.,3,21350.,21450.R T,0,21100.,21200.,2,0.,0.,3,0.,0.z" N,0,21100.,21200.,2,0.,0.,3,0.,0., ***** 20 METERS DATA6 E,1,14000.,14150.,2,0.,0.,3,14150.,14350.@ A,1,14025.,14150.,2,0.,0.,3,14175.,14350.(J G/ G,1,28000.,28500.,2,0.,0.,3,28500.,29700.W T,0,28100.,28200.,2,0.,0.,3,0.,0. N,0,28100.,28200.,2,0.,0.,3,0.,0. ***** 15 METERS DATA E,1,21000.,21250.,2,0.,0.,3,21250.,21450. A,1,21025.,21250.,2,0.,0.,3,21270.,21450.*,2,0.,0.,3,50.1,54.0< G,0,50.0,50.1,2,0.,0.,3,50.1,54.0d T,0,50.0,50.1,2,0.,0.,3,50.1,54.0 N,0,0.,0.,2,0.,0.,3,0.,0. ***** 10 METERS DATA E,1,28000.,28500.,2,0.,0.,3,28500.,29700. A,1,28000.,28500.,2,0.,0.,3,28500.,29700.,148.02P A,0,144.0,144.1,2,0.,0.,3,144.1,148.0^Z G,0,144.0,144.1,2,0.,0.,3,144.1,148.0d T,0,144.0,144.1,2,0.,0.,3,144.1,148.0n N,0,0.,0.,2,0.,0.,3,0.,0.x ***** 6 METERS DATA E,0,50.0,50.1,2,0.,0.,3,50.1,54.0 A,0,50.0,50.11280/5);"*** NO FREQUENCY ASSIGNMENT ***"5; b A1,A1;F1,A1;A3,A1;VOICE;SSTV;FAXr E,A,G,T,N( EXTRA,ADVANCED,GENERAL,TECHNICAN,NOVICE2 2,6,10,15,20,30,40,80,160< ***** 2 METERS DATAF E,0,144.0,144.1,2,0.,0.,3,144.1$(V(Z,7)))10B$"";M$(V(Z,7));22);V(Z,8);32);V(Z,9)`C30ĺ22);"10116";32);"10150"xV(Z,5)V(Z,6)1260FF1B$" "(M$(V(Z,4)))10B$""M$(V(Z,4));B$,V(Z,5),V(Z,6)C30ĺ29);"10116"," 10150"F0 TABLE OF CONTENTS"9L)R1BA(L,1)A1!LA(L,2)A2/VA(L,3)A35`\j"ARRAY SIZE HAS BEEN EXCEEDED..."qt(4);"RUN MENU" CONTENTS"".LA911308F(L)R1BA(L,1)A1LA(L,2)A2VA(L,3)A3`j"ARRAY SIZE HAS BEEN EXCEEDED..."t(4);"RUN2ĺF(I);10);A(I,1);20);A(I,2)&I,C"CONTINUE (Y/N)";KA$Q`A$"Y"70j1140yR101120L01060M1LR1F(M)1050A(M,1)A11050A(M,2)A210501120M$LL1.LA911308F( 4"INTERMOD";10);T(1);20);T(2);30);T(3)` >"FREQ.";10);"COEF.";20);"COEF.";30);"COEF."i H870 R"INTERMOD";10);T(1);20);T(2) \"FREQ.";10);"COEF.";20);"COEF." f pI1L zN3ĺF(I);10);A(I,1);20);A(I,2);30);A(I,3)N)K(T(1)T(2))J(T(1)T(3))* lA1QKJ4 vA2K= 980D KQ N3680X Jc I1Ln J1L F(I)F(J)790 TF(I) F(I)F(J) F(J)T K13 TA(I,K) A(I,K)A(J,K) A(J,K)T K J I *N2850, 980 R1CIC2JC3$ A2J- 9804 J; II JQ01T K0Qc KJQ650 R1QT(2)K(T(2)T(1))J(T(2)T(3)) A1K &A2QKJ 0A3J :980 DR1QT(2)K(T(2)T(1))J(T(2)T(3)) NA1K X980 bR1QT(1 CQT(3) C1T(3)T(1)- C2T(3)T(1)> C3T(3)T(2)O "C4T(3)T(2)Z ,I0Qh 6JQ01w @IJQ480 JR1CIC1JC4 TA1I ^A2J hA3QIJ r980 |R1CIC1JC3 A2J 980 R1CIC2JC4 A1I A2JRANSMIT FREQUENCIES (2,3)";" dN. nN290: xN390B L0M I1No "TRANSMIT FREQUENCY ";I;" ";y T(I) I "INTERMODULATION ORDER"; Q "OUTPUT:" "INTERMODULATION FREQUENCIES OF ORDER ";Q J0 N3510 r T(3),F(100),A(100,3)&A9100M6);"INTERMODULATION FREQUENCIES"S(2"THIS PROGRAM CALCULATES INTERMODULATION"3"FREQUENCIES OF A GIVEN ORDER PRODUCED"<"BY A MAXIMUM OF THREE TRANSMITTERS."FP"INPUT:" Z"NUMBER OF T    TERS DATA/& E,0,0.,0.,2,1800.,2000.,3,0.,0.U0 A,0,0.,0.,2,1800.,2000.,3,0.,0.{: G,0,0.,0.,2,1800.,2000.,3,0.,0.D T,0,0.,0.,2,0.,0.,3,0.,0.N N,0,0.,0.,2,0.,0.,3,0.,0.X(4);"RUN TABLE OF CONTENTS"A ***** 160 METERS DATA>& E,0,0.,0.,2,1800.,2000.,3,0.,0.d0 A,0,0.,0.,2,1800.,2000.,3,0.,0.: G,0,0.,0.,2,1800.,2000.,3,0.,0.D T,0,0.,0.,2,0.,0.,3,0.,0.N N,0,0.,0.,2,0.,0.,3,0.,0.X(4);"RUN MENU" CONTENTS"A ***** 160 ME.,2,0.,0.,3,0.,0., ***** 80 METERS DATAX E,1,3500.,3775.,2,0.,0.,3,3775.,4000. A,1,3525.,3775.,2,0.,0.,3,3800.,4000. G,1,3525.,3775.,2,0.,0.,3,3890.,4000. T,0,3700.,3750.,2,0.,0.,3,0.,0. N,0,3700.,3750.,2,0.,0.,3,0.,0..,2,0.,0.,3,0.,0.- ***** 160 METERS DATAS& E,2,1800.,2000.,2,0.,0.,3,0.,0.y0 A,2,1800.,2000.,2,0.,0.,3,0.,0.: G,2,1800.,2000.,2,0.,0.,3,0.,0.D T,0,0.,0.,2,0.,0.,3,0.,0.N N,0,0.,0.,2,0.,0.,3,0.,0.X(4);"RUN MENU"N& N,0,7100.,7150.,2,0.,0.,3,0.,0.A ***** 80 METERS DATAm E,1,3500.,3775.,2,0.,0.,3,3775.,4000. A,1,3525.,3775.,2,0.,0.,3,3800.,4000. G,1,3525.,3775.,2,0.,0.,3,3890.,4000. T,0,3700.,3750.,2,0.,0.,3,0.,0. N,0,3700.,3750 T,0,0.,0.,2,0.,0.,3,0.,0.; N,0,0.,0.,2,0.,0.,3,0.,0.V ***** 40 METERS DATA E,1,7000.,7150.,2,0.,0.,3,7150.,7300. A,1,7025.,7150.,2,0.,0.,3,7150.,7300. G,1,7025.,7150.,2,0.,0.,3,7225.,7300. T,0,7100.,7150.,2,0.,0.,3,0.,0.,1,14025.,14150.,2,0.,0.,3,14225.,14350.HT T,0,0.,0.,2,0.,0.,3,0.,0.h^ N,0,0.,0.,2,0.,0.,3,0.,0.h ***** 30 METERS DATAr E,1,10100.,10108.,2,0.,0.,3,0.,0.| A,1,10100.,10108.,2,0.,0.,3,0.,0. G,1,10100.,10108.,2,0.,0.,3,0.,0..6608G1G11'BG1Q1I5M2570aL"NO SOLUTION EXISTS BELOW LOWEST PERMISSIBLE ORDER."gV|`(4);"RUN MENU" CONTENTS"MV)1S(V1)S(V)((A(V)))3A(V)1Z1Z11GA(V)0Z1Z11VL1L1F(V)jS(V1)G11030tVV1A(V)S(V)G1Z1Z11S(V1)G1L1L1A(V)F(V)L1G3Z1T2870A(V)0660T1L12A(V)F(V)$T1G2870 1110 A(V)0870& VN8406 A(V)A(V)1J A(V)0Z1Z11Y *L1L1F(V)m 4S(V1)S(V1)1v >970 HA(N)(1)A(N) RL1L12A(N)F(N) \660 fV11080 pL1L1A(V)F(V) zA(V)0Z1Z11 A(V)0 VV1A(V)A(DA(1)(1)G1 NL1A(1)F(1)( XZ113 bI2N> lA(I)0E vIP S(1)0\ S(2)G1h I5I51} L1G2L1G3770 "TX FREQ","INTEGER" Q0 I1N F(I),A(I) QQ(A(I)) I "LOWEST INTERMODULATION ORDER = ";Q 2N330 hI1N rM0% |J1N6 T(J)M420A MT(J)J I4JQ J` F(I)T(I4)l T(I4)0s Iy  "OUTPUT:" 530 "CONTINUE (Y/N)"; A$ A$"N"1120 70 G3R1G8 G2R1G8 &I50 0G12 :V1 / "FREQUENCIES MUST BE POSITIVE INTEGERS..."8 190K "GUARD BAND";S G8a G80290u G8(G8)0310 ""FREQUENCIES MUST BE POSITIVE INTEGERS..." ,250 6"LOWEST ORDER"; @Q1 J"NUMBER OF TRANSMITTERS ACTIVE"; TT2 ^TTRANSMIT FREQUENCIES"; dN( nI1NJ x"TRANSMIT FREQUENCY ";I;" ";T T(I)d T(I)0160| T(I)(T(I))0180 "FREQUENCIES MUST BE POSITIVE INTEGERS..." 120 I "VICTIM FREQUENCY"; R1 R10230 R1(R1)0250} F(20),T(20),A(20),S(20),M2250000P6);"INTERMODULATION ANALYSIS"V(y2"THIS PROGRAM CALCULATES THE"3"INTERMODULATION ORDER ON A VICTIM"<"PRODUCED BY A SET OF TRANSMIT"="FREQUENCIES."FP"INPUT:" Z"NUMBER OF   "CONTINUE (Y/N)";A$.A$"Y"200P(4);"RUN TABLE OF CONTENTS"1403,46:"+"pII51682z16901403,46:":"I20"CONTINUE (Y/N)";A$A$"Y"200(4);"RUN TABLE OF CONTENTS"P"; ^LL1hL351670-rS9R(L)16209|S9R(L)MII5ĺ40);"+"bII5ĺ40);":"iIq20"CONTINUE (Y/N)";A$A$"Y"200(4);"RUN MENU"403,46:"+"II5168216901403,46:":"I20R(L)TTF(J) F(J)F(L)+F(L)T5JJ1CJ01420JIs8);"SIGNAL-TO-NOISE VS. FREQUENCY"{L120S9R(L)"IR(L)R(35)1,I55(I5)6II5ĺI;4);"+";@II5ĺ4);":";JS9I1670T4F(L));"*;4);"+"; II5ĺ4);":";.S9I1360A4F(L));"*";K(LL1Z2L351360l<S9S(L)1310xFS9S(L)PII5ĺ40);"+"ZII5ĺ40);":"dIn20xI134JILJ1R(J)R(L)1520TR(J)R(J)R(L)210LTS(J)VS(J)S(L)'`S(L)T2jTF(J)@tF(J)F(L)K~F(L)TVTR(J)dR(J)R(L)oR(L)TyJJ1J01080I8);"SIGNAL FIELD VS. FREQUENCY"L120S9S(L)IS(L)351I55(I5) II5ĺI)1I55(I5)*II5ĺI;4);"+";?II5ĺ4);":";OS9I1020b4F(L));"*";lLL1{L351020S9N(L)970S9N(L)II5ĺ40);"+"II5ĺ40);":"I20$I134.JI8LJ1BS(J)S(L)1 R1S1N1G7*5);"MAXIMUM SIGNAL-TO-NOISE RATIO"g4P(F1);12);P(S1);20);P(N1);30);P(R1)m>H"GRAPHS (Y/N) ";RA$\A$"N"1710fA$"Y"840p8);"NOISE FIELD VS. FREQUENCY"zL120S9N(L)IN(L)N(35RSNG5F(I);12);P(S);20);P(N);30);P(R)FN(I)(N.5)WR(I)(R.5)hS(I)(S.5)oIF1((3.257209(10.6094116F0F0M0M0L0L0F2F2))F2F04) S1F0(1M0M0(L0L0F1F1F1F1M0M0)F2)30N1N0.375P1(F1)";31);"(DB)"' :12);"DB ABOVE UV/M"V N"--------- ------ ------ ------------"b bI135m lF(I)I vNN0.375P1(I) IL0IM0700 D1(IM0)(IM0) D2(L0I)(L0I) D3M0M0F2 SF0(1D3(D1D2))30 710 S35 A$"QUIET RURAL"N023.5) N00510T "THIS NOISE AREA IS NOT AVAILABLE..."] 420| "RELATIVE ANTENNA GAIN "; G  "OUTPUT:" &"FREQUENCY";12);"SIGNAL";20);"NOISE";27);"SIGNAL/NOISE" '" (MHZ)";12);"FIELD";20);"FIELD)"; ^L12 h"TRANSMITTING ANTENNA GAIN (DB)";: rG0T |P0T110((G0L1)10)s F0P1(3E5(1000P0)D0) F2M0M0L0L0 N00 "NOISE AREA "; A$ A$"BUSINESS"N01.5 A$"RESIDENTIAL"N03.5 A$"RURAL"N08.5 SABLE FREQUENCY (MHZ) "; M0I "GREAT CIRCLE PATH DISTANCE (KM) ";Q D0v "EFFECTIVE RADIATED POWER (KW)" ""(0 FOR PROGRAM CALCULATED VALUE)"; ,P0 6P00390 @"TRANSMITTER POWER (KW)"; JT1 T"TRANSMITTING SYSTEM LOSS (DB0(10), 10);"SKYWAVE SIGNAL AND NOISE"2 \ "THIS PROGRAM CALCULATES SIGNAL AND" "NOISE FIELDS OVER A SKYWAVE PATH AND " "SIGNAL-TO-NOISE AT RECEIVER." "INPUT:" "LOWEST USABLE FREQUENCY (MHZ) "; L0 "MAXIMUM U P(X)(X100.5)100% 1405" DB";4);AI036L(A$"-"c2I(I5)5A$"+"l<A$;sFIPL35120Zd9);"5 10 15 20 25 30 35"n16);"FREQUENCY (MHZ)"xF(35),N(35),R(35),S(35) P12     KI(J2)1600 D(J)X- D(J1)Y4J@ M035.3S*D(4)102150_4L0D(2)k>W0D(3)uH2470RG2M0M0G2\fJ462pL0D(J)zW0D(J1)2470G2M0M0G2JLD(1)6371L40002260DI(1).5!ND2000637119308XI(4)1000(6371D)HbI(5)1I(4)_lD400063711930vvI(2)2000(6371D)I(3)1I(2)J2102I(J2)01980D(J)10D(J1)102070Y1XY2X1Y3H3Y0H4YD(1) TCP2Y2^1520 hAP2Y1*rBYK2|CD<1400GXP2DSAP2Y1[BDeCYKo1520YY3D(G(Y0Y3))H3YH4Y1I6111D(I6)0I6AXBX1CH4H3&14200D(1)D:D0ı (C)(D)1D(D)&A6(1DD)8A6(D)1490GA6(DA6)TDP2A6ZhD(A6D)xD0DPD~D(ABC)2A((DA)(DB))B((DC)(D))A(A)B(B)"1290,D2D6@AP2Y1JBY ";X;"KM"3420  D06(B)(A)01390J(B)(A)1350W(D5(B)e2B(AB)o<1370|FD6(A)PB(BA)ZAP2dD(DAB)4A((DAB)(4A))nxD(A)(B)(A)(B)(C)1430D(A)(B)(A)(B)(37S) tW1((L.05)10)109~W2((M0.05)10)10JXT1.008333xX100((X)24((X)24))(60(X(X)))Z$(X)Z$;10);W1;25);W2J3L11230S0S0U9H2S1S1.261799H2J3XD(1)6371"*** RANGE=600 X1XY1Y#XL(1)R11YW(1)R1;1750HH2T460UT1T1H2gL1(T3H2)1tJ31L1T1T1H2T1241070T1T124$D3D31.XL(1)R18YW(1)R1BX1L(2)R1LY1W(2)R1V1750`2220jLLS1E(12(R3Q5)60)/ S1S1R115.261799T15W "TIME";10);"LUF";25);"MUF"]*k4AL(1)R1y>BL(2)R1HC(W(1)W(2))R1R1420\D6371400990fY1L(1)R1pY2L(2)R1zY3W(1)R1Y0W(2)R1YDK.51C.1648))))GQ5Y(6.7428C(18.2706C(1.0424C(1.3976C.2544))))C2.7868C(3.3918C(.0952C(.8016C(.1024C.16))))B3Y(22.5484C(1.4136C(1.71C(.1664C(.2C.0768)))))U9(C2B3)R1.000717S0(G5J1)R1U912U9T1YSTEM LOSS MARGIN (DB)"; S; X((H1).5)2P365.25F Y(X)Q C(X) G5.7528C(22.5484C(.7068C(.57C(.0416C(.04C.0128))))) J1Y(3.4651C(.0476C(.2672C(.0257C.032)))) R32.8254C(.7409C(4.902C(.0552C(.9984D3( J8D3F(M31)2((M31)(M32))I "START TIME (GMT 0-2359) ";Q T1n &T1(T140(T1100))1.5 0"NO. OF HOURS IN PREDICTION PERIOD"; :T3 DT30620 N"TIME STEP (IN MINUTES) "; XT4 b630 lT41 vH1J8T124 "S2((.52998.00356(63.75C)).728).00177975 r200; |F I12r B$(I);" LATITUDE IN DEG (+ N, - S) ";y Y L(I)Y B$(I);" LONGITUDE IN DEG (+ E, - W) "; Y W(I)Y I  "MONTH (1-12) "; M3 "DAY "; "10.7 CM FLUX=";Z1 D "CHANGE SOLAR PARAMETERS? (Y/N) ";L C$\ C$"N"380 "NEW SUNSPOT NUMBER OR 0 FOR NO CHANGE "; C "C0330 ,Z2C 6Z163.75.728C.00089CC @200 J"NEW 10.7 CM FLUX "; TC ^Z1C, hZ2(X2)). nG(X)X2P((XP)(X(2P)))E xZ1,Z2,B$(1),B$(2)Q I114` H(I),F(I)g Iz " ","SKYWAVE" "THIS PROGRAM CALCULATES THE MUF/LUF FOR SKYWAVE PROPAGATION." "SOLAR PARAMETERS:" "SUNSPOT NUMBER=";Z2 - F(14),H(14),I(5),B$(2),L(2),W(2),D(11):P4(1)EP2P2R(R1P180u2A(X)12.5(((2.5X))1.5)<B(X)1.1((X24)3)FC(X)1.1.1(X)PD(X)1.2((4XP))ZE(X)X24(X24) dF(X)31X(X2)(X7)(1X          0 ITERATIONS"^(h(4);"RUN MENU" CONTENTS"VERGE IN 20 ITERATIONS"Y^{h(4);"RUN TABLE OF CONTENTS"E1500II112807"CONTINUE (Y/N) ";?Y$PY$"N"1640X80eI4120F1D5(K320Z(D5))M"D618.685889638MD5,D7D5F1D66(D7D5)1E41630@D5D7JI4 T"NEWTON METHOD FAILED TO CONVERGE IN 2A(I)L6013909PP3(A(I)32.4520Z(F)20Z(D3))40FZD410P3Pd1460nK3A(I)32.4520Z(F)20Z(D1)20Z(D3)MD1xD5D11550D4D71460B9;" ";C9;" ANTENNA HEIGHT ERROR"147010);A(I);25);D4II16B9H6H4B9H5H6-C9H6H5C9BD3H4H579.58LJI1ZD3D11440fD8D32 L526.4520Z(F)20Z(D8)A(I)L501340P2(A(I)26.4520Z(F))20(D410P221460<L632.4520Z(F)40Z(D1)20Z(D3)F1 8940BF10001120/LD1150F.53059V1130M`D160.4F.3337^jL$"H"1190ktH3LP2~H1((E2)(.06SL)2).5H2((E1)2(.06SL)2).25H6H3(H1H2)1210H72P((E1)2(.06SL)2).25H6LH7H4HF)20Z(D2)A(I)L40980?P1(A(I)26.4520Z(F))20LD410P1V1050wK3A(I)32.45(20Z(F))MDD5D1550D4D71050B9;" ";C9;" ANTENNA HEIGHT ERROR"106010);A(I);25);D4$II11500.II92744F4.21442807F5.021206351F6.92213833E3F7cHDD.21979868E03F8.83536752E05F9lR870\D(L1000P)(6561(300L)2).5fH(79.58LD).5pD1150F.5305zB9H1030C9H1030I1D2D6M L426.4520Z(5);"TRANSMISSION LOSS";25);"DISTANCE"H11);"(DB)";27);"(KM)"u5);"-----------------";25);"--------" S40001090F15.51090 L$"H"1090*F1008604D421.16432119.88270F41.499078F28.3837374F37>DD.045EIGHT (M) "; C9& P$"VERTICAL"B L$"H"P$"HORIZONTAL"H W "OUTPUT:"]  5);"TX ANTENNA HEIGHT (M) - ";B9 5);"RX ANTENNA HEIGHT (M) - ";C9 5);"FREQUENCY (MHZ) - ";F 5);"POLARIZATION - ";P$ +A3A4 L$"H"B81.6075 L$"V"F70B81.607? B0B8d &I31B0((B8B7).3)(K1.5)B7 0M.0575B0(F(13)).01 :I1I1 D"TRANSMISSION LOSS # ";I;" (DB) "; NA(I) XI b"TX ANTENNA HEIGHT (M) "; lB9 v"RX ANTENNA H1.607A1A2A3A4& L$"H"B71.607A L$"V"F70B71.607K B0B7Z I31560c K.8 A1.61834K(B213P12) A2(.23642(KK))(BP2) A3(.05339(K3))(3B211P12) A4(.002255(K4))(2B4P3) B8.7003A1A2A1X(B1) "A2(1(2B2))2/ ,A3(A1A2)J 6K.002656(L(13))A3Y @K.5370h JK.8470q TI31z ^K1K hK.5 rA1K(3P4B2) |A21.237(K3)(7P123B2) A3.5(K4)(P2B) A42.755(K5)(5P125B2) B7ELECTRIC CONSTANT "; E> "CONDUCTIVITY (MMHOS/METER)";E S^ "FREQUENCY (MHZ) ";e F "POLARIZATION (V/H) "; L$ L$"V"220 L$"H"180 I30 L300F X.06LS B1((E1)X) B2(EX) B2B2B1 )  Z(Y).434294481903(Y)*A(20)7P4(1)W(6);"GROUND WAVE DISTANCE"]2<"THIS PROGRAM CALCULATES THE DISTANCE"F"FOR A GIVEN GROUND WAVE LOSS."PZ"INPUT:"d"NO. OF TRANSMISSION LOSSES ";nI1 x"RELATIVE DI     z#   в в в ввРϱ  б !б"б ббб в  з0ийбб б бՠ б в г д*еж) 0) :"ELEMENT","LENGTH","SPACING"K D16),"(DIMENSION IN ";D$;")"Q Nj X"1",P(L1C1),"0.0"u bI2N lL2L1T(I1) vR(I)L22S1(1T) DR(I1)R(I) I,P(L2C1),P(DC1) I S1S1(T) "A NEW DESIGN (Y/N)"8 "LENGTH= ";P(S);" METERS; ";P(3.28083S);" FEET"W "NUMBER OF ELEMENTS = ";N] y "DESIGN CHANGE (Y/N)"; C$ C$"Y"170 "DIMENSIONS (FEET/METERS)"; D$ C11 D$"FEET"C13.28083 L1K1L1 &R(1)L12S1(1T0T39) @I0I11 JI6I(33.33T23.99)J TI7I(50.T39.5)W ^I8I9i hMU(I)TV(I)y rK2(S1B)M |L1299.8F1 L2299.8F2 S2(K1L1K2L2)S1(1T) AK1F2(K2F1) N(1L(A)L(1T)) 7),"ANTENNA DESIGN:") I  P100: "DESIRED ANTENNA GAIN (DB)";B G1P G18190_ G112190 "OPERATING RANGE -F1,F2 (MHZ)"; F1,F2 G10(G110) S1W1GGW2GW3 TX1S1X2 "K1X3(X40.2T) ,BY1TTY2TY3 6I(5ANTENNA" F: P"THIS PROGRAM CALCULATES THE PHYSICAL"f Z"CONFIGURATION AND FEEDER FOR DESIRED" ["BANDWIDTH AND GAIN" dC(X)((X)(X))2 nL(X)(X)(10) xP(X)(PX)P W1,W2,W3,X1,X2,X3,X4,Y1,Y2,Y3 I18 U(I),V(Ix U(8),V(8),R(50)X -5.76909996E-4,.0167208176,.0602945516,3.9866009,.236230336 .375,.210625,15.958,-24.949,10.246( 2.65,-3.81,2.65,-3.81,-5.10,2.70,0.,-1.69,-5.75,3.37,-2.102 .087,-10.85,8.225,-10.76,8.139 <10);"LOG-PERIODIC ER OR '0' TO QUIT ";!9:">";I2:I0I2537>;I062F<:]=(4);"RUN CHAP";Ic>I:=(4);"RUN CHAP";I> *"2+"* JOHN W. ROCKWAY DANIEL W.S. TAM *"a,"*-------------------------------------*"g-u.I1242/:I;0:"-";A$(I);21);1:I1;2:"-";A$(I1)3I4:"25";5:"-";A$(25)678"ENTER CHAPTER NUMBA$(I) $I %::G &"*-------------------------------------*"v '"* MICROCOMPUTER TOOLS FOR *" ("* COMMUNICATIONS ENGINEERING *" )"* BY *"*"* SHING TED LI JAMES C. LOGAN BROADBAND MATCH,STUB MATCHINGJ  GROUND WAVE LOSS,GROUND WAVE DIST.q  MUF/LUF SKYWAVE,SIGNAL AND NOISE  INTERMOD ANALYSE,INTERMOD FREQ.  ANGLE/RANGE,SATELLITE,MORSE CODE TUTOR FREQUENCY/MODE ALLOCATION !A$(25) "I125 #E PROGRAMS." I11500:IQ :"HIT ANY KEY TO CONTINUE";::"---->";:A$:o  COUPLING,FOLDED ANTENNA  LOG-PERIODIC,MININEC,LONG WIRE  AC CIRCUIT,TOOLBOX,DC CIRCUIT  PHASOR,TRANS. LINE,BUTTERWORTH  CHEBYSHEV,IMAGE PARAMETER! ,"- "EFFECTIVENESS AND ACCURACY OF THESE"\ "PROGRAMS. IN NO EVENT WILL THE AUTHORS" "OR PUBLISHER BE LIABLE FOR INCIDENTAL" "OR OTHERWISE CONSEQUENTIAL DAMAGES IN" "CONNECTION WITH THE FURNISHING OF, OR" "THE USE OF ANY OF THESINC."::6 "THE AUTHORS HAVE MADE EVERY EFFORT TO"` "ENSURE CORRECTNESS AND ACCURACY OF" "THESE PROGRAMS. HOWEVER, THE AUTHORS" "AND PUBLISHER MAKE NO EXPRESSED" "WARANTEE OR GUARANTEE OF ANY KIND" "WITH RESPECT TO COMPLETENESSd::MENUd" MICROCOMPUTER TOOLS":" FOR COMMUNICATIONS ENGINEERING":" BY":" SHING TED LI, JAMES C. LOGAN,":" JOHN W. ROCKWAY, & DANIEL W. S. TAM": " COPYRIGHT 1983 ARTECH HOUSE,      (1AA))AHS2C(Z120)(RP1000Y\"FEEDER SPACING TO DIAMETER RATIO= ";P(S2)bf680wp(4);"RUN MENU" ; C$C$"Y"1705"FEEDER DESIGN (Y/N)";=C$MC$"N"880S}3);"*** TWO WIRE FEEDER DESIGN ***""FEEDER IMPEDANCE"; Z0"ELEMENT LENGTH TO DIAMETER RATIO"; L*Z1276L(L)2704A8S1Z1Z0 >ZZ0(1FOR PARAMETERS"H909R(4);"RUN TABLE OF CONTENTS"R1GN1N T2GN2N1D(ST1)(ST1)T2T2I L1R42(ST1)DR4^*L2R42T2DI4g4380>"COUPLING CANNOT BE COMPUTED FOR PARAMETERS"H90R(4);"RUN MENU" CONTENTS"BR42T2DI44380>"COUPLING CANNOT BE COMPUTED Y2 b"COUPLING (DB) = ";G, lS06802 vI "NEW LOAD (Y/N)";Q A$a A$"N"850j 300 N(N1N1N2N2) S1 LN(2R1R4N1) LS830 L0830 L0.01760 G(S(SLL))L 770 G(L.25LLL)2T$(S);" COUPLING"7 "LOAD ADMITTANCE = ";L1;" +J ";L2I DL1L1L2L2U L1L1Db L2L2D &"LOAD IMPEDANCE = ";L1;" +J ";L2 0"INPUT ADMITTANCE = ";Y1;" +J ";Y2 :DY1Y1Y2Y2 DY1Y1D NY2Y2D X"INPUT IMPEDANCE = ";Y1;" +J ";0680 ^DL1L1L2L2# hL1L1D0 rL2L2D= |D1L1R4J D2L2I4\ DD1D1D2D2s T1(N1D1N2D2)D T2(D1N2D2N1)D Y1R1T1 Y2I1T2 NR3R3I3I3 S1480 G(L1N)(DY1) G10(G)(10)  " ";B= ";R3;20);" +J ";I34 "Y22= ";R4;20);" +J ";I4: c "CHANGE TWO-PORT PARAMETERS (Y/N)";k A${ "A$"Y"100 ,"LOAD IMPEDANCE (REAL,IMAGINARY)" 6"IF 0,0 IS ENTERED, ONLY MAXIMUM COUPLING IS COMPUTED"; @S2 JL1,L2 T(L1L2)MAGINARY)"; R2,I23 "Y21 (REAL,IMAGINARY)";> R3,I3[ "Y22 (REAL,IMAGINARY)";f R4,I4y N1R2R3I2I3 N2R2I3R3I2 "TWO-PORT ADMITTANCE PARAMETERS" "Y11= ";R1;20);" +J ";I1 "Y12= ";R2;20);" +J ";I2 "Y21  B$(2) B$(1)"MAXIMUM"1B$(2)"LOAD"7(N2" "," COUPLING"T<xF"THIS PROGRAM CALCULATE INPUT"G"IMPEDANCE/ADMITTANCE AND COUPLING"P"FOR A TWO-PORT NETWORK."Zd"Y11 (REAL,IMAGINARY)";nR1,I1 x"Y12 (REAL,I     A$"QUIET RURAL"N023.5) N00510T "THIS NOISE AREA IS NOT AVAILABLE..."] 420| "RELATIVE ANTENNA GAIN "; G  "OUTPUT:" &"FREQUENCY";12);"SIGNAL";20);"NOISE";27);"SIGNAL/NOISE" '" (MHZ)";12);"FIELD";20);"FIELD)"; ^L12 h"TRANSMITTING ANTENNA GAIN (DB)";: rG0T |P0T110((G0L1)10)s F0P1(3E5(1000P0)D0) F2M0M0L0L0 N00 "NOISE AREA "; A$ A$"BUSINESS"N01.5 A$"RESIDENTIAL"N03.5 A$"RURAL"N08.5 SABLE FREQUENCY (MHZ) "; M0I "GREAT CIRCLE PATH DISTANCE (KM) ";Q D0v "EFFECTIVE RADIATED POWER (KW)" ""(0 FOR PROGRAM CALCULATED VALUE)"; ,P0 6P00390 @"TRANSMITTER POWER (KW)"; JT1 T"TRANSMITTING SYSTEM LOSS (DB0(10), 10);"SKYWAVE SIGNAL AND NOISE"2 \ "THIS PROGRAM CALCULATES SIGNAL AND" "NOISE FIELDS OVER A SKYWAVE PATH AND " "SIGNAL-TO-NOISE AT RECEIVER." "INPUT:" "LOWEST USABLE FREQUENCY (MHZ) "; L0 "MAXIMUM U P(X)(X100.5)100% 1405" DB";4);AI036L(A$"-"c2I(I5)5A$"+"l<A$;sFIPL35120Zd9);"5 10 15 20 25 30 35"n16);"FREQUENCY (MHZ)"xF(35),N(35),R(35),S(35) P12"OUTPUT:"1"INPUT IMPEDANCE OF ";T$;":"O" RESISTANCE = ";I1m" REACTANCE = ";I2s"CONTINUE (Y/N)";A$A$"Y"220(4);"RUN MENU" CONTENTS"AU))$ "EQUIVALENT RADIUS = ";(T)@*X120((2L)T1)NX1R4T(1A)(1A)b>N12TXZ2rHN22TRZ2}RD1RT\D22Z2TXfTD1D1D2D2pI1(N1D1D2N2)TzI2(N2D1N1D2)TT$"DIPOLE"930I1I12I2I22R2))TX(T)120$N(K)(K)/Z2TN?R$"Y"820^R1B6K(1B7K(1B8K))RB1(1B2K(1B3K(1B4K(1B5KR)))) X11A6K(1A7K) X1A1(1A2K(1A3K(1A4K(1A5KX1))))T(R1)(UU(U)2U(V))((1U)(100, D"DISTANCE BETWEEN LEGS IS TOO SMALL"5 N410E XR$"N"650_ b"DIPOLE RESISTANCE";f lR v"DIPOLE REACTANCE"; X UR2R1 VDR1 T(VVUU1)(2V) TX(T) A(VVUU1)(2UV) AX(A) ATATD((R1(";A$;")"; R1' 10.1R12L510V "DIMENSION EXCEEDS LIMITATION OF PROGRAM"_ 460 "RADIUS OF PARASITIC LEG (";A$;")"; R2 10.1R22L560 "DIMENSION EXCEEDS LIMITATION OF PROGRAM" &510 0D(R1R2)2580 :D2R163951CLF rR$"Y"410+ |K1.571410V "LENGTH IS GREATER THAN QUARTER-WAVE"_ 340 "DISTANCE BETWEEN LEGS OF ANTENNA (";A$;")"; D 10.1D2L460 "DIMENSION EXCEEDS LIMITATION OF PROGRAM" 410 "RADIUS OF DRIVEN LEG IPOLE"; T$' "FREQUENCY (MHZ)";. FQ "DIMENSIONS (METERS/INCHES)";Y "A$a ,C1z 6A$"INCHES"C.0254 @"USER SUPPLIED RESISTANCE/REACTANCE (Y/N)"; JR$ T"LENGTH FROM DRIVE POINT TO ANTENNA END (";A$;")"; ^L hK.020945B7.424510415# B8.149907957< X(X)(X(XX1))B i 5);"IMPEDANCE OF FOLDED ANTENNA"o "THIS PROGRAM CALCULATES THE INPUT" "IMPEDANCE OF A FOLDED DIPOLE OR" "MONOPOLE ANTENNA." "INPUT:" "MONOPOLE OR D A1.11310393456E1+A2551.5297138>A36.546989422Q(A42.13440394e2A51.123152754x<A6.520263264FA7.210187161PB1.002688267ZB2350.7088321dB329.85375534nB4.946681399xB51.7083374B6.790703658      ;4);"+"; II5ĺ4);":";.S9I1360A4F(L));"*";K(LL1Z2L351360l<S9S(L)1310xFS9S(L)PII5ĺ40);"+"ZII5ĺ40);":"dIn20xI134JILJ1R(J)R(L)1520TR(J)R(J)R(L)210LTS(J)VS(J)S(L)'`S(L)T2jTF(J)@tF(J)F(L)K~F(L)TVTR(J)dR(J)R(L)oR(L)TyJJ1J01080I8);"SIGNAL FIELD VS. FREQUENCY"L120S9S(L)IS(L)351I55(I5) II5ĺI)1I55(I5)*II5ĺI;4);"+";?II5ĺ4);":";OS9I1020b4F(L));"*";lLL1{L351020S9N(L)970S9N(L)II5ĺ40);"+"II5ĺ40);":"I20$I134.JI8LJ1BS(J)S(L)1 R1S1N1G7*5);"MAXIMUM SIGNAL-TO-NOISE RATIO"g4P(F1);12);P(S1);20);P(N1);30);P(R1)m>H"GRAPHS (Y/N) ";RA$\A$"N"1710fA$"Y"840p8);"NOISE FIELD VS. FREQUENCY"zL120S9N(L)IN(L)N(35RSNG5F(I);12);P(S);20);P(N);30);P(R)FN(I)(N.5)WR(I)(R.5)hS(I)(S.5)oIF1((3.257209(10.6094116F0F0M0M0L0L0F2F2))F2F04) S1F0(1M0M0(L0L0F1F1F1F1M0M0)F2)30N1N0.375P1(F1)";31);"(DB)"' :12);"DB ABOVE UV/M"V N"--------- ------ ------ ------------"b bI135m lF(I)I vNN0.375P1(I) IL0IM0700 D1(IM0)(IM0) D2(L0I)(L0I) D3M0M0F2 SF0(1D3(D1D2))30 710 S35 ZZ0(1(1AA))A)S2C(Z120)4P1000e"FEEDER SPACING TO DIAMETER RATIO= ";P(S2)n770t(1AA))AHS2C(Z120)(RP1000Y\"FEEDER SPACING TO DIAMETER RATIO= ";P(S2)bf680wp(4);"RUN MENU"5CONTENTS" TO DIAMETER RATIO= ";P(S2)f680p(4);"RUN TABLE OF CONTENTS"zLZ1276L(L)270A8S1Z1Z0; C$C$"Y"1705"FEEDER DESIGN (Y/N)";=C$MC$"N"880S}3);"*** TWO WIRE FEEDER DESIGN ***""FEEDER IMPEDANCE"; Z0"ELEMENT LENGTH TO DIAMETER RATIO"; L*Z1276L(L)2704A8S1Z1Z0 >ZZ0(1) 0) :"ELEMENT","LENGTH","SPACING"K D16),"(DIMENSION IN ";D$;")"Q Nj X"1",P(L1C1),"0.0"u bI2N lL2L1T(I1) vR(I)L22S1(1T) DR(I1)R(I) I,P(L2C1),P(DC1) I S1S1(T) "A NEW DESIGN (Y/N)"8 "LENGTH= ";P(S);" METERS; ";P(3.28083S);" FEET"W "NUMBER OF ELEMENTS = ";N] y "DESIGN CHANGE (Y/N)"; C$ C$"Y"170 "DIMENSIONS (FEET/METERS)"; D$ C11 D$"FEET"C13.28083 L1K1L1 &R(1)L12S1(1T0T39) @I0I11 JI6I(33.33T23.99)J TI7I(50.T39.5)W ^I8I9i hMU(I)TV(I)y rK2(S1B)M |L1299.8F1 L2299.8F2 S2(K1L1K2L2)S1(1T) AK1F2(K2F1) N(1L(A)L(1T)) 7),"ANTENNA DESIGN:") I  P100: "DESIRED ANTENNA GAIN (DB)";B G1P G18190_ G112190 "OPERATING RANGE -F1,F2 (MHZ)"; F1,F2 G10(G110) S1W1GGW2GW3 TX1S1X2 "K1X3(X40.2T) ,BY1TTY2TY3 6I(5ANTENNA" F: P"THIS PROGRAM CALCULATES THE PHYSICAL"f Z"CONFIGURATION AND FEEDER FOR DESIRED" ["BANDWIDTH AND GAIN" dC(X)((X)(X))2 nL(X)(X)(10) xP(X)(PX)P W1,W2,W3,X1,X2,X3,X4,Y1,Y2,Y3 I18 U(I),V(Ix U(8),V(8),R(50)X -5.76909996E-4,.0167208176,.0602945516,3.9866009,.236230336 .375,.210625,15.958,-24.949,10.246( 2.65,-3.81,2.65,-3.81,-5.10,2.70,0.,-1.69,-5.75,3.37,-2.102 .087,-10.85,8.225,-10.76,8.139 <10);"LOG-PERIODIC      1));" , ";PT(Y(I1));" , ";PT(Z(I1));" , ";A(J)KC(I,2)C(I,1)I1I11g&C(I,1)0C(I,1)C(I,2)0C(I,2)0C(I,2)C(I,1):ID"CHANGE GEOMETRY (Y/N)";NA$XA$"Y"1030bH00lv"PROGRAM CONTROL:""FREQUENCY(MHZ)";EOMETRY ****":4"PULSE/END COORDINATES"_"# 1 2 X , Y , Z , RADIUS":hI10sI1NJC(I,2)C(I,2)C(I,1)JC(I,1)I1I11C(I,2)01810C(I,1)C(I,2)I1I110I;2);C(I,1);2);C(I,2);2);PT(X(IY1JY3S1 6Z(I4)Z1JZ3S1(@I4;JC(N,2)01690LTI2(C(N,2))c^F3(C(N,2))S(I2)ohI3I61rX(I6)X(I3)F3D(I2)|Y(I6)Y(I3)F3F(I2)I2C(N,1)F3F3Z(I6)Z(I3)F3G(I2)IDP10000:10);"**** ANTENNA GI1)Z1C(N1,1)01540,I2(C(N1,1))DF3(C(N1,1))S(I2)]X(I1)X(I1)F3D(I2)vY(I1)Y(I1)F3F(I2)C(N1,1)C(N1,2)F3F3Z(I1)Z(I1)F3G(I2)I3I31I6N2II4I11I6JI4I3"X(I4)X1JX3S1 ,Y(I4)Y3Z3Z3)D(I)X3D&F(I)Y3D4 G(I)Z3DBS(I)DS1MN1N1Y(NN1S1i2I10NN1y<I20NN1FJN1NPC(J,1)IZC(J,2)IdJnC(N1,1)I1xC(N,2)I2I1N12(I1)I3I1X(I1)X1Y(I1)Y1Z(`S1)j"END ONE COORDINATES (X,Y,Z)";7tX1,Y1,Z1R~"END ONE CONNECTION";ZI1~"END TWO COORDINATES (X,Y,Z)";X2,Y2,Z2"END TWO CONNECTION";I2"RADIUS";A(I)X3X2X1Y3Y2Y1Z3Z2Z1 D(X3X3Y3563713,.01451196@ .5,.12498594,.06880249,.0332836,.00441787U15);"********"j15);"MINI-NEC"15);"********""ANTENNA GEOMETRY:""NO. OF WIRES";$W.N08BI1WL"WIRE NO.";IV"NO. OF SEGMENTS";3),W(4),W(5),W(6),W(7),W(8),W(9),W(10)f .288675135,.5,.430568156,.173927423,.169990522,.326072577 .480144928,.050614268,.398333239,.111190517 .262766205,.156853323,.091717321,.181341892,29.979221 1.38629436,.09666344,.03590092,.03742zR(45,45),X(65),Y(65),Z(65),E(45),L(45),M(45),D(10),F(10),A(10)C(45,2),H(45),I(45),Q(14),W(10),B(45,45),G(10),S(10),P(45)P4(1)P0P180Q(1),Q(2),Q(3),Q(4),Q(5),Q(6),Q(7),Q(8),Q(9),Q(10),Q(11),Q(12)&Q(13),Q(14),G0,W(1),W(2),W(T3N33 T5N31" I6H0. I5N32; D0D0A2D LN3N T3H0X T4T3k TS4(Q(L).5)s 20 TS4(.5Q(L)) 20 *LL1 4T1T1Q(L)T3 >T2T2Q(L)T4 HLL1 RLI5750 \T1F2T1S4I6 fT2F2T2S4 pAS4(P3P2)S(P4) 0F21" :N37, DT1H06 NT2T1M XTS(P4).001A(P4)` bA2A(P4)A(P4)w l(D3)(D0)T680 vI616A(P4)S(P4) P1(P1)0F22 I6F2(1(I6))S(P4)PA(P4)2 P1(P1)0S4S(P4)2 720 T(D0)(S4) 30 I4(P21)( P2(P2)H0I4P25 I5(P2)R X2X(P1)(X(I4)X(I5))2o Y2Y(P1)(Y(I4)Y(I5))2 Z2Z(P1)F(Z(I4)Z(I5))2 X3X(P1)X(P3) Y3Y(P1)Y(P3) Z3Z(P1)FZ(P3) D0X2X2Y2Y2Z2Z2 D3X3X3Y3Y3Z3Z3 &(C(J,F1)) ,F32(C(J,F1))4 6P1(P1)H0440C @I4(P11)P JI5(P1)g TX1(X(I4)X(I5))2~ ^Y1(Y(I4)Y(I5))2 hZ1(Z(I4)Z(I5))2 rX2X1X(P2) |Y2Y1Y(P2) Z2Z1Z(P2)F X3X1X(P3) Y3Y1Y(P3) Z3Z1Z(P3)F 521) B10(B2)200# B1B1B6 V1V1W(L2)B1K V2V2W(L25)B1S L2m V(V1V2(B))(1B) D3(D3)8A(P4) T3T3((D3)V)PA(P4)1D B1DW T3T3(B1)D T4T4(B1)D  F11 F01 "C(J,1)C(J,2)F0'PT(X)(XDP.5)DP$ 8903X3TD(P4)BY3TF(P4)V(Z3FTG(P4)F02D(D0F3(X3X2Y3Y2Z3Z2)X3X3Y3Y3Z3Z3)<I6H0230FD3DDA2PBD3(D34A2)ZV1W(1)dV2W(6)nB11xB236L225 B2B2(L               G"450bC$"P"910+l(4);"RUN MENU" CONTENTS"PTS"LNORMALIZATION IS TOO LARGE..."(17003E1EH=1060OE(NHEE1)^EL0EL0mEL9EL9|D1P1(E)Z3;10);M3;20);D1J&I0:"CHANGE ANTENNA,GAIN,PATTERN OR EXIT (A,G,P,E)";DC$NC$"A"150XC$"(E0E0E2E2)TN7(MA))^N8(MA)<hE0N8N4N7N3OrE2N8N6N7N5n|E(E(E0E0E2E2))154P}E101770(E)L01720"NORMALIZATION IS TOO SMALL...""CHOOSE ANOTHER NORMALIZATION ANGLE"570(E)L91750"4(K2N1)(K2N2)P16705(N1K2).11520LN5(1(K2N1))N1V1530fN5K2K2N1|(N2K2).11560N6(1(K2N2))N21570N6K2K2N2"N7(MA),N8(MA)6E0N7N3N8N4@E2N7N5N8N6 JE(M)(M)E(M)K(E15EEP$216707<N11Z5(MA)JFN21Z5(MA)SPK2KcZT2K22Kyd(N1K2).11410nN3(K2N1)N1x1420N3K2(N2K2).11450N4(K2N2)N21460N4K2T21490E240A1A1N3NH(K1Z4)H4HH(Z39012107E101830b"NORMALIZATION ANGLE BELOW GROUND..."k570zE101250J0M21M3M0JM1MM3DE0T11340N11Z5(M)(N1K).11310 E(M)(N1K)N11320 ESISTANCE = ";R0;" OHMS"B7);"EFFICIENCY = ";N100;" PERCENT"Hv"ZENITH";10);"AZIMUTH";20);"GAIN (DB)"E101130$I0Z21.Z3Z0IZ18Z301830BZ31801830LZZ3DVZ4(Z)`Z5(Z)jH1tK101210 ~ALCULATION:"D"INITIAL ZENITH ANGLE(DEG),INCREMENT(DEG),NUMBER";RZ0,Z1,Z2aZ20Z21"INITIAL AZIMUTH ANGLE(DEG),INCREMENT(DEG),NUMBER";M0,M1,M2M20M217);A$(T);" ";G$(G);" GAIN PATTERN"G310407);"R60(1.415(CLF150))!890> "WIRE RADIUS (";A$;")";E*RO4RRCo>R0120((150A1FPR).6)xH890RR0240((4KA1A1).577)\890f"RADIATION RESISTANCE (OHMS)";pR0zE1R08PC$"G"990 "PATTERN C 180...." 570 ZZ3D( MM3D1 910> G1720[ "EFFICIENCY (PERCENT)";b Nn NN100 "USER SUPPLIED OR CALCULATED RADIATION RESISTANCE (U/C)"; B$ B$"C"770 B$"U"720 B$"U"870 T780,800,850 R0"GAIN FUNCTION (1-3)"; G+ G15208 &G3520E 0G3680y :"NORMALIZATION ANGLES: ZENITH, AZIMUTH (DEG)"; DZ3,M3 NZ30620 X"ZENITH ANGLE CANNOT BE NEGATIVE..." b570 lZ3180650 v"ZENITH ANGLE CANNOT BE GREATER THAN1430% r"VERTEX HALF ANGLE (DEG)";, |A9 A0370G A45370Q AAD] A1(A)o KPLFC300 K1PHFC150  "GAIN FUNCTIONS:" " 1-POWER GAIN" " 2-DIRECTIVE GAIN" " 3-NORMALIZED GAIN" E10 N1 ONS (FEET/METERS)"; A$0 A$"METERS"290D A$"FEET"240[ A$"FEET"C.3048a "z ,"ANTENNA GEOMETRY:" 6"HEIGHT ABOVE GROUND (";A$;"; 0 FOR NO GROUND PLANE)"; @H JH0310 TA$(T);" ANTENNA LENGTH (";A$;")"; ^L hTAS" 0 "PROGRAM CALCULATES PATTERN GAIN"X "FUNCTIONS OF LONG WIRE ANTENNAS."^ x " 1-DIPOLE ANTENNA" " 2-VEE ANTENNA" " 3-RHOMBIC ANTENNA" "ANTENNA TYPE (1-3)"; T "FREQUENCY(MHZ)"; F C1 "DIMENSI, A$(3),G$(3)"P110(10)/P4(1);(DP180H2L01E38T<L91E38_FC$"A"PA$(1),A$(2),A$(3),G$(1),G$(2),G$(3)Z "DIPOLE","VEE","RHOMBIC"d "POWER","DIRECTIVE","NORMALIZED"nB$"A" x5);"PATTERNS OF LONG WIRE ANTENN     K S1S2KJ-P(I2)P(I2)T2=&I3I21920I0LT2NX:S1G(I3,L)gDS2B(I3,L){NG(I3,L)G(I2,L)XB(I3,L)B(I2,L)bG(I2,L)S1lB(I2,L)S2vLE(I)I3F(I)I2S1G(I2,I2)S2B(I2,I2)TS1S1S2S20$TB(I2,I3)WY(I2,I3)X(I2,I3)W:^H(I2,I3)G(I2,I3)BhI3JrI2V|IT2NaP(I)0hItIT2N}S10JT2NP(J)T21810KT2NP(K)T21800S2G(J,K)G(J,K)B(J,K)B(J,K)(S1S2)01800I3JI2I2D(I1,6)I3D(I1,5)-I4D(I1,3)<I5D(I1,4)KI6D(I1,2)bD(I1,1)2I61I6~D(I1,1)1270,1320,1380I1WF0P2I1T2F3"I1T2W(WF1P2)F2,"FREQUENCY = ";WP2;" HZ"6I2T2N@I3T2NJW01632X(I3,I5)X(I3,I5)I62<X(I2,I5)X(I2,I5)I6KFX(I3,I4)X(I3,I4)I6UP1420dZI6R(I1,I)}dY(I2,I4)Y(I2,I4)I6nY(I3,I5)Y(I3,I5)I6xY(I2,I5)Y(I2,I5)I6Y(I3,I4)Y(I3,I4)I6T2T11540I1IT2T1I11A(4)A(I)01440I1T1A(I),I2R(I1,I3)=I3R(I1,I6)GI4I2QI5I3cI6T1R(I1,I)yI1270,1320,1370G(I2,I4)G(I2,I4)I6G(I3,I5)G(I3,I5)I6 G(I3,I4)G(I3,I4)I6G(I2,I5)G(I2,I5)I61420(X(I2,I4)X(I2,I4)I6 PROGRAM"," RUN - EXECUTE ANALYSIS"5910;$\.B$"P"ĺ"PORT CALCULATION:"8B$"V"ĺ"NODE VOLTAGE CALCULATION:"BLT20VI1T1N`I2T1NjG(I1,I2)T2tX(I1,I2)T2~Y(I1,I2)T2I2I1IT13 A$"EXIT"2650!A$"CF"6402A$"CI"730CA$"CP"870TA$"CC"280x" CC - CHANGE COMPONENTS"" CF - CHANGE FREQUENCIES"" CI - CHANGE CURRENT SOURCES"" CP - CHANGE PORT NODES" " EXIT - EXIT NODE,AMPS,PHASE (DEGREES)";)*I11I274J1,J2,J3M>I(J1)J2(J3P3)cHJ(J1)J2(J3P3)kRI1t\900f"NODES OF FIRST & SECOND PORTS";pN1,N2zB$"P"T11"ENTER CC,CF,CI,CP,EXIT,RUN,HELP";A$A$"RUN"1060,F2,F3F30F31$F20F212T11910i"PORT IMPEDANCE & COUPLING, NODE VOLTAGES (P/V)";qB$B$"P"870B$"V"690B$"V"I11NJ(I1)0I(I1)0I1 "NUMBER OF CURRENT SOURCES";I2 "SOURCE 0I11A(4)c :I1;10);D(I1,1);20);D(I1,2);30);D(I1,3);32);D(I1,4);34);D(I1,5);36);D(I1,6)k DI1 N"NUMBER OF MODIFIED DEVICES"; XD2 b470 lT11910 v "LOWEST, INCREMENT, MULTIPLE, AND # OF" "FREQUENCIES ";F0,F1620 9 "DEVICE NO.,TYPE,VALUE,4 NODE CONNECTIONS"h "(TYPE,VALUE: 1,MHOS;2,HENRIES;3,FARADS)"u I11D2 J1,D(J1,1),D(J1,2),D(J1,3),D(J1,4),D(J1,5),D(J1,6) I1 "DEPENDENT DEVICES" &"NO.";10);"TYPE";20);"VALUE";30);"NODE" R(J1,I),R(J1,I3),R(J1,I6)# hI12 rA$(I);"S"\ |"NO.";10);B$(I);27);"+NODE -NODE"k I11A(I) I1;10);R(I1,I);27);R(I1,I3);34);R(I1,I6) I1 "NUMBER OF MODIFIED ";A$(I);"S"; B B0320 I T10590 D20" NUMBER OF INDUCTORS";% A(2)D " NUMBER OF CAPACITORS";N A(3)t " NUMBER OF DEPENDENT DEVICES";~ A(4) D2A(4) I13 "T10420 ,BA(I) 6B0450 @ JA$(I);" NO., ";B$(I);", +NODE,-NODE" TI11B ^J1,360 ZP410(10) dM11E38, nM21E385 xT10^ A$(1),A$(2),A$(3),B$(1),B$(2),B$(3) "RESISTOR","INDUCTOR","CAPACITOR" "OHMS","HENRIES","FARADS" "INPUT:" " NUMBER OF NODES"; N " NUMBER OF RESISTORS"; A(1) +9 R(10,9),D(10,6),I(10),J(10),P(10),A(4),A$(3),B$(3)wG(10,10),X(10,10),Y(10,10),B(10,10),H(10,10),E(10),F(10)10);"AC CIRCUIT ANALYSIS"(2"THIS PROGRAM ANALYZES LINEAR AC CIRCUITS UNDER STEADY STATE."<FP28(1) PP3P2     620,1670,2050TH$"AC"1^"FREQUENCY (HZ) ";8hFWrC27.83E7(FZ(4))(1.)a|1680mH$"DC"v910S11870"RESISTANCE OR LENGTH (R/L)";G$G$U$1870"REQUIRED RESISTANCE (OHMS)=";R"WIRE DIAMETER="NTER S TO STOP OR RESISTANCE (OHMS)"B"RESISTANCE NO. ";K;"=";JR$ZR$T$1320fR(R$)tR01510YY1R"TOTAL RESISTANCE=";1Y;" OHMS"KK11440S0I14P$(I)"I,B$(7);6N@ JN1 I16 B$(I)'I3B$(7);: N@`N3970,1320,2260,2890,5640m(C11.E6s2~<I16FE$(I)PIZB$(7);dNnxN3970,1410,1540,1240,5640K1Y010);"PARALLEL RESISTORS"$"E20ı1B"***ERROR-METAL ";W$;" NOT ON LIST***":L910xV"SELECT UNITS (1-INCHES,2-FEET,3-CENTIMETERS,4-METERS)";`JjtI1M~N(I)13"COLOR NO. ";I;"=";C$J012C$A$(J)N(I)JJN(I)131160I9M$(I),M$(I10)+I1ĺV$(1),V$(2)@I3ĺ15),V$(3)VI4ĺV$(4),V$(5)fI5ĺV$(6)|I6ĺV$(7),V$(8)I7ĺ15),V$(9)I8ĺ15),V$(10)I"WHAT METAL ";W$K20I019$W$M$(I)KI.I8K4 J16D(I,J)J&I1I14<P$(I)C IQQ$,T$,U$] I110h*V$(I)o4Iy>1240H"ACCEPTABLE COLORS ARE :"RI0112\A$(I),A$(I1)fIpA$(12)z"CONDUCTING MATERIALS :"I0 I16X$(I)I'I141U(I)8ICI17NB$(I)UI`&I16k0E$(I)r:I}DI16NI$(I)XIbI17lJ$(I)vII17K$(I)IK$(8)B$(7)I15N$(I)II1,"(13 MN,1 C,86 FE)"H@A$(12),B(9),M$(19),N(6),U(4),X(19),X$(6),Z(19)JB$(7),E$(6),I$(6),J$(7),K$(8),P$(4),N$(5),D(4,6),V$(10)TI019^Z(I),X(I)hIrI019|M$(I)II012A$(I)II09B(I)I 2-DC RESISTANCE"G " 3-RESISTANCE AT ANY TEMPERATURE","Y","S","R"" "(66 CU,34 ZN)","(65 NI,12 CR,23 FE)","(64 CU,18 ZN,18 NI)", "(ANNEALED)","(4 SN,0.5 P,93.5 CU)","(HARD-DRAWN)","(18 NI)"6 "(0.1C,18CR,8NI,78.9FE)","(0.4-0.5 C,BAL FE)"N MENU"," 6-QUIT"Z "---CAPACITOR COLOR CODES---"," 1-FIXED MICA"," 2-MOLDED PAPER" " 3-TUBULAR CERAMIC","SELECT NUMBER",1000,5,1  0,500,3,1,0,200,.5,0,0,100,.3,0,0,-20,.1,.1,100,0,.05,.1,70 "WIRE RESISTANCE"," 1-AC RESISTANCE"," "===INDUCTOR TOOLS==="," 1-COLOR CODES"," 2-PARALLEL INDUCTORS" " 3-INDUCTIVE REACTANCE"," 4-COIL INDUCTANCE"," 5-OPTION MENU" " 6-QUIT","===COLOR CODES==="," 1-CAPACITORS"," 2-RESISTORS" " 3-RF CHOKES"," 4-DIODES"," 5-OPTIO=RESISTOR TOOLS==="," 1-COLOR CODES"," 2-PARALLEL RESISTORS"w " 3-WIRE RESISTANCE"," 4-OPTION MENU"," 5-QUIT" "===CAPACITOR TOOLS==="," 1-COLOR CODES"," 2-SERIES CAPACITORS" " 3-CAPACTIVE REACTANCE"," 4-OPTION MENU"," 5-QUIT"D OLD d SILVER,NO COLORI n 0,-30,-80,-150,-220,-330,-470,-750,30,500n x A,B,C,D,E,F,2.54,30.48,1.,100. "AVAILABLE OPTIONS : "," 1-COLOR CODES"," 2-RESISTORS" " 3-CAPACITORS"," 4-INDUCTORS"," 5-QUIT" "SELECT NUMBER "> "==INUM,BRASS,CADMIUM,CHROMIUM,COPPER,COPPER*k < GERMAN-SILVER,GOLD,IRON,LEAD,NICHROME,NICKEL,NICKEL-SILVER F PHOSPHOR-BRONZE,SILVER,STAINLESS-STEEL,STEEL,STEEL-MANGANESE P TIN,ZINC Z BLACK,BROWN,RED,ORANGE,YELLOW,GREEN,BLUE,VIOLET,GRAY,WHITE,G, " ","THE TOOLBOX"] 2.62,.0039,3.9,.002,7.5,.0038,2.6,0,1.7241,.0039,1.7929,.00393 33.,.0004,2.44,.0034,9.71,.0057,21.9,.004,100.,.00017,6.9,.0047( 28.,.00026,9.4,.0003,1.62,0,90.,.003,17.5,.003,70.,.003,11.4* 2 .0042,6.,.0037,ALUM               "; ^LL1hL351670-rS9R(L)16209|S9R(L)MII5ĺ40);"+"bII5ĺ40);":"iIq20"CONTINUE (Y/N)";A$A$"Y"200(4);"RUN MENU"GR(L)TTF(J) F(J)F(L)+F(L)T5JJ1CJ01420JIs8);"SIGNAL-TO-NOISE VS. FREQUENCY"{L120S9R(L)"IR(L)R(35)1,I55(I5)6II5ĺI;4);"+";@II5ĺ4);":";JS9I1670T4F(L));"*ENTS"P(J(J)Y(J,J)J(J))D," LOAD POWER = ";P1;" WATTS"P6P1P1Pa@P1M1P1M1rJP1M2P1M2TP3P2(P1)^" COUPLING = ";P3;" DB"h1360r(4);"RUN TABLE OF CONTENTS"R(I,I) I2" INPUT POWER = ";P;" WATTS"M"P1(J(J)Y(J,J)J(J))t," LOAD POWER = ";P1;" WATTS"6P1P1P@P1M1P1M1JP1M2P1M2TP3P2(P1)^" COUPLING = ";P3;" DB"h1360r(4);"RUN MENU"POF CONTNG CALCULATION";" CD - CHANGE DEPENDENT DEVICES"_" CR - CHANGE RESISTORS"" EXIT - EXIT PROGRAM"13705);"COUPLING CALCULATION""ENTER LOAD RESISTANCE NO. ";JP0I1RPPJ(I)J(I)Y J(I)0J1N-J(I)A(I,J)L(J)J(I)4(JG2J(I)J(I)E(I)i<I;10);J(I);25);J(I)Y(I,I)pFIvPZ"ENTER CC,CD,CR,EXIT,HELP";dA$nA$"EXIT"1650xA$"CR"450A$"CD"640A$"CC"1480" CC - COUPLI111~JNI111L(I)L(I)D(I,J)L(J)8J?IE\5);"NODE OUTPUT"r"NODE","VOLTAGE"}I1NI,L(I)I"RESISTOR";10);"RESISTOR";25);"RESISTOR""NUMBER";10);"VOLTAGE";25);"CURRENT"I1RJ2NI2NKI1,JIKJ17L1KWD(I,J)D(I,J)D(I,L)D(L,J)^LmJI1060D(I,J)D(I,J)D(I,I)$I.J8I1N9N11120BJ1I1LL(I)L(I)D(I,J)L(J)VJ`L(I)L(I)D(I,I)jItINL(I)A(J,I)J(J)L(I) J$I/ I1N:*J1NB4S0O>D(I,J)SZHL1RbRT0m\K1RfTTY(L,K)A(K,J)pKzSSA(L,I)TLD(I,J)D(I,J)SJIN11080I2ND(1,I)D(1,I)D(1,1)I XN1G(I,1) bN2G(I,2)? lI;5);Y(N2,N1);20);N1;30);N2F vIi "NUMBER OF MODIFIED DEVICES";q D1 D10500 I1R J(I)0 J1R J(I)Y(I,J)E(J)J(I) J J(I)I(I)J(I) I I1N L(I)0 J1R1 R10200 D0670" M "DEVICE NO.,MHOS,CONTROL R,RECEIVE R"Y I1D1j D1,O1,N1,N2y G(D1,1)N1 G(D1,2)N2 &Y(N2,N1)O1 0I :5);"DEPENDENT DEVICES" D"NO.";5);"MHOS";20);"CONTROL R";30);"RECEIVE R" NI1DJ L(E(I))(I(I))N L0ĺI;5);1Y(I,I);14);N1;20);N2;27);"NONE" E(I)0ĺI;5);1Y(I,I);14);N1;20);N2;27);E(I);" VOLTS" I(I)0ĺI;5);1Y(I,I);14);N1;20);N2;27);I(I);" AMPS" I "NUMBER OF MODIFIED RESISTORS"; R1)1O N10280# A(J1,N1)11 N20300A "A(J1,N2)1H ,Io 65);"RESISTOR AUGMENTED BRANCHES" @"NO.";5);"OHMS";14);"+NODE";20);"-NODE";27);"SOURCE" JI1R TN10 ^N20 hJ1N rA(I,J)1N1J |A(I,J)1N2J nN x"NUMBER OF RESISTORS";' R0 R1RT "NUMBER OF DEPENDENT DEVICES";[ Dd D1Dq R0480w "RESISTOR NO.,OHMS,+NODE,-NODE,SOURCE (VOLTS),SOURCE (AMPS)" I1R1 J1,O,N1,N2,E1,I1 E(J1)E1 I(J1)I1 Y(J1,J @ Y(15,15),E(15),I(15),J(15),A(10,15),L(10),D(10,10),G(5,2)`10);"DC CIRCUIT ANALYSIS"f("THIS PROGRAM ANALYZES LINEAR RESISTOR")"CIRCUITS"2<P210(10)FM11E38PM21E38Z"INPUT DATA:"d"NUMBER OF NODES";      % M$(3),S$(5),L$(5),B(9),V(45,9)-N98I03C(M$(I)J2IU<I15`FS$(I)gPIrZI15}dL$(I)nIxI19B(I)II1N5D$J19V(I,J)JI "U.S. AMATEUR FREQUENCY/MO         !"I1000,80,1160,1380,1590K, ENTRY,RUN,LIST,ERASE,EXIT,^,*,/,+,-`6(4);"RUN MENU" CONTENTS"4TRY,RUN,LIST,ERASE,EXIT,^,*,/,+,-6(4);"RUN TABLE OF CONTENTS"IXIT,LIST,RUN, OR HELP";E$*I15=E$B$(I)1560DIf" ENTRY-ENTER VARIABLES"" ERASE-ERASE VARIABLES"" EXIT -EXIT PROGRAM"" LIST -LIST VARIABLES"" RUN -ENTER EQUATION : EXECUTE"1450EAL = ";L1(I)/,12);"IMAGINARY= ";L2(I)M-12);"COMMENT = ";C$(I)T<IZFgPW0910qZ1430ydE0n1430x10);"PHASOR CALCULATIONS""THIS PROGRAM PERFORMS PHASOR ARITHMETIC"W1"ENTER ENTRY,ERASE,EPRINT FORMATA1!W0AE,IAENM3(L1(I)L1(I)L2(I)L2(I))[D5L1(I)v D50D50.00000000001A1(L2(I)D5)P3D50A1A1180("VARIABLE ";(I64);":")12);"MAGNITUDE= ";M3*12);"PHASE = ";A1+12);"R(I64);":";)8D$(I),L1(I),L2(I),C$(I)=BD$(I)"R"1140JLM3L1(I)WVA1L2(I)m`L1(I)M3(A1P3)jL2(I)M3(A1P3)tI~1430"VARIABLE LIST:"E01200"THE VARIABLE LIST IS EMPTY"1370  REMOVE FOR 40 COLUMN Y$Y$"N"960/"ENTER COMMENT ";:C$(E)BP0JM0\Y$"N"EE1f1430}"VARIABLE ENTRY:""NO. OF ENTRIES";VBE1EEV"VARIABLE FORMAT: TYPE,VALUE1,VALUE2,COMMENT"$IBE ."VARIABLE ";D3(1)P2(I)D2D4)D5= M2(P)(D2D3(1)P2(I)D1D4)D5F*840a4M1(P)D1(1)P2(I)D3|>M2(P)D2(1)P2(I)D4HIREE1\L1(E)M1(P)fL2(E)M2(P)pD$(E)"R"zW01170"SAVE RESULT IN VARIABLE ";(E64);" (Y/N) ";0,770,820,820# M3(D1D1D2D2)- D5D1H D50D50.00000000001X A1(D2D5)k D10A1A1P4 M1(P)M3D3(A1D4)(D4(M3)D3A1) M2(P)M3D3(A1D4)(D4(M3)D3A1) 840 D51 P2(I)3D5D3D3D4D4M1(P)(D1 N(T$(P1(I)J))16307 XD3L1((T$(P1(I)J))64)T bD4L2((T$(P1(I)J))64)] l650 vD3M1(((T$(P1(I)J),2,(T$(P1(I)))1))) D4M2(((T$(P1(I)J),2,(T$(P1(I)))1))) PP1 T$(P1(I)J)" " T$(P1(I))"M"(P) P2(I)690,77 J (T$(P1(I)J))1530< D1L1((T$(P1(I)J))64)Y D2L2((T$(P1(I)J))64)b 550 D1M1(((T$(P1(I)J),2,(T$(P1(I)))1))) D2M2(((T$(P1(I)J),2,(T$(P1(I)))1))) &T$(P1(I)J)" " 0J1100 :T$(P1(I)J)" "590 DJ")"320 "E1(I)K# ,T$(K)" ", 63303 @K: JIH TIC11S ^J15j hKB1(I)1E1(I)1 rT$(K)V$(J)420 |MM1 P1(M)K P2(M)J T$(K)T$(K)(M) K J I I1M J1100 T$(P1(I)J)" "490$)11160! n(F$,1,1)"("1303 xF$"("F$")"? N(F$)E _ " ";(E65)"=";F$e m C0x I1N (F$,I,1)"("240 CC1 B1(C)I T$(I)" " 250 T$(I)(F$,I,1) I IC11 KB1(I)N T$(K)a 0 D$(26),L1(26),L2(26),C$(26),T$(255),B$(5)kM1(100),M2(100),P1(100),P2(100),B1(100),E1(100),V$(5)B$(1),B$(2),B$(3),B$(4),B$(5)(V$(1),V$(2),V$(3),V$(4),V$(5)2P44(1)<P3P4180F1400P"ENTER EQUATION:";ZF$ d(F     C1(P2W)(P2W)!rA1Z0IC1.|A2RC1:A3RZ0IA4IZ0C1[TA3A3A4A4rZ1(A1A3A2A4)TZ2(A2A3A1A4)T"INPUT IMPEDANCE = ";Z1;" +J ";Z2"CONTINUE (Y/N)";A$A$"Y"70(4);"RUN MENU" CON = ";Z0 1"NEW TRANSMISSION LINE (Y/N)";9A$HA$"Y"70Nq"REAL LOAD IMPEDANCE (OHMS)";xR""IMAGINARY LOAD IMPEDANCE (OHMS)";,I6"FREQUENCY (MHZ)";@FJ"LINE LENGTH (FEET)";TW^WWF1.017E3h <1290"FZ060(4HD1)(E),P1480KZ" ","PARALLEL-STRIP LINE"Wd"W,L";`nW,LqxL10W1430" L>>W!!!"1370Z0377WL1480"CHARACTERISTIC IMPEDANCE";Z01540"CHARACTERISTIC IMPEDANCE1250H210D11270B" UNACCEPTABLE INEQUALITY!!!"L1180~Z0120((2DD1)(1DD4H1H2)(.5))(E)1480 " ","SINGLE WIRE, NEAR GROUND""D1,H,DIELECTRIC CONSTANT"D1,H,E(H10D113502" H>>D1!!!"1150+j" UNACCEPTABLE INEQUALITY!!!"5t1080e~Z0120((2DD1)(1DD4HH)(.5))(E)o1480" ","BALANCED 2-WIRE NEAR GROUND""D,D1,H1,H2,DIELECTRIC CONSTANT";D,D1,H1,H2,ED10D112201250H110D11240020 1030H10D11050F" UNACCEPTABLE INEQUALITY!!!"O970{Z030((4HD1)(14HHDD).5)(E)$1480." ","BALANCED, NEAR GROUND"8"D,D1,H,DIELECTRIC CONSTANT"BD,D1,H,ELD10D11120V1130`H10D110 920D10D2940C" UNACCEPTABLE INEQUALITY!!!"L860pA((4DDD1D2)D1D2D2D1)2Z060(A(AA1))(E)1480" ","WIRES IN PARALLEL, NEAR GROUND""D,D1,H,DIELECTRIC CONSTANT"D,D1,H,ED10D111480+ " ","OPEN 2-WIRE LINE IN AIR"8"D,D1";B D,D1S*D10D1840h4" D1>D2!!!"q>780HZ0120(2DD1)R1480\" ","BALANCED 2-WIRE, UNEQUAL DIAMETERS"f"D,D1,D2,DIELECTRIC CONSTANT";pD,D1,D2,EzD10D19NT";D1,D2,E#D110D27209" D1>>D2!!!"B660OA1D1D2xA2(1.405A1(4))(1.405A1(4))A3(1.163A1(8))(1.163A1(8))A4(1.067A1(12))(1.067A1(12))Z0(60(A1)6.482.34A2.48A3.12A4)(E) :D1,D2,C,E% DD12(CD22)600. N610@ XD110D2630g b" UNACCEPTABLE INEQUALITY!!!"p l550 vA(D1D2D2D14CCD2D1)2 Z060(A(AA1))(E) 1480 " ","SINGLE WIRE, SQUARE ENCLOSURE""D1,D2,DIELECTRIC CONSTARIC CONSTANT"; D1,D2,D,E/ D110D24808 490I D10D2510n " UNACCEPTABLE EQUALITY!!!"w 430 A1DD2 A2DD1 Z030((A12A2A2)(1A24))(E) 1480 &" ","ECCENTRIC LINE" 0"D1,D2,C,DIELECTRIC CONSTANT"; @D110D2340 J350+ TD10D2370Q ^" UNACCEPTABLE INEQUALITY!!"Z h290f rA1DD2r |A2DD1 A21410 350 Z0120(2A1(1A2A2)(1A2A2))(E) 1480 " ","WIRES IN PARALLEL-SHEATH RETURN" "D1,D2,D,DIELECT!!" 110+ " ","SINGLE COAXIAL LINE"M "D1,D2,DIELECTRIC CONSTANT";Z D1,D2,Ei D2D1270 " D1>D2 !!!" 210 Z060(D1D2)(E) 1480 "" ","BALANCED SHIELDED LINE" ,"D1,D2,D,DIELECTRIC CONSTANT"; 6D1,D2,D,EACTERISTIC IMPEDANCE: USER-SUPPLIED/CALCULATED (U/C)";> ZA$O dA$"U"1450q n"LINE CONFIGURATION (1-12)";x xC~ C8180 C4170 C210,290,430,550 (C4)660,780,860,970 (C8)1070,1170,1290,1370 "INCORRECT ENTRY! P28(1)-10);"TRANSMISSION LINE"3V("THIS PROGRAM CALCULATES THE")"CHARACTERISTIC IMPEDANCE OF DIFFERENT"2"LINE CONFIGURATIONS. IT ALSO"3"CALCULATES INPUT IMPEDANCE FOR A"<"GIVEN LOAD/LINE LENGTH."F6 P"CHAR     GRAMS." I11500:IL :"HIT ANY KEY TO CONTINUE";::"---->";:A$:j  COUPLING,FOLDED ANTENNA  LOG-PERIODIC,MININEC,LONG WIRE  AC CIRCUIT,TOOLBOX,DC CIRCUIT  PHASOR,TRANS. LINE,BUTTERWORTH  CHEBYSHEV,IMAGE PARAMETER  B"EFFECTIVENESS AND ACCURACY OF THESE"W "PROGRAMS. IN NO EVENT WILL THE AUTHORS" "OR PUBLISHER BE LIABLE FOR INCIDENTAL" "OR OTHERWISE CONSEQUENTIAL DAMAGES IN" "CONNECTION WITH THE FURNISHING OF, OR" "THE USE OF ANY OF THESE PRO:0 "THE AUTHORS HAVE MADE EVERY EFFORT TO"Z "ENSURE CORRECTNESS AND ACCURACY OF" "THESE PROGRAMS. HOWEVER, THE AUTHORS" "AND PUBLISHER MAKE NO EXPRESSED" "WARRENTEE OR GAURANTEE OF ANY KIND" "WITH RESPECT TO COMPLETENESS,"( q :^" MICROCOMPUTER TOOLS":" FOR COMMUNICATIONS ENGINEERING":|" BY":" SHING TED LI, JAMES C. LOGAN,":" JOHN W. ROCKWAY, & DANIEL W. S. TAM": " COPYRIGHT 1983 ARTECH HOUSE, INC.":JnP$(12,1)" "&xP$(12,31)" "014306@L$""LY112XX139jL$L$P$(Y,X)qXyL$L$""Y(4);"RUN MENU" CONTENTS"P11,21)Z$J620&P$(11,J)" "-J9J114LP$(11,J6)" "SJ^J1LwP$(11,J6)(S$,J,1)~JC11310 C01430I(C1134021420<J139FP$(10,J)" "PP$(11,J)" "ZP$(12,J)" "d339P$(4,J)Z$"P$(6,J)Z$)J9P$(5,23)Z$IP$(5,39)Z$ZP$(5,31)" "f$J114y.P$(5,J24)" "8JBJ1LLP$(5,J24)(S$,J,1)VJ`1280jJ521tP$(10,J)Z$~P$(12,J)Z$JP$(11,5)Z$ P$(,J)"."*J4I112*>P$(I,1)".";HP$(I,31)"."BRIK\N1N`fB$E$(2)N1N1hpK0tzI1N1~KK1S$(N(K))L(S$)Z$"C"T$(K)F$(1)Z$"L"CC1C21130N1NIKK1N1NI1310J2";N(I);" ";T$(I)# lJJ2(J2)16 vLL2(L2)1= IC d 10);"**FILTER PICTORIAL**"m 730s  "CONTINUE (Y/N)"; C$ C$"Y"100 1520 C0 J139 I112 P$(I,J)" " I J J131 P$(11 E(2)1(R1PW12)1 " ","**DESIGN TABLE**"N 10);"ELEMENT VALUE"V J1g A$"PI"J2o LJ &D$"HIGH"LJ2(J2)1 0I1N :C2((2I1)P(2N)) DN(I)E(L)CS NI1B$E$(J) XT$(I)F$(L) b10);I;"-";E$(J);" ENCY (HZ)"; ^F3 h< r"ATTENUATION CHARACTERISTICS"c |"FREQUENCY(HZ)","ATTENUATION(DB)"s IF1F2F3 AP1(1(1(IW1)(2N))) I,A I  "FILTER CONFIGURATION (Y/N)"; C$ C$"N"690  E(1)R1(2PW1)R1" "CUTOFF FREQUENCY (HZ) ";* W1J "NUMBER OF ELEMENTS ";Q Ne D$"HIGH"S1 "ATTENUATION CHARACTERISTICS (Y/N)"; C$ "C$"N"430 ,"LOW FREQUENCY (HZ) "; 6F1 @"HIGH FREQUENCY (HZ)"; JF2 T"STEP FREQUISTICS AND ELEMENTS OF A"4 Z"BUTTERWORTH FILTER.": dB nS1b x"T OR PI SECTION FILTER ";j A$z A$"T"160 A$"PI"120 "LOW OR HIGH PASS FILTER"; D$ D$"LOW"200 D$"HIGH"160 "LOAD IMPEDANCE (OHMS) "; . E$(2),F$(2),N(10),P$(12,39),T$(10),E(2);P4(1)KP110(10)h(E$(1),E$(2),F$(1),F$(2)2 "SERIES","SHUNT ","HENRIES","FARADS"<8);"BUTTERWORTH FILTER SYNTHESIS"FP"THIS PROGRAM CALCULATES THE ATTENUATION" Q"CHARACTER     +"* JOHN W. ROCKWAY DANIEL W.S. TAM *"\,"*-------------------------------------*"b-p.I1242z/:I;0:"-";A$(I);21);1:I1;2:"-";A$(I1)3I4:"25";5:"-";A$(25)67%8"PLEASE ENTER CHAPTER NUI) $I %::B &"*-------------------------------------*"q '"* MICROCOMPUTER TOOLS FOR *" ("* COMMUNICATIONS ENGINEERING *" )"* BY *" *"* SHING TED LI JAMES C. LOGAN *"-ROADBAND MATCH,STUB MATCHINGE  GROUND WAVE LOSS,GROUND WAVE DIST.l  MUF/LUF SKYWAVE,SIGNAL AND NOISE  INTERMOD ANALYSE,INTERMOD FREQ.  ANGLE/RANGE,SATELLITE,MORSE CODE TUTOR FREQUENCY/MODE ALLOCATION !A$(25) "I125 #A$((4);"RUN MENU" CONTENTS"PC0"1700,I%6C11610/@1690;JJ139LTP$(10,J)" "]^P$(11,J)" "nhP$(12,J)" "urJ|P$(12,1)" "P$(12,31)" "1700L$""Y112X139L$L$P$(Y,X)XL$L$""YZP$(5,J24)(S$,J,1)dJ'n15503xJ521CP$(10,J)Z$SP$(12,J)Z$ZJjP$(11,5)Z${P$(11,21)Z$J620P$(11,J)" "JJ114P$(11,J6)" "JJ1LP$(11,J6)(S$,J,1)JC11580 L(S$)Z$"C".T$(K)F$(1)Z$"L"8CC1FC21400XN1NIKK1iN1NI1580vJ2339P$(4,J)Z$P$(6,J)Z$ JP$(5,23)Z$P$(5,39)Z$(P$(5,31)" "2J114<P$(5,J24)" "FJPJ1LC$C$"Y"1001790&C02J139>I112NP$(I,J)" "UI\Jh$J131y.P$(11,J)"."8JBI112LP$(I,1)"."VP$(I,31)"."`IjN1NtB$E$(2)N1N1~K0I1N1KK1S$(N(K))0C0)4N(I)E(L)C1S*>I1B$E$(J):HT$(I)F$(L)cR10);I;"-";E$(J);" ";N(I);" ";T$(I)m\A0A1wfB0B1pC0C1zJJ2(J2)1LL2(L2)1I10);"**FILTER PICTORIAL**"1000"CONTINUE (Y/N)";ʭA$"PI"J2 LJ2 D$"HIGH"LJ2(J2)1A TE117.37a T((T)(T))((T)(T))l E(T)z TE(2N) G((T)(T))2 A0.5 B0G C01 I1N A1((2I1)P(2N)) T(IPN) B1GGTT*C14A0A1(B)) XNT! T((X)(X))2= AP1(1(1E1E1TT))F &I,AM 0IS :v D"FILTER CONFIGURATION (Y/N)";~ NC$ XC$"N"960 bE(1)R1(2PW1) lE(2)1(R1PW12) v" ","**DESIGN TABLE**" 10);"ELEMENT VALUE" J1 "STEP FREQUENCY (HZ)"; rF3% |H "ATTENUATION CHARACTERISTICS"o "FREQUENCY(HZ)","ATTENUATION(DB)" IF1F2F3 I0450 TP2 480 IW1500 Y(W1W1II) T(YI) T(NT) 540 XIW1 T(X(XX1"LOAD IMPEDANCE"; R14 "CUTOFF FREQUENCY";< W1W "NUMBER OF ELEMENTS";^ Nr D$"HIGH"S1 ""ATTENUATION CHARACTERISTICS (Y/N)"; ,C$ 6C$"N"570 @"LOW FREQUENCY (HZ)"; JF1 T"HIGH FREQUENCY (HZ)"; ^F2 hICS AND COMPONENTS OF A"1 Z"CHEBYSHEV FILTER."7 d? nS1^ x"T OR PI SECTION FILTER";f A$v A$"T"160 A$"PI"120 "LOW OR HIGH PASS FILTER"; D$ D$"LOW"200 D$"HIGH"160 "PASS BAND RIPPLE (DB)"; E1  . E$(2),F$(2),N(10),P$(12,39),T$(10),E(2);P4(1)KP110(10)h(E$(1),E$(2),F$(1),F$(2)2 "SERIES","SHUNT","HENRIES","FARADS"<8);"CHEBYSHEV FILTER SYNTHESIS"FP"THIS PROGRAM CALCULATES THE ATTENUATION" Q"CHARACTERIST     MBER":" OR 0 TO QUIT ";.9:I?:I0I2537K;I062S<:j=(4);"RUN CHAP";Ip>I(4);"RUN MENU" CONTENTS"PJ);" ";F$(J)PHZHT3.dB$"N"1420anH1;"-";"SERIES ";(.3S)E(1);" ";F$(1)xH2;"-";"SHUNT-SERIES",(.3S)E(2);" ";F$(2)H3;"-";"SHUNT-SERIES",(.53333S)E(1);" ";F$(1)"CONTINUE (Y/N)";C$C$"Y"110T4(M1)H I1$HHT4.II1f(H;"-";E$(L);" ";((M(I)2)S)E(J);" ";F$(J)2H1;"-";E$(J);G$,E(J)(((1M(I)2)(4M(I)))S);" ";F$(J)<H2;"-";E$(J);G$,(M(I)S)E(L);" ";F$(L) FH3;"-";E$(L);" ";((M(I)2)S)E( ";(.3S)E(1);" ";F$(1)#H41K01270AT3(K1)HNHHT3H;"- ";E$(L);" ";E(J)(2S);" ";F$(J)H1;"- ";E$(J);" ";E(L);" ";F$(L)H2;"- ";E$(L);" ";E(J)(2S);" ";F$(J)HHT3M01380""ELEMENT","VALUE" $H1(.J108L2ABG$"-SERIES"RLA$"T"1140ZVJ2j`G$" "rjL1tB$"N"1190~"1- ";"SHUNT-SERIES ";(.3S)E(2);" ";F$(2)"2- ";"SHUNT-SERIES ";(.533333S)E(1);" ";F$(1)"3- ";"SERIES X,3Kz910X,0 X&I"FILTER CONFIGURATION (Y/N)";QC$bC$"N"1430hE(1)(2S)R1(PW1)E(2)(2S)(R1PW1)S11030F$(1)"HENRIES"F$(2)"FARADS"1050F$(1)"FARADS"F$(2)"HENRIEST(II1)K0750-AK2(IT):M0770JB$"N"830WJ1M1n I(W(J)W1)S860T1(M(J)IT)(M(J)IT) I(W(J)W1)ST1T1*AA(T1)4J>AP1AHW1(IS),AR870\W1(IS),"HIGH"f910p540 D"LOW FREQUENCY (HZ)";' NF1C X"HIGH FREQUENCY (HZ)";K bF2g l"STEP FREQUENCY (HZ)";o vF3u  "ATTENUATION CHARACTERISTICS" "FREQUENCY(HZ)","ATTENUATION(DB)" XF1F2F3 I(XW1)S I1880 I1900A0$;"-PASS ";A$;" COMPOSITE FILTER CONSISTS OF:"\ B$"Y"ĺ10);"TERMINATING HALF SECTIONS" K0ĺ10);K;" CONSTANT-K SECTIONS" M0ĺ10);M;" M-DERIVED SECTIONS"  "ATTENUATION CHARACTERISTICS (Y/N)"; &C$ 0C$"N"930 :C$"Y""HIGH"ĺ"MUST BE LESS THAN CUTOFF..."V |D$"LOW"ĺ"MUST BE GREATER THAN CUTOFF..."_ 330o M(I)(1B)v I "LOAD MATCH TERMINATIONS (Y/N)"; B$ M(1).6 W(1)W1(1.25S) B$"N"M(1)0 B$"N"W(1)0 . "THIS ";DOFF FREQUENCY (HZ)"; W1B "NUMBER OF CONSTANT-K SECTIONS";I Ku "NO. OF HIGH ATTENUATION FREQUENCIES";| "M ,M0420 6"ENTER FREQUENCIES (HZ)" @I2M1 J"ENTRY NO. ";I1; TW(I) ^B(W1W(I))(2S) hB1400& rD$ d"COMPOSITE FILTER." n% xS1D "T OR PI SECTION FILTER";L A$\ A$"T"170n A$"PI"130 "HIGH OR LOW PASS FILTER"; D$ D$"LOW"210 D$"HIGH"170 D$"HIGH"S1 "LOAD IMPEDANCE (OHMS)"; R1 "CUT # E(2),E$(2),F$(2),M(50),W(50)0P8(1)@P120(10)R(E$(1)"SHUNT"e2E$(2)"SERIES"<10);"IMAGE PARAMETER"F10);"FILTER SYNTHESIS"PZ"THIS PROGRAM CALCULATES THE ATTENUATION"["CHARACTERISTICS AND COMPONENTS OF A"     /N)"; F$F$"Y"4202(4);"RUN MENU" CONTENTS"CONTINUE (Y/N)";\F$lF$"Y"420(4);"RUN TABLE OF CONTENTS"(4);"RUN TABLE OF CONTENTS"0(4);"RUN TABLE OF CONTENTS"NRANGE TYPE VALUE"0u"NO.";9);"MENT";~I1KaI;8);A$(I);17);E$(I);27);L(I)hIn"FREQ(MHZ) RESISTANCE REACTANCE VSWR"I1NF(I);11);P(R(I,J));24);P(X(I,J));35);Q(S(I,J))I"CONTINUE (YDR(I,J)1&HWDX(I,J)X(I,J)>ADX(I,J)WX(I,J)c$A(HHAA)(DDX(I,J)X(I,J))z.S(I,J)(1A)(1A)8BL15);"ANTENNA NO."V`"THE MATCHING NETWORK OF THE ANTENNA AND THE MATCHED IMPEDANCE"jt"ELEMENT AR,J)S1X(I,J)X(I,K)Z.R(I,J)R(I,J)WCX(I,J)X(I,J)WM1020F(I);8);P(R(I,J));19);P(X(I,J));29);Q(S(I,J));35);Q(S1)I"PROCEED WITH ELEMENT NUMBER - ";K1K101090KK1430WR(I,J)1"FREQ RESISTANCE REACTANCE VSWR SHIFT"8+"(MHZ)"C4I1Ne>ZR(I,K)R(I,K)X(I,K)X(I,K)yHR(I,J)R(I,K)ZRE$(K)C$880\X(I,J)X(I,K)Z25E6(PF(I)L(K))f890pX(I,J)1E8PF(I)L(K)X(I,K)ZzWR(I,J)R(I,J)X(I,J)X(IK) 7000X(I,J)X(I,K)1E8(PF(I)L(K)):1020OS1X(I,J)X(I,K)F(I);8);P(R(I,J));19);P(X(I,J));29);Q(S(I,J));35);Q(S1)I960E$(K)C$790L(K)25E06(PFX0) 800L(K)1E08X0(PF) +*T ";D$; 0F,X0# :A$(K)B$7605 DE$(K)C$610M NL(K)25E6X0(FP)V X620n bL(K)1E08(X0PF)t l v"FREQ RESISTANCE REACTANCE VSWR SHIFT" w"(MHZ)" I1N R(I,J)R(I,K) E$(K)C$690X(I,J)X(I,K)4E4PF(I)L(T CASE - ELEMENT ";K/ "SERIES OR PARALLEL";: A$(K)M D$"REACTANCE"e A$(K)"SERIES"510z D$"SUSCEPTANCE" A$(K)B$450 "CAPACITOR OR INDUCTOR"; E$(K) E$(K)C$550 E$(K)"INDUCTOR"510 &"FREQ(MHZ),NORM. ELEMENMBER OF MODIFICATIONS"; @N1. JN130150= TN10400m ^"NO.,FREQ(MHZ),NORM. RESISTANCE,REACTANCE"y hI1N1 rK,F(K),R(K,1),X(K,1) |I 260  "DESIGN INITIATES WITH FIRST ELEMENT NEXT TO ANTENNA" K1 JK1 "TES1N "ENTRY NO. ";I;1 F(I),R(I,J),X(I,J)H R(I,J)R(I,J)50C_ X(I,J)X(I,J)50Ci 1020p Iv  "NO. FREQ(MHZ) RESISTANCE REACTANCE VSWR" I1N "I;5);F(I);15);P(R(I,J));26);P(X(I,J));36);Q(S(I,J)) ,I 6"NUNTENNAS" F! PC$"CAPACITOR"3 ZB$"PARALLEL"\ d"IMPEDANCE NORMALIZATION CONSTANT";c nC x"NUMBER OF ANTENNA IMPEDANCES"; N N31170 "NUMBER CANNOT EXCEED 30" 120 J1 "FREQ(MHZ),NORM. RESISTANCE,REACTANCE" I3 "P(X)((X.005)1000)1000@Q(X)((X.05)100)100t S(30,6),L(6),E$(6),F(30),R(30,6),X(30,6),A$(6)P4(1)10);"BROADBAND MATCHING"(2"THIS PROGRAM ASSISTS THE DESIGN OF "3"MATCHING NETWORKS FOR BROADBAND" <"A       0,.7, RG-142A/U,500,.7,RG-142B/U,500,.7T RG-174/U,500,.66,RG-213/U,500,.66{  RG-215/U,500,.66,RG-216/U,75,.66 AJ50 1/2 INCH,500,.81,AJ50 3/4 INCH,500,.81  AJ50 7/8 INCH,500,.81,AJ75 1/2 INCH,75,.81* AJ75 3/4 INCH,75,.81,AJ75 75,.66,RG-58B/U,53.5,.66= RG-58C/U,500,.66,RG-59/U,73,.66g RG-59/U FOAM,75,.79,RG-59A/U,73,.66 RG-62/U,93,.86,RG-62/U FOAM,95,.79 RG-62A/U,93,.86,RG-62B/U,93,.86 RG-133A/U,95,.66,RG-141/U,500,.7 RG-141A/U,500,.7,RG-142/U,50v RG-11/U,75,.66,RG-11/U FOAM,75,.8K RG-11A/U,75,.66,RG-12/U,75.,.66p RG-12A/U,75,.66,RG-17/U,52,.66 RG-17A/U,52,.66,RG-55/U,53.5,.66 RG-55A/U,500,.66,RG-55B/U,53.5,.66 RG-58/U,53.5,.66,RG-58/U FOAM,53.5,.79 RG-58A/U,53.1E3E11580E9P3%F1P42P1E3E1<1580FE7P3PE8P4]E5E9E7j&E6F1E8t0R0E6~:1630DE6R0NX RG-8/U,52,.66,RG-8/U FOAM,500,.8b RG-8A/U,52,.66,RG-9/U,51,.66l RG-9A/U,51,.66,RG-9B/U,500,.66%1710"$,P3(P1P1P2P2)46P4(P2P1)K@P10P20P4PP4cJP10P20P4PP4iTz^R02P1660hR0R02Pr1630|R001690R0R02P1660R0PR0R02PR3R1(R2)R4R1(R2)P (2<R1I7%FR2I5/P17109ZI8R3CdI6R4OnP11I8YxP2I6c1580mI3P3wI4P4P1I9P2J21580J5P3J6P4P11I8P2I61580I1P3I2P4R1J5I3I1R2J4I4I2 FROM LOAD=";N7;" ";V$;"STUB LENGTH =";N8;" ";V$AX"CONTINUE (Y/N)";`A$oA$"Y"60y2130"LINE TYPE";15);"IMPEDANCE";25);"VELOCITY"25);"CONSTANT"J149L$,Z1,V1 L$;17);Z1;25);V1J1740M9E5M4E60M40M42PM4A$S$"S"1120Q.M801100e8N8(3PM4)4PoB1130LN8(PM4)4PV1130`N8(2PM4)4PjV299.8E6tV$"FEET"V984.E6~N7(VF)V0N7N8(VF)V1N8"DISTANCE0 4I7E5>I5R0 H1340*RY1R34\Y2R4NfY11N7(M3R0)4PbpR00R0R02P{zY11N7(R0M3)4PI91J20I5M31340N2R3M7R4Y11M7M7M6M7Z0M8M6Z1E11E30P2M8 520 7 "OPERATING FREQUENCY (HZ) ";> Fg "DIMENSIONS (FEET/METERS) ";o V$ V$"FEET"730 V$"METERS"690 E1Z0 E3R P2X 1740 R0E6P 1630 M3P2(E5(1E5E5)) I91*J2 "; V1 6607 "LIST DATA BASE (Y/N)";? A$E U &A$"N"580f 0A$"Y"520p :1250 D"STUB TYPE "; NT$ XJ149 bL$,Z1,V1 lT$L$660 vJ "NO SUCH ";T$;" STUB TYPE IN DATA BASE!"S OF STUB:"4 "OPEN OR SHORT CIRCUIT STUB (O/S)";< S$L S$"O"430] S$"S"390 "DATA BASE OR USER (D/U) "; D$ D$"D"520 D$"U"430 "CHARACTERISTIC IMPEDANCE OF STUB"; Z1 "VELOCITY CONSTANT OF STUB 370% "LIST DATA BASE (Y/N)";- A$3 C A$"N"290T A$"Y"230^ 1250v ""LINE TYPE ";~ ,T$ 6J149 @L$,Z0,V0 JT$L$370 TJ ^"NO SUCH ";T$;" LINE TYPE IN DATA BASE!" h230 r |"CHARACTERISTIC REACTANCE (OHMS) ";% nX+ xK "CHARACTERISTICS OF LINE:"t "DATA BASE OR USER (D/U) ";| D$ D$"D"230 D$"U"140 "CHARACTERISTIC IMPEDANCE OF LINE"; Z0 "VELOCITY CONSTANT OF LINE "; V0 P4(1)/6);"STUB MATCHING PROGRAM"5]("THIS PROGRAM CALCULATES THE STUB"2"MATCHING OF A LOAD TO A LOSELESS"3"TRANSMISSION LINE."<F"CHARACTERISTICS OF LOAD:"P"LOAD RESISTANCE (OHMS) ";ZR d"LOAD!! ! ! ! ! !!!!!!!!! ";C9;" ANTENNA HEIGHT ERROR"(n1410>x6);A(I);22);L3MII11440WII1a1270g"CONTINUE (Y/N) ";Y$Y$"Y"80(4);"RUN MENU" CONTENTS"E/N) ";Y$Y$"Y"80(4);"RUN TABLE OF CONTENTS"H5C9D3H4H579.58L"I14D3D101380JA(I)D3201290T1340h A(I)D101320~A520Z(A(I)D3)1350(A520Z(D1D3)M(A(I)D1)21350<A56FL232.4520Z(F)20Z(A(I))PL3L2A5Z1400dB9;" F.5305L1120%VD160.4F.33376`L$"H"1180CjH3LP2atH1((EE)(.06SL)2).5~H2((E1)2(.06SL)2).25H6H3(H1H2)1200H72P((E1)2(.06SL)2).25H6LH7H4H6B9H6H4B9H5H6C9H60Z(F)20Z(A(I)) D2D6M3A(I)D20970<990NA5M(A(I)D)X1000bA56oL3L2A5y1040B9;" ";C9;" ANTENNA HEIGHT ERROR"10506);A(I);22);L3II11440$II1.9308F1001110BD11503EHDD.04592744F4.21442807F5.021206351F6.92213833E3F7qRDD.21979868E03F8.83536752E05F9z\880fD(L1000P)(6561(300L)2).5pH(79.58LD).5zD1150F.5305B9H01020C9H01020I1L232.452 - ";P$ :5);"DISTANCE";20);"TRANSMISSION LOSS"V7);"(DB)";26);"(KM)" 5);"--------";20);"-----------------"S40001080 F15.51080*L$"H"10804F100870>D421.16432119.88270F41.499078F28.3837374F̺"RX ANTENNA HEIGHT (M) ";" C94 P$"VERTICAL"P L$"H"P$"HORIZONTAL"V e "OUTPUT:"k  3);"TX ANTENNA HEIGHT (M) - ";B9 3);"RX ANTENNA HEIGHT (M) - ";C9 3);"FREQUENCY (MHZ) - ";B93);"POLARIZATION 8.7003A1A2A3A4( L$"H"B81.607C L$"V"F70B81.607M B0B8\ &I31570{ 0B0((B8B7).3)(K1.5)B7 :M.0575B0(F(13)).01 DI1I1 N"DISTANCE # ";I;" (KM) "; XA(I) bI l"TX ANTENNA HEIGHT (M) "; vB9 5B2) B71.607A1A2A3A44 L$"H"B71.607O L$"V"F70B71.607Y B0B7h I31570q K.8 A1.61834K(B213P12) A2(.23642(K2))(BP2) A3(.05339(K3))(3B211P12) A4(.002255(K4))(2B4P3) BB2B2B1 A1X(B1)- "A2(1(2B2))2= ,A3(A1A2)X 6K.002656(L(13))A3g @K.5370v JK.8470 TI31 ^K1K hK.5 rA1K(3P4B2) |A21.237(K3)(7P123B2) A3.5(K4)(P2B) A42.755(K5)(5P12"RELATIVE DIELECTRIC CONSTANT ";) EL "CONDUCTIVITY (MMHOS/METER)";S Sl "FREQUENCY (MHZ) ";s F "POLARIZATION (V/H) "; L$ L$"V"220 L$"H"180 I30 L300F X.06LS B1((E1)X) B2(EX)   Z(Y)0.434294481903(Y)+A(20)8P4(1)a(6);"GROUND WAVE TRANSMISSION LOSS"g2<"THIS PROGRAM CALCULATES THE TRANSMISSION"F"LOSS FOR A GIVEN SMOOTH EARTH DISTANCE."PZ"INPUT:"d"NO. OF DISTANCES ";nI1" x"" " " " " """"""