ЇB1(J,I)│B1(J,I)мV8)B1(J,J)│B1(J,J)лV85Бе 40208Y0Е I┤▓0 ░ K┤▓0 з A(I,K)│A(I,K)лV8}DЕ J┤▓0 ░ L┤▓0 з A(J,L)│A(J,L)лV8бXЕ J┤▓0 ░ K┤▓0 з A(J,K)│A(J,K)мV8┼lЕ I┤▓0 ░ L┤▓0 з A(I,L)│A(I,L)мV8╓АЕ K┤N з 45208▐ФN│K8яиЕ L┤N з 45608ў╝N│L9╨Бе 40209"ф:Г determinant computation93°Е N▓1 з 46409MD1│A(N,N):D2│B(N,N):Р9_ D1│1:D2│0:K│19g4L│K9ГHS│ В(A(K,K))л В(B(K,K))9С\А I│K е N9нpT│ В(A(I,K))л В(B(I,K))9┐ДЕ S▓│T з 47809╦ШL│I:S│T9╙мЛ I9ф└Е L│K з 49609Є╘А J│1 е N:шS│мA(K,J):№A(K,J)│A(L,J):A(L,J)│S:.$S1│мB(K,J):J8B(K,J)│B(L,J):B(L,J)│S1:RLЛ J:\`L│Kл1:jtА I│L е N:НИS1│A(K,K)нA(K,K)лB(K,K)нB(K,K):┤ЬS│(A(I,K)нA(K,K)лB(I,K)нB(K,K))оS1:р░B(I,K)│(A(K,K)нB(I,K)мA(I,K)нB(K,K))оS1:ё─A(I,K)│S:Л I:№╪J2│Kм1;ьЕ J2│0 з 5220;А J│L е N;+А I│1 е J2;Y(A(K,J)│A(K,J)мA(K,I)нA(I,J)лB(K,I)нB(I,J);З<B(K,J)│B(K,J)мB(K,I)нA(I,J)мA(K,I)нB(I,J);УPЛ I:Л J;вdJ2│K:K│Kл1;░xА I│K е N;┐МА J│1 е J2;эаA(I,K)│A(I,K)мA(I,J)нA(J,K)лB(I,J)нB(J,K)<┤B(I,K)│B(I,K)мB(I,J)нA(J,K)мA(I,J)нB(J,K)<'╚Л J:Л I<9▄Е K┤▓N з 4660<AЁL│1<PJ2│ Б(Nо2)<dЕ N│2нJ2 з 5480<l,L│0<z@D1│A(N,N)<ИTD2│B(N,N)<ЧhА I│1 е J2<г|J│NмIлL<┼РS│A(I,I)нA(J,J)мB(I,I)нB(J,J)<шдS1│A(I,I)нB(J,J)лA(J,J)нB(I,I)<∙╕T│D1нSмD2нS1=╠D2│D2нSлD1нS1=рD1│T=ЇЛ I="Р=5N1│N:N│Nм1:I│0=C0А K│1 е N=VDЕ K┤▓D1 з 5740=^XI│1=flJ│0=tАА L│1 е N=ЗФЕ L┤▓D2 з 5820=ПиJ│1=е╝A(K,L)│P(KлI,LлJ)=╦╨B(K,L)│WнQ(KлI,LлJ)лQ1(KлI,LлJ)оW=╫фЛ L:Л K=у°Бж 4600=ьN│N1> B1│ Ы(D1нD1лD2нD2)>4Е D1┤▓0 з 6020>(HЕ D2│0 з 6100>C\Е D2▓0 з D2│90:Бе 6100>VpD2│м90:Бе 6100>qДЕ D1┤0 з Q│180:Бе 6060>yШQ│0>ЛмЕ D2┤0 з Q│мQ>е└D2│Qл180н Ф(D2оD1)оPI>л╘Р>▓8:Г>╣9:Г>└::Г?=:Г******************** Print help information *****************?>:Г?GLЗ"Data must be in a text file in the following format:"?M`З?dtЗ"R    (resistor)"?СИЗ"from node #, to node #, value in ohms"?йЬЗ"C    (capacitor)"?▌░З"from node #, to node #, value in microfarads"?Ї─З"L    (inductor)"@$╪З"from node #, to node #, value in henries"@AьЗ"F    (fet transistor)"@oЗ"gate, source, drain, gain (amps/volts)"@РЗ"B    (bipolar transistor)"@└(З"base, emitter, collector, beta, b-e ohms"@╒<З"O    (op-amp)"A
PЗ"+in, -in, +out, -out, gain, ohms out"AМЗA
аР#, value in henries"@AьЗ"F    (fet transistor)"@oЗ"gate, source, drain, gain (amps/volts)"@РЗ"B    (bipolar transistor)"@└(З"base, emitter, collector, beta, b-e ohms"@╒<З"O    (op-amp)"A
PЗ"+in, -in, +out, -out, gain, ohms ou                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                 &=ш:Г NETWORK - An AC electronic circuit simulator program&Dщ:Г&Гъ:Г Origional: "Verify Network Frequency Response With This&┬ы:Г             Simple BASIC Program", Werner Schnider, EDN'ь:Г             magazine, Oct. 5, 1977 (HP 9830 implementation).'
э:Г'RЄ:Г Next:      "Basic Program Performs Circuit Analysis", Richard'Чє:Г             Steincross, EDN magazine, Sept. 1, 1982 (Apple ]['╪Ї:Г             implementation with inductive elements added)'▀ї:Г( №:Г Now:       Converted for the IBM PC/XT and compatibles by([¤:Г            Bruce A. Trolli, Cleveland, Oh., 2/16/85(b■:Г(Ы
:Г 1990       Converted for Tandy Color Computers by(╥:Г            Bill Chapple, Hartselle, AL  5-20-90(╪LЮ)Vё 2,10:З "AC ELECTRONIC CIRCUIT FREQUENCY RESPONSE")0`ё 4,20:З "NETWORK   (V1.0)")6tЗ)OИI│0:J│0:K│0:N│0:I1│0)ЧЬБж 6200                         :Г Print help information on screen)ЭжЗ)ж░Y│20)Ё─:ГNote: If you have less than 64K in your system, you must decrease Y*"╪М A(Y,Y),B(Y,Y),P(Y,Y),Q(Y,Y),B1(Y,Y),Q1(Y,Y)*aN│0:PI│3.141592:LGTEN│8.685889     :Г Initialize constants*Ф<Й"What file for input? [Hit CR for list.] ";F$*╧PЕ F$│"" з ╬:Бе 1340       :Г Show possible input files+dА I│1 е  З(F$)                         :Г Check for extension+,xЕ  Р(F$,I,1)│"." з J│I+4МЛ I+tаЕ J┤▓0 з F$│ Р(F$,1,Jм1)             :Г Add .NET if missing+Е┤F$│F$л".net"+Ш▄Щ F$ А Й  з #1+ЮцЗ+е·:Г+м√:Г+∙№:Г************* Main Loop for Input of Circuit Description *************,¤:Г,Е  М(1) з Бе 2220,"	Й #1,Z$,+З Z$,AE$│Z$:Z$│ О(Z$,1),К"Е Z$│";" з Бе 1540              :ГComment for Description of Circuit,╗,Е Z$│"R" ▒ Z$│"r" з 1860         :ГResistors,э@Е Z$│"C" ▒ Z$│"c" з 1900         :ГCapacitors-TЕ Z$│"L" ▒ Z$│"l" з 1960         :ГInductors-PhЕ Z$│"O" ▒ Z$│"o" з 2140         :ГAmplifiers-||Е Z$│"F" ▒ Z$│"f" з 2020         :ГFets-╖РЕ Z$│"B" ▒ Z$│"b" з 2060         :ГBipolar Transistors-є╕Ъ #1                              :ГNot Valid Component.┬а 100,1:а 100,1.
╠З.,рЗ"Bad component type":З Z$.2З.80К.?::Г.F;:Г.Ф<:Г ************** Enter Component Parameters into Matrix ****************.Ы=:Г.┘DЙ #1,I,J,V                                     :Гresistor.хEЗ I,J,V. XV│1оV:Бж 3900:Бе 1540/?lЙ #1,I,J,V                                     :Г capacitor/KmЗ I,J,V/\АV│Vо1000000!/pФБж 4120:Бе 1540/пиЙ #1,I,J,V                                     :Г inductor/╗йЗ I,J,V/╞╝V│м1оV/┌╨Бж 4260:Бе 15400фЙ #1,K,J,I,V                                   :Гfet0!хЗ K,J,I,V01°L│J:Бе 22000uЙ #1,K,J,I,B1,V                                :Гnpn transistor0Ж
З K,J,I,B1,V0а L│I:I│K:V│1оV:Бж 39000┤4I│L:L│J:Бе 21800┬H:Г op amp0Є\Й #1,K,L,J,I,B1,V :Гin+,-:out+,-:,gain,ohms1]З K,L,J,I,B1,V1pV│1оV:Бж 39001"ДV│B1нV16ШБж 4400:Бе 15401{мE│1:F│N                                            :Гend read io1Д└Ъ #11Т№А I│0 е N1а	А J│0 е N1▓	$P(I,J)│A(I,J)1╞	8Q1(I,J)│B1(I,J)1╪	LQ(I,J)│B(I,J)1ф	`Л J:Л I1ъ╕З2╠З "This circuit has ";N;"nodes"2>рЗ "Node";E;"is INPUT &  Node";F;"IS OUTPUT"2DЇЗ2jА:Г entry point for new freq range2зЩЙ "Enter file for data save [CR for no-save]: ",DATFILE$2╓ЪЕ DATFILE$┤▓"" з Щ DATFILE$ А OUTPUT  з #22▄╝З3╨З "Frequency range [Start,End,Increment (- for log incr)] ";3)°Й G,H,D3/
З3u
 З"        Frequency         Amplitude       Amplitude(db)  Phase"3┴
*З"--------------------------------------------------------------------"3█
4Е D┤0 з F2│мD:Бе 34203ь
HF2│1л(HмG)оD4
\Е D┤0 з D│м((HоG)п(1о(мDм1)))4
pF1│G4'
ДА I1│1 е F24G
ШW│2нPIнF1:D1│E:D2│F:Бж 56604U
мV│B1:U│D24p
└Е (м1)п(EлF) ▓0 з 35604|
╘U│Uм1804К
шD1│E:D2│E4д
№Бж 5660:V│VоB1:U│UмD24║Е U▓180 з U│Uм3604╤$Е U┤м180 з U│Uл3604ф8DB│LGTENн Щ(V)4ю=T1│F14ў>T2│V5
?T3│DB5
@T4│U5+LЗ ═ "##########.#######";T1;5M`З ═ "###########.#######";T2;5keЗ ═ "#######.#######";T3;5ЖtЗ ═ "#####.#######";T45мyЕ DATFILE$┤▓"" з ┘ #2,T1,T2,T3,T45╩ИЕ D┤0 з F1 │мF1нD:Бе 37605╓ЬF1│F1лD5▀░Л I15ш╡Ъ #26─З  Л(7): :Г ring bell6)╪З "Do you want a new freq sweep ";62ьЙ Z$6QЗ:Е Z$│"y" ▒ Z$│"Y" з 30006WК6^-:Г6y.:Г Calculation Portion6А/:Г6З0:Г6Ш<Е I│0 з 40006мPA(I,I)│A(I,I)лV6╜dЕ J│0 з 40206╤xA(I,J)│A(I,J)мV6хМA(J,I)│A(J,I)мV6∙аA(J,J)│A(J,J)лV7
┤Е I┤N з 40607╚N│I7#▄Е J┤N з 41007+ЁN│J71Р7BЕ I│0 з 42207V,B(I,I)│B(I,I)лV7g@Е J│0 з 40207{TB(I,J)│B(I,J)мV7ПhB(J,I)│B(J,I)мV7г|B(J,J)│B(J,J)лV7пРБе 40207└дЕ I│0 з 43607╓╕B1(I,I)│B1(I,I)лV7ч╠Е J│0 з 40207¤рB1(I,J)│B1(I,J)мV8 &
Ю&9В   FEEDLINE LOSS & EFFECTIVE RAD PWR PROGRAM&TВ   CODED BY BILL FORD&k(В   TYPED BY W8RZG''2АS│1е32:З"=";:ЛS:З" ":З"THIS PACKAGE IS OF PARTICULAR INTEREST TO YOU IF YOU ARE DESIGNING AN ANTENNA":З"SYSTEM FOR AN AMATEUR OR COMMERCIAL INSTALLATION.  YOU WILL BE ABLE TO COMPARE'╟<З"VARIOUS COMBINATIONS OF ANTENNA-FEEDLINE TYPES TO OBTAIN THE MOST PRACTICAL":З"EFFECTIVE RADIATED POWER FOR THE TYPE OF ANTENNA OR FEEDLINE.  THE PROGRAM(GFЗ"ALLOWS YOU TO DETERMINE EXACTLY HOW MUCH LOSS IN DB CAN BE ALLOWED FOR A":З"PARTICULAR ERP OUTPUT.":АS│1е31:З"=";:ЛS:З" "(]PЙ"PRESS ENTER";WW(xZА S│1е64:З"=";:ЛS:З" "(НdЕ A$│"B"з Бе 110(┼nЗ"THIS PROGRAM COMPUTES THE EFFECTIVE RADIATED PWR"(╦xЗ)ВЗ"AS WELL AS THE FEEDLINE LOSS OF ANY TRANSMITTER-")	МЗ)<ЦЗ"ANTENNA SYSTEM, BASED ON XMTR OUTPUT POWER,")BаЗ)iкЗ"FEEDLINE AND ANTENNA EFFICIENCY")┤А S│1е64:З"=";:ЛS)Н╛З" ":З" ")░├Й"DO YOU NEED INSTRUCTIONS";A$)╟╚Е  О(A$,1)│"Y"з490)╤╥Бж600*▄Ю:Й"WHAT IS THE TRANSMITTER OUTPUT POWER";TP*?цЗ:З:Й"HOW MANY FEET OF FEEDLINE DO YOU PLAN ON USING";FL*лЁВ  IF INTERPOLATION WAS USED THE STEP ASKING FOR FEED-LINE LOSS IS OMMITTED.  VALUE LL IS USED DIRECTLY*╜·Е LL┤▓0 з 270*¤
З:З:Й" WHAT IS THE LOSS IN DB/100 FT   OF YOUR FEEDLINE";LL+V
З:З:Й"WHAT IS THE GAIN OF YOUR ANTENNA SYSTEM IN DB (IF UNITY GAIN DB GAIN IS 0)";AG+О
В   CALCULATE TOTAL LOSS FOR ENTIRE LENGTH OF CABLE+Ю
"L│FLо100нLL+з
,L1│L+▒
6Бж760+╗
@PL│P1,
JВ  CALCULATES ERP AFTER FIRST DETERMINING POWER DELIVEREDTO ANTENNA,
TPA│TPмP1,
^L│AG,#
hБж760,-
rЮ:З:З,U
|З" TRANSMITTER OUTPUT..";TP;"WATTS",|
ЖЗ" FEEDLINE LENGTH.....";FL;"FEET",б
РЗ" LOSS/100 FT.........";LL;"DB",╞
ЪЗ" LOSS OF ENTIRE RUN..";L1;"DB",ю
дЗ" LOSS OF ENTIRE RUN..";PA;"WATTS"-
оЗ" POWER TO ANTENNA....";PL;"WATTS"-=
╕З" ERP.................";E;"WATTS"-C
┬З-s
╠LL│0:Й" DO YOU WANT ANOTHER CALCULATION";A$-С
╓Е О(A$,1)│"Y" Бж600:Бе220-Ч
рК-Є
ъЮ:АS│1е31:З"=";:Л:З" ":З"YOU WILL BE ASKED TO ENTER":З"VARIOUS OPERATION PARAMETERS OF.4
ЇЗ"YOUR PROPOSED TRANSMITTING":З"SYSTEM. THESE WILL BE: TRANS-.X
■З"MITTER OUTPUT PWR; LENGTH OF .║З"FEEDLING; FEEDLING LOSS AT OP-":З"ERATING FREQUENCY IN DB/100 FT;":З" & ANTENNA GAIN IN DB..╨
Й"PRESS ENTER";RR/XЗ"ENTER ALL FREQUENCIES IN MHZ.":З"FOR YOUR CONVENIENCE AN ABBRE-":З"VIATED TABLE OF MORE COMMON":З"COAX TYPES AND LOSSES IS GIVEN./ЭЗ"USE THIS TABLE,OR ANY SIMILIAR":З"TABLE FOR YOUR CALCULATIONS./є&З"AN OPTION WHICH ALLOWS YOU TO":З"INTERPOLATE FROM THE TABLE IS":З"ALSO INCLUDED00А S│1е5:З"=";:ЛS0*:Й"PRESS ENTER TO CONTINUE";A$04DБж6000>NБе2200qXЮ:З"LOSSES OF COMMONLY USED COAX IN DB/100 FT"0ybЗ:З0ГlБж6400НvБе7200┌АЗ"TYPE  1MHZ  10  100   400  1000   ":З"9913            1.9   2.1   4.5"1КЗ"RG17  .06  .24   .95  2.4   4.41&ФЗ"RG-8  .16  .55  2.0   4.5   8.51LЮЗ"RG-11 .18  .62  2.2   4.7   8.51rиЗ"RG-58 .38 1.4   5.2  11.2  20.01Ш▓З"RG-59 .30 1.1   3.8   8.5  14.01┐╝З"AIR   .02  .058  .19   .35   .601┼╞Р2╨З:З"VALUES FOR OTHER FREQUENCIES CAN BE OBTAINED BY INTERPOLATION"2@┌Й"DO YOU NEED TO INTERPOLATE FROM THE TABLE";A$2YфЕ  О(A$,1)│"Y" Бж8402_юР2Н°В    CALCULATE ACTUAL LOSS FROM DB VALUES2┴В    FIRST OBTAIN LOG FROM DB BY DIVIDING BY 102╠L│Lо102уВ   ANTILOG OF "L"2я AL│10пL2№*P1│TPоAL34E│ALнPL3>Р3/HВ   INTERPOLATION SUBROUTINE3]RЮ:З:З:Й"WHAT IS OPERATING FREQUENCY";OF:Ю3g\Бж6403╣fЗ:З:Й"WHAT IS CLOSEST FREQUENCY BELOW OPERATING FREQUENCY LISTED IN TABLE";LF3┼pЮ:Бж6403№zЗ:З:Й"WHAT IS THE NEXT HIGHER FREQUENCY LISTED";HF4ДЮ:Бж64048ОЗ:З:Й"GIVE LOSS AT NEXT LOWER FREQUENCY";L14DШЮ:Бж6404uвЗ:З:Й"GIVE LOSS AT NEXT HIGHER FREQUENCY";L24ВмFD│HFмLF4П╢LD│L2мL14Ь└OD│OFмLF4м╩OL│ODнLDоFD4╣╘LL│OLлL14·▐Ю:З"LOSS OF TRANSMISSION LINE AT";OF;"MHZ IS";LL;"DB/100 FT"5шА W│1е1500:ЛW5ЄРVE LOSS AT NEXT LOWER FREQUENCY";L14DШЮ:Бж6404uвЗ:З:Й"GIVE LOSS AT NEXT HIGHER FREQUENCY";L24ВмFD│HFмLF4П╢LD│L2мL14Ь└OD│OFмLF4м╩OL│ODнLDоFD4╣╘LL│OLлL14·▐Ю:З"LOSS OF TRANSMISSION LINE AT";OF;"MHZ IS";LL;"DB/100 FT"5ш                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                 7&dЮ :В "MICRO"&/nЗ д32);"**** MICRO ****"&ОxЗ :З "PROGRAM TO COMPUTE INDUCTIVE AND CAPACITIVE ELEMENTS USING MICROSTRIP TECHNIQUES" :З&┼ВЗ :а 100,1 :Й "ENTER OPERATING FREQUENCY (Mhz)";FO&√МЗ :а 100,1 :Й "ENTER BOARD THICKNESS    (MILS)";T'9ЦЗ :а 100,1 :Й "ENTER RELATIVE DIELECTRIC CONSTANT (Er)";E'wаЗ :а 100,1 :Й "ENTER Zo OF THE LINE TO BE USED  (ohms)";Z'РкPI │4н Ф(1) :Бж 1050'░┤Ю :З "LINE WIDTH=";W;"mils"'ў╛З :З :а 100,1 :З "ENTER ELEMENT NEEDED L or C use Z to CHANGE Zo "(╚A$│ Т :Е A$│"" з 200(8╥EP│(Eл1)о2л(Eм1)о2н(1л10о(WоH))пм.5(Z▄VP│EPпм.5 :LG│300н39.37нVPоFO(mцЕ A$│"L" з 260(АЁЕ A$│"C" з 660(Ъ·Е A$│"Z" з 160 :Д 200(╧
З :а 100,1 :Й "ENTER INDUCTANCE REQUIRED (nh)";A(■
XL│2нPIнFOн10п6нAн10пм9 :D│57.296н Ф(XLоZ))
Е D▓50 з 610) 
"IND│DнLGо360)K
,IND│ Б(INDн1000)о1000 :Е IND┤.01 з 610)a
6XL│ Б(XLн100)о100)z
@Ю :З " FO=";FO;"Mhz")У
JЗ :З "THK=";T;"mils")е
TЗ :З "Er =";E)╛
^З :З "Zo =";Z;"ohms")╫
hЗ :З "WTH=";W;"mils")Ў
rЗ :З "          L=";A;"nh"*
|З "-------               -------"*:
ЖЗ "                     "*Z
РЗ "      -----------------"*|
ЪЗ "     LENGTH=";IND;"inches"*Ь
дЗ "      -----------------"*║
оЗ "                     "*р
╕З "-------               -------"* 
┬З "         XL=";XL;"ohms"+1
╠З :З :а 100,1 :З "HARD COPY REQUIRED?  (Y/N)"+J
╓P$│ Т :Е P$│"" з 470+]
рЕ P$│"Y" з 500+w
ъЕ P$│"N" з 620 :Д 470+▐
ЇЗ #м2, "Fo=";FO;"Mhz";"; THK.=";T;"mils";"; Er=";E;"; WIDTH=";W;"mils";"; Zo=";Z;"ohms" :З #м2," ",А U│50 е 70 :З #м2, дU); Л(241); :Л U,>З #м2, д30); Л(245);д35);"L=";A;"nh";д50); Л(245),hА U│30 е 50 :З #м2, дU); Л(241); :Л U,П&З #м2, д31);"LENGTH=";IND;"inches",╣0А U│30 е 50 :З #м2, дU); Л(241); :Л U,є:З #м2, д30); Л(245);д34);"XL=";XL;"ohms";д50); Л(245)-DА U│10 е 30 :З #м2, дU); Л(241); :Л U-GNА U│50 е 70 :З #м2, дU); Л(241); :Л U-RXБе 620-ФbЗ :З "ELEMENT IS INADVISABLE FOR THIS MATERIAL OR Zo" :Бе 190-╝lЗ :З :а 100,1 :З "CONTINUE?  (Y/N)"-╒vB$│ Т :Е B$│"" з 630-шАЕ B$│"Y" з 190.КЕ B$│"N" з К :Д 630.6ФЗ :а 100,1 :Й "ENTER CAPACITANCE REQUIRED (pf)";B.WЮXC│1о(2нPIнFOн10п6нBн10пм12).БиD│90м( Ф(XCоZ)н57.296) :Е D▓50 з 1000.│▓C│DнLGо360 :C│ Б(Cн1000)о1000 :Е C┤.01 з 1000.╔╝XC│ Б(XCн100)о100.т╞Ю :З " FO=";FO;"Mhz".√╨З :З "THK=";T;"mils"/
┌З :З "Er =";E/%фЗ :З "Zo =";Z"ohms"/>юЗ :З "WTH=";W;"mils"/]°З :З "          C=";B;"pf"/|З "        --------------"/ЪЗ "                     "/┴З "--------              --------"/с З "     LENGTH=";C;"inches"0*З "--------              --------"0&4З "                     "0E>З "        --------------"0dHЗ "         XC=";XC;"ohms"0ХRЗ :З :а 100,1 :З "HARD COPY REQUIRED? (Y/N)"0о\P$│ Т :Е P$│"" з 8600┴fЕ P$│"Y" з 8900▄pЕ P$│"N" з 1010 :Д 8601@zЗ #м2, "Fo=";FO;"Mhz";"; THK.=";T;"mils";"; Er=";E;"; WIDTH=";W;"mils";"; Zo=";Z;"ohms" :З #м2,1jДА U│30 е 50 :З #м2, дU); Л(241); :Л U1аОЗ #м2, д30); Л(245);д35);"C=";B;"pf";д50); Л(245)1╩ША U│10 е 30 :З #м2, дU); Л(241); :Л U1ЇвА U│50 е 70 :З #м2, дU); Л(241); :Л U2мЗ #м2, д31);"LENGTH=";C;"inches"2C╢А U│10 е 30 :З #м2, дU); Л(241); :Л U2m└А U│50 е 70 :З #м2, дU); Л(241); :Л U2з╩З #м2, д30); Л(245);д34);"XC=";XC;"ohms";д50); Л(245)2╤╘А U│30 е 50 :З #м2, дU); Л(241); :Л U2▌▐Бе 10103шЗ :З "ELEMENT IS INADVISABLE FOR THIS MATERIAL OR Zo" :Бе 1903GЄЗ :З :а 100,1 :З "CONTINUE?  (Y/N)"3a№C$│ Т :Е C$│"" з 10203tЕ C$│"Y" з 1903НЕ C$│"N" з К :Д 10203кH│Tм2.8 :W│592о(Zн Ы(E))3щ$W│.64н(Wм1м Щ(2нWм1)л.5н(1м1оE)н(.293л Щ(Wм1)м.5170001оE))4
.WA│HнW :W│ Б(WAл.5)48S│Wл2 :Y│м14$BА W│S е 10 й Y4DLWE│Wл(1.4оPI)н Щ(2нHо1.4л1)4ГVX│377нHо(Eп.5нWEн(1л(1.735нEпм7.240001Eм02)н(WEоH)пм.836))4Ч`Е W▓1500 з 11904иjЕ X┤Z з 11604╣tЕ X│Z з 12004╩~Е X▓Z з 11704╥ИЛ W4фТЕ W┤10 з 11904ЁЬБе 120050жЗ :З "Zo ENTERED IS NOT VALID FOR THIS MATERIAL" :З :Бе 16056░Р(2нHо1.4л1)4ГVX│377нHо(Eп.5нWEн(1л(1.735нEпм7.240001Eм02)н(WEоH)пм.836))4Ч`Е W▓1500 з 11904иjЕ X┤Z з 11604╣tЕ X│Z з 12004╩~Е X▓Z з 11704╥ИЛ W4фТЕ W┤10 з 11904ЁЬБе 120050жЗ :З "Zo E                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                 в&I
В *****************************************************************&ТВ *****   "INTERMOD" Mixer Intermod/Harmonic PROGRAM  **************&█В *****   M.GOLDFARB  VERSION 0             NOV.,1983 **************'$(В *****   M.GOLDFARB  VERSION 1 REVISION -  MAR.,1984 **************'m2В *****   M.GOLDFARB  VERSION 1 REVISION A  JULY,1984 **************'╢<В *****   M.GOLDFARB  VERSION 1 REVISION B  AUG.,1984 **************' FВ *****   M.GOLDFARB  VERSION 1 REVISION C  AUG.,1985 **************(HPВ ******************************************************************(rZЮ     :Г Clears Screen (IBM & TRS-80)(╗dЗ "INTERMOD - MIXER INTERMOD TABLE VER.1 REV.C  M.GOLDFARB AUG 1985"(їiЙ "OUTPUT TO PRINTER ?  ( Y , < N > )";Y$:Y$│ О(Y$,1))kЕ Y$│"Y" ▒ Y$│"y" з Y$│"Y" :Д Y$│"N")PnЙ"LO Frequency Range in GHz (Low,High)";L1,L2)bsЕ L2┤L1 з 110)ФxЙ"RF Frequency Range in GHz (Low,High)";R1,R2)ж}Е R2┤R1 з 120)▄ВЙ"Output Frequency Range in GHz (Low,High)";I1,I2)юЗЕ I2┤I1 з 130)ЇМЗ*ЦЙ"Maximum Product Order (n+m)";Q*<аL│(L1лL2)о2:В LO Center Freq.:*^кR│(R1лR2)о2:В RF Center Freq.*s┤B2│(R2мR1)о(Rн2)*┼╣A1$│"Order     RF     LO     Low Product        High Product      Product in"+╛B$│"(n+m)    (m)    (n)       (mR-nL)             (mR+nL)       Output Band"+Z├C$│"##       ##     ##  ###.### to ###.###  ###.### to ###.###"+d╚D$│""+j╥Ю+│▄З"********** Mixer Intermodulation/Harmonic Product Table *********"+╣сЗ+╠тЕ Y$│"N" з 235,уЗ #м2,"********** Mixer Intermodulation/Harmonic Product Table *********",%хЗ #м2,,dцЗ #м2, "LO Frequency Range    :  ";L1;" GHz to ";L2;" GHz",гчЗ #м2, "RF Frequency Range    :  ";R1;" GHz to ";R2;" GHz",шшЗ #м2, "Output Frequency Range: ";I1;" GHz to ";I2;" GHz":З #м2,,єщЗ #м2,-ъЗ #м2, A1$:З #м2, B$- ыЗ A1$:З B$:З D$-:ЁI│8   :Г Page Counter-B·M│0-l
N│Q   :Г start loop with n= max.order-г
@Бж 1000 :Г calculate products  for given order "Q"-╥
JA$│"n": В test for spur in the output band-█
KHL│0-¤
LЕ V1▓│I1 ░ V1┤│I2 з A$│"HIGH".
NЕ V2▓│I1 ░ V2┤│I2 з A$│"HIGH".A
PЕ V1▓│I1 ░ V2┤│I2 з A$│"HIGH".c
RЕ V1┤│I1 ░ V2▓│I2 з A$│"HIGH".z
SЕ A$│"HIGH" з HL│1.Ы
TЕ U1▓│I1 ░ U1┤│I2 з A$│"LOW".╝
^Е U2▓│I1 ░ U2┤│I2 з A$│"LOW".▌
hЕ U1▓│I1 ░ U2┤│I2 з A$│"LOW".■
jЕ U1┤│I1 ░ U2▓│I2 з A$│"LOW"/ 
kЕ A$│"LOW" ░ HL│1 з A$│"BOTH"/>
lЕ M│1 ░ N│1 з A$│"output"/T
nЕ NлM│4 з З:I│Iм1/r
oЕ NлM│4 ░ Y$│"Y" з З #м2,/Ы
rЕ I│0 з Й" < return> to continue";X$/л
sЕ I▓0 з 380/▒
tЮ/╖
uЗ/╦
vЗ A1$:З B$:З D$/╒
xЗ:I│8/ы
yЕ Y$│"Y" з З #м2,0
|З ═ C$;NлM,M,N,U1,U2,V1,V2,:З"    ";A$0H
~Е Y$│"Y" з З #м2, ═ C$;NлM,M,N,U1,U2,V1,V2,A$0R
БI│Iм10\
ЖN│Nм10r
ЛЕ M│0 ░ N│0 з 4100Г
РЕ N▓│0 з 3200У
ЪM│Mл1:N│QмM0Щ
ЯЗ0к
дЕ M┤│Q з 3200░
оЗ0╓
│Е Y$│"y" ▒ Y$│"Y" з З #м2,  Л(12)1
╡Й "New Table <N> or Quit <Q>";X$:X$│ О(X$,1)1"
╕Е X$│"N" ▒ X$│"n" з 601C
┬Е X$│"Q" ▒ X$│"q" з Ю:SYSTEM1P
╠З:Бе 4371wшВ *********** Subroutine: CALCSPUR1УЄЕ MнR▓│NнL з X│1 :Д X│01ЫўY│01╖№Е X│0 ░ NнL1▓MнR2 з Y│11╙Е X│1 ░ MнR1▓NнL2 з Y│11фЕ Y│0 з U1│02Е Y│1 ░ X│0 з U1│NнL1мMнR22"$Е Y│1 ░ X│1 з U1│MнR1мNнL22K.Е X│0 з U2│NнL2мMнR1 :Д U2│MнR2мNнL12\8V1│MнR1лNнL12mBV2│MнR2лNнL22БLЕ M│0 з U1│NнL12ХVЕ N│0 з U1│MнR12Ы`Р2б К0 ░ NнL1▓MнR2 з Y│11╙Е X│1 ░ MнR1▓NнL2 з Y│11фЕ Y│0 з U1│02Е Y│1 ░ X│0 з U1│NнL1м                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                M WILL CALCULATE ANTENNA LENGTH"A=иЙ "FREQUENCY IN MHZ ? ";FAy▓A│468оF:З "THE HALF WAVE ANTENNA LENGTH IS ";A;" FEET";AЫ╝З " OR ";:З Aн12;:З " INCHES"A╤╞З "OPERATION WILL BE IN THE ";300оF;" METER BAND"Aч╨Бж 180:З :Бе 1960B┌З "THIS PROGRAM WILL CALCULATE OHMS LAW"BHф╗ Й "SOLVE FOR WHAT UNIT (E),(I), OR (R) ? ";U$B\юЕ U$│"E"Бе 2070Bp°Е U$│"I"Бе 2100BДЕ U$│"R"Бе 2130BРБе 2020BлЙ "CURRENT VALUE ? ";IB╔ Й "RESISTANCE VALUE ? ";RBё*A│IнR:З "THE VOLTAGE IS ";A:Бе 2160C4Й "VOLTAGE VALUE ? ";EC*>Й "RESISTANCE VALUE ? ";RCRHA│EоR:З "THE CURRENT IS ";A:Бе 2160CmRЙ "VOLTAGE VALUE ? ";ECИ\Й "CURRENT VALUE ? ";ICлfA│EоI:З "THE RESISTANCE IS ";AC┴pБж 180:З :Бе 2020CяzЗ "THIS PROGRAM WILL CALCULATE FOR POWER"D"ДЙ "WHAT TWO UNITS (1)I&R, (2)E&R, (3)E&I ? ";UD4ОЕ U│1 Бе 2230DFШЕ U│2 Бе 2250DXвЕ U│3 Бе 2270DdмБе 2180DА╢Й "VALUE OF I,R ? ";A,BDп└З "POWER EQUALS ";Bн(AнA);" WATTS":Бе 2290D╦╩Й "VALUE OF E,R ? ";A,BD·╘З "POWER EQUALS ";Bо(AнA);" WATTS":Бе 2290E▐Й "VALUE OF E,I ? ";A,BE9шЗ "POWER EQUALS ";AнB;" WATTS"EOЄБж 180:З :Бе 2180EЛ№З "THIS PROGRAM WILL CALCULATE THE RESISTOR COLOR CODE"Eи	╗ Й "FIRST COLOR ? ";C1$E╛	П :A│0:А X│1 е 12E▌	Н Q$:Е Q$│C1$з A│A:Бе 2360Eє	$Е Q$│"777"Бе 2310F	.A│Aл10:Л XF 	8╗ Й "SECOND COLOR ? ";C2$F6	BП :B│0:А X│1 е 12FU	LН R$:Е R$│C2$з B│B:Бе 2410Fk	VЕ R$│"777"Бе 2360Fy	`B│Bл1:Л XFЦ	j╗ Й "THIRD COLOR ? ";C3$F╡	tЕ C3$│"GOLD"з C│.1:Бе 2480F╫	~Е C3$│"SILVER"з C│.01:Бе 2480Fэ	ИП :C│1:А X│1 е 12G	ТН S$:Е S$│C3$з C│C:Бе 2480G"	ЬЕ S$│"777"Бе 2410G1	жC│Cн10:Л XG`	░K│Cн(AлB):З "THE RESISTANCE IS ";K;" OHMS"Gh	║S│KGМ	─K│Kо1000:З "OR ";K;" KILO OHMS"G░	╬K│Kо1000:З "OR ";K;" MEGA OHMS"G╘	╪K│Kо1000:З "OR ";K;" GIGA OHMS"H	тЗ "ENTRIES FOR NEXT QUESTION (NONE, SILVER, OR GOLD)"H,	ь╗ Й "FOURTH COLOR ? ";C4$HD	ЎЕ C4$│"NONE"Бе 2580H^
Е C4$│"SILVER"Бе 2590Hv

Е C4$│"GOLD"Бе 2600HЙ
M│.2нS:Бе 2620Hж
M│9.999999Eм02нS:Бе 2620H║
(M│.05нS:Бе 2620H╨
2Бж 180:З :Бе 2310Hї
<З "THE RESISTOR TOLERANCE IS ";MI4
FЗ "THE TOLERANCE RANGE IS ";SмM;" TO ";SлM;" OHMS":Бе 2610Ik
PЗ "THIS PROGRAM WILL CALCULATE THE CHARACTERISTIC"IУ
ZЗ "IMPEDANCE OF TRANSMISSION LINES"I╩
d╗ Й "IS TRANSMISSION LINE TWO WIRE PARALLEL ? ";X$Iр
nЕ X$│"YES"Бе 2710J
x╗ Й "IS TRANSMISSION LINE A COAXIAL LINE ? ";X$J*
ВЕ X$│"YES"Бе 2770Ja
МЗ :З "TYPE 'YES' FOR ONE OF THE QUESTIONS":Бе 2660JЗ
ЦЗ :З "PARALLEL TRANSMISSION LINE"J┼
аЙ "WHAT IS THE SPACING BETWEEN CONDUCTORS IN INCHES ? ";AK
кЙ "WHAT IS THE RADIUS OF ONE CONDUCTOR IN INCHES ? ";BK
┤Z│276н( Щ(AоB))K;
╛З :З "THE IMPEDANCE IS ";Z;" OHMS"KQ
╚Бж 180:З :Бе 2660Kv
╥З :З "COAXIAL TRANSMISSION LINE"K░
▄З "WHAT IS THE INNER DIAMETER OF THE OUTER CONDUCTOR"K╟
цЙ "IN INCHES ? ";AL

ЁЗ "WHAT IS THE OUTER DIAMETER OF THE INNER CONDUCTOR"L
·Й "IN INCHES ? ";B:З "THE IMPEDANCE IS ";Z;" OHMS"KQ
╚Бж 180:З :Бе 2660Kv
╥З :З "COAXIAL TRANSMISSION LINE"K░
▄З "WHAT IS THE INNER DIAMETER OF THE OUTER CONDUCTOR"K╟
цЙ "IN INCHES ? ";AL

ЁЗ "WHAT IS THE OUTER DIAMETER OF THE INNER CONDUCTO                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                /иЕ U│2 Бе 740/!▓Е U│3 Бе 770/2╝Е U│4 Бе 800/C╞Е U│5 Бе 830/T╨Е U│6 Бе 920/e┌Е U│7 Бе 860/}фЙ "MEGA VALUE ? ";U/▒юЗ "MEGA VALUE ";U;" IS ";Uн1000000!;" IN UNITS"/╞°Бж 180:З :Бе 630/▐Й "KILO VALUE ? ";U0З "KILO VALUE ";U;" IS ";Uн1000;" IN UNITS"0#Бж 180:З :Бе 6300< Й "MILLI VALUE ? ";U0m*З "MILLI VALUE ";U;" IS ";Uн.001;" IN UNITS"0В4Бж 180:З :Бе 6300Ы>Й "MICRO VALUE ? ";U0╧HЗ "MICRO VALUE ";U;" IS ";Uн.000001;" IN UNITS"0фRБж 180:З :Бе 6300№\Й "PICO VALUE ? ";U1-fЗ "PICO VALUE ";U;" IS ";Uн1Eм12;" IN UNITS"1BpБж 180:З :Бе 6301ZzЙ "GIGA VALUE ? ";U1СДЗ "GIGA VALUE ";U;" IS ";Uн1000000000#;" IN UNITS"1жОБж 180:З :Бе 6301╛ШЙ "NANO VALUE ? ";U1ЎвЗ "NANO VALUE ";U;" IS ";Uн9.999999Eм10;" IN UNITS"2мБж 180:З :Бе 6302A╢З "THIS PROGRAM WILL CALCULATE SECONDARY VOLTAGE"2^└Й "PRIMARY VOLTAGE ? ";P2{╩Й "SECONDARY TURNS ? ";S2Ч╘Й "PRIMARY TURNS ? ";P12┬▐З "THE SECONDARY VOLTAGE IS ";Pн(SоP1)2╫шБж 180:З :Бе 9603ЄЗ "THIS PROGRAM WILL CALCULATE DECIBEL RATIO OF TWO POWERS"3O№Й "ENTER POWER ONE ? ";P1:Й "ENTER POWER TWO ? ";P23ЙЗ "THE DECIBEL VALUE IS ";10н( Щ(P2оP1)о Щ(10));" DB"3ЯБж 180:З :Бе 10203╫З "THIS PROGRAM WILL CALCULATE CONDUCTANCE IN MHOS"3√$Й "WHAT IS THE RESISTANCE ? ";R4.Е R┤│0 Бе 1060468З "THE CONDUCTANCE IS ";1оR;" MHOS"4LBБж 180:З :Бе 10604ВLЗ "THIS PROGRAM WILL CALCULATE FREQUENCY TO TIME"4▒VЙ "IS FREQUENCY IN HZ (1) OR KHZ (2) ? ";M4├`Е M│1 Бе 11504╒jЕ M│2 Бе 11704сtБе 11104■~Й "FREQUENCY IN HZ ? ";F58ИЗ "THE FREQUENCY IS EQUAL TO ";1оF;" SECONDS":Бе 11905VТЙ "FREQUENCY IN KHZ ? ";F5ФЬЗ "THE FREQUENCY IS EQUAL TO ";1о(Fо1000);" MICROSECONDS"5кжБж 180:З :Бе 11105с░З "THIS PROGRAM WILL CALCULATE RESONANT FREQUENCY"6║Й "INDUCTANCE IN HENRYS ? ";L6&─Й "CAPACITANCE IN FARADS ? ";C6L╬P│2н(4н Ф(1)):P│Pн( Ы(LнC)):P│1оP6w╪З "THE RESONANT FREQUENCY IS ";P;" HZ"6ЦтA│Pо1000:B│Aо1000:C│Bо10006├ьЗ "IN KHZ";A;" IN MHZ";B;" IN GEGA HZ";C6┘ЎБж 180:З :Бе 12107З "THIS PROGRAM WILL CALCULATE FIELD STRENGTH"7H
З "AT MODERATE DISTANCES FROM THE TRANSMITTING ANTENNA"7ДЙ "WHAT IS THE EFFECTIVE ANTENNA HEIGHT IN METERS ? ";B7╕Й "WHAT IS THE ANTENNA CURRENT IN AMPERES ? ";I7Ё(Й "WHAT IS THE OPERATING WAVELENGTH IN METERS ? ";W8)2Й "WHAT IS THE DISTANCE FROM ANTENNA IN METERS ? ";R8?<E│(188нBнI)о(WнR)8xFЗ "THE FIELD STRENGTH IS ";E;" MILLIVOLTS PER METER"8ОPБж 180:З :Бе 13008╗ZЗ "THIS PROGRAM WILL CALCULATE THE PEAK"8┌dЗ "POWER OF A RADAR PULSE"9nЙ "WHAT IS THE PULSE WIDTH IN MICROSECONDS ? ";W9<xЙ "WHAT IS THE PULSE REPETION RATE ? ";R9lВЙ "WHAT IS THE AVERAGE POWER IN WATTS ? ";P9ЕМD1│1оR:W1│Wо1000000!9ТЦD1│W1оD19лаP1│PоD1:В PEAK POWER9╥кЗ "THE PEAK POWER IS ";P1;" WATTS"9Ё┤З "THE DUTY CYCLE IS ";D1:╛Бж 180:З :Бе 1370:<╚З "THIS PROGRAM WILL CALCULATE SERIES CAPACITORS":]╥Й "HOW MANY CAPACITORS ? ";C:t▄T│0:Е C▓18 Бе 1490:ЖцЕ C┤2 Бе 1490:╣ЁА X│1 е C:З "CAPACITOR VALUE ";X;" IN FARADS";:┘·Й " ? ";C1(X):Е X│C Бе 1550:сЛ X;А X│1 е C:T│Tл(1оC1(X)):Е X│C Бе 1570;Л X;?"З "TOTAL CAPACITANCE IS ";1оT;" FARADS";U,Бж 180:З :Бе 1490;Ф6З "THIS PROGRAM WILL CALCULATE INDUCTIVE AND CAPACITIVE ";;ж@З "REACTANCE";чJЙ "SOLVE FOR INDUCTIVE (1) OR CAPACITIVE (2) REACTANCE ? ";R;∙TЕ R│2 Бе 1680<^З "SOLVE FOR INDUCTIVE REACTANCE"<?hЙ "FREQUENCY IN HERTZ ? ";F<arЙ "INDUCTANCE IN HENRYS ? ";L<s|P│2н(4н Ф(1))<пЖЗ "THE INDUCTIVE REACTANCE IS ";Pн(FнL);" OHMS":Бе 1720<╓РЗ "SOLVE FOR CAPACITIVE REACTANCE"<ЎЪЙ "FREQUENCY IN HERTZ ? ";F=дЙ "CAPACITANCE IN FARADS ? ";C=WоЗ "THE CAPACITIVE REACTANCE IS ";1о(3.1416н(FнC));" OHMS"=m╕Бж 180:З :Бе 1610=▒┬З "THIS PROGRAM WILL CALCULATE":З"SERIES OR PARALLEL IMPEDANCE.>(─З"YOU CAN USE SCIENTIFIC NOTATION":З"FOR EXAMPLE 1000 CAN BE ENTERED":З"AS 1E3 AND .001 CAN BE ENTERED":З"AS 1E-3.>X╠Й "SERIES (1) OR PARALLEL (2) CIRCUIT ? ";Q>j╓Е Q│2 Бе 1860>РрЙ "RESISTANCE VALUE IN OHMS ? ";R>мхЙ"FREQUENCY IN HERTZ";F>╒ъЙ "CAPACITANCE VALUE IN FARADS ? ";C>ыьXC│1о(6.2832нFнC)?ЇЙ "INDUCTANCE VALUE IN HENRYS ? ";L?%ЎXL│6.2832нLнC?=■Е C│L з Z│R:Бе 1840?QЕ XL▓XC Бе 1820?cЕ C▓L Бе 1830?ПZ│XLмXC:Z│ZнZ:Z│Zл(RнR):Z│ Ы(Z):Бе 1840?│&Z│XCмXL:Z│ZнZ:Z│Zл(RнR):Z│ Ы(Z)?╫0З "THE IMPEDANCE IS ";Z;" OHMS"?у:Бе 1940@	DЙ "RESISTANCE VALUE IN OHMS ? ";R@2NЙ "CAPACITANCE VALUE IN FARADS ? ";C@ZXЙ "INDUCTANCE VALUE IN HENRYS ? ";L@sbA│12оR:B│12оC:C│12оL@ЕlЕ B▓C з X│BмC@ЧvЕ C▓B з X│CмB@зАT│AнA:X│XнX@╓КЗ "THE IMPEDANCE IS ";12о( Ы(TлX));" OHMS"@ьФБж 180:З :Бе 1740AЮЗ "THIS PROGRAUIRED, AND THE"8=З"RESULTING QUADRATIC IS SOLVED USING THE"8W&З"CLASSICAL EQUATION"8И:З"YOU DECIDE THE SIZE OF THE COIL FORM, THE"8╖DЗ"INDUCTANCE, OR INDUCTIVE REACTANCE, AND"8╬NЗ"THE WIRE SIZE -"8ЄlЗ:З"TO CONTINUE PRESS ANY KEY";9vZ$│"0":Z$│ Т:Е Z$│"" з 1910:9CАЮ:З"IF THE COIL SIZE/WIRE SIZE COMBINATION"9pКЗ"WON'T FIT ON THE RESISTOR FORM CHOSEN"9ЮФЗ"THEN THE COMPUTER WILL TELL YOU SO AND"9╜ЮЗ"ASK FOR ANOTHER CHOICE."9ъ▓З"IF YOU CHOOSE THE COIL DIAMETER, THEN":╝З"THE LENGTH CAN BE WHATEVER IS NECESSARY.":З:G╞З"THE COMPUTER WILL ALSO TELL YOU THE":v╨З"LENGTH TO DIAMETER RATIO AND ASK IF YOU":в┌З"WOULD LIKE THE NUMBER OF TURNS FOR A":╧фЗ"SPACE WOUND COIL OF SPECIFIED LENGTH.":╒юРIL DIAMETER, THEN":╝З"THE LENGTH CAN                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                 &&3
З "THIS PROGRAM WILL COMPUTE MISCELLANEOUS ";&RЗ "ELECTRONIC FORMULAS":З &ИЗ "IF NOT SPECIFIED, ALL ENTRIES ARE IN UNITS":З &з(В PROGRAM BY PAUL CRABTREE&╦2З д21)"ENTER NUMBER OF ITEM":З &╥<Х &┘FЗ &ЇPМ R1(20),C1(20),L1(20)'ZА X│1 е 12:Н B$:Е B$│"777"Бе 110'!dЛ X'5nА A│1 е 20:Н B$'JxЕ B$│"999"Бе 240's}LL│ З(B$):Е LL┤25 з B$│B$л" ":Бе 125'жВИ A Бе 150,160,150,160,150,160,150,160,150,160'╘МИ Aм10 Бе 150,160,150,160,150,160,150,160'хЦЗ B$,:Бе 170'эаЗB$'їкЛ A(*┤З:З:З "IF YOU HAVE MORE VALUES FOR THIS PROGRAM"(f╛З "TYPE 'YES'. IF YOU WISH TO GO TO THE MAIN LIST THEN"(А╚╗ Й "TYPE 'N0' ? ";M$(У╥Е M$│"YES"з Р (ж▄Е M$│"NO"Бе 60(▒цБе 180(сЁЗ :Й "WHAT ITEM NUMBER FROM MAIN LIST ? ";Q(є·Е Q▓18 Бе 240)
Е Q┤1 Бе 240)D
И Q Бе 390,1200,1480,1590,1730,1950,2010,2170,2300,950,1010)s
И Qм11 Бе 1050,1100,2640,1280,1370,500,610)й
"Ж "BLACK","BROWN","RED","ORANGE","YELLOW","GREEN")╘
,Ж "BLUE","VIOLET","GRAY","WHITE","777"*
6Ж "1 PARALLEL RESISTORS","2 RESONANT FREQUENCY"*@
@Ж "3 SERIES CAPACITORS","4 REACTANCE","5 IMPEDANCE"*x
JЖ "6 ANTENNA LENGTH","7 OHMS LAW","8 POWER FORMULA"*│
TЖ "9 RESISTOR COLOR CODE","10 TRANSFORMER TURNS RATIO"*я
^Ж "11 DECIBELS","12 CONDUCTANCE","13 FREQUENCY TO TIME"+$
hЖ "14 TRANSMISSION LINE","15 ANT FIELD STRENGTH"+^
rЖ "16 PEAK RADAR PULSE POWER","17 PARALLEL INDUCTORS"+И
|Ж "18 PROGRAM CONVERSION TABLE","999"+┐
ЖЗ "THIS PROGRAM WILL CALCULATE PARALLEL RESISTORS"+▀
РЙ "HOW MANY RESISTORS ? ";R+ї
ЪT│0:Е R▓18 Бе 400,
дЕ R┤2 Бе 400,6
оА X│1 е R:З "RESISTOR VALUE ";X;" IN OHMS";,U
╕Й " ? ";R1(X):Е X│R Бе 460,]
┬Л X,Ж
╠А X│1 е R:T│Tл(1оR1(X)):Е X│R Бе 480,О
╓Л X,╖
рЗ "TOTAL RESISTANCE IS ";1оT;" OHMS",╠
ъБж 180:З :Бе 400-
ЇЗ "THIS PROGRAM WILL CALCULATE PARALLEL INDUCTORS"-#
■Й "HOW MANY INDUCTORS ? ";L-9T│0:Е L▓18 Бе 510-JЕ L┤2 Бе 510-|А X│1 е L:З "INDUCTOR VALUE ";X;" IN HENRYS";-Ы&Й " ? ";L1(X):Е X│L Бе 570-г0Л X-╠:А X│1 е L:T│Tл(1оL1(X)):Е X│L Бе 590-╘DЛ X- NЗ "TOTAL INDUCTANCE IS ";1оT;" HENRYS".XБж 180:З :Бе 510.ObЗ "THIS PROGRAM WILL CONVERT ENTRIES (TO BE USED IN ";.nlЗ "MAIN PROGRAM) TO UNITS".ГvЗ "CONVERT ITEM".╗АЗ "(1)GIGA, (2)MEGA, (3)KILO, (4)MILLI, (5)MICRO,";.╪КЗ " (6)NANO, OR (7)PICO".юФЙ "TO UNITS ? ";U. ЮЕ U│1 Бе 890 ╓&
Ю&/:ГThis is a coil design program by'&M:ГHarry L. Rosier - K4LBF&p(:ГFinal design November 5,1980&м2:ГRevised for the COCO by Bill Chapple, W4GQC MAY 1990.&╚кЗ д12)"COIL DESIGN":З:З&ЄпЗ д3)"BY HARRY L. ROSIER - K4LBF":З:З'┤З"THIS PROGRAM IS SELF EXPLANATORY BUT'G╛З"WOULD YOU LIKE A BRIEF DESCRIPTION?'k╚З"PLEASE ANSWER (Y OR N )":Й D$'q╥З'И▄Е D$│"Y" з Бж 1720'РцЗ:З'жЁЕ D$│"N" з Бе 280'╘·З"           TO CONTINUE, PRESS ANY KEY";'ю
A$│ Т :Е A$│"" з 260:(
А I│1 е 100:Л I(
Ю(/
"З"1. DESIGN OF THE COIL MUST MEET"(Q
,З"   THE FOLLOWING CRITERIA:"(
@З"       75 MICROHENRIES MAX. INDUCTANCE"(н
JЗ"       .2 MICROHENRIES MIN. INDUCTANCE"(╥
TЗ"        8 GAGE MAX. WIRE SIZE"(ў
^З"       40 GAGE MIN. WIRE SIZE")'
hЗ"      (FOR 1/4 INCH TUBING - USE SIZE 0)")V
|З"2. RESISTORS CAN BE USED AS COIL FORMS,")Д
ЖЗ"   AND MUST BE COMPOSITION TYPE HAVING")з
РЗ"   THE FOLLOWING DIMENSIONS")╙
дЗ"      1. 1/2 WATT - .14 X .38 INCHES") 
оЗ"      2. 1   WATT - .22 X .58 INCHES"*+
╕З"      3. 2   WATT - .30 X .70 INCHES"*]
┬З"      ( THESE ARE STANDARD RESISTOR SIZES)"*Й
╠З"3. OR, SELECT YOUR OWN DIAMETER FORM"*╖
╓З"            TO CONTINUE PRESS ANY KEY";*╫
рA$│"0":A$│ Т:Е A$│"" Бе 480*▌
ъЮ+
ЇЗ"DO YOU WISH TO BEGIN WITH":З+*
■З"1 - INDUCTANCE IN MICROHENRIES, OR"+IЗ"2 - INDUCTIVE REACTANCE"+OЗ+YЙ S:З+u&Е S│1 з 660:Е S│2 з 570+ж0Е S┤1 ▒ S▓2 з З"ANSWER 1 OR 2 PLEASE":Бе 540+т:Й"WHAT IS THE DESIRED INDUCTIVE REACTANCE IN OHMS";XL:З,	DЙ"WHAT FREQUENCY IN MEGAHERTZ";F:З, NL│XLо(2н3.14159нF),-XL$│ И(L),RbЗ"REQUIRED INDUCTANCE="; О(L$,5),flЗ"MICROHENRIES",БvЕ L┤.2 ▒ L▓75 з Бе 570,МАБе 690,бКА X│1 е 16:З"":Л,рФЙ"WHAT IS THE DESIRED COIL INDUCTANCE IN MICROHENRIES";L:З-ЮЕ L▓75 з З"75 MICRO - MAX. PLEASE REENTER":Бе 660-TиЕ L┤.2 з З"0.2 MICROHENRIES MIN. - PLEASE REENTER":Бе 660-l▓З"SELECT COIL FORM"-З╝З"   1-1/2 W RESISTOR"-в╞З"   2-1   W RESISTOR"-╜╨З"   3-2   W RESISTOR"-╓┌З"   4-  OTHER FORM"-▄фЗ-фюЙ A-·°Е A┤1 ▒ A▓4 з 750.Е A│1 з D│.14.Е A│2 з D│.22./Е A│3 з D│.3.? Е A│4 з 820.P*Е A│┤3 з 850.s4З"WHAT IS THE DIAMETER OF THE".К>З"COIL IN INCHES?".ФHЗ:Й D.─RЙ"WHAT GAGE ENAMELED WIRE IS TO BE USED ";G.╓\Е G│0 з W│.25.щfЕ G│8 з W│.131.№pЕ G│9 з W│.116/zЕ G│10 з W│.104/$ДЕ G│11 з W│.093/8ОЕ G│12 з W│.083/LШЕ G│13 з W│.074/`вЕ G│14 з W│.067/sмЕ G│15 з W│.06/З╢Е G│16 з W│.053/Ы└Е G│17 з W│.047/п╩Е G│18 з W│.042/├╘Е G│19 з W│.038/╫▐Е G│20 з W│.034/ъшЕ G│21 з W│.03/■ЄЕ G│22 з W│.0270№Е G│23 з W│.0240'Е G│24 з W│.02160<Е G│25 з W│.01930QЕ G│26 з W│.01720f$Е G│27 з W│.01540{.Е G│28 з W│.01380Р8Е G│29 з W│.01220дBЕ G│30 з W│.0110║LЕ G│ 31 з W│.00990╨VЕ G│32 з W│.008850х`Е G│33 з W│.00790∙jЕ G│34 з W│.0071tЕ G│35 з W│.00631#~Е G│36 з W│.005717ИЕ G│37 з W│.0051LТЕ G│38 з W│.00451`ЬЕ G│39 з W│.0041uжЕ G│40 з W│.00351Ж░Е G▓40 з 8501╜║N│((40нLнW)л Ы((1600нWп2нLп2)л(72нDп2нL)))о(2нDп2)1ї─N1│((40нLнW)м Ы((1600нWп2нLп2)л(72нDп2нL)))о(2нDп2)2╬Е N▓N1 з N2│N2╪Е N┤│N1 з N2│N121тN2│( Б(N2н10))о1027ьЮ2SЎЗ"WIRE SIZE=";G;" GAGE"2qЗ"COIL DIA.=";D;" INCHES"2Н
З"NUMBER OF TURNS= ";N22┬З:ГCOIL LENGTH=";(INT(N2*W*100))/100;" INCHES":?2█R│ Б(N2нWн100оD)о1002ь(Е A│1 з 14002¤2Е A│2 з 15003<Е A│3 з 152031FЗ"THE LENGTH TO DIA. RATIO IS"39PЗ R3MZЕ A│4 з Бж 15403WdЗ:З:З3ДnЗ"SELECT ANOTHER FORM AND/OR DIFFERENT "3ЧxЗ"SIZE WIRE?":3кВЙ"(Y OR N)";C$3╜МЕ C$│"Y" з 5003фЦЙ"DESIGN ANOTHER COIL?(Y OR N)";B$3°аЕ B$ │"Y" з 5004
кЗ:З:4*┤З"O.K. GOOD LUCK ON YOUR PROJECT !!"40╛К4i╚Е N2нW▓.385 з З"COIL TO LONG FOR 1/2 W FORM":Бе 13904Д╥Е N2нW┤│.385 з Бе 13504║▄Е N2нW▓.525 з З"COIL TO LONG FOR 1W FORM":Бе 13904╙цЕ N2нW┤│.525 Бе 13505ЁЕ N2нW▓.65 з З"COIL TO LONG FOR 2W FORM":Бе 13905 ·Е N2нW┤│.65 Бе 13505KЗ"WOULD YOU LIKE TO SELECT THE LENGTH"5uЙ"FOR A SPACE WOUND COIL (Y OR N)";Z$5МЕ Z$│"N" з Бе 14305ж"SL│( Б(N2нWн100))о1005╨,З"THE LENGTH MUST BE GREATER THEN";SL5ы6З"INCHES,  NEW LENGTH"5Ї@Й NL6,JN2│ Б(( Ы((Lн(4н5нDл10нNL)о((Dо2)л2))))н100л.5)о1006ATА X│1 е 14:З"":Л6]^З"WIRE SIZE=";G;" GAGE"6{hЗ"COIL DIA.=";D;" INCHES"6ЦrЗ"NUMBER OF TURNS=";N26╢|З"COIL LENGTH=";NL;"INCHES"6╝ЖР6┬РК6ю╕З"THE PROGRAM IS TO BE USED TO DESIGN "7┬З"SINGLE LAYER SOLENOIDS ON STANDARD"7E╠З"RESISTOR FORMS OR ON A FORM HAVING A "7g╓З"DIAMETER OF YOUR CHOOSING."7СъЗ"THE INDUCTANCE FORMULA IS FROM THE"7▓ЇЗ"RADIO AMATEUR'S HANDBOOK."7сЗ"THIS FORMULA IS TRANSPOSED TO DETERMINE"8З"THE NUMBER OF TURNS REQ i&
Е  Ж(33021)┤▓50 з 60&:у 12,63:у 13,0:у 8,63:у 0,0&VЗ"1-32 CHARACTER SCREEN&r(З"2-40 CHARACTER SCREEN&О2З"3-80 CHARACTER SCREEN&п4Й"ENTER NUMBER FOR SCREEN";N&└5Е N│1 з т 32&╤6Е N│2 з т 40&т8Е N│3 з т 80&щ<Ю1'FЗ"THIS COLLECTION OF PROGRAMS',PЗ"WAS CONVERTED FROM THE IBM'RZЗ"PUBLIC DOMAIN. MOST OF THE PRO-'vdЗ"GRAMS WILL WORK ON THE COCO 2'ЬnЗ"AND EARLIER COMPUTERS.  HOWEVER'┬xЗ"THOSE WITH A CC3 EXTENSION WILL'фВЗ"REQUIRE A COLOR COMPUTER 3.'эДЗ" "(ЗЙ "PRESS ENTER TO CONTINUE";XX(ЙЗ" "(>МЗ"TO RUN THESE USING A DISK TYPE(vЦЗ"RUN "; Л(34);"PROGRAM/CC3"; Л(34);" WHERE PROGRAM(ШаЗ"IS THE NAME OF THE PROGRAM.(╛кЗ"FOR A CASSETTE JUST TYPE CLOAD.(╟┤З" "(э╛З"RUN THIS PROGRAM TO REVERSE THE)╚З"SCREEN ON THE CC3 BEFORE).╥З"RUNNING THE OTHER PROGRAMS.)S▄З"THE CC3 PROGRAMS REQUIRE AN 80)hцЗ"COLUMN SCREEN.ERE PROGRAM(ШаЗ"IS THE NAME OF THE PROGRAM.(╛кЗ"FOR A CASSETTE JUST TYPE CLOAD.(╟┤З" "(э╛З"RUN THIS PROGRAM TO REVERSE THE)╚З"SCREEN ON T                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                 М&D
:ГTHIS PROGRAM CALCULATES THE LENGTH AND TOTAL NUMBER OF TURNS&Т:ГFOR A SINGLE LAYER AIR-CORE COIL. SEE RADIO HANDBOOK FOR TURNS-PER-INCH&╢:ГDATA FOR VARIOUS WIRE SIZES.+&▄(Й "INDUCTANCE IN MICROHENRYS  ";H&∙2Й "DIAMETER OF COIL  ";D'<Й "TURNS PER INCH  ";TI'FR│Dо2'<PL│3 :ГFIRST TRIAL LENGTH'\ZT│(Hн((9нR)л(10нL))оRп2)п.5'ФdLT│TоTI :ГCALCULATES LENGTH BASED ON TURNS PER INCH'╗nE│LмLT :ГCALCULATE ERROR IN LENGTH'┌xL│LмE :ГRE-ESTIMATE LENGTH'ёВЕ  В(E)┤.01 Бе 150'√МБе 90(
ЦЗ(аL│ Б(Lн100л.5)о100(<кЗ "COIL LENGTH IS: ";L;"INCHES"(H┤T1│LнTI(_╛T1│ Б(T1н10л.5)о10(Е╚З "TOTAL NUMBER OF TURNS IS: ";T1(Л╥КR INCH'╗nE│LмLT :ГCALCULATE ERROR IN LENGTH'┌xL│LмE :ГRE-ESTIMATE LENGTH'ёВЕ  В(E)┤.01 Бе 150'√МБе 90(
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                              ┴╟╟─├├─├#┴%&─(┼├+┴-┴┼╟1234╞67─            INSTRUCTBAS lCOILINDUBAS!ПCOMBLINEBAS"ACOILS   BAS┘FILTER1 BAS$oHAMCALC BASHAMHELP BAS'zIMPEDNCEBAS)ЯINDUCTORBAS*щINTERMD1BASеMATCH   BAS,╟MICRO   BAS:MICRO-T BAS.MOP-AMP  BAS/ГRADPOWERBASNETWORK2CC30нNETWORK1CC3PARABOLACC35>                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                 	>&dЮ :В COMBLINE&?nЗ д25);"****COMBLINE FILTER DESIGN****"&[xВ J.CROMPTON FILES 1984&ШВЗ :З "TYPE: CAPACITIVE-TAPPED,WI 20805 UAL TERMINATIONS"&═ММ G(10),C(10),Z(10),ZO(10,10),ZE(10,10),A(10,10)'ЦЗ :З :а 100,1 :Й "CAPACITOR OR STUB LOADED STYLE (C/S)";C$'NаЗ :а 100,1 :Й "ENTER NUMBER OF FILTER SECTIONS";N :PI│4н Ф(1)'СкЗ :З "ENTER NORMALIZED LOW PASS PROTYPE ELEMENTS :" :DR│PIо180'╞┤А I│0 е Nл1 :З "G(";I;")"; :а 100,1 :Й G(I) :Л I(╛З :а 100,1 :Й "ENTER CENTER FREQUENCY (Mhz)";FO :FO│FOн10п6(C╚З :а 100,1 :Й "ENTER FACTIONAL BANDWIDTH (%)";Q :Q│Qо100(╥З :а 100,1 :Й "ENTER TERMINAL ZO (ohms)";RT :WO│2нPIнFO(о▄З :а 100,1 :Й "ENTER UNMATCHED Z (ohms)";R(шцЗ :а 100,1 :Й "ENTER RESONATOR LENGTH   (degrees)";AR)ЁЕ C$│"C" з SS│45 :Бе 260)?·З :а 100,1 :Й "ENTER TUNING STUB LENGTH (degrees)";SS)]
LR│ARнDR :LS│SSнDR :G│1оR)Ф
TR│ Е(LR)о Х(LR) :TS│ Е(LS)о Х(LS) :B│Gн Ы(RоRTм1))─
Е C$┤▓"C" з 290 :LF│2нLRо Е(2нLR)л1 :Бе 300)ч
"LF│2нLRо Е(2нLR)л2нLSо Е(2нLS)*%
,GX│QнRо(G(0)нG(1)н2) :K│BнGXнLFнTSо(1мBнGXн2нLRо Е(2нLR))*e
6Z(1)│KоB :Z(N)│Z(1) :C│1о(1лKоTS) :C(1)│Bо(KнWO) :C(N)│C(1)*л
@Е C$│"C" з LC│2нLRо Е(2нLR)лC :Д LC│2нLRо Е(2нLR)лCн2нLSо Е(2нLS)*х
JA(1,2)│Qн Ы(LFнLC)о(2н Ы(G(1)нG(2))) :A(Nм1,N)│A(1,2)+(
TZR│GXнLCо(TRн(1мA(1,2)п2)) :З :З "RESONATOR Z="; Б(ZRн100)о100+_
^Е N┤│3 з 420 :Д А I│1 е 6 :А J│2 е Nм2 :ZT(J)│Z(J)+а
hA(J,Jл1)│QнLFн(1л(A(Jм1,J)RлA(Jл1,Jл2)R)о(2н Ы(G(J)нG(Jл1)))+ц
rZ(J)│ZRнTSнTRн(1мA(Jм1,J)RмA(J,Jл1)R) :C(J)│1о(WOнZ(J)) :Л I :Л J+Ў
|А J│2 е Nм2,/
ЖЕ  В((ZT(J)мZ(J))оZ(J))▓.01 з З "CONV. ER" :К :Д Л J,G
РЗ :З "CONV. ER." :К,O
ЪЛ J,П
дЕ N│2 з 430 :Д J│Nм1 :Z(J)│ZRнTSнTRн(1мA(Jм1,J)RмA(J,Jл1)R),д
оC(J)│1о(WOнZ(J)),╖
╕Е C$│"C" з 480,¤
┬А J│1 е Nм1 :ZE(J,Jл1)│ZRн(1лA(J,Jл1)) :ZO(J,Jл1)│ZRн(1мA(J,Jл1))-И
╠З :З "N";J;д6);"Z STUB"; Б(Z(J)н100)о100;д22);"; ZO EVEN (";J;Jл1;")"; Б(ZE(J,Jл1)н100)о100;д49);"; ZO ODD (";J;Jл1;")";ZO(J,Jл1) :Л J-├
╓J│N :З :З "N";J;д6);"Z STUB"; Б(Z(J)н100)о100; :Бе 510.	
рА J│1 е Nм1 :ZE(J,Jл1)│ZRн(1лA(J,Jл1)) :ZO(J,Jл1)│ZRн(1мA(J,Jл1)).▒
ъЗ :З "N";J;д6);"Loading CAP.="; Б(C(J)н10Q2н100)о100;"pf";д28);"; ZO EVEN (";J;Jл1;")"; Б(ZE(J,Jл1)н100)о100;д53);"; ZO ODD (";J;Jл1;")"; Б(ZO(J,Jл1)н100)о100 :Л J.ї
ЇJ│N :З :З "N";J;д6);"Loading CAP.="; Б(C(J)н10Q2н100)о100;"pf";/=
■CG│Gо(RTнBнFO) :З "; Coupling Capacitors="; Б(CGн10Q2н100)о100;"pf"00;"pf";д28);"; ZO EVEN (";J;Jл1;")"; Б(ZE(J,Jл1)н100)о100;д53);"; ZO ODD (";J;Jл1;")"; Б(ZO(J,Jл1)н100)о100 :Л J.ї
ЇJ│N :З :З "N";J;д6);"Loading CAP.="; Б(C(J)н10Q2н100)о100;"pf";/=
■CG│Gо                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                 l&dЮ :В "FILTER1"&<nЗ "****FILTER RESPONSE PROGRAM****"&TxЗ :З :В R.BAIN-1985&УВа 100,1 :З "PRESS #1 FOR BUTTERWORTH  OR  #2 FOR CHEBYSHEV&мМA$│ Т :Е A$│"" з 140&╔ЦЗ д8);A$ :Е A$│"2" з 750&▌аЕ A$┤▓"1" з 140'кЗ :З "BUTTERWORTH FILTER ANALYSIS"'(┤З "---------------------------"'U╛З :а 100,1 :Й "ENTER Num. of Poles  ";NP'В╚З :а 100,1 :Й "ENTER BW(3DB) IN Mhz ";B3'═╥З :а 100,1 :З "PRESS #1 ATTEN for GIVEN FREQ  #2 FREQ for GIVEN ATTEN"'ц▄B$│ Т :Е B$│"" з 220(цЗ д8);A$ :Е B$│"2" з 500 :Е B$┤▓"1" з 220( ЁБж 1610(9·C$│ Т :Е C$│"" з 250(\
Е C$│"2" з 370 :Е C$│"4" з 370(q
Е  Й(C$)▓4 з 240(й
В ATTEN AT A GIVEN FREQ FOR LOW & HIGH PASS FILTERS(╜
"Е C$│"3" з FG│3(ц
,З:а 100,1 :Й "ENTER FREQ IN Mhz ";FA)
6W│FAоB3 :Е FG│3 з W│1оW)-
@A│ Ы(1лWп(2нNP)) :AB│20н( Щ(A)о Щ(10)))^
JЗ :З "ATTEN @";FA;"Mhz="; Б(ABн100)о100;"DB")ж
TЗ :а 100,1 :З "ANOTHER FREQ.? (Y/N)350 D$=INKEY$ :IF D$="" THEN 350)┴
hЕ D$│"Y" з 300 :Д 1630)√
rВ ATTEN AT GIVEN FREQ FOR BANDPASS & BANDSTOP FILTERS*
|Е C$│"4" з FG│4*:
ЖЗ :а 100,1 :Й "CENTER FREQ IN Mhz=";FC*d
РЗ :а 100,1 :Й "ENTER FREQ IN Mhz ";FO*Б
ЪFX│FCп2оFO :BX│ В(FOмFX)*Я
дW│BXоB3 :Е FG│4 з W│B3оBX*─
оA│ Ы(1лWп(2нNP)) :Е A▓10п5 з 460*▌
╕AB│20н( Щ(A)о Щ(10))+
┬З :З "ATTEN @";FO;"Mhz="; Б(ABн100)о100 :Бе 470+5
╠З :З "ATTEN @";FO;"Mhz >100 DB"+^
╓З :а 100,1 :З "ANOTHER FREQ.? (Y/N)"+w
рE$│ Т :Е E$│"" з 480+Т
ъЕ E$│"Y" з 400 :Д 1630+Ю
ЇБж 1610+╢
■C$│ Т Е C$│"" з 510+┘Е C$│"2" з 640 :Е C$│"4" з 640+юЕ  Й(C$)▓4 з 500,'В FREQ FOR A GIVEN ATTEN FOR LOW & HIGH PASS FILTERS,;&Е C$│"3" з FG│3,f0З :а 100,1 :Й "ENTER ATTEN. IN DB ";AB,w:A│10п(ABо20),лDW│((Aп2)м1)п(1о(2нNP)) :Е FG│3 з W│1оW :FA│B3нW,уNЗ :З "FREQ @ ATTEN=";AB;"DB is" Б(FAн100)о100;"Mhz"-
XЗ :а 100,1 :З "ANOTHER ATTEN.? (Y/N)"-&bD$│ Т :Е D$│"" з 610-AlЕ D$│"Y" з 560 :Д 1630-~vВ FREQ FOR A GIVEN ATTEN FOR BANDPASS & BANDSTOP FILTERS-ТАЕ C$│"4" з FG│4-┴КЗ :а 100,1 :Й "ENTER CENTER FREQ (Mhz)";FC-ыФЗ :а 100,1 :Й "ENTER ATTEN IN DB ";AB.ЮA│10п(ABо20) :WX│((Aп2)м1)п(H1о(2нNP)).6иBX│B3нWX :Е FG│4 з BX│B3оWX.d▓FL│.5н(мBXл Ы((BXп2)л4нFCп2)) :FH│FCп2оFL.г╝З :З "AT ATTEN=";AB;"DB" :З :З "HI FREQ.="; Б(FHн100)о100;.╙╞З "Mhz" :З "LO FREQ.="; Б(FLн100)о100;"Mhz".¤╨З :а 100,1 :З "ANOTHER ATTEN.? (Y/N)"/┌D$│ Т :Е D$│"" з 730/1фЕ D$│"Y" з 660 :Д 1630/VюЗ :З "CHEBYSHEV FILTER ANALYSIS"/x°З "-------------------------"/еЗ :а 100,1 :Й "ENTER Num. of Poles  ";NP/╤З :а 100,1 :Й "ENTER RIPPLE IN DB   ";R/рЗ :а 100,10( З "PRESS  #1 TO INPUT BW(3DB)";д40);"PRESS  #2 FOR EQUI-RIPPLE  BW"0A*E$│ Т :Е E$│"" з 8100T4Е E$│"2" з 8900i>Е  Й(E$)▓2 з 8100ЦHЗ :а 100,1 :Й "ENTER BW(3DB) IN MHz ";B30╞RA│10п3(о20) :CN│ Ы(((Aп2)м1)о(10п(.1нR)м1))0с\KY│ Щ(CNл Ы((CNп2)м1))1
fW│.5н( Ч(KYоNP)л Ч(мKYоNP)) :BR│B3оW1pБе 9001JzЗ :а 100,1 :Й "EQUI-RIPPLE BANDWIDTH IN MHz=";BR1YДЗ :а 100,11ЮОЗ "PRESS #1 ATTEN for GIVEN FREQ";д40);"#2 FREQ for GIVEN ATTEN"1╖ШB$│ Т :Е B$│"" з 9201╦вЕ B$│"2" з 13101рмЕ  Й(E$)▓2 з 9101ь╢Бж 16102└C$│ Т :Е C$│"" з 9602*╩Е C$│"2" з 1140 :Е C$│"4" з 11402?╘Е  Й(C$)▓4 з 9602w▐В ATTEN AT A GIVEN FREQ FOR LOW & HIGH PASS FILTERS2ЛшЕ C$│"3" з FG│32╡ЄЗ :а 100,1 :Й "ENTER FREQ IN MHz ";FO2╟№Е FG│3 з 10402щW│FOоBR :Е W┤1 з 1100 :Д 10503W│BRоFO :Е W┤1 з 11003KY│( Щ(Wл Ы((Wп2)м1)))3?$CN│.5н Ч((NPнKY)л Ч(мNPнKY))3^.A│ Ы(1л(10п(.1нR)м1)нCNп2)3w8AB│20н( Щ(A)о Щ(10))3▒BЗ :З "ATTEN @";FO;"MHz="; Б(ABн100)о100;"DB" :Бе 11103┘LЗ :З "ATTEN @";FO;"MHz=0 to";R;"DB"4VЗ :а 100,1 :З "ANOTHER FREQ.? (Y/N)"4`E$│ Т :Е E$│"" з 112048jЕ E$│"Y" з 1010 :Д 16304ttВ ATTEN AT A GIVEN FREQ FOR BANDPASS & BANDSTOP FILTERS4И~Е C$│"4" з FG│44╖ИЗ :а 100,1 :Й "ENTER CENTER FREQ (MHz)";FC4сТЗ :а 100,1 :Й "ENTER FREQ IN MHz ";FO5
ЬFX│FCп2оFO :BX│ В(FOмFX) :Е FG│4 з 12005/жW│BXоB3 :Е W┤1 з 1270 :Д 12105I░W│BRоBX :Е W┤1 з 12705b║KY│ Щ(Wл Ы((Wп2)м1))5Г─CN│.5н( Ч(NPнKY)л Ч(мNPнKY))5│╬A│ Ы(1л(10п(.1нR)м1)нCNп2) :Е A▓10п5 з 12605╠╪AB│20н( Щ(A)о Щ(10))6тЗ :З "ATTEN @";FO;"MHz="; Б(ABн100)о100;"DB" :Бе 128063ьЗ :З "ATTEN @";FO;"MHz >100 DB" :Бе 12806[ЎЗ :З "ATTEN @";FO;"MHz=0 to";R;"DB"6ДЗ :а 100,1 :З "ANOTHER FREQ.? (Y/N)"6Ю
E$│ Т :Е E$│"" з 12906║Е E$│"Y" з 1170 :Д 16306╞Бж 16106р(C$│ Т :Е C$│"" з 132072Е C$│"2" з 1470 :Е C$│"4" з 14707<Е  Й(E$)▓4 з 13107SFВ FREQ AT A GIVEN ATTEN FOR LOW & HIGH PASS FILTERS7gPЕ C$│"3" з FG│37СZЗ :а 100,1 :Й "ENTER ATTEN IN DB ";AB7вdA│10п(ABо20)7├nCN│ Ы((Aп2м1)о(10п(.1нR)м1))7▐xKY│ Щ(CNл Ы((CNп2)м1))8ВW│.5н( Ч(KYоNP)лEXO(мKYоNP)) :Е FG│3 з W│1оW8МFO│BRнW8TЦЗ :З "FREQ @ ATTEN=";AB;"DB IS"; Б(FOн100)о100;"MHz"8nаD$│ Т :Е D$│"" з 14408КкЕ D$│"Y" з 1370 :Д 16308╞┤В FREQ AT A GIVEN ATTEN FOR BANDPASS & BANDSTOP FILTERS8┌╛Е C$│"4" з FG│49
╚З :а 100,1 :Й "ENTER CENTER FREQ IN MHz";FC94╥З :а 100,1 :Й "ENTER ATTEN IN DB ";AB9E▄A│10п(ABо20)9hцCN│ Ы(((Aп2)м1)о(10п(.1нR)м1))9ГЁKY│ Щ(CNл Ы((CNп2)м1))9г·W│.5н( Ч(KYоNP)л Ч(мKYоNP))9┴BX│BRнW :Е FG│4 з BX│BRоW9яFL│.5н(мBXл Ы((BXп2)л4нFCп2)) :FH│FCп2оFL:З :З "AT ATTEN=";AB;"DB":Q"З :З "HI FREQ="; Б(FHн100)о100;"& LO FREQ="; Б(FLн100)о100;"MHz":r,З :З "ANOTHER ATTEN.? (Y/N)":М6D$│ Т :Е D$│"" з 1590:и@Е D$│"Y" з 1490 :Д 1630:ЁJЗ :З "PRESS  #1 LOW PASS   #2 BANDPASS   #3 HIGHPASS   #4 BANDSTOP": Tа 100,1 :Р;$^З :а 100,1 :З "CONTINUE?  (Y/N)";>hF$│ Т :Е F$│"" з 1640;QrЕ F$│"Y" з 100;k|Е F$┤▓"N" з 1640 :Д К/N)":М6D$│ Т :Е D$│"" з 1590:и@Е D$│"Y" з 1490 :Д 1630:ЁJЗ :З "PRESS  #1 LOW PASS   #2 BANDPASS   #3 HIGHPASS   #4 BANDSTOP": Tа 100,1 :Р                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                 
w&
М N(100)&)З "HANDY HAM PROGRAMS"&/2З&5<З&UFЗ "   1   OHMS LAW PROGRAM"&zPЗ "   2   DESIGN DIPOLE ANTENNA"&ЭZЗ "   3   DESIGN QUAD ANTENNA"&└dЗ "   4   DESIGN BEAM ANTENNA"&юnЗ "   5   CALCULATE PARALLEL RESISTANCES"'xЗ "   6   TO RETURN TO BASIC MONITER"'ВЗ'$МЗ'aЦЙ "ENTER NUMBER OF OPTION DESIRED AND PRESS RET KEY  ";O'pаЕ O│0 з 20'кЕ O▓6 з 20'д┤И O Бе 210,970,1270,520,1710,190'к╛З'░╚К'┐╥В OHMS LAW'ш▄З "ENTER E IN VOLTS, 0 IF UNKNOWN":З'ЇцЙ E : З(ЁЗ "ENTER I IN AMPS, 0 IF UNKNOWN":З((·Й I : З(P
З "ENTER R IN OHMS, 0 IF UNKNOWN":З(\
Й R : З(q
Е EлIлR│0 Бе 470(В
"Е E│0 Бе 330(У
,Е I│0 Бе 380(д
6Е R│0 Бе 430(п
@Бе 470(╣
JE│IнR(╞
TЗ "E=";E(╠
^З(╥
hЗ(▌
rБе 470(ч
|I│EоR(Ї
ЖЗ "I=";I(·
РЗ)
ЪЗ)
дБе 470)
оR│EоI)"
╕З "R=";R)(
┬З).
╠З)X
╓З "DO YOU WANT TO DO ANOTHER Y OR N ")c
р╗ Й R$)w
ъЕ R$│"Y" Бе 210)Б
ЇБе 60)И
■:Г)вВ DESIGN BEAM ANTENNA)╣З "    DESIGN VHF")┐З)╫&З "   BEAM ANTENNA")▌0З)у:В)щDВ)яNВ)їXЗ*bЗ "     ENTER"*lЗ*'vЗ "FREQUENCY IN MHZ"*-АЗ*3КЗ*;ФЙ F*HЮD│5600оF*TиA│Dн.05*_▓R1│DлA*l╝A1│Dн.05*x╞D1│DмA1*Ж╨A2│D1н.02*У┌D2│D1мA2*бфA3│D2н.02*оюD3│D2мA3*┼°S1│492оFн12н2н.208*█S2│492оFн12н2н.15*ЁS3│492оFн12н2н.2+S4│492оFн12н2н.256+
 В+4*З "-----------------";"R1 IN.=";R1+M4З "        !      @"+s>З "        !      @";"S1 IN.=";S1+ЩHЗ "-----------------";"D  IN.=";D+▓RЗ "        !      @"+╪\З "        !      @";"S2 IN.=";S2+ fЗ "-----------------";"D1 IN.=";D1,pЗ "        !      @",>zЗ "        !      @";"S3 IN.=";S3,eДЗ "-----------------";"D2 IN.=";D2,~ОЗ "        !      @",дШЗ "        !      @";"S4 IN.=";S4,╦вЗ "-----------------";"D3 IN.=";D3,№м╗ Й "DO YOU WANT TO DO ANOTHER YES OR NO";Y$-╢Е Y$│"YES" з 520-└Бе 60-7╩В DESIGN DIPOLE ANTENNA-J╘З "    DESIGN"-a▐З "DIPOLE ANTENNA"-gшЗ-yЄЗ "    ENTER"-У№З "FREQUENCY IN MHZ."-ЩЗ-ЯЗ-еЗ-л$З-▒.З-╖8З-╜BЗ-├LЗ-╦VЙ A-╤`З-▀jL│468оAо2-ьtЗ "MHZ."- ~З "    DIPOLE".ИЗ "CUT AS FIGURE".ТЗ.!ЬЗ.;жЗ "O-------O-------O".U░З "!<-'L'->!<-'L'->!".[║З.─З "                 L=",L," FT".Е╬З.╖╪╗ Й "DO YOU WANT TO DO ANOTHER YES OR NO ";Y$.╠тЕ Y$│"YES" з 970.╓ьБе 60.ЁЎВ DESIGN QUAD ANTENNA/З "DESIGN QUAD ANTENNA"/
З/ З "ENTER"/&З/@(З "FREQUENCY IN MHZ."/F2З/L<З/RFЗ/XPЗ/^ZЗ/ddЗ/jnЗ/pxЗ/xВЙ F/~МЗ/ДЦЗ/ТаЗ "ENTER"/╗кЗ "ELEMENT SPACEING IN WAVE LENGTHS"/├┤Й A/╤╛S│984оFнA/▌╚D│246оF/щ╥B│Dн.05/є▄R│BлD/¤цT│Rн40ЁL│Dн40·З "DREVEN ELEMENT"07З "LENGTH EACH SIDE"0GЗ D," FT. "0\З "TOTAL LENGTH"0l"З L," FT. "0Ж,З "REFLECTOR ELEMENT"0Я6З "LENGTH EACH SIDE"0п@З R," FT. "0─JЗ "TOTAL LENGTH"0╘TЗ T," FT. "0э^З "ELEMENT SPACEING"0¤hЗ S," FT. "1
rЗ "SPACING"1%|З "WAVE LENGTH =",A1DЖЗ "FREQUENCY   =",F,"MHZ."1vР╗ Й "DO YOU WANT TO DO ANOTHER YES OR NO ";Y$1МЪЕ Y$│"YES" з 12701ЦдБе 601╗оЮ:З "COMPUTE PARALLEL RESTANCES"1┴╕З1╟┬З1ъ╠З "       1 TO 100 RESISTORS "1Ё╓З1ЎрЗ1№ъЗ2ЇВ RESISTANCE PARALLEL2&■А X│1 е 1002BЗ "ENTER R , 0 TO STOP"2SЙ "R= ";N(X)2gЕ N(X)│0 з 18402o&Л X2З0З "RESISTANCES ARE"2П:R│02ЩDX│Xм12иNА K│1 е  X2╒XЗ "RESISTANCE OF R",K," IS",N(K)," OHMS"2фbR│Rл1оN(K)2ьlЛ K2ЎvR│1оR3АЗ "TOTAL RESISTANCE IS",R," OHMS"3KК╗ Й "DO YOU WANT TO DO MORE YES OR NO ";Y$3vФЕ Y$ │ "YES" ▒ Y$ │ "Y" з 1710 :Д 1700SISTANCES ARE"2П:R│02ЩDX│Xм12иNА K│1 е  X2╒XЗ "RESISTANCE OF R",K," IS",N(K)," OHMS"2фbR│Rл1оN(K)2ьlЛ K2ЎvR│1оR3АЗ "T                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                 Ь&dЮ :В IMPED&9nЗ "****IMPEDANCE CONVERSION****":З:З&ЕxЗ "PROGRAM TO CONVERT SERIES IMPEDANCE DATA TO PARALLEL IMPEDANCE DATA"&зВЗ:З:а 100,1 :Й "ENTER RS  ";Z&╚МЗ :а 100,1 :Й "ENTER Js  ";X&▄ЦI│Zн(1л(XоZ)п2)&юаJ│(Zп2лXп2)оX'кЕ  А(XN)│м1 з 200'┤S$│"+"'╛Бе 210'%╚S$│"-"'J╥R│ Б(Iн100)о100 :P│ Б(Jн100)о100'y▄З :З "PARALLEL IMPEDANCE =";R;S$;"J"; В(P)'ицЗ :а 100,1 :З "HARD COPY REQUIRED?  (Y/N)"'┴ЁP$│ Т :Е P$│"" з 240'╘·Е P$│"Y" з 270'ю
Е P$│"N" з 280 :Д 240(J
З #м2,1 "SERIES IMPEDANCE ";Z;"Rs;";X;"Js";" EQUAL PARALLEL IMPEDANCE ";R;S$;"J"; В(P) (o
З :а 100,1 :З "CONTINUE?  (Y/N)"(И
"B$│ Т :Е B$│"" з 290(Ы
,Е B$│"Y" з 100D?  (Y/N)"'┴ЁP$│ Т :Е P$│"" з 240'╘·Е P$│"Y" з 270'ю
Е P$│"N" з 280 :Д 240(J
З #м2,1 "SER                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                 	ц&dЮ :В "INDUCTOR"&.nЗ"****INDUCTORS****"&txЗ "A-THIS PROGRAM COMPUTES THE":З"INDUCTANCE OF SINGLE LAYER AIR"&┤ВЗ "COILS GIVEN CORE DIA.  No . of  TURNS and WIRE SPACING."&ЎМЗ "B-THIS PROGRAM COMPUTES THE":З"INDUCTANCE OF ISOLATED BUSS'ЦЗ "LEADS GIVEN WIDTH,THICKNESS and'kаЗ "LENGTH.":З"C-THIS PROGRAM COMPUTES THE":З"INDUCTANCE OF ISOLATED LEADS'УкЗ "GIVEN WIRE DIAMETER and LENGTH."'╖┤З :а 100,1 :З "SELECT A,B or C"'╨╛A$│ Т :Е A$│"" з 190'у╚Е A$│"B" з 420'Ў╥Е A$│"C" з 560(
▄Е A$┤▓"A" з 190(7цЮ :З"***SINGLE-LAYER AIR COILS***" :З :З(fЁЗ :а 100,1 :Й "ENTER CORE DIA. (MILS) ";CD(Х·З :а 100,1 :Й "ENTER WIRE DIA. (MILS) ";WD(├
З :а 100,1 :Й "ENTER NUMBER OF TURNS  ";N)	
З :З "SPECIFY WIRE SPACING THUS: .001":З"for CLOSE WOUND; 1 for 1)/
З "WIRE SPACE between turns etc.")^
"З :а 100,1 :Й "ENTER WIRE SPACING     ";WS)Н
,З :а 100,1 :Й "ENTER FREQUENCY  (MHz) ";FO)─
6D│CDлWD :L│NнWDн(1лWS):LN│.25нNп2нDп2о(4.5нDл10нL))ї
@Q│15.15н(LNо(Nп2нD))нNн((WDн Ы(FO))м2.65) :З*:
JЗ "INDUCTANCE ="; Б(LNн100)о100;"nh; Q(unloaded)="; Б(Qн100)о100*E
TБж 680*X
^Е P$│"Y" з 370*s
hЕ P$┤▓"N" з 340 :Д 410*~
rЗ #м2,*╚
|З #м2, "CORE DIA.=";CD;"MILS; WIRE DIA.=";WD;"MILS; No. OF TURNS=";N;+
ЖЗ #м2, "; WIRE SPACING=";WS :З #м2, "WIRE DIAS.; INDUCTANCE=";+U
РЗ #м2,  Б(LNн100)о100 ;"nh @"; Б(FO);"MHzQ(unloaded)="; Б(Qн100)о100 +`
ЪБе 710+Д
дЮ :З"***ISOLATED BUSS LEADS***"+╖
оЗ :а 100,1 :Й "ENTER LEAD WIDTH     (MILS)";LW+ъ
╕З :а 100,1 :Й "ENTER LEAD THICKNESS (MILS)";LT,
┬З :а 100,1 :Й "ENTER LEAD LENGTH    (MILS)";LL,A
╠W│LWо1000 :T│LTо1000 :L│LLо1000,{
╓LS│(5.08нL)н(( Щ((2нL)о(WлT)))л(1о2)л(2о9)н((WлT)оL)),м
рЗ :З "SELF INDUCTANCE ="; Б(LSн100)о100;"nh",╖
ъБж 680,╩
ЇЕ P$│"Y" з 520,х
■Е P$┤▓"N" з 490 :Д 550,ЁЗ #м2,-=З #м2, "LEAD WIDTH=";LW;"MILS; LEAD THICKNESS=";LT;"MILS; LEAD LENGTH=";-БЗ #м2, LL;"MILS" :З #м2, "SELF INDUCTANCE="; Б(LSн100)о100;"nh"-М&Бе 710-ц0Ю :З д27);"***ISOLATED ROUND LEADS***"570 З :а 100,1 :Й "ENTER LEAD DIA.   (MILS)";LD.DЗ :а 100,1 :Й "ENTER LEAD LENGTH (MILS)";LL./ND│LDо1000 :L│LLо1000.SXLS│(5.08нL)н( Щ((2нL)о(Dо2)м1)).ДbЗ :З "SELF INDUCTANCE ="; Б(LSн100)о100;"nh".ПlБж 680.вvЕ P$│"Y" з 650.└АЕ P$┤▓"N" з 620 :Д Бе 710/КЗ #м2, :З #м2, "LEAD DIA.=";LD;"MILS; LEAD LENGTH=";LL;"MILS; ";/7ФЗ #м2, "SELF INDUCTANCE="; Б(LSн100)о100;"nh"/BЮБе 710/qиЗ :а 100,1 :З "HARD COPY REQUIRED?  (Y/N)"/К▓P$│ Т :Е P$│"" з 690/Р╝Р/┤╞З :а 100,1 :З "CONTINUE?  (Y/N)/═╨A$│ Т :Е A$│"" з 720/х┌Е A$│"Y" з 100 :Д КS; LEAD LENGTH=";LL;"MI                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                 	─&)ZЗ"THIS IS FOR MICROWAVE USE I GUESS&:dЮ :В "MATCH"&PnЗ "****MATCH****"&╩xЗ :З "THIS PROGRAM CALCULATES THE":З"PARAMETERS OF A TRANSMISSION":З"REQUIRED TO MATCH TWO REAL OR":З"COMPLEX LOADS."&ЁВЗ :З"SERIES SOURCE DATA  R +/-JX"'МЗ :а 100,1 :Й "ENTER REAL TERM   ";R(1)'RЦЗ :а 100,1 :Й "ENTER J TERM, IF 0 ENTER 0  ";X(1)'ВаЗ :З"SERIES LOAD IMPEDANCE DATA":З"R =/-JX"'окЗ :а 100,1 :Й "ENTER REAL TERM   ";R(2)'ф┤З :а 100,1 :Й "ENTER J TERM, IF 0 ENTER 0  ";X(2)'є╛PI│4н Ф(1)(
╚Е R(1)┤▓R(2) з 250(╥Е X(1)┤▓0 з 730(2▄Е X(2)┤▓0 з 730(FцZ│ Ы(R(1)нR(2))(WЁT│90 :Бе 420(Ц·K7│((R(1)п2лX(1)п2)нR(2)м(R(2)п2лX(2)п2)нR(1))о(R(1)мR(2))(з
Е K7┤0 з 730(щ
Z│ Ы(((R(1)п2лX(1)п2)нR(2)м(R(2)п2лX(2)п2)нR(1))о(R(1)мR(2)))(¤
Е X(1)┤▓0 з 330)
"Е X(2)┤▓0 з 310)"
,T│90 :Бе 370)L
6C│Zн(R(2)мR(1))о(X(1)нR(2)мX(2)нR(1)))W
@Бе 340)Б
JC│Zн(R(1)мR(2))о(X(1)нR(2)мX(2)нR(1)))Ю
TT│ Ф(C) :Z│ Б(Zн100)о100)╝
^T│Tн(180оPI) :Е T▓0 з 370)╚
hT│Tл180)ч
rL│Tо360 :L│ Б(Lн1000)о1000)·
|Е X(1)┤0 з 400*

ЖA$│"+" :Бе 410*
РA$│"-"*+
ЪЕ X(2)┤0 з 430*>
дB$│"+" :Бе 440*I
оB$│"-"*g
╕Ю :З ;"Z line =";Z;"ohms"*╕
┬:ГPRINT :PRINT TAB(10);"--------------------";TAB(50);"--------------------"*┌
╠:ГPRINT TAB(30);"";TAB(49);""*№
╓:ГPRINT TAB(30);"";TAB(49);""+'
р:ГPRINT TAB(30);"--------------------"+?
ъЗ "LENGTH =";L;"Lg"+j
Ї:ГPRINT TAB(30);"--------------------"+М
■:ГPRINT TAB(30);"";TAB(49);""+╟:ГPRINT "Zin =";TAB(30);"";TAB(49);"";TAB(58);"Zout =",:ГPRINT TAB(10);"--------------------";TAB(50);"--------------------",AЗ R(1);A$;"J"; В(X(1));R(2);B$;"J"; В(X(2)),Г&З :З "NOTE: Lg IS THE GUIDED":З"WAVELENGTH OF THE LINE USED.",╕0З :З :З :а 100,1 :З "HARD COPY REQUIRED?  (Y/N)",╤:P$│ Т :Е P$│"" з 570,фDЕ P$│"Y" з 600, NЕ P$┤▓"N" з 570 :Д 720-"XЗ #м2, д35);"Z line=";Z;"ohms"-LbА U│10 е 30 :З #м2, дU); Л(241); :Л U-vlА U│50 е 70 :З #м2, дU); Л(241); :Л U-ЫvЗ #м2, д30); Л(245);д50); Л(245)-жАБж 800-╚КЗ #м2, д35);"LENGTH =";L;"Lg"-╙ФБж 800.ЮЗ #м2, д10);"Zin =";R(1);A$;" J"; В(X(1));д30); Л(245);.KиЗ #м2, д50); Л(245);д55);"Zout =";R(2);B$;" J"; В(X(2)).V▓Бж 780.a╝Бж 790.н╞З #м2," " :З #м2, "NOTE: Lg IS THE GUIDED WAVELENGTH OF THE LINE USED.".╕╨Бе 740.╪┌З :З "MATCH NOT REALIZABLE".¤фЗ :а 100,1 :З "CONTINUE?  (Y/N)"/юC$│ Т :Е C$│"" з 750/.°Е C$│"Y" з 770 :Д К/<Ю :Бе 130/iА U│10 е 30 :З #м2, дU); Л(241); :Л U :Р/ЦА U│50 е 70 :З #м2, дU); Л(241); :Л U :Р/├ А U│30 е 50 :З #м2, дU); Л(241); :Л U :РCH NOT REALIZABLE".¤фЗ :а 100,1 :З "CONTINUE?  (Y/N)"/                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                 J&dЮ :В "MICRO-T"&/nЗ "****MICRO-T****" :З&гxЗ :З "THIS PROGRAM COMPUTES THE TRUE":З"TRANSFORMED IMPEDANCE OF A":З"CIRCUIT USING LITTY'S":З"APPROXIMATIONS."&┐ВR│(4н Ф(1)о180) :B$│" "&ўМЗ :а 100,1 :Й "ENTER Zo of the LINE USED    Zo=";ZO'/ЦЗ :а 100,1 :Й "ENTER REAL LOAD IMPEDANCE    Zl=";Z1'gаЗ :а 100,1 :Й "ENTER GUIDED WAVELENGTH      Lg=";LG'ЮкЗ :а 100,1 :Й "ENTER MICROSTRIP LENGTH       l=";X'ц┤REAL│ZOнZ1н(1л( Ц((360нXоLG)нR))п2)о(ZOп2лZ1Rн( Ц((360нXоLG)нR))п2)(╛REAL │REALнZO :REAL│ Б(REALн100)о100(g╚IMAG│(ZOп2н Ц((360нXоLG)нR)мZ1п2н Ц((360нXоLG)нR))о(ZOп2лZ1п2н( Ц((360нXоLG)нR)п2))(П╥IMAG│IMAGнZO :IMAG│ Б(IMAGн100)о100(й▄Е IMAG┤0 з 230 :Д 250(┤цB$│"-"(┐ЁБе 260(╩·B$│"+"(ў
З :З д30);"Zx=";REAL;" ";B$;"J"; В(IMAG))%
З :а 100,1:З "HARD COPY REQUIRED?  (Y/N)")>
P$│ Т :Е P$│"" з 280)R
"Е P$┤▓"Y" з 320)ж
,З #м2, "Zo of line =";ZO;"ohms";"; REAL LOAD Z =";Z1;"; Guided Wavelength =";LG)ы
6З #м2, "MICROSTRIP Length =";X;"; Zx=";REAL;" ";B$;" J"; В(IMAG)*
@З :а 100,1 :З "CONTINUE?  (Y/N)"*)
JC$│ Т :Е C$│"" з 330*;
TЕ C$┤▓"Y" з К*I
^Ю :Бе 140 з 320)ж
,З #м2, "Zo of line =";ZO;"ohms";"; REAL LOAD Z =";Z1;"; Guided Wavelength =";LG)ы
6З #м2, "MICROSTRIP Length =";X;"; Zx=";REAL;" ";B$;" J"; В(IMAG)*
@З :а 100,1 :З "                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                 А&dЮ :В "OP-AMP"&%nВ A.KASS-1984&dxЗ "**** OP-AMP VOLTAGE and DB GAIN":З" CALCULATOR ****" :З&зВЗ :З "ENTER TWO RESISTORS or ONE":З"RESISTOR and a GAIN VALUE"&╪МЗ :З "NOTE: RESISTORS LIMITED TO 10 MEG OHMS&¤ЦЗ "ENTER 0 FOR ALL UNKNOWNS." :З'8аЗ :а 100,1 :Й "ENTER Rin (K-OHMS)";RI :Е RI▓10п4 з 490'sкЗ :а 100,1 :Й "ENTER Rf  (K-OHMS)";RF :Е RF▓10п4 з 490'Л┤Е RI│0 ░ RF│0 з 490'╢╛З :а 100,1 :Й "ENTER VOLTAGE GAIN ";AV'с╚З :а 100,1 :Й "ENTER DECIBEL GAIN ";DB'№╥Е AV│0 з AV│10п(DBо20)(▄Е RI│0 з RI│RFоAV((цЕ RF│0 з RF│RIнAV(EЁЕ AV│0 ▒ DB│0 з AV│RFоRI(_·DB│20н( Щ(AV)о Щ(10))(Й
Ю :З "BASED ON THE ABOVE ENTRIES:" :З(│
З "INPUT    R="; Б(RIн10)о10;"K-OHMS"(р
З "FEEDBACK R="; Б(RFн10)о10;"K-OHMS" :З)
"З "VOLTAGE GAIN="; Б(AVн100)о100)/
,З "DECIBEL GAIN="; Б(DBн100)о100;"DB")v
6З :З "IF in the INVERTING MODE INPUT":З" R="; Б(RIн10)о10;"K-OHMS")└
@З :З "IF NON-INVERTING MODE INPUT":З" BIAS RF="; Б(RFн10)о10;"K-OHMS")ю
JЗ :а 100,1 :З "HARD COPY REQUIRED? (Y/N)"*
TP$│ Т :Е P$│"" з 340*
^Е P$│"N" з 440*.
hЕ P$┤▓"Y" з 340*b
rЗ #м2, д27);"*** OP-AMP CALCULATOR ***" :З #м2,*Х
|З #м2, д10);"INPUT  R="; Б(RIн10)о10;"K-OHMS";*╩
ЖЗ #м2, д40);"FEEDBACK  R="; Б(RFн10)о10;"K-OHMS"*√
РЗ #м2, д10);"VOLTAGE GAIN ="; Б(AVн100)о100;+8
ЪЗ #м2, д40);"DECIBEL GAIN ="; Б(DBн100)о100;"DB" :З #м2,+Е
дЗ #м2, д10);"IF in the INVERTING MODE    INPUT R="; Б(RIн10)о10;"K-OHMS"+╤
оЗ #м2,д10);"IF NON-INVERTING MODE INPUT BIAS RF="; Б(RFн10)о10;"K-OHMS"+ї
╕З :а 100,1 :З "CONTINUE? (Y/N)",
┬A$│ Т :Е A$│"" з 450,!
╠Е A$│"Y" з 100,4
╓Е A$│"Y" з 100,M
рЕ A$┤▓"N" з 450 :Д К,
ъЗ :З "DATA ENTERED INCORRECTLY" :З :З :Бе 160MS"+╤
оЗ #м2,д10);"IF NON-INVERTING MODE INPUT BIAS RF="; Б(RFн10)о10;"K-OHMS"+ї
╕З :а 100,1 :З "CONTINUE? (Y/N)",
┬A$│ Т                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                 )к&2т 80:у 8,63:у 0,0:Ю1&/dЮ :В "NETWORK 1"&LnЗ д33);"****NETWORK****"&ЙxЗ :З "NOTE: ELEMENT VALUES MUST BE IN REACTANCE (OHMS)."&╕ВЗ :а 100,1 :З "HARD COPY REQUIRED?  (Y/N)"&▐МP$│ Т :Е P$│"" з 140 :Д З д24);P$&№ЦЕ P$┤▓"Y" ░ P$┤▓"N" з 140'(аа 100,1 :З "CONVERSION REQUIRED? (Y/N)"'_кA$│ Т :Е A$│"" з 170 :Д З д24);A$ :Е A$│"Y" з 2570's┤Е A$┤▓"N" з 170'╞╛З :З "THIS PROGRAM CALCULATES AND PLOTS CIRCUIT BANDWIDTH IN DB VS FREQUENCY."'▄╚А N│1 е 4 :З :Л N(╥З "          ********     ********     ********     ********"(`▄З "          *      *     *      *     *      *     *      *"(мцЗ "   ********  X1  *******  X3  *******  X5  *******  X7  *********>>"(їЁЗ "   *      *      *  *  *      *  *  *      *  *  *      *      *")>·З "   *      ********  *  ********  *  ********  *  ********      *")З
З "   *                *            *            *                *")╙
З "*******          *******      *******      *******          *******"*
З "*     *          *     *      *     *      *     *          *     *"*k
"З "* Rin *          *  X2 *      *  X4 *      *  X6 *          * Rout*"*╖
,З "*     *          *     *      *     *      *     *          *     *"+
6З "*******          *******      *******      *******          *******"+-
@З :З "ENTER CIRCUIT REACTANCES thus:"+^
JЗ :З "A. USE POSITIVE NUMBERS for INDUCTORS"+Ф
TЗ        "B. USE NEGATIVE NUMBERS for CAPACITORS"+█
^З        "C. USE 0'S for MISSING (UNUSED) ELEMENTS" :М X(24),A(24),
hЗ :а 100,1 :Й "ENTER Rin    ";RI,$
rа 100,1 :Й "ENTER X1     ";X(1),H
|а 100,1 :Й "ENTER X2     ";X(2),l
Жа 100,1 :Й "ENTER X3     ";X(3),Р
Ра 100,1 :Й "ENTER X4     ";X(4),┤
Ъа 100,1 :Й "ENTER X5     ";X(5),╪
да 100,1 :Й "ENTER X6     ";X(6),у
оБж 690,Ў
╕Е E$│"E" з 670-
┬а 100,1 :Й "ENTER X7     ";X(7)->
╠а 100,1 :Й "ENTER X8     ";X(8)-b
╓а 100,1 :Й "ENTER X9     ";X(9)-З
ра 100,1 :Й "ENTER X10    ";X(10)-м
ъа 100,1 :Й "ENTER X11    ";X(11)-╤
Їа 100,1 :Й "ENTER X12    ";X(12)-▄
■Бж 690-яЕ E$│"E" з 670.а 100,1 :Й "ENTER X13    ";X(13).9а 100,1 :Й "ENTER X14    ";X(14).^&а 100,1 :Й "ENTER X15    ";X(15).Г0а 100,1 :Й "ENTER X16    ";X(16).и:а 100,1 :Й "ENTER X17    ";X(17).═Dа 100,1 :Й "ENTER X18    ";X(18).╪NБж 690.ыXЕ E$│"E" з 670/bа 100,1 :Й "ENTER X19    ";X(19)/5lа 100,1 :Й "ENTER X20    ";X(20)/Zvа 100,1 :Й "ENTER X21    ";X(21)/Аа 100,1 :Й "ENTER X22    ";X(22)/дКа 100,1 :Й "ENTER X23    ";X(23)/╔Фа 100,1 :Й "ENTER X24    ";X(24)/ыЮа 100,1 :Й "ENTER Rout   ";RO0иа 100,1 :Й "ENTER FREQ (MHZ)";FO :Бе 72005▓З д10);"PRESS E TO EXIT"0N╝E$│ Т :Е E$│"" з 7000T╞Р0h╨Е P$┤▓"Y" з 7600╕┌З #м2, "NOTE:#1 ODD REACTANCES ARE IN SERIES,EVEN REACTANCES ARE IN SHUNT."1фЗ #м2, "NOTE:#2 POSITIVE NUMBERS IDENTIFY INDUCTORS,NEGATIVE NUMBERS";1$юЗ #м2, "CAPACITORS." :З #м2,1V°FL│0 :Ю :В SUBROUTINE TO PERMIT VALUE CHANGES1ЗЗ "TERM";д8);"VALUE"д40);"TERM";д48);"VALUE"1╕З "----";д8);"-----";д40);"----";д48)"-----"2ГЗ "1   X1 =";X(1);д40);"2   X2 =";X(2) :З"3   X3 =";X(3);д40);"4   X4 =";X(4) :З "5   X5 =";X(5);д40);"6   X6 =";X(6) :З "7   X7 =";X(7);д40);"8   X8 =";X(8) :З "9   X9 =";X(9);д40);"10  X10=";X(10)3H З "11  X11=";X(11);д40);"12  X12=";X(12) :З "13  X13=";X(13);д40);"14  X14=";X(14) :З "15  X15=";X(15);д40);"16  X16=";X(16) :З "17  X17=";X(17);д40);"18  X18=";X(18) :З "19  X19=";X(19);д40);3№*З "20  X20=";X(20) :З "21  X21=";X(21);д40);"22  X22=";X(22) :З "23  X23=";X(23);д40);"24  X24=";X(24) :З "25  Rin=";RI"ohms";д40);"26 Rout=";RO;"ohms" :З "27 FREQ.=";FO;"Mhz"4"4З :а 100,1 :З "ANY CHANGES (Y/N)"4;>B$│ Т :Е B$│"" з 8304OHЕ B$│"N" з 11604cRЕ B$┤▓"Y" з 8304Т\З :а 100,1 :Й "ENTER TERM#,NEW VALUE ";G,H5fИ G Бе 880,890,900,910,920,930,940,950,960,970,980,990,1000,1010,1020,1030,1040,1050,1060,1070,1080,1090,1100,1110,1120,1130,11405+pX(1)│H :Бе 7605>zX(2)│H :Бе 7605QДX(3)│H :Бе 7605dОX(4)│H :Бе 7605wШX(5)│H :Бе 7605КвX(6)│H :Бе 7605ЭмX(7)│H :Бе 7605░╢X(8)│H :Бе 7605├└X(9)│H :Бе 7605╫╩X(10)│H :Бе 7605ы╘X(11)│H :Бе 7605 ▐X(12)│H :Бе 7606шX(13)│H :Бе 7606'ЄX(14)│H :Бе 7606;№X(15)│H :Бе 7606OX(16)│H :Бе 7606cX(17)│H :Бе 7606wX(18)│H :Бе 7606Л$X(19)│H :Бе 7606Я.X(20)│H :Бе 7606│8X(21)│H :Бе 7606╟BX(22)│H :Бе 7606█LX(23)│H :Бе 7606яVX(24)│H :Бе 7607`RI│H :Бе 7607jRO│H :Бе 7607"tFO│H :Бе 76073~FO│H :Бе 7607NИFL│O :Е P$┤▓"Y" з 12407ФТЗ #м2, "X1=";X(1);" X2=";X(2);" X3=";X(3);" X4=";X(4);" X5=";X(5)7▄ЬЗ #м2, "X6=";X(6);" X7=";X(7);" X8=";X(8);" X9=";X(9);" X10=";X(10)8жЗ #м2, "X11=";X(11);" X12=";X(12);" X13=";X(13);" X14=";X(14);8i░З #м2, " X15=";X(15) :З #м2, "X16=";X(16);"X17=";X(17);" X18=";X(18);8ж║З #м2, " X19=";X(19);" X20=";X(20) :З #м2, "X21=";X(21);8█─З #м2, " X22=";X(22);" X23=";X(23);" X24=";X(24)9╬З #м2, "Rin=";RI;"ohms";"; Rout=";RO;"ohms";"; FREQ.=";FO;"Mhz"9W╪Ю :З "SELECT :" :З :З д10);"SCALE";д40);"BANDWIDTH"9{тЗ д10);"-----";д40);"---------"9╜ьЗ "1. DB vs FREQUENCY TABLE";д40);"1. 100%" :З "2. 0 to 6.0";9√ЎЗ " DB PLOT on SCREEN";д40);"2. 50%" :З "3. 0 to 60  DB";:6З " PLOT on SCREEN";д40);"3. 25%" :З "4. 0 to 6.0 DB";:o
З " PRINTER PLOT";д40);"4. 10%" :З "5. 0 to 60  DB";:дЗ " PRINTER PLOT";д40);"5.  5%" :З д40);"6.  1%":╓З :а 100,1 :Й "(SCALE ,BW)";G,H :Е G▓5 з 1240:■(Е H│1 з G1│5 :G2│15 :G3│.2 :Бе 1380;*2Е H│2 з G1│7.5 :G2│12.5 :G3│.1 :Бе 1380;Y<Е H│3 з G1│8.75 :G2│11.25 :G3│.05 :Бе 1380;ЖFЕ H│4 з G1│9.5 :G2│10.5 :G3│.02 :Бе 1380;╡PЕ H│5 з G1│9.75 :G2│10.25 :G3│.01 :Бе 1380;цZЕ H┤▓6 з 1240 :Д G1│9л9о10 :G2│10.1 :G3│.005<dЕ G│2 ▒ G│3 з G3│G3н2.5<nА N│G1 е G2 й G3<,xJ│0 :JX│0 :RX│RO<]ВI│Nо10 :FX│FOнI :В COMBINE SERIES & PARALLEL<}МА Z│1 е 23 :Е X(Z)▓0 з 1440<ЦЦA(Z)│X(Z)оI :Бе 1450<жаA(Z)│X(Z)нI<окЛ Z<├┤J│0 :JX│0 :RX│RO<╪╛J│A(24) :Бж 1910<Ё╚J│A(23)лJX :Бж 1860=╥J│A(22) :Бж 1910=▄J│A(21)лJX :Бж 1860=2цJ│A(20) :Бж 1910=JЁJ│A(19)лJX :Бж 1860=_·J│A(18) :Бж 1910=wJ│A(17)лJX :Бж 1860=МJ│A(16) :Бж 1910=дJ│A(15)лJX :Бж 1860=╣"J│A(14) :Бж 1910=╤,J│A(13)лJX :Бж 1860=ц6J│A(12) :Бж 1910=■@J│A(11)лJX :Бж 1860>JJ│A(10) :Бж 1910>*TJ│A(9)лJX :Бж 1860>>^J│A(8) :Бж 1910>UhJ│A(7)лJX :Бж 1860>irJ│A(6) :Бж 1910>А|J│A(5)лJX :Бж 1860>ФЖJ│A(4) :Бж 1910>лРJ│A(3)лJX :Бж 1860>┐ЪJ│A(2) :Бж 1910>═дJ│A(1)лJX>хоR│ Ы((RXлRI)п2лJп2)> ╕PX│RXоRп2 :PR│PXнRIн4?┬DB│10н( Щ(PR)о Щ(10))?I╠Е G│1 з 2400 :В ATTEN.TABLE(SCREEN/PRINTER)?p╓Е G│2 з 2000 :В 0-6 DB SCREEN PLOT?ШрЕ G│3 з 2200 :В 0-60 DB SCREEN PLOT?╛ъЕ G│4 з 2720 :В 6 DB PRINTER PLOT?юЇЕ G┤▓5 з 1240 :Д 2980 :В 60 DB PRINTER PLOT?№■Л N :Ъ #1@)З :З "PRESS D FOR NEW DATA or NEW SCALE"@CD$│ Т :Е D$│"" з 1810@VЕ D$│"D" з 760@q&З :З "CONTINUE? (Y/N)"@Л0C$│ Т :Е C$│"" з 1840@г:Е C$│"Y" з 100 :Д К@└DЕ J│0 з 1900 :В PARALLEL@╩NRS│RX@сXRX│RSн(1л(JоRS)п2)@їbJX│(RSп2лJп2)оJ@√lРAvЕ JлJX│0 з 1990 :В COMBINEA,АЕ JX│0 з 1960A=КЕ J│0 з 1970AQФJX│1о(1оJXл1оJ)A]ЮБе 1970AfиJX│JAИ▓RS│RXо(1л(RXоJX)п2) :В SERIESAЯ╝JX│RSнRXоJX :RX│RSAе╞РA╖╨Е FL│1 з 2040A╜┌ЮBфЗ " -DB>>   6         5         4         3         2         1         0"B[юЗ "FREQ(Mhz)+----+----+----+----+----+----+----+----+----+----+----+----+"Bd°FL│1BЕQ│DB :Q│(Qл6)н10л10 :Q│ Б(Q)BдFX│ Б(FXн10)о10 :З д1);FX;B╢Е Q┤10 з 2100B╚ Е Q│10 з 2110B┌*Е Q▓10 з 2120B√4З д9); Л(60); :KT│1 :Бе 2120C>З д10); Л(42); :KT│1 :Бе 2130C1HЗ д10); Л(124);CFRА U│20 е 70 й 10CW\Е Q▓U з 2170CifЕ KT│1 з 2170CБpЗ дQ); Л(42); :KT│1CЬzЕ U┤▓Q з З дU); Л(43);CдДЛ UC╢ОKT│0 :Бе 1790C╚ШЕ FL│1 з 2240C╬вЮDмЗ " -DB>>   60   55   50   45   40   35   30   25   20   15   10   5    0"Dl╢З "FREQ(Mhz)+----+----+----+----+----+----+----+----+----+----+----+----+"Du└FL│1DФ╩Q│DB :Q│(Qл60)л10 :Q│ Б(Q)D│╘FX│ Б(FXн10)о10 :З д1);FX;D┼▐Е Q┤10 з 2300D╫шЕ Q│10 з 2310DщЄЕ Q▓10 з 2320E
№З д9); Л(60); :KT│1 :Бе 2320E,	З д10); Л(42); :KT│1 :Бе 2330E@	З д10); Л(124);EU	А U│20 е 70 й 10Ef	$Е Q▓U з 2370Ex	.Е KT│1 з 2370EР	8З дQ); Л(42); :KT│1Eл	BЕ U┤▓Q з З дU); Л(43);E│	LЛ UE┼	VKT│0 :Бе 1790Eї	`Е FL│1 з 2470 :В ATTEN TABLE SCREEN/PRINTERF
	jЮ :Е P$┤▓"Y" з 2450FW	tЗ #м2, :З #м2, д6);"FREQ.(Mhz)";д18);"ATTEN.(DB) TITLE:____________";Fx	~З #м2, "___________________"FД	ИБе 2470Fи	ТЗ д6);"FREQ.";д18);"ATTEN.(DB)"F╠	ЬЗ "     -----       ----------"F╒	жFL│1F№	░Q│ Б(DBн100)о100  :FX│ Б(FXн10)о10G	║Е P$┤▓"Y" з 2530G6	─Е  Б(FOн10)о10│FX з 2510 :Д 2520Gd	╬З #м2, д5);FX;д13);"<FO>";д18);Q :Бе 1790GЖ	╪З #м2, д5);FX;д18);Q :Бе 1790Gб	тЕ FX│FO з 2540 :Д 2550G╩	ьЗ д5);FX;д13);"<FO>";д18);Q :Бе 1790G▐	ЎЗ д5);FX;д18);QGъ
Бе 1790H

Ю :PI│4н Ф(1) :В XL & XC COMPUTATIONSH?
а 100,1 :Й "ENTER FREQENCY (Mhz)  ";FOHm
З :а 100,1 :Й "ELEMENT TYPE L or C   ";X$HБ
(Е X$│"L" з 2620HЬ
2Е X$│"C" з 2670 :Д 190Hр
<З :а 100,1 :Й "ENTER INDUCTANCE (nh) ";C :В INDUCTIVE REACTANCEHц
FЗI
PXL│2нPIнFOн10п6нCн10пм9 :XL│ Б(XLн100)о100I?
ZЗ "                   XL= ";XL;"ohms"IQ
dXL│0 :Бе 2590IЦ
nЗ :а 100,1 :Й "ENTER CAPACITANCE (pf)";B :В CAPACITIVE REACTANCEIЬ
xЗI╤
ВXC│м1о(2нPIнFOн10п6нBн10пм12) :XC│ Б(XCн100)о100I√
МЗ "                   XC= ";XC;"ohms"J
ЦXC│0 :Бе 2590J3
аЕ FL│1 з 2820 :В 6DB PRINTER PLOTJБ
кЮ :З #м2, "TITLE:_________________________________________ DATE:_______";Jа
┤З #м2, "_________" :З #м2,J╙
╛З #м2, "FREQ(Mhz)";д30);"<< ATTENUATION DB >>"J∙
╚З #м2,  Л(165); :А U│10 е 70 й 10K
╥M│Uо10K'
▄З #м2, дUм1);7мM; :Л U :З #м2,K7
цА U│10 е 70KO
ЁЗ #м2, дU); Л(243);KW
·Л UK`FL│1KБQ│DB :Q│(Qл6)н10л10 :Q│ Б(Q)KеFX│ Б(FXн10)о10 :З #м2, д1);FX;K╖"Е Q┤10 з 2880K╔,Е Q│10 з 2890K█6Е Q▓10 з 2900L
@З #м2, д9); Л(60); :KT│1 :Бе 2900L(JЗ #м2, д10); Л(42); :KT│1 :Бе 2910LATЗ #м2, д10); Л(124);LV^А U│20 е 70 й 10LghЕ Q▓U з 2950LyrЕ KT│1 з 2950LЦ|З #м2, дQ); Л(42); :KT│1L╢ЖЕ U┤▓Q з З #м2, дU); Л(43);L╛РЛ UL╨ЪKT│0 :Бе 1790L°дЕ FL│1 з 3080 :В 60 DB PRINTER PLOTMFоЮ :З #м2, "TITLE:_________________________________________ DATE:_______";Mh╕З #м2, "_________" :З #м2," "MЫ┬З #м2, "FREQ(Mhz)";д30);"<< ATTENUATION DB >>"M┴╠З #м2,  Л(165); :А U│10 е 70 й 10M╔╓M│UMЁрЗ #м2, дUм1);70мM; :Л U :З #м2," "NъА U│10 е 70NЇЗ #м2, дU); Л(243);N ■Л UN)FL│1NHQ│DB :Q│(Qл60)л10 :Q│ Б(Q)NkFX│ Б(FXн10)о10:З #м2, д1);FX;N}&Е Q┤10 з 3140NП0Е Q│10 з 3150Nб:Е Q▓10 з 3160N╟DЗ #м2, д9); Л(60); :KT│1 :Бе 3160NюNЗ #м2, д10); Л(42); :KT│1 :Бе 3170OXЗ #м2, д10); Л(124);ObА U│20 е 70 й 10O-lЕ Q▓U з 3210O?vЕ KT│1 з 3210O\АЗ #м2, дQ); Л(42); :KT│1O|КЕ U┤▓Q з З #м2, дU); Л(43);OДФЛ UOйЮKT│0 :Бе 1790$│"C" з 2670 :Д 190 д9); Л(60); :KT│1 :Бе 3160NюNЗ #м2, д10); Л(42); :KT│1 :Бе 3170OXЗ #м2, д10);                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                 ;&

Ю:└4&.З"THIS PROGRAM REQUIRES A COLOR&oЗ"COMPUTER 3 WITH A 80 COLUMN MONITOR":Й"PRESS ENTER KEY";XX&xт 80&а
:Г PARABOLIC ANTENNA DESIGN PROGRAM&┌:Г INCLUDES CALCULATION OF ANTENNA GAIN AND BEAMWIDTH'!:Г THE PICTORIAL DEFINITION OF TERMINOLOGY REQUIRES GRAPHICS CARD.'((:Г'f2:ГAUTHOR:  ALAN CHRISTIAN     WA6YOB        SACRAMENTO,CA'y<:ГVERSION: 1.0'ЧF:ГDATE:    AUGUST 11,1984'ЮP:Г'уZ:Г THIS PROGRAM IS DISTRIBUTED FREE OF CHARGE VIA RBBS TO ANYONE('d:Г WHO WANTS TO USE IT.  IT MAY BE FREELY COPIED BUT MAY NOT BE(mn:Г SOLD.  THE AUTHOR ASSUMES NO LIABILITY FOR THE FITNESS OF THIS(▒x:Г PROGRAM FOR ANY PURPOSE AND IS NOT LIABLE FOR DAMAGES OF ANY(хВ:Г SORT RESULTING FROM THE USE OF THIS PROGRAM.(ьМ:Г)1Ц:Г THIS PROGRAM SHOULD BE DISTRIBUTED IN ITS ORIGINAL FORM.  ANY)vа:Г REVISIONS SHOULD BE APPENDED OR CONTAINED IN A SEPARATE FILE.)ме:ГCONVERTED TO THE COLOR COMPUTER BY BILL CHAPPLE)│к:Г)ф┤:Г ***** INTRODUCTION AND INSTRUCTIONS *****)ъ╛Ю) ╚:ГSCREEN 0,0,0,0*╥:ГCOLOR 7,0,0*▄Бж 1120*eцё 5,4:З "PARABOLIC ANTENNA DESIGN PROGRAM              VERSION 1.0"*лЁё 6,5:З "FOR USE IN DESIGNING PARABOLIC ANTENNA REFLECTORS.  MAY"*я·ё 5,7:З "BE USED FOR AMATEUR RADIO APPLICATIONS (TX/RX) OR FOR"+.
ё 5,8:З "GEO-STATIONARY SATELLITE RECEPTION APPLICATIONS."+5
:Г+|
ё 5,12:З "THIS PROGRAM DESIGNS THE REFLECTOR ONLY.  THE DESIGN OF"+─
"ё 5,13:З "THE ANTENNA FEED (ILLUMINATION) SYSTEM IS NOT DISCUSSED.",
,ё 5,15:З "THE REFLECTOR MAY BE ILLUMINATED BY A HORN, DIPOLE, ETC.",S
6ё 5,17:З "DO YOU WANT TO SEE A PICTORIAL DEFINITION OF THE TERMS ",v
@ё 5,18:З "USED IN THE DESIGN? ,Р
TQQ$│ Т:Е QQ$│"" з 340,╧
^Е QQ$│"Y" ▒ QQ$│"y" з Бж 1490:В HI-RES GRAPHICS SUBROUTINE-
h:Г ***** CALCULATION OF "DEPTH" OF REFLECTOR AT 1-INCH INTERVALS *****- 
rЮ-(
|З:З-S
ЖЙ "DIAMETER OF REFLECTOR IN FEET  ";DF-~
РЙ "FOCAL LENGTH OF ANTENNA IN FEET";FF-Л
ЪDI│DFн12-Ш
дFI│FFн12-д
оYF│DFо2-░
╕YI│DIо2-┐
┬М ZZ(DI,2)-╬
╠А Y│1 е YI-▄
╓ZZ(Y,0)│Y.

рZZ(Y,1)│( Б(Yп2о(4нFI)н100))о100.	
ъЛ Y.1
Ї:Г ***** SELECT OUTPUT DEVICE *****.n
■З "DO YOU WANT RESULTS ON THE PRINTER (P) OR SCREEN (S)".КQQ$ │  Т:Е QQ$│"" з 520.иЕ QQ$│"P" ▒ QQ$│"p" з 770.╥:Г ***** OUTPUT TO VIDEO SCREEN *****.█&PC│0.с0Ю/:З "RADIAL DISTANCE (Y)";д20);"DEPTH (Z)"/;DЗ "INCHES FROM CENTER ";д20);"IN INCHES"/uNЗ "-------------------------------------------------"/Xё 1,4/ХbPG│0:Е PC│1 з 630/дlА Q│0 е YI/┴vЗ ═ "#########";ZZ(Q,0);/╠АЗ д25)/шКЗ ═ "######.##";ZZ(Q,1)0ФPG │ PGл1:Е PG ┤ 17 з 7100(ЮЗ:З "HIT ANY KEY TO CONTINUE"0BиQQ$│ Т:Е QQ$│"" з 6800K▓PC│10V╝Бе 5600^╞Л Q0К╨З "DO YOU WANT TO CALCULATE GAIN (Y/N)"0д┌QQ$│ Т:Е QQ$│"" з 7300┬фЕ QQ$│"Y" ▒ QQ$│"y" з 9800╬юБе 19900є°:Г ***** OUTPUT TO PRINTER *****0№PC│01З #м2,  Л(12)1@З #м2, "RADIAL DISTANCE (Y)";д20);"DEPTH (Z)"1r З #м2, "INCHES FROM CENTER ";д20);"IN INCHES"1▒*З #м2, "-------------------------------------------------"1╝4З #м2,1╥>PG│0:Е PC│1 з 8501сHА Q│0 е YI2RЗ #м2, ═ "#########";ZZ(Q,0);2\З #м2, д25)24fЗ #м2, ═ "######.##";ZZ(Q,1)2RpPG │ PGл1:Е PG ┤ 55 з 9102[zPC│12fДБе 7802nОЛ Q2АШЗ #м2,  Л(12)2мвЗ "DO YOU WANT TO CALCULATE GAIN (Y/N)"2╞мQQ$│ Т:Е QQ$│"" з 9402ф╢Е QQ$│"Y" ▒ QQ$│"y" з 9802Ё└Бе 19903"╩:Г ***** GAIN AND BEAMWIDTH CALCULATION *****3L╘:ГSCREEN 0,0,0,0:CLS:KEY OFF:WIDTH 803Е▐З "PARABOLIC ANTENNA GAIN AND BEAMWIDTH CALCULATION"3ЛшЗ3ЪЄK│.43429283└№Й "FREQUENCY IN MEGAHERTZ     ";F3╔D│DF3·G│( Б(20н( Щ(F)нK)л20н( Щ(D)нK)м52.6)н10)о104TH│( Б(70000000о(FнD)))о10004!$З4_.З "ANTENNA GAIN =";G;"DB OVER A POINT SOURCE (ISOTROPIC)"4Б8З "BEAM ANGLE =";TH;"DEGREES"4ЙBЗ:З4ХLБе 19904╬V:Г ***** PRINT THE FRAMES FOR THE INSTRUCTIONS *****4╪`ё 1,24фjБж 12804єtА PX│3 е 95~ё 1,PX:З  Л(186)5Иё 74,PX:З  Л(186)5'ТЛ PX52Ьё 1,105>жБж 13505O░А PX│11 е 205d║ё 1,PX:З  Л(186)5z─ё 74,PX:З  Л(186)5Г╬Л PX5О╪ё 1,215ЪтБж 14205аьР5╒Ў:Г PRINT HORIZONTAL LINE WITH DOWNTURNED CORNERS5фЗ  Л(201);5Ї
А PP│1 е 726З  Л(205);6Л PP6(З  Л(187)6 2Р6N<:Г PRINT HORIZONTAL LINE WITH "T" CORNERS6]FЗ  Л(204);6mPА PP│1 е 726|ZЗ  Л(205);6ЕdЛ PP6УnЗ  Л(185)6ЩxР6╠В:Г PRINT HORIZONTAL LINE WITH UPTURNED CORNERS6█МЗ  Л(200);6ыЦА PP│1 е 726·аЗ  Л(205);7кЛ PP7┤З  Л(188)7╛Р7`╚:Г ***** HI-RES GRAPHICS ROUTINE TO DISPLAY DESIGN TERMINOLOGY *****7f╥Ю7m▄:Г7Бцт 32:╚4,1:┐ 1,17Зы╝7ХЁ╜ (15,50)7┤·╞ "L5;R10;L5;D100;L5;R10;"7├╜ (50,100)8╞ "U50;D100;U50;L10;R20;L10;U50;L5;R10;L5;D100;L5;R10;L5;U50;"8А Y│м50 е 50 й .18)"Z│YнYо308<,╜ (Zл50,Yл100)8D6Л Y8X8А PP│1 е 2000:Л8a;т 808l@ё 35,28ФJЗ "DESIGN OF A PARABOLIC REFLECTOR"8ЯTё 35,38┼^З "PICTORIAL DEFINITION OF TERMS"8╨hё 40,58їrЗ "Y= 0.5 Diameter of reflector"9|ё 40,69)ЖЗ "Z= Reflector 'depth' at point Y'"94Рё 40,79SЪЗ "F= Design focal length"9^дё 45,89|оЗ "NOTE: F,Y are in feet"9З╕ё 45,99е┬З "      Z  is in inches"9п╠ё 8,89╜╓З "--Z--"9╔рё 25,139▌ъЗ "FOCAL POINT"9эЇ╜ (170,100)9 ■┬ (170,100),3:А Q │ 160 е 70 й м1:=Е Qо4│ Б(Qо4) з ╜ (Q,100):Бе 1830:K╛ (Q,100):S&Л Q:_0ё 15,13:k:З " F ":vDё 2,12:БNЗ "  ":МXё 2,14:ЧbЗ "  ":вlё 2,13:нvЗ "2Y":╕Аё 1,22:▐КЗ "Scale exaggerated for clarity":щФё 1,23;	ЮЗ "Hit any key to continue";$иKK$│ Т:Е KK$│"" з 1960;.▓┐ 0:Ю;4╝Р;:╞К:K╛ (Q,100):S&Л Q:_0ё 15,13:k:З " F ":vDё 2,12:БNЗ "  ":МXё 2,14:ЧbЗ "  ":вlё 2,13:нvЗ "2Y":╕Аё 1,22:▐КЗ "Scale exaggerated for clarity":щФё 1,23;	ЮЗ "Hit any key to