AINS"!h╞Й"TX POWER IN DBM.IS     ";Q$!|╨Е Q$│""з Бе 710!Й┌Q│ Й(Q$)!лфЙ"TX ANTENNA GAIN IN DB  ";D$!┐юЕ D$│""з Бе 740!╠°D│ Й(D$)!юЙ"RX ANTENNA GAIN IN DB  ";S$"Е S$│""з Бе 770"S│ Й(S$)" Z│QлDлS"P*З"TOTAL SYSTEM GAIN IS IS ";:З ═"###.#";Z;:З"DB""Z4W│ZмU"С>З"THE RECEIVE SIGNAL IS";:З ═"####.##";W;:З" DBM";"ЬHX│Wм30"╘RЗ "THE RECEIVE SIGNAL IS";:З ═"####.##";X;:З" DBV";"ў\З@462,"press enter";:Т 1491,32#fA$│ Т:Е A$│"" з 870 :Д Ю#pБе 130#LzЮ3:З"******PARABOLIC DISH GAIN******";:З#РДЗ:З"THESE CALCULATIONS ARE BASED ON EFFICIENCY OF APPROX. 55%."#╡ОЗ:Й"DIAMETER IN FEET OF DISH ";P#┼ШЕ P│0 з 910#╓вЕ P▓30 з 910#·мЙ "FREQ. OF OPERATION IN MHZ";E$
╢Е E│O з 940$└Е E┤400 з 940$G╩G│20н Щ(P)о Щ(10)л20н Щ(E)о Щ(10)м52.5${╘З:З"THE ANTENNA GAIN IS ";:З ═"##.##";G;:З"DB."$Н▐Y│68700о(PнE)$╓шЗ:З"THE ANTENNA BEAMWIDTH (3DB DOWN)IS";:З ═ " ##.##";Y;:З" DEGREES"$∙ЄЗ@462,"press enter";:Т 1491,32%№A$│ Т:ЕA$│"" з 1020 :Д Ю%!Бе 130%6Ю3:З  б(35,170);%\З@35,"RADIO SYSTEM CALCULATIONS";%n$З  б(36,170);%Ъ.З@129,"(F) INDUCTOR CALCULATIONS     ";%╞8З@193,"(G) CAPACITOR CALCULATIONS    ";%ЄBЗ@257,"(H) MICROVOLT-DBV. CALC.      ";&LЗ@321,"(I) DBV.-MICROVOLT CALC.      ";&@VЗ@390,"PRESS ENTER FOR MORE";&\`З@465,"make selection";&jjТ 1493,32&ВtA$│ Т:Е A$│""з 1140&Ц~Е A$│"F" з 1210&кИЕ A$│"G" з 1310&╛ТЕ A$│"H" з 1680&╥ЬЕ A$│"I" з 1430&▀жA│ К(A$)&∙░Е A│13 з 1820 :Д 1140'#║Ю3:З"*****INDUCTOR CALCULATIONS*****"'E─З:Й"FREQUENCY IN MHZ. IS  ";F'V╬Е F│0 з 1220'v╪Й"CAPACITOR USED IN PFD.";C'ЗтЕ C│0 з 1240'ЫьL│25330о(Fп2нC)'╠ЎЗ"INDUCTOR REQUIRED IS";:З ═"###.#";L;:З"UH"'яЗ@462,"press enter";:Т 1491,32(

A$│ Т:Е A$│"" з 1290 :Д Ю(Бе 130(BЮ3:З"****CAPACITOR CALCULATIONS*****"(b(З:Й"INDUCTANCE IN UH.IS ";L(s2Е L│0 з 1320(С<Й"FREQUENCY IN MHZ.IS ";F(вFЕ F│0 з 1340(╢PC│25330о(Fп2нL)(ъZЗ"CAPACITOR REQUIRED IS";:З ═"###.#";C;:З"PFD.")
dЗ@462,"press enter";:Т 1491,32)+nA$│ Т:Е A$│""з 1390 :Д Ю5)6xБе 130)SВA$│ Т:ЕA$│"" з 1410 :Д Ю)^МБе 130)ОЦХ: Ю3:З"******DBV-MICROVOLT CALC.******":З;)╢аЗ:Й"DBV WITH POSITIVE NUMBER IS";DB)╚кЕ DB│0 з 1440)ф┤E│ Ч(DBнм.11513л15.771)*&╛З"THE CONVERSION IN MICROVOLTS IS ";:З ═"#######.#";E;:З"UV."*8╚З:З"EXAMPLE:"*~╥З"50 MICROVOLTS EQUALS -103 DBV.                     OR -73 DBM."*б▄З@462,"press enter";:Т 1491,32*╜цA$│ Т:ЕA$│""з 1510 :Д Ю*╚ЁБе 130*Є·Ю3:З"***COIL DESIGN CALCULATIONS****"+З:Й"COIL RADIUS IN INCHES IS";R+'Е R▓3 з 1540+8Е R│0 з 1540+Z"Й"THE NUMBER OF TURNS IS  ";N+m,Е N▓100 з 1570+~6Е N│0 з 1570+а@Й"COIL LENGTH IN INCHES IS";B+▓JЕ B▓10 з 1600+├TЕ B│0 з 1600+▄^L│Rп2нNп2о(9нRл10нB),hЗ"INDUCTANCE REQUIRED IS   ";:З ═"###.#";L;:З"UH",5rЗ@462,"press enter";:Т 1491,32,Q|A$│ Т:ЕA$│""з 1660 :Д Ю,\ЖБе 130,cРЮ3,КЪЗ"***MICROVOLT-DBV. CONVERSION***",ндЗ:Й"SIGNAL IN MICROVOLTS IS";E,╛оЕ E│0 з 1700,╓╕P│ (Eо1000000)п2о50,Ё┬DBV│10н Щ(1оP)о Щ(10)-╠З"SIGNAL IS ";:З ═"###.#";DBV;:З"DBV"-)╓DBM│DBVм30-SрЗ"SIGNAL IS ";:З ═"###.#";DBM;:З"DBM"-ЬъЗ:З"NOTE:YOU MAY BE REQUIRED TO PUT A MINUS SIGN BEFORE THE ANSWER."-┘ЇЗ"EXAMPLE:50 MICROVOLTS IS EQUAL  TO -73.DBM OR-103.DBV"-№■З@462,"press enter";:Т 1491,32.A$│ Т:ЕA$│""з 1800 :Д Ю.#Бе 130.8Ю3:З  б(35,170);.^&З@35,"RADIO SYSTEM CALCULATIONS";.p0З  б(36,170);.Ь:З@129,"(K) T-PAD CALCULATIONS        ";.╚DЗ@193,"(L) VSWR CALCULATIONS         ";.ЇNЗ@257,"(M) COIL DESIGN CALCULATIONS  ";/ XЗ@321,"(N) PARALLEL RESISTORS        ";/LbЗ@385,"(X) TO EXIT OR ENTER TO RETURN";/hlЗ@465,"make selection";/uvТ1493,32/ОАA$│ Т:Е A$│"" з 1920/вКЕ A$│"K" з 2000/╢ФЕ A$│"L" з 2210/╩ЮЕ A$│"M" з 1530/▐иЕ A$│"N" з 2370/ы▓A│ К(A$)/√╝Е A│13 з 100╞Е A$│"X" з 2530 :Д 19200A╨Ю3:З"*******************************"0c┌З"       T-PAD CALCULATIONS":0КфЗ"*******************************"0мюЙ"DESIRED ATTENUATION IS ";AA0╛°Е AA│0 з 20300рЙ"THE SYSTEM IMPEDANCE IS";II0ЄЕ II│0 з 20501R1│IIн((10п(.05нAA)м1)о(10п(.05нAA)л1))1= R2│(R1лII)о(10п(.05нAA)м1)1q*З"VALUE OF R1 SERIES";:З ═"####.#";R1;:З" OHMS"1е4З"VALUE OF R2 SHUNT ";:З ═"####.#";R2;:З" OHMS"1╞>Й"ACTUAL VALUE FOR R1 IS";R11чHЙ"ACTUAL VALUE FOR R2 IS";R22RZ│(R2н(IIлR1))о(R1лR2лII)лR12V\З"WITH TERMINATION ON ONE SIDE    WILL APPEAR AS";:З ═"####.";Z;:З" OHMS"2jfE│R2о(IIлR1лR2)2ЕpDB│20н( Щ(1оE)о Щ(10))2╝zЗ"THE ACTUAL ATTENUATION IS";:З ═"###.#";DB;:З"DB"2▐ДЗ@462,"press enter";:Т1491,322ўОA$│ Т:Е A$│"" з 21903ШБе 1303,вЮ3:З"*******************************"3SмЗ"STANDING WAVE  ь&МA$(15),B(25)&SЮ:Зд10)"OHMS LAW":Зд7)"REVISED  11/83":Зд8)"DICK BOTELHO":З&╣
З"WHICH ANSWER DO YOU WANT":З:З"<V>OLTS":З"<A>MPS":З"<R>ESISTANCE":З"<W>ATTS":З:З"    SELECT ONE"&╙A$(1)│ Т:ЕA$(1)│""з15&шЕ A$(1)│"V" з 60&■Е A$(1)│"A" з 110'(Е A$(1)│"R" з 160'*2Е A$(1)│"W" з 210'37Бе15'L<Бж600:Й "AMPS=";B(1)'eFЙ "RESISTANCE=";B(2)'xPB(3)│B(1)нB(2)'ОZЗ "VOLTAGE=";B(3)'ШdБе500'▓nБж600:Й "VOLTS=";B(4)'╦xЙ "RESISTANCE=";B(5)'▐ВB(6)│B(4)оB(5)'ёМЗ "AMPS=";B(6)'√ЦБе500(аБж600:Й "VOLTS=";B(7)((кЙ "AMPS=";B(8)(;┤B(9)│B(7)оB(8)(T╛З "RESISTANCE=";B(9)(^╚Бе500(Б╥З "YOU MUST INPUT VOLTS,WATTS"(З╙Ю(Н╫З(╒▄З "YOU ARE NOW IN WATTS LAW******* WHAT DO YOU WISH TO FIND*******"(∙▌З"<W>ATTS":З"<V>OLTS":З"<A>MPS")сA$(2)│ Т:ЕA$(2)│""з225)*цЕ A$(2)│"V"Бж 280)AЁЕ A$(2)│"A" Бж 330)W·Е A$(2)│"W"Бж 380)a
Бе500)|
Бж600:Й "WATTS=";B(11))Р
"Й "AMPS=";B(12))ж
,B(13)│B(11)оB(12))╗
6З "VOLTS=";B(13))┼
@Бе500)р
JБж600:Й "WATTS=";B(14))ї
TЙ "VOLTS=";B(15)*
^B(16)│B(14)оB(15)*
hЗ "AMPS=";B(16)*)
rБе500*D
|Бж600:Й "VOLTS=";B(17)*X
ЖЙ "AMPS=";B(18)*n
РB(19)│B(17)нB(18)*Г
ЪЗ "WATTS=";B(19)*Н
дБе500*в
ЇЗ"ANOTHER <Y/N>"*╖
∙D$│ Т:ЕD$│""з505*╚
■ЕD$│"Y"з5:ДК*хXЮ:З"ENTER THE FOLLOWING"*ыbР                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                  n1В BEFORE LOADING, TYPE POKE 25,6:NEW<ENTER><
Х 6000KМ M$(1000)SJ│1_(Ю:З:З:ЗБ2З д5)"<CONTEST DUPE PROGRAM>"╟ZЗ"THE PROGRAM WILL TAKE A MAXIMUM OF 1000 CONTACTS. AFTER 500 OR"dЗ"SO ENTRIES, EXECUTION WILL SLOW DOWN--IT TAKES LONGER TO SEARCH THE MEMORY."UnЗ"ONCE A CALL HAS BEEN ENTERED IT CAN NOT BE CHANGED."zx╗ Й"FIRST ENTER YOUR CALL-->";A$ХВЮ:З@232,"THANK YOU";A$╜ЗЗ:З"ENTER FIRST CALL WHEN PROMPTED"юаЗ#м2, Л(31); Л(16);"16";"DUPE SHEET FOR ";A$ кЗ#м2, Л(13); Л(30) ┤Ю:З:З:З 8╛З д2)"WHEN FINISHED ENTER 0(ZERO)" @╚З:З c╥З д3)"THE NEXT CONTACT IS #";J i▄З Лц╗ Й"ENTER NEXT CALL ===> ";N$ ЬЁЕ N$│"0" з К к
А I│1 е J ┬
Е N$│M$(I) з Бе 310 ╩
Л I ╫
"M$(J)│N$ с
'J│Jл1 є
,Бж 360:Бе 180 №
6Ю(4)!
@З@234,N$;"DUPE";!
Jа 200,4!E
TЗ#м2, Л(16);"10";N$;"    ";"<DUPE>"!P
^Бе 180!g
hЗ#м2,Jм1;"    ";N$!m
rР                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                >&

Т150,18&PRT│0:Ю:З &<З"1) ENTER LOWPASS  DESIGN"&\(З"2) ENTER HIGHPASS DESIGN"&|2З"3) ENTER BANDPASS DESIGN"&Ш<З"4) LOWPASS SCHEMATIC"&╡FЗ"5) HIGHPASS SCHEMATIC"&╥PЗ"6) BANDPASS SCHEMATIC"'ZЗ"STAGE GAIN SHOULD BE BELOW 10   FOR BEST RESULTS."'/dЗ"THIS IS A BUTTERWORTH FILTER"'RnЗ"ENTER FUNCTION NUMBER ";:Й A'wxИ A Бе 140,250,350,1080,1400,660'ЧВЗ"INVALID TRY AGAIN":Бе 110'╡МЮ:З"             LOWPASS"'█ЦЙ"ENTER THE DESIRED STAGE GAIN";H(
аЙ"ENTER CUTOFF FREQUENCY IN HZ";F(0кЙ"ENTER FEEDBACK CAPACITOR <C2> IN MFD";C2(B┤C2│C2о1000000(_╛R2│.707о(2н3.14159нFнC2)(o╚R3│R2о(Hл1)({╥R1│R2оH(Т▄C1│(1лH)нC2о.707п2(жцC1│C1н1000000:Ю(▒ЁБе 930(╧·Ю:З"            HIGHPASS"(ё
Й"ENTER DESIRED STAGE GAIN";H)
Й"ENTER CUTOFF FREQUENCY HZ";F)>
Й"ENTER INPUT CAPACITOR C2 IN MFD";C2)P
"C2│C2о1000000)u
,R1│(2нHл1)о(4н3.14159н.707нFнC2))Ш
6R2│.707о(3.14159нFнC2н(2л1оH)))д
@C1│C2оH)╢
JC1│C1н1000000)┬
TБе 1270)р
^Ю:З"            BANDPASS"*
hЙ"ENTER THE DESIRED GAIN";H*#
rЙ"ENTER CENTER FREQUENCY HZ";F*5
|W│2н3.14159нF*R
ЖЙ"ENTER THE DESIRED Q";Q*|
РЙ"ENTER INPUT CAPACITOR C2 IH MFD";C2*О
ЪC2│C2о1000000*╗
дЙ"ENTER FEEDBACK CAPACITOR C1 IN MFD";C1*═
оC1│C1о1000000*▀
╕R1│Qо(HнWнC1)*Ў
┬T│R1о(Qн(C1лC2)нW)+
╠B│R1м1о(Qн(C1лC2)нW)+
╓R2│TоB+5
рR3│Qн(C1лC2)о(C1нC2нW)+;
ъЮ+O
ЇЕA$│"Y"з PRT│м2+x
■З # PRT,"VALUES NEEDED FOR BANDPASS"+бЗ # PRT,═"<R1> #######,#.## OHMS";R1+╩З # PRT,═"<R2> #######,#.## OHMS";R2+ЇЗ # PRT, ═"<R3> #######,#.## OHMS";R3,#&З # PRT:З # PRT,"YOU PICKED THE FOLLOWING",;0З # PRT,"GAIN OF";H,Z:З # PRT,"FREQUENCY";F;"HZ",pDЗ # PRT,"Q  OF";Q,гNЗ # PRT,═"INPUT <C2> ####.#### MFD";C2н1000000,┌XЗ # PRT, ═"FEEDBACK <C1> ####.#### MFD";C1н1000000-
bЙ "DO YOU WANT A PRINT Y OR N";A$:ЕA$│"Y"з 500-1lЗ:З"PRESS ANY KEY FOR SCHEMATIC-PvЗ"PRESS <R> KEY TO REPEAT -uАЗ"ANY KEY TWICE FOR INSTRUCTIONS-ККA$│ Т:ЕA$│""з650-УФ╚4,1-ЩЮ╝-ви┐1,0-╝▓╞"BM130,50 D100E50H50-Ё╝╞"BM120,65 U35R13E5F5E5F5E5F5R17D65BD4R10H5F5G5.╞╞"BM125,65 L25D5U10D5BL10U5D10U5L25.E╨╞"BM64,65 L5D15L5H5G5H5G5H5G5L8D45F5H5G5.r┌╞"BM80,65 U60R30U5D10U5BR10U5D10U5R55D25.йф╞"BM80,65 D25G5F5G5F5G5F5D5R5L10R5BD4R4L8R4BD4R2L4.┘ю╞"BM125,140 L20D25L5R10L5BD4L4R8L4BD4L2R4L2/°╞"BM140,45U9E1R4F1D4G1L4R2F3D1BU2BR7D1F1R4E1U3H1L4R4E1U3H1L4G1D1/S╞"BM110,24 E1U1D1G1L4H1U8E1R4F1D1BR7BD8R6L3U10G3/Р╞"BM96,87 E1U1D1G1L4H1U9E1R4F1D1BR7BD9R5L5U2E5U3H1L4G1D1/╩╞ "BM86,105 U9E1R4F1D4G1L4R2F3D1BR7R5L5U1E5U3H1L4G1D1/∙ ╞"BM29,94 U9E1R4F1D4G1L4R2F3D1BR7R6L3U10G30─*╞"BM146,180 U10R4F1D3G1L4R4F1D3G1L4BR12U6E3R2F3D2L6R6D4BR7U10F1D1F1D1F4D2U10D10BR7U10R4F1D8G1L4BR12U10R4F1D4G1L4BR12BD3U6E3R2F3D2L6R6D4BR7U2D1F1R4E1U3H1L4H1U3E1R4F1D1BR7BD6D1F1R4E1U3H1L4H1U3E1R4F1D10▄4A$│ Т:Е A$│"" з 8200я>Е A$│"R" з 5101%HЮ:З # PRT,"  FOLLOWING ARE PIN LOCATIONS":З # PRT1ORЗ # PRT,"IC<741> #2 IN #3 GND #6 OUT"1{\З # PRT,"IC<741> PIN 4 -VCC PIN 7 +VCC"1жfЗ # PRT,"IC<1458> #2 IN #3 GND #1 OUT"1╤pЗ # PRT,"IC<1458> #6 IN #5 GND #7 OUT"1■zЗ # PRT,"IC<1458> PIN 4 -VCC PIN 8 +VCC"2ДЗ # PRT:З # PRT2ОБе 15902$ШК28вЕD$│"Y"з PRT│м22fмЗ # PRT,"VALUES NEEDED FOR LOWPASS FILTER2О╢З # PRT,═"<R1>#######,#.## OHMS";R12▓└З # PRT,═"<C1>####.#### MFD";C12┌╩З # PRT,═"<R2>#######,#.## OHMS";R23╘З # PRT,═"<R3>#######,#.## OHMS";R331▐З # PRT:З # PRT,"YOU PICKED THE FOLLOWING"3PшЗ # PRT,"FREQUENCY";F;"HZ"3hЄЗ # PRT,"GAIN OF";H3Я№З # PRT, ═"FEEDBACK <C2> ####.#### MFD";C2н10000003╪Й "DO YOU WANT A PRINT Y OR N";D$:ЕD$│"Y"з 930:Д10404З # PRT:З"HIT ANY KEY FOR SCHEMATIC4З"PRESS<R> FOR COMPONETS4B$З"ANY KEY TWICE FOR INSTRUCTIONS4X.A$│ Т:ЕA$│""з10704a8╚4,14gB╝4pL┐1,04ЙV╞"BM130,50D100E50H504├`╞"BM120,65 U35R20U5D10U5BR10U5D10U5R32D65BD4R10H5F5G54ъj╞"BM80,65 U55R20E5F5E5F5E5F5R35D205t╞"BM125,65 L10H5G5H5G5H5G5L2259~╞"BM64,65 L5D15L5H5G5H5G5H5G5L8D45F5H5G55vИ╞"BM80,65 D30R5L10R5BD10R5L10R5D20R4L8R4BD4R3L6R3BD4R2L45жТ╞"BM125,140 L20D25L5R10L5BD4R4L8R4BD4R2L4R25сЬ╞"BM106,24 U10E1R4F1D4G1L4R2F3D2BR7R5BL5U2E5U3H1L4G1D16ж╞"BM141,49 E1U1D1G1L4H1U8E1R4F1D1BD8BR7R5L5U2E5U3H1L4G1D16d░╞"BM96,80 U9E1R4F1D4G1L4R2F3D1BU2BR7D1F1R4E1U3H1L4R4E1U3H1L4G1D16У║╞"BM28,94 U9E1R4F1D4G1L4R2F3D1BR7R6L3U10G26╚─╞"BM92,105 BR5E1U1D1G1L4H1U8E1R4F1D1BR7E2D10L3R67k╬╞"BM156,180 U10D10R5BR7U10R5D10L5BR12U10D10R3U3D3R3U10BR7BD10U10R4F1D4G1L4BD4BR12U10R5D4L5R5D6BR7BU2D1F1R4E1U3H1L4H1U3E1R4F1D1BR8BD6D1F1R4E1U3H1L4H1U3E1R4F1D17В╪A$│ Т:Е A$│""з12407УтЕ A$│"R"з9307ЮьБе 8407▀ЎЕA$│"Y"з PRT│м2:З # PRT,"VALUES NEEDED FOR HIGHPASS":З # PRT8З # PRT,═"R1 #######,#.## O ░ V┤▓0 з З "ANY VALUE EMITTER RESISTOR AS LONG AS RE=RL/";V;" OHMS"8"Е R│0 ░ V│0 з З "ANY VALUE EMITTER RESISTOR WILL WORK."8╥"Е L┤▓0 ░ R┤▓0 ░ V┤▓0 з Е LоV│(RмZ)о(1лF) з З "EMITTER RESISTOR = ";LоV;" OHMS"9H"$Е R┤▓0 ░ V┤▓0 з Е LоV┤▓(RмZ)о (1лF) ░ L┤▓0 з З "CONTRADICTORY CONDITIONS, NO VALUE OF EMITTER RESISTOR WILL WORK"9N")З9и".З "INPUT 1 TO REPEAT EMITTER RESISTOR COMPUTATION, 2 TO GO TO TRANSISTOR MENU" : В **9░"3Й N9─"8Е N│1 з Бе 86309╪"=Е N│2 з Бе 80009ю"BЗ "INVALID INPUT"9·"GБе 8750                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                   h&:
В LISTING # 12 : GENERAL MATH FOR ELECTRONIC PROGRAM&G#(Ю : В **&n#-З "GENERAL MATH PROGRAM. OPTIONS:"&Д#2З "1) DERIVATIVES&Щ#7З "2) INTEGRALS"&╗#<З "3) SIMULTANEOUS EQUATIONS"&╤#>З "4) CALCULATOR &■#AЗ "5) GO TO MASTER MENU" : В MASTER MENU')#FЗ "INPUT NUMBER OF YOUR CHOICE" : В **'1#KЙ N'E#PЕ N│1 з Бе 9070'Y#UЕ N│2 з Бе 9155'm#ZЕ N│3 з Бе 9290'Б#_Е N│4 з Бе 9850'Ъ#aЕ N│5 з : О "MASTER"'░#dЗ "INVALID INPUT"'╝#iБе 9030'╔#nЮ : В **'▌#sЗ "DERIVATIVES"(#xЗ "INPUT VALUE OF X AT WHICH TO TAKE DERIVATIVE"(#}Й X(&#ВБж 9145(0#З║ T│Y(?#М║ X│Xл.001(K#СБж 9145(Ж#ЦЗ "DERIVATIVE OF FUNCTION AT ";Xм.001;" = ";(YмT)о.001(▄#ЫЗ "INPUT 1 TO REPEAT DERIVATIVE COMPUTATION, 2 TO GO TO GENERAL MATH MENU" : В **(ф#аЙ N(°#еЕ N│1 з Бе 9070)#кЕ N│2 з Бе 9000)"#пЗ "INVALID INPUT").#┤Бе 9115)m#╣З "PUT EQUATION TO TAKE DERIVATIVE OF ON LINE 9145" : В **)s#╛Р)А#├Ю : В **)Т#╚З "INTEGRALS")м#═З "INPUT LOWER LIMIT")┤#╥Й L)╬#╫З "INPUT UPPER LIMIT")╓#▄Й H)°#сЗ "INPUT NUMBER OF DIVISIONS"*#цЙ C*#ы║ C│(HмL)оC*#Ё║ S│0*$#ї║ X│L*0#·Бж 9280*D# А P│L е HмC й C*N$║ T│Y*Z$	║ X│PлC*f$Бж 9280*t$║ S│SлTлY*|$Л P*╢$З "INTEGRAL OF FUNCTION FROM ";L;" TO ";H;" = ";SнCо2+
$"З "INPUT 1 TO REPEAT INTEGRAL COMPUTATION, 2 TO GO TO GENERAL MATH MENU" : В **+$'Й N+&$,Е N│1 з Бе 9155+:$1Е N│2 з Бе 9000+P$6З "INVALID INPUT"+\$;Бе 9250+Ц$@З "PUT EQUATION TO BE INTEGRATED ON LINE 9280" : В **+Ь$EР+й$JЮ : В **+п$OХ+╬$TЗ "SIMULTANEOUS EQUATIONS"+Ё$YЗ "INPUT NUMBER OF EQUATIONS"+°$^Й M,$cМ A(M,Mл2),$hА Y│1 е M,#$mА X│1 е M,)$rЮ,\$wЗ "INPUT COEFFICIENT OF X";X;" OF EQUATION ";Y,d$|Й S,s$Б║ A(Y,X)│S,{$ЖЛ X,Б$ЛЮ,з$РЗ "INPUT CONSTANT OF EQUATION ";Y,п$ХЙ S,└$Ъ║ A(Y,Mл1)│S,╚$ЯЛ Y,╒$дЮ : В **-
$йЗ "THE EQUATIONS YOU HAVE ENTERED ARE:"-$оА Y│1 е M-$│А X│1 е M-/$╕З A(Y,X);" ";-7$╜Л X-L$┬З " = ";A(Y,Mл1)-T$╟Л Y-И$╠З "INPUT 1 TO PROCEED, 2 TO MAKE CHANGE" : В **-Р$╤Й N-д$╓Е N│1 з Бе 9490-╕$█Е N│2 з Бе 9450-╬$рЗ "INVALID INPUT"-┌$хБе 9420.$ъЗ "INPUT EQUATION NUMBER YOU WISH TO CHANGE" : В **.$яЙ Y.[$ЇЗ "INPUT COEFFICIENT NUMBER TO CHANGE(";Mл1;" FOR CONSTANT)".c$∙Й X.Я$■З "INPUT NEW VALUE FOR COEFFICIENT ";X;" , EQUATION ";Y.з%Й S.╢%║ A(Y,X)│S.┬%
Бе 9380.╧%Ю : В **.с%З "COMPUTING".ы%║ K│0.∙%!А Y│1 е M/
%&║BR7D1F1R4E1U3H1L4R4E1U3H1L4G1D1/S╞"BM110,24 E1U1D1G1L4H1U8E1R4F1D1BR7BD8R6L3U10G3/Р╞"BM96,87 E1U1D1G1L4H1U9E1R4F1D1BR7BD9R5L5U2E5U3H1L4G1D1/╩╞ "BM86,105 U9E1R4F1D4G1L4R2F3D1BR7R5L5U1E5U3H1L4G1D1/∙ ╞"BM29,94 U9E1R4F1D4G1L4R2F3D1BR7R6L3U10G30─*╞"BM146,180 U10R4F1D3G1L4R4F1D3G1L4BR12U6E3R2F3D2L6R6D4BR7U10F1D1F1D1F4D2U10D10BR7U10R4F1D8G1L4BR12U10R4F1D4G1L4BR12BD3U6E3R2F3D2L6R6D4BR7U2D1F1R4E1U3H1L4H1U3E1R4F1D1BR7BD6D1F1R4E1U3H1L4H1U3E1R4F1D10▄4A$│ Т:Е A$│"" з 8200я>Е A$│"R" з 5101%HЮ:З # PRT,"  FOLLOWING ARE PIN LOCATIONS":З # PRT1ORЗ # PRT,"IC<741> #2 IN #3 GND #6 OUT"1{\З # PRT,"IC<741> PIN 4 -VCC PIN 7 +VCC"1жfЗ # PRT,"IC<1458> #2 IN #3 GND #1 OUT"1╤pЗ # PRT,"IC<1458> #6 IN #5 GND #7 OUT"1■zЗ # PRT,"IC<1458> PIN 4 -VCC PIN 8 +VCC"2ДЗ # PRT:З # PRT2ОБе 15902$ШК28вЕD$│"Y"з PRT│м22fмЗ # PRT,"VALUES NEEDED FOR LOWPASS FILTER2О╢З # PRT,═"<R1>#######,#.## OHMS";R12▓└З # PRT,═"<C1>####.#### MFD";C12┌╩З # PRT,═"<R2>#######,#.## OHMS";R23╘З # PRT,═"<R3>#######,#.## OHMS";R331▐З # PRT:З # PRT,"YOU PICKED THE FOLLOWING"3PшЗ # PRT,"FREQUENCY";F;"HZ"3hЄЗ # PRT,"GAIN OF";H3Я№З # PRT, ═"FEEDBACK <C2> ####.#### MFD";C2н10000003╪Й "DO YOU WANT A PRINT Y OR N";D$:ЕD$│"Y"з 930:Д10404З # PRT:З"HIT ANY KEY FOR SCHEMATIC4З"PRESS<R> FOR COMPONETS4B$З"ANY KEY TWICE FOR INSTRUCTIONS4X.A$│ Т:ЕA$│""з10704a8╚4,14gB╝4pL┐1,04ЙV╞"BM130,50D100E50H504├`╞"BM120,65 U35R20U5D10U5BR10U5D10U5R32D65BD4R10H5F5G54ъj╞"BM80,65 U55R20E5F5E5F5E5F5R35D205t╞"BM125,65 L10H5G5H5G5H5G5L2259~╞"BM64,65 L5D15L5H5G5H5G5H5G5L8D45F5H5G55vИ╞"BM80,65 D30R5L10R5BD10R5L10R5D20R4L8R4BD4R3L6R3BD4R2L45жТ╞"BM125,140 L20D25L5R10L5BD4R4L8R4BD4R2L4R25сЬ╞"BM106,24 U10E1R4F1D4G1L4R2F3D2BR7R5BL5U2E5U3H1L4G1D16ж╞"BM141,49 E1U1D1G1L4H1U8E1R4F1D1BD8BR7R5L5U2E5U3H1L4G1D16d░╞"BM96,80 U9E1R4F1D4G1L4R2F3D1BU2BR7D1F1R4E1U3H1L4R4E1U3H1L4G1D16У║╞"BM28,94 U9E1R4F1D4G1L4R2F3D1BR7R6L3U10G26╚─╞"BM92,105 BR5E1U1D1G1L4H1U8E1R4F1D1BR7E2D10L3R67k╬╞"BM156,180 U10D10R5BR7U10R5D10L5BR12U10D10R3U3D3R3U10BR7BD10U10R4F1D4G1L4BD4BR12U10R5D4L5R5D6BR7BU2D1F1R4E1U3H1L4H1U3E1R4F1D1BR8BD6D1F1R4E1U3H1L4H1U3E1R4F1D17В╪A$│ Т:Е A$│""з12407УтЕ A$│"R"з9307ЮьБе 8407▀ЎЕA$│"Y"з PRT│м2:З # PRT,"VALUES NEEDED FOR HIGHPASS":З # PRT8З # PRT,═"R1 #######,#.## OHMS";R18-
З # PRT,═"R2 #######,#.## OHMS";R28PЗ # PRT,═"C1 ####.#### MFD";C18З # PRT:З # PRT,"YOU PICKED THE FOLLOWING"8Ч(З # PRT,"GAIN OF";H8╢2З # PRT,"FREQUENCY";F;"HZ"8Є<З # PRT, ═"INPUT CAPACITOR<C2>####.#### MFD";C2н10000009&FЙ "DO YOU WANT A PRINT Y OR N";A$:ЕA$│"Y"з 12709KPЗ:З"PRESS ANY KEY FOR SCHEMATIC"9nZЗ"PRESS <R> KEY FOR COMPONETS"9УdЗ"ANY KEY TWICE FOR INSTRUCTIONS9мnA$│ Т:Е A$│"" з 13909╡x╚4,19╗В╝9─М┐1,09▐Ц╞"BM130,50 D100E50H50:а╞"BM120,65 U35R13E5F5E5F5E5F5R17D65BD4R10H5F5G5::к╞"BM125,65 L25D5U10D5BL10U5D10U5L25:o┤╞"BM64,65 L5D15L20U5D10U5BL10U5D10U5L10D55H5F5E5:Ь╛╞"BM80,65 U55R30U5D10U5BR10U5D10U5R55D20:╙╚╞"BM80,65D20G5F5G5F5G5F5D20L5R10L5BD4L4R8L4BD4L2R4;
╥╞"BM125,140 L20D25R5L10R5BD4R4L8R4BD4R2L4;6▄╞"BM108,28 E1U1D1G1L4H1U8E1R4F1D1BR7BD8R6L3U10G3;fц╞"BM141,45 U9E1R4F1D4G1L4R2F3D1BR7R6L3U10G3;гЁ╞"BM96,85 E1U1D1G1L4H1U9E1R4F1D1BR7BD9R5L5U2E5U3H1L4G1D1;▄·╞"BM88,105 U9E1R4F1D4G1L4R2F3D1BR7R5L5U2E5U3H1L4G1D1<╞"BM29,105 E1U1D1G1L4H1U9E1R4F1D1BR7BD9R5L5U2E5U3H1L4G1D1<т╞" BM146,180 U10D5R5U5D10BR7R4L2U10L2R4BR7BD10R4E1U3H1L2D1BL3D4U9E1R4F1D1BR7D8U10D4R5U4D10BR7U10R4F1D3G1L4BD5BR12U8E2R3F2D8U5L5BD5BR12BU2D1F1R3E1U3H1L3H1U3E1R3F1D1BR7BD6D1F1R3E1U3H1L3H1U3E1R3F1D1<·A$│ Т:Е A$│""з 1560="Е A$│"R" з 1270=,Бе840==6Й"AGAIN <Y/N>";X$:ЕX$│"Y"з20:Д К                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                               юЗ "INVALID INPUT"/єБе 5850/+°Ю : В **/W¤З "NON-INVERTING OPERATIONAL AMPLIFIER"/ОЗ "INPUT RESISTOR R1 VALUE IN OHMS (0 IF UNKNOWN)"/ЦЙ R/вБж 5950/╞Е G│0 з З "VOLTAGE GAIN=";1лTоR/ЁЕ T│0 з З "RESISTOR R2=";GнRмR;"OHMS"0#Е R│0 з З "RESISTOR R1 VALUE=";Tо(Gм1);" OHMS"0j З "INPUT 1 TO REPEAT CALCULATION, 2 TO GO TO OP-AMP MENU" : В **OK0s%Й N 0З*Е N│1 з Бе 58800Ы/Е N│2 з Бе 55000▒4З "INVALID INPUT"0╜9Бе 59201#>З "INPUT RESISTOR R2 VALUE IN OHMS (0 IF UNKNOWN)" : В ** SUBROUTINE TO INPUT R2 AND VOLTAGE GAIN1+CЙ T1UHЗ "INPUT VOLTAGE GAIN (0 IF UNKNOWN)"1]MЙ G1kR║ G│ В(G)1qWР                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                            	╪&'
В LISTING # 9 : 555 TIMER PROGRAM&4pЮ : В **&]uЗ "555 TIMER COMPUTATIONS. OPTIONS:"&~zЗ "1) ASTABLE MULTIVIBRATOR"&вЗ "2) MONOSTABLE MULTIVIBRATOR"&╧ДЗ "3) GO TO MASTER MENU" : В MASTER MENU&·ЙЗ "INPUT NUMBER OF YOUR CHOICE" : В **'ОЙ N'УЕ N│1 з Бе 6060'*ШЕ N│2 з Бе 6230'CЭЕ N│3 з : О "MASTER"'ZвЗ "INVALID ANSWER"'fзБе 6025'sмЮ : В **'С▒З "ASTABLE MULTIVIBRATOR"'╚╢З "INPUT RESISTOR R1 VALUE IN OHMS )0 IF UNKNOWN)"'╨╗Й R(└З "INPUT RESISTOR R2 VALUE IN OHMS (0 IF UNKNOWN)"(┼Й S(F╩З "INPUT CAPACITOR VALUE IN FARADS (0 IF UNKNOWN)"(N╧Й C(~╘З "INPUT FREQUENCY IN HERTZ (0 IF UNKNOWN)"(Ж┘Й F(б▐Е RнSнCнF┤▓0 з Бе 6220(┬уЕ F│0 з ║ F│1.44о((Rл2нS)нC)(ушЕ C│0 з ║ C│1.44о((Rл2нS)нF))эЕ R│0 з ║ R│1.44о(CнF)м2нS) ЄЕ S│0 з ║ S│.72о(CнF)мRо2);ўЗ "FREQUENCY=";F;" HZ")Z№З "CAPACITOR=";C;" FARADS")p
З "R1=";R;" OHMS")ЖЗ "R2=";S;" OHMS")╕З "OUTPUT HIGH TIME=";.693н(RлS)лC;" SECONDS")хЗ "OUTPUT LOW TIME=";.693нSнC;" SECONDS"*З "PERCENT HIGH TIME=";(RлS)о(Rл2нS)н100;" %"*\Е  В(S)┤1000 з З "R2 BELOW RECOMMENDED LOWER LIMIT OF 1000 OHMS"*йЕ RлS▓3300000 з З "R1 + R2 ABOVE RECOMMENDED UPPER LIMIT OF 3.3 MEGOHMS"*ю$Е  В(R)┤1000 з З "R1 BELOW RECOMMENDED LOWER LIMIT OF 1000 OHMS"+D)Е  В(C)┤5Eм10 з З "CAPACITOR VALUE BELOW RECOMMENDED LOWER LIMIT OF FE-10 FARADS"+С.Е F▓1000000 з З "FREQUENCY ABOVE RECOMMENDED UPPER LIMIT OF 1 MEGAHERTZ"+┘3Е R┤0 ▒ S┤0 ▒ C┤0 з З "****WARNING-IMPOSSIBLE COMPONENT VALUES****",!8З "INPUT 1 TO REPEAT CALCULATION, 2 TO GO TO 555 TIMER MENU" : В **,)=Й N,=BЕ N│1 з Бе 6060,QGЕ N│2 з Бе 6000,nLЗ "INVALID INPUT" : В **,zQБе 6200,ЗVЮ : В **,┤[З "MONOSTABLE MULTIVIBRATOR COMPUTATION",ш`З "INPUT RESISTOR VALUE IN OHMS (0 IF UNKNOWN)",ЁeЙ R-'jЗ "INPUT CAPACITOR VALUE IN FARADS (0 IF UNKNOWN)"-/oЙ C-ftЗ "INPUT PULSE DURATION IN SECONDS (0 IF UNKNOWN)"-nyЙ D-З~Е RнCнD┤▓0 з Бе 6340-бГЕ R│0 з ║ R│Dо(1.1нC)-╗ИЕ C│0 з ║ C│Dо(1.1нR)-╙НЕ D│0 з ║ D│1.1нRнC-яТЗ "RESISTOR=";R;" OHMS".ЧЗ "CAPACITOR=";C;" FARADS".3ЬЗ "PULSE DURATION=";D;" SECONDS".ЕбЕ R▓3300000 з З "RESISTOR VALUE ABOVE RECOMMENDED UPPER LIMIT OF 3.3 MEGOHMS".╘жЕ  В(R)┤1000 з З " RESISTOR VALUE BELOW RECOMMENDED LOWER LIMIT 1000 OHMS"/$лЕ  В(C)┤5Eм10 з З "CAPACITOR VALUE BEL, C, AND F/Й L/9З "INPUT CAPACITOR VALUE IN FARADS"/A
Й C/bЗ "INPUT FREQUENCY IN HERTZ"/jЙ F/ВЕ FнCнL│0 з Бе 4400/Ц!║ Y│6.28319нFнL/о&║ X│1о(6.28319нFнC)/╛+║ D│ В(YмX)/╦0Р : В **                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                  ╛&*
В LISTING # 7 : RLC CIRCUITS PROGRAM&7ФЮ : В **&zЩЗ "RESISTOR-INDUCTOR-CAPACITOR CIRCUIT COMPUTATIONS. OPTIONS:"&ЪЮЗ "1) FIGURE 9.1 IMPEDANCE"&║гЗ "2) FIGURE 9.2 IMPEDANCE"&┌иЗ "3) FIGURE 9.3 IMPEDANCE"&·нЗ "4) FIGURE 9.4 IMPEDANCE"'▓З "5) FIGURE 9.5 OHM'S LAW"':╖З "6) FIGURE 9.6 OHM'S LAW"'Z╝З "7) FIGURE 9.7 OHM'S LAW"'z┴З "8) FIGURE 9.8 OHM'S LAW"'з╞З "9) GO TO MASTER MENU" : В MASTER MENU'╥╦З "INPUT NUMBER OF YOUR CHOICE" : В **'┌╨Й N'ю╒Е N│1 з Бе 4620(┌Е N│2 з Бе 4665(▀Е N│3 з Бе 4710(*фЕ N│4 з Бе 4760(>щЕ N│5 з Бе 4815(RюЕ N│6 з Бе 4855(fєЕ N│7 з Бе 4895(z°Е N│8 з Бе 4940(У¤Е N│9 з : О "MASTER"(йЗ "INVALID INPUT"(╡Бе 4555(┬Ю : В **(▀З "FIGURE 9.1 IMPEDANCE"(ыБж 4990(ўБж 5100) З "IMPEDANCE=";Z;" OHMS");%З "PHASE ANGLE=";Tн57.3;" DEGREES")G*Бж 5145)[/Е N│1 з Бе 4620)g4Бе 4500)t9Ю : В **)С>З "FIGURE 9.2 IMPEDANCE")ЭCБж 4990)йHБж 5115)╞MЗ "IMPEDANCE=";Z;" OHMS")эRЗ "PHASE ANGLE=";Tн57.3;" DEGREES")∙WБж 5145*
\Е N│1 з Бе 4665*aБе 4500*&fЮ : В ***CkЗ "FIGURE 9.3 IMPEDANCE"*OpБж 4990*Yu║ S│0*ezБж 5130*ВЗ "IMPEDANCE=";Z;" OHMS"*йДЗ "PHASE ANGLE=";Tн57.3;" DEGREES"*╡ЙБж 5145*╔ОЕ N│1 з Бе 4710*╒УБе 4500*тШЮ : В *** ЭЗ "FIGURE 9.4 IMPEDANCE"+вБж 4990+3зЗ "INPUT RESISTOR R2 VALUE IN OHMS"+;мЙ S+G▒Бж 5130+d╢З "IMPEDANCE=";Z;" OHMS"+Л╗З "PHASE ANGLE=";Tн57.3;" DEGREES"+Ч└Бж 5145+л┼Е N│1 з Бе 4760+╖╩Бе 4500+─╧Ю : В **+с╘З "FIGURE 9.5 OHM'S LAW"+э┘Бж 4990+∙▐Бж 5100,уБж 5050,шБж 5145,%эЕ N│1 з Бе 4815,1ЄБе 4500,>ўЮ : В **,[№З "FIGURE 9.6 OHM'S LAW",g
Бж 4990,sБж 5115,Бж 5050,ЛБж 5145,ЯЕ N│1 з Бе 4855,лБе 4500,╕Ю : В **,╒$З "FIGURE 9.7 OHM'S LAW",с)Бж 4990,ы.║ S│0,ў3Бж 5130-8Бж 5050-=Бж 5145- BЕ N│1 з 4895-,GБе 4500-9LЮ : В **-VQЗ "FIGURE 9.8 OHM'S LAW"-bVБж 4990-К[З "INPUT RESISTOR R2 VALUE IN OHMS"-Т`Й S-ЮeБж 5130-кjБж 5050-╢oБж 5145-╩tЕ N│1 з Бе 4940-╓yБе 4500./~З "INPUT RESISTOR R1 VALUE IN OHMS" : В ** SUBROUTINE TO INPUT R, C, L, AND F VALUES.7ГЙ R.bИЗ "INPUT CAPACITOR C1 VALUE IN FARADS".jНЙ C.ХТЗ "INPUT INDUCTOR L1 VALUE IN HENRIES".ЭЧЙ L.╛ЬЗ "INPUT FREQUENCY IN HERTZ".╞бЙ F.сж║ X│1о(6.2831853#нFнC).°л║ Y│6.2831853#нFнL/░║  2340/	BЮ : В **/9	GЗ "VOLTAGE PHASE ANGLE COMPUTATION"/[	LЗ "INPUT 0 FOR UNKNOWN VALUE"/g	QБж 2610/Ю	VЗ "INPUT CAPACITOR VOLTAGE PHASE ANGLE IN DEGREES"/ж	[Й D/║	`║ D│м В(Dо57.3)/╫	eЕ D│0 з ║ D│ Ф(XоR)м1.57/ 	jЕ C│0 з ║ C│1о(6.28нFнRн Ц(Dл1.57))0'	oЕ F│0 з ║ F│1о(6.28нCнRн Ц(Dл1.57))0D	tЕ R│0 з ║ R│Xо Ц(Dл1.57)0Д	yЗ "CAPACITOR VOLTAGE LAGS BEHIND VT BY ";мDн57.3;" DEGREES"0┐	~З "RESISTOR VOLTAGE LEADS VT BY ";Dн57.3л90;" DEGREES"0с	ГЗ "RESISTOR VALUE=";R;" OHMS"1	ИЗ "CAPACITOR VALUE=";C;" FARADS"1!	НЗ "FREQUENCY=";F;" HZ"1q	ТЗ "INPUT 1 TO REPEAT PHASE COMPUTATION, 2 TO GO TO RC CIRCUITS MENU" : В **1y	ЧЙ N1Н	ЬЕ N│1 з Бе 23701б	бЕ N│2 з Бе 20001╖	жЗ "INVALID INPUT"1├	лБе 24501╨	░Ю : В **1Ї	╡З "VOLTAGE DIVIDER COMPUTATION"2	║З "INPUT 0 FOR UNKNOWN VALUE"2"	┐Бж 26102C	─З "INPUT VOLTAGE VT IN VOLTS2K	╔Й T2~	╬З "INPUT VOLTAGE VC ACROSS CAPACITOR IN VOLTS"2Ж	╙Й N2ж	╪Е N│0 з ║ N│TнXо Ы(RнRлXнX)2╬	▌Е (R│0 ▒ Cм0 ▒ F│0) ░ T┤N з Бе 26002ю	тЕ R│0 з ║ R│Xн Ы(TнTмNнN)оN3	чЕ C│0 з ║ C│ Ы(TнTмNнN)о(6.28нFнRнN)3@	ьЕ F│0 з ║ F│ Ы(TнTмNнN)о(6.28нCнRнN)3`	ёЕ T│0 з ║ T│Nн Ы(RнRлXнX)оX3w	ЎЗ "VT=";T;" VOLTS"3Щ	√З "RESISTOR VALUE=";R;" OHMS"3╛
З "CAPACITOR VALUE=";C;" FARADS"3┘
З "FREQUENCY=";F;" HZ"4

З "VOLTAGE ACROSS CAPACITOR=";N;" VOLTS"4@
З "VOLTAGE ACROSS RESISTOR=";TнRо Ы(RнRлXнX);" VOLTS"4Щ
З "INPUT 1 TO REPEAT VOLTAGE DIVIDER COMPUTATION, 2 TO GO TO RC CIRCUIT MENU" : В **4б
Й M4╡
Е M│1 з Бе 24804╔
#Е M│2 з Бе 20004▀
(З "INVALID INPUT"4ы
-Бе 25805@
2З "INPUT RESISTOR VALUE IN OHMS": В ** SUBROUTINE TO INPUT VALUES OF R, C, AND F5H
7Й R5p
<З "INPUT CAPACITOR VALUE IN FARADS"5x
AЙ C5Щ
FЗ "INPUT FREQUENCY IN HERTZ"5б
KЙ F5┴
PЕ FнC┤▓0 з ║ X│1о(6.28нFнC)5╟
UР                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                      ъ&8
В LISTING # 5 : RESISTOR-INDUCTOR CIRCUITS PROGRAM&E╕Ю : В **&K╜Х&}┬З "RESISTOR-INDUCTOR CIRCUITS MENU. OPTIONS:"&╖╟З "1) SERIES/PARALLEL IMPEDANCE AT A GIVEN FREQUENCY"&▄╠З "2) OHM'S LAW FOR RL CIRCUITS"&¤╤З "3) SERIES RL PHASE ANGLE"'"╓З "4) SERIES RL VOLTAGE DIVIDER"'O█З "5) GO TO MASTER MENU" : В MASTER MENU'zрЗ "INPUT NUMBER OF YOUR CHOICE" : В **'ВхЙ N'ЦъЕ N│1 з Бе 3085'кяЕ N│2 з Бе 3150'╛ЇЕ N│3 з Бе 3370'╥∙Е N│4 з Бе 3480'ы■Е N│5 з : О "MASTER"(
З "INVALID INPUT"(
Бе 3040(
Ю : В **(HЗ "SERIES/PARALLEL IMPEDANCE COMPUTATION"(TБж 3615(БЗ "SERIES IMPEDANCE= "; Ы(RнRлX);" OHMS"(╢!З "SERIES PHASE ANGLE= "; Ф(XоR)н57.3;" DEGREES"(ъ&З "PARALLEL IMPEDANCE=";RнXо Ы(RнRлXнX);" OHMS") +З "PARALLEL PHASE ANGLE="; Ф(RоX)н57.3;" DEGREES")Д0З "INPUT 1 TO REPEAT SERIES/PARALLEL IMPEDANCE COMPUTATION, 2 TO GO TO RL CIRCUITS MENU" : В **)М5Й N)а:Е N│1 з Бе 3085)┤?Е N│2 з Бе 3000)╩DЗ "INVALID INPUT")╓IБе 3120)уNЮ : В ***SЗ "OHM'S LAW FOR RL CIRCUITS"*'XЗ "INPUT 0 FOR UNKNOWN VALUE"*3]Бж 3615*\bЗ "INPUT VOLTAGE VT (PEAK) IN VOLTS"*dgЙ V*ЛlЗ "INPUT CURRENT I (PEAK) IN AMPS"*УqЙ A*╒vЗ "INPUT 1 FOR SERIES CIRCUIT, 2 FOR PARALLEL CIRCUIT" : В ***▌{Й N*ёАЕ N│1 з Бе 3220+ЕЕ N│2 з Бе 3265+КЗ "INVALID ANSWER"+(ПБе 3190+MФЕ V│0 з ║ V│Aн Ы(RнRлXнX) : В **+kЩЕ A│0 з ║ A│Vо Ы(RнRлXнX)+ЗЮЕ R│0 ░ V┤AнX з Бе 3360+йгЕ R│0 з ║ R│ Ы(VнVмAнAнXнX)оA+═иЕ (L│0 ▒ F│0) ░ V┤AнR з Бе 3360+°нЕ L│0 з ║ L│ Ы(VнVмAнAнRнR)о(Aн6.28нF),#▓Е F│0 з ║ F│ Ы(VнVмAнAнRнR)о(Aн6.28нL),:╖║ D│ Ф(6.28нFнLоR),F╝Бе 3305,o┴Е V│0 з ║ V│AнRнXо Ы(RнRлXнX) : В **,У╞Е A│0 з ║ A│Vн Ы(RнRлXнX)о(RнX),░╦Е R│0 ░ AнX┤│V з Бе 3360,╘╨Е R│0 з ║ R│VнXо Ы(AнAнXнXмVнV),∙╒Е (L│0 ▒ F│0) ░ AнR┤│V з Бе 3360-&┌Е L│O з ║ L│VнRо(6.28нFн Ы(AнAнRнRмVнV))-S▀Е F│0 з ║ F│VнRо(6.28нLн Ы(AнAнRнRмVнV))-lф║ D│ Ф(Rо(6.28нFнL))-бщЗ "VOLTAGE ACROSS RL CIRCUIT=";V;" VOLTS" : В **-╝юЗ "CURRENT=";A;" AMPS"-▐єЗ "RESISTOR VALUE=";R;" OHMS".°З "INDUCTOR VALUE=";L;" HENRIES".¤З "FREQUENCY=";F;" HZ".U
З "CURRENT-VOLTAGE PHASE ANGLE=";Dн57.3;" DEGREES".Е
З "POWER CONSUMPTION=";VнAн Х(D)о2;" WATTS".┘
З "INPUT 1 TO REPEAT OHM'S LAW COMPUTATION, 2 TO GO TO RL CIRCUITS MENU" : В **.с
Й N.ї
Е N│1 з Бе 3150/	
Е N│2 
╩&5
В  LISTING # 2 : CAPACITOR COMPUTATIONS PROGRAM&BшЮ : В **&kэЗ "CAPACITOR CIRCUITS MENU OPTIONS:"&ФЄЗ "1 SERIES AND PARALLEL CAPACITORS"&╜ўЗ "2 IMPEDANCE AT A GIVEN FREQUENCY"&р№З "3 OHM'S LAW FOR CAPACITORS"&·
З "4 VOLTAGE DIVIDER"'&З "5 GO TO MASTER MENU" : В MASTER MENU'QЗ "INPUT NUMBER OF YOUR CHOICE" : В **'YЙ N'mЕ N│1 з Бе 1080'БЕ N│2 з Бе 1180'ХЕ N│3 з Бе 1265'й$Е N│4 з Бе 1365'┬)Е N│5 з : О "MASTER"'╪.З "INVALID INPUT"'ф3Бе 1035'ё8Ю : В **(=З "SERIES/PARALLEL CAPACITOR COMPUTATION"()B║ S│0(3G║ P│0(ULЗ "INPUT HOW MANY CAPACITORS"(]QЙ N(lVА M │1 е N(З[З "INPUT VALUE OF C";M(П`Й X(Эe║ S│Sл1оX(йj║ P│PлX(▒oЛ M(╥tЗ "SERIES CAPACITANCE =";1оS(єyЗ "PARALLEL CAPACITANCE =";P)K~З "INPUT 1 TO REPEAT SERIES/PARALLEL COMPUTATION, 2 TO GO TO CAPACITOR MENU" : В **)SГЙ N)gИЕ N│1 з Бе 1080){НЕ N│2 з Бе 1000)СТЗ "INVALID INPUT")ЭЧБе 1150)кЬЮ : В **)╚бЗ "IMPEDANCE COMPUTATION")№жЗ "INPUT CAPACITANCE INFARADS ( 0 IF UNKNOWN )"*лЙ C*6░З "INPUT FREQUENCY IN HERTZ ( 0 IF UNKNOWN )"*>╡Й F*o║З "INPUT IMPEDANCE IN OHMS ( 0 IF UNKNOWN )"*w┐Й Z*к─Е C│0 з З "CAPACITOR =";1о(6.28нZнF);" FARADS"*█╔Е Z│0 з З "IMPEDANCE =";1о(6.28нZнC);" OHMS"+
╬Е F│0 з З "FREQUENCY =";1о(6.28нZнC);" HZ"+\╙З "INPUT 1 TO REPEAT IMPEDANCE COMPUTATION, 2 TO GO TO CAPACITOR MENU" : В **+d╪Й N+x▌Е N│1 з Бе 1180+МтЕ N│2 з Бе 1000+вчЗ "INVALID INPUT"+оьБе 1235+╗ёЮ : В **+┘ЎЗ "OHM'S LAW COMPUTATION",√З "INPUT AC VOLTAGE IN VOLTS ACROSS CAPACITOR ( 0 IF UNKNOWN )",%Й V,ZЗ "INPUT CAPACITANCE IN FARADS ( 0 IF UNKNOWN )",b
Й C,ФЗ "INPUT FREQUENCY IN HERTZ ( 0 IF UNKNOWN )",ЬЙ F,╦З "INPUT CURRENT IN AMPS ( 0 IF UNKNOWN )",╙Й A-#Е V│0 з З "VOLTAGE =";Aо(6.28нFнC);" VOLTS"-8(Е C│0 з З "CAPACITANCE =";Aо(6.28нFнV);" FARADS"-f-Е F│0 з З "FREQUNCY =";Aо(6.28нVнC);" HZ"-Т2Е A│0 з З "CURRENT =";6.28нFнCнV;" AMPS-ф7З "INPUT 1 TO REPEAT OHM'S LAW COMPUTATION, 2 TO GO TO CAPACITOR MENU" : В **-ь<Й N.AЕ N│1 з Бе 1265.FЕ N│2 з Бе 1000.*KЗ "INVALID INPUT".6PБе 1335.CUЮ : В **.gZЗ "VOLTAGE DIVIDER COMPUTATION".Ь_З "INPUT VOLTAGE ACROSS CAPACITOR PAIR IN VOLTS".дdЙ T.┘iЗ "INPUT VALUE OF C1 IN FARADS ( 0 IF UNKNOWN )".сnЙ M/sЗ "INPUT VALUE OF C2 IN FARADS"/
xЙ N/"}Е M┤▓0 з Бе 1435/SВЗ "INPUT DESIRED VOLTAGE ACROSS C2 IN VOLTS"/[ЗЙ V/ЕМЗ "VALUE OF C1 =";VнNо(TмV);" FARADS"/оСЗ "VOLTAGE ACROSS C1 =";TмV;" VOLTS"/║ЦБе 1445/ЁЫЗ "VOLTAGE ACROSS C1 =";TнNо(MлN);" VOLTS" : В **0аЗ "VOLTAGE ACROSS C2 =";TнMо(MлN);" VOLTS"0wеЗ "INPUT 1 TO REPEAT VOLTAGE DIVIDER COMPUTATION, 2 TO GO TO CAPACITOR MENU" : В **0кЙ N0УпЕ N│1 з Бе 13650з┤Е N│2 з Бе 10000╜╣З "INVALID INPUT"0╔╛Бе 1445                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                    Ф&)
З"THESE PROGRAMS ARE FROM THE BOOK"&WЗ"PROGRAMS FOR ELECTRONIC CIRCUIT DESIGN"&rЗ"BY DAVID LEITHAUSER"&НЗ"RADIO SHACK 62-1054"&УК                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                          в&)
В LISTING # 0 : MASTER MENU PROGRAM&/dЮ&KiЗ"MASTER MENU OPTIONS:"&hnЗ " 1 RESISTOR CIRCUITS"&ЖsЗ " 2 CAPACITOR CIRCUITS"&гxЗ " 3 INDUCTOR CIRCUITS"&╩}З " 4 RESISTOR-CAPACITOR CIRCUITS"&ЁВЗ " 5 RESISTOR-INDUCTOR CIRCUITS"'ЗЗ " 6 INDUCTOR-CAPACITOR CIRCUITS"'KМЗ " 7 RESISTOR-INDUCTOR-CAPACITOR     CIRCUITS"'lСЗ " 8 OPERATIONAL AMPLIFIERS'КЦЗ " 9 555 TIMER CIRCUITS"'иЫЗ "10 ELECTRONIC FILTERS"'╟аЗ "11 TRANSISTOR CIRCUITS"'яеЗ "12 GENERAL MATH FOR ELECTRONICS"' зЗ "13 EXIT"($кЗ"INPUT NUMBER OF YOUR CHOICE :"(,┤Й N(F╣Е N│1 з : О"RESISTOR"(`╛Е N│2 з : О"CAPACITR"(z├Е N│3 з : О"INDUCTOR"(Ф╚Е N│4 з : О"R-C CKTS"(о═Е N│5 з : О"R-L CKTS"(╚╥Е N│6 з : О"L-C CKTS"(т╫Е N│7 з : О"RLC CKTS"(√▄Е N│8 з : О"OP-AMPS")сЕ N│9 з : О"555TIMER")/цЕ N│10 з : О"FILTERS")HыЕ N│11 з : О"Q-CKTS")cЁЕ N│12 з : О"GEN MATH")АЄЕ N│13 з : Т113,0:в40999)ЦїЗ "INVALID INPUT")б·Бе 170                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                         4┼─0┬.╞├*┴(╟&┬┴─#┴╞╟─┴-/┴╞╞╚─               READ-ME BAS ЧMASTER  BAS!еRESISTORBAS"CAPACITRBAS═INDUCAP BAS$ER-C CKTSBAS%╦R-L CKTSBASэL-C CKTSBAS'╧RLC CKTSBAS┴OP-AMPS BAS)u555TIMERBAS█FILTER  BAS+AQ-CKTS  BAS,■GEN MATHBASkFILTER  BASAINDUCAP BAS1EOHMSLAW BASяDUPE 1  BASqCODE 20 BAS2}RADIOSYSBAS3┴                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                 	&3
В LISTING # 1 : RESISTOR COMPUTATIONS PROGRAM&@
ЇЮ : В **&F
∙Х&p
■З "RESISTOR CIRCUITS MENU.  OPTIONS:"&ШЗ "1 SERIES AND PARALLEL RESISTORS"&мЗ "2 OHM'S LAW"&╞
З "3 VOLTAGE DIVIDER"&ЄЗ "4 GO TO MASTER MENU" : В MASTER MENU&∙З '%З "INPUT NUMBER OF YOUR CHOICE:" : В **'-!Й N'@&Е N│1 з Бе 580'S+Е N│2 з Бе 680'f0Е N│3 з Бе 810'5Е N│4 з : О "MASTER"'Х:З "INVALID INPUT"'а?Бе 540'нDЮ : В **'╖I║ T│0'┴N║ P│0'юSЗ "SERIES/PARALLEL RESISTOR COMPUTATION"(XЗ "INPUT HOW MANY RESISTORS:"(]Й N(&bА M│1 е N(MgЗ "INPUT VALUE OF R";M; " IN OHMS"(UlЙ X(aq║ T│TлX(ov║ P│Pл1оX(w{Л M(ХАЗ "SERIES RESISTANCE =";T(╖ЕЗ "PARALLEL RESISTANCE =";1оP)КЗ "INPUT 1 TO REPEAT SERIES/PARALLEL COMPUATION, 2 TO GO TO RESISTOR MENU")ПЙ N)!ФЕ N│1 з Бе 580)4ЩЕ N│2 з Бе 500)JЮЗ "INVALID INPUT")UгБе 650)bиЮ : В **)АнЗ "OHM'S LAW COMPUTATION")└▓З "YOU WILL BE ASKED FOR VOLTAGE, CURRENT, AND RESISTANCE.")ю╖З "ANSWER 0 FOR THE ONE YOU DO NOT KNOW.")Ї╝З*#┴З "INPUT VOLTAGE ACROSS RESISTOR IN VOLTS"*+╞Й V*Z╦З "INPUT CURRENT THROUGH RESISTOR IN AMPS"*b╨Й C*П╒З "INPUT RESISTANCE OF RESISTOR IN OHMS"*Ч┌Й R*л▀Е V│0 з ║ V│CнR*┐фЕ C│0 з ║ C│VоR*╙щЕ R│0 з ║ R│VоC*┘юЗ*°єЗ "VOLTAGE = ";V;" VOLTS."+°З "CURRENT = ";C;" AMPS."+7¤З "RESISTANCE = ";R;" OHMS."+bЗ "POWER CONSUMPTION = ";VнC;" WATTS."+hЗ+╣З "INPUT 1 TO REPEAT OHM'S LAW COMPUTATION, 2 TO GO TO RESISTOR MENU" : В **+┴Й N+╘Е N│1 з Бе 680+чЕ N│2 з Бе 500+¤ З "INVALID INPUT",%Бе 780,*Ю : В **,5/З "VOLTAGE DIVIDER CIRCUIT",h4З "INPUT VALUE OF R1 IN OHMS ( 0 IF UNKNOWN )",p9Й M,Т>З "INPUT VALUE OF R2 IN OHMS",ЪCЙ N,╦HЗ "INPUT VOLTAGE V ACROSS R1-R2 COMBINATION",╙MЙ V,шRЕ M ┤▓0 з Бе 885-WЗ "INPUT DESIRED VOLTAGE ACROSS R2"-\Й X-AaЗ "VALUE OF R1= ";(VмX)нNоX;" OHMS."-kfЗ "VOLTAGE ACROSS R1= ";VмX;" VOLTS."-wk║ C│XоN-ВpБе 900-Щu║ C│Vо(MлN) : В **-┼zЗ "VOLTAGE ACROSS R1 = ";CнM;" VOLTS. "-ЁЗ "VOLTAGE ACROSS R2 = ";CнN;" VOLTS.".'ДЗ "CURRENT THROUGH R1 AND R2 = ";C;" AMPS." : В **.^ЙЗ "TOTAL POWER LOSS IN R1 AND R2 = ";C:V;" WATTS.".╡ОЗ "INPUT 1 TO REPEAT VOLTAGE DIVIDER COMPUTATION, 2 TO GO TO RESISTOR MENU" : В **.╜УЙ N.╨ШЕ N│1 з Бе 810.уЭЕ N│2 з Бе 500.∙вЗ "INVALID INPUT"/зБе 910                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                         B&'
З"INDUCTANCE-CAPACITANCE PROGRAM"&H:ГCOPYRIGHT 1982 BY C. MOTES&NЗ&v(З"WHICH PROBLEM DO YOU WANT TO DO?"&Р2З"  1. TUNED CIRCUIT"&░<З"  2. INDUCTIVE REACTANCE"&╤FЗ"  3. CAPACITIVE REACTANCE"&шHЗ"  4. END PROGRAM&ЁPЙ A'RЕ A│4 з 460'1ZЗ"ENTER THE FOLLOWING; ENTER 0 IF NOT KNOWN"'KdЗ"FREQUENCY IN HERTZ"'SnЙ F'cxЕ A│1 з 270'|ВЗ"REACTANCE IN OHMS"'ДМЙ X'ФЦЕ A│2 з 180'даЕ A│3 з 270'окБе 30'╦┤З"INDUCTANCE IN HENRYS";'╙╛Й L'ё╚Е F│0 з F│Xо(2н3.14159нL)(╥Е L│0 з L│Xо(2н3.14159нF)(+▄Е X│0 з X│2н3.14159нFнL(HцЗ"INDUCTANCE IN H IS ";L(gЁЗ"REACTANCE IN OHMS IS ";X(З·З"FREQUENCY IN HERTZ IS ";F(С
Бе 30(░
З"CAPACITANCE IN MICRO F";(╕
Й C(╚
"C│Cо1000000(╪
,Е A│1 з 370(°
6Е X│0 з X│1о(2н3.14159нFнC))
@Е C│0 з C│1о(2н3.14159нFнX))8
JЕ F│O з F│1о(2н3.14159нXнC))H
TC│Cн1000000)l
^З"CAPACITANCE IN MICRO F IS ";C)w
hБе 240)Ф
rЗ"INDUCTANCE IN HENRYS";)Ь
|Й L)ж
~Q│LнC)│
АБж 30030)╤
ЖЕ F│0 з F│1о(2н3.14159нY)) 
РЕ L│0 з L│1о(4н(3.14159н3.14159)н(FнF)нC)*-
ЪЕ C│0 з C│1о(4н(3.14159н3.14159)н(FнF)нL)*=
дC│Cн1000000*a
оЗ"CAPACITANCE IN MICRO F IS ";C*i
╕X│0*t
┬Бе 220*и
╠З"INDUCTANCE-CAPACITANCE PROGRAM  SAYS GOODBYE"*о
╓К*└uNЕ Q│0 з Y│0:Р*╥uXЕ Q▓0 з 30060*ЇubЗ"ROOT OF NEGATIVE NUMBER?":С+ulY│Qн.5:Z│0+uvW│(QоYмY)н.5+*uАЕ (W│0)л(W│Z) з Р+AuКY│YлW:Z│W:Бе 30070                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                            ╚&9
В LISTING # 4 : RESISTOR-CAPACITOR CIRCUITS PROGRAM&F╨Ю : В **&L╒Х&┌З "RESISTOR-CAPACITOR CIRCUITS MENU. OPTIONS-"&╣▀З "1) SERIES PARALLEL IMPEDANCE AT A GIVEN FREQUENCY"&▐фЗ "2) OHM'S LAW FOR RC CIRCUITS"& щЗ "3) SERIES RC PHASE ANGLE"'$юЗ "4) SERIES RC VOLTAGE DIVIDER"'QєЗ "5) GO TO MASTER MENU" : В MASTER MENU'|°З "INPUT NUMBER OF YOUR CHOICE" : В **'Д¤Й N'ШЕ N│1 з Бе 2085'мЕ N│2 з Бе 2150'└Е N│3 з Бе 2370'╘Е N│4 з Бе 2480'эЕ N│5 з : О "MASTER"(З "INVALID INPUT"( Бе 2040(%Ю : В **(J*З "SERIES/PARALLEL IMPEDANCE COMPUTATION"(V/Бж 2610(Д4З "SERIES IMPEDANCE="; Ы(RнRлXнX);" OHMS"(╕9З "SERIES PHASE ANGLE="; Ф(XоR)н57.3;" DEGREES"(ь>З "PARALLEL IMPEDANCE=";RнXо Ы(RнRлXнX);" OHMS")"CЗ "PARALLEL PHASE ANGLE="; Ф(RоX)н57.3;" DEGREES")ЖHЗ "INPUT 1 TO REPEAT SERIES/PARALLEL IMPEDANCE COMPUTATION, 2 TO GO TO RC CIRCUITS MENU" : В **)ОMЙ N)вRЕ N│1 з Бе 2085)╢WЕ N│2 з Бе 2000)╠\З "INVALID INPUT")╪aБе 2120)хfЮ : В ***kЗ "OHM'S LAW FOR RC CIRCUITS"*)pЗ "INPUT 0 FOR UNKNOWN VALUE"*5uБж 2610*^zЗ "INPUT VOLTAGE VT (PEAK) IN VOLTS"*fЙ V*НДЗ "INPUT CURRENT I (PEAK) IN AMPS"*ХЙЙ A*╫ОЗ "INPUT 1 FOR SERIES CIRCUIT, 2 FOR PARALLEL CIRCUIT" : В ***▀УЙ N*єШЕ N│1 з Бе 2220+ЭЕ N│2 з Бе 2265+вЗ "INVALID ANSWER"+*зБе 2190+OмЕ V│0 з ║ V│ASQR(RнRлXнX) : В **+m▒Е A│0 з ║ A│Vо Ы(RнRлXнX)+Й╢Е R│0 ░ V┤AнX з Бе 2360+л╗Е R│0 з ║ R│ Ы(VнVмAнAнXнX)оA+╨└Е (C│0 ▒ F│0) ░ V┤│AнR з Бе 2360+√┼Е C│0 з ║ C│Aо(6.28нFн Ы(VнVмAнAнRнR)),&╩Е F│0 з ║ F│Aо(6.28нCн Ы(VнVмAнAнRнR)),A╧║ D│ Ф(1о(6.28нFнCнR)),M╘Бе 2305,v┘Е V│0 з ║ V│AнRнXо Ы(RнRлXнX) : В **,Ъ▐Е A│0 з ║ A│Vн Ы(RнRлXнX)о(RнX),╖уЕ R│0 ░ AнX┤│V з Бе 2360,█шЕ R│0 з ║ R│VнXо Ы(AнAнXнXмVнV)-эЕ (│0 OF F│0) ░ AнR┤V з Бе 2360--ЄЕ C│0 з ║ │ Ы(
нAнRнRмVнV)о(6.28нFнVнR)-D№║ D│ Ф(Rн6.28нFнC)-y	
З "VOLTAGE ACROSS RC CIRCUIT=";V;" VOLTS" : В **-Ф	З "CURRENT=";A;" AMPS"-╢	З "RESISTOR VALUE=";R;" OHMS"-▄	З "CAPACITOR VALUES=";C;" FARADS"-ў	З "FREQUENCY=";F;" HZ"./	З "CURRENT-VOLTAGE PHASSE ANGLE=";Dн57.3;" DEGREES".^	З "POWER CONSUMPTION="VнAн Х(D)о2;" WATTS".▓	$З "INPUT 1 TO REPEAT OHM'S LAW COMPUTATION, 2 TO GO TO RC CIRCUITS MENU" : В **.║	)Й N.╬	.Е N│1 з Бе 2150.т	3Е N│2 з Бе 2000.°	8З "INVALID INPUT"/	=Бе з Бе 3000/
 З "INVALID INPUT"/+
%Бе 3340/8
*Ю : В **/`
/З "VOLTAGE PHASE ANGLE COMPUTATION"/В
4З "INPUT 0 FOR UNKNOWN VALUE"/О
9Бж 3615/─
>З "INPUT INDUCTOR VOLTAGE PHASE ANGLE IN DEGREES"/╠
CЙ D/р
H║ D│м В(Dо57.3)/¤
MЕ D│0 з ║ D│ Ф(XоR)м1.570#
RЕ L│0 з ║ L│Rо(6.28нF)н Ц(Dл1.57)0I
WЕ F│0 з ║ F│Rо(6.28нL)н Ц(Dл1.57)0f
\Е R│0 з ║ R│Xо Ц(Dл1.57)0Я
aЗ "INDUCTOR VOLTAGE LEADS VT BY ";мDн57.3;" DEGREES"0р
fЗ "RESISTOR VOLTAGE LAGS BEHIND VT BY ";Dн57.3л90;" DEGREES"1
kЗ "RESISTOR VALUE=";R;" OHMS"1'
pЗ "INDUCTOR VALUE=";L;" HENRIES"1B
uЗ "FREQUENCY=";F;" HZ"1Т
zЗ "INPUT 1 TO REPEAT PHASE COMPUTATION, 2 TO GO TO RL CIRCUITS MENU" : В **1Ъ
Й N1о
ДЕ N│1 з Бе 33701┬
ЙЕ N│2 з Бе 30001╫
ОЗ"INVALID INPUT"1у
УБе 34501Ё
ШЮ : В **2
ЭЗ "VOLTAGE DIVIDER COMPUTATION"26
вЗ "INPUT 0 FOR UNKNOWN VALUE"2B
зБж 36152d
мЗ "INPUT VOLTAGE VT IN VOLTS"2l
▒Й T2Ю
╢З "INPUT VOLTAGE VL ACROSS INDUCTOR IN VOLTS"2ж
╗Й N2╞
└Е N│0 з ║ N│TнXо Ы(RнRлXнX)2р
┼Е R│0 ░ T┤N з Бе 36053
╩Е R│0 з ║ R│Xн Ы(TнTмNнN)оN3
╧Е FнL│0 ░ T┤│N з Бе 36053F
╘Е L│0 з ║ L│NнRо)6.28нFн Ы(TнTмN:N))3o
┘Е F│0 з ║ F│NнRо(6.28нLн Ы(TнTмNнN))3П
▐Е T│0 з ║ T│Nн Ы(RнR;XнX)оX3ж
уЗ "VT=";T;" VOLTS"3╚
шЗ "RESISTOR VALUE=";R;" OHMS"3э
эЗ "INDUCTOR VALUE=";L;" HENRIES"4
ЄЗ "FREQUENCY=";F;" HZ"44
ўЗ "VOLTAGE ACROSS INDUCTOR=";N;" VOLTS"4n
№З "VOLTAGE ACROSS RESISTOR=";TнRо Ы(RнRлXнX);" VOLTS"4╚
З "INPUT 1 TO REPEAT VOLTAGE DIVIDER COMPUTATION, 2 TO GO TO RL CIRCUITS MENU" : В **4╨Й M4фЕ M│1 з Бе 34804°Е M│2 з Бе 30005З "INVALID INPUT"5Бе 35855fЗ "INPUT RESISTOR VALUE IN OHMS" : В ** SUBROUTINE TO INPUT R, L, AND F5n$Й R5Ц)З "INPUT INDUCTOR VALUE IN HENRIES"5Ю.Й L5┐3З "INPUT FREQUENCY IN HERTZ"5╟8Й F5у=Е FнL┤▓0 з ║ X│6.28нFнL5щBР                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                    	╠&8
В LISTING # 6 :INDUCTOR-CAPACITOR CIRCUITS PROGRAM&EаЮ : В **&АеЗ "INDUCTOR-CAPACITOR CIRCUITS COMPUTATIONS. OPTIONS:"&║кЗ "1) SERIES PARALLEL IMPEDANCE AT A GIVEN FREQUENCY"&╧пЗ "2) RESONANCE"&ф┤З "3) OHM'S LAW"& ╣З "4) VOLTAGE DIVIDER"'#╛З "5) GO TO MASTER MENU" : В **'N├З "INPUT NUMBER OF YOUR CHOICE" : В **'V╚Й N'j═Е N│1 з Бе 4080'~╥Е N│2 з Бе 4135'Т╫Е N│3 з Бе 4200'ж▄Е N│4 з Бе 4285'┐сЕ N│5 з : О "MASTER"'╒цЗ "INVALID INPUT"'сыБе 4035'юЁЮ : В **(%їЗ "SERIES/PARALLEL IMPEDANCE AT A GIVEN FREQUENCY"(1·Бж 4350(U З "SERIES IMPEDANCE=";D;" OHMS"(З "PARALLEL INPEDANCE=";YнXоD;" OHMS"(╙	З "INPUT 1 TO REPEAT IMPEDANCE COMPUTATION, 2 TO GO TO LC CIRCUITS MENU" : В **(█Й N(яЕ N│1 з Бе 4080)Е N│2 з Бе 4000)З "INVALID INPUT")%"Бе 4105)2'Ю : В **)P,З "RESONANCE COMPUTATION")r1З "INPUT 0 FOR UNKNOWN VALUE")~6Бж 4350)╗;Е F│0 з З"RESONANT FREQUENCY=";1о(6.28319н Ы(LнC));" HZ")ю@Е C│0 з З "CAPACITOR=";1о(FнFн39.5нL;" FARADS"*"EЕ L│0 з З "INDUCTOR=";1о(FнFн39.5нC);" HENRIES"*vJЗ "INPUT 1 TO REPEAT RESONANCE COMPUTATION, 2 TO GO TO LC CIRCUITS MENU" : В ***~OЙ N*ТTЕ N│1 з Бе 4135*жYЕ N│2 з Бе 4000*╝^З "INVALID INPUT"*╚cБе 4170*╒hЮ : В ***єmЗ "OHM'S LAW COMPUTATION"* rБж 4350+?wЗ "INPUT VOLTAGE ACROSS LC CIRCUIT IN VOLTS (0 IF UNKNOWN)"+G|Й V+КБЗ "INPUT CURRENT I THROUGH LC CIRCUIT IN AMPS (0 IF UNKNOWN)"K+ТЖЙ A+╬ЛЕ V│0 з З "VOLTAGE ACROSS SERIES CIRCUIT=";AнD;" VOLTS",РЕ V│0 з З "VOLTAGE ACROSS PARALLEL CIRCUIT=";AнYнXоD;" VOLTS,KХЕ A│0 з З "CURRENT THROUGH SERIES CIRCUIT=";VоD;" AMPS",ПЪЕ A│0 з З "CURRENT THROUGH PARALLEL CIRCUIT=";VнDо(YнX);" AMPS",уЯЗ "INPUT 1 TO REPEAT OHM'S LAW COMPUTATION, 2 TO GO TO LC CIRCUITS MENU" : В **,ыдЙ N, йЕ N│1 з Бе 4200-оЕ N│2 з Бе 4000-)│З "INVALID INPUT"-5╕Бе 4255-B╜Ю : В **-g┬З "VOLTAGE DIVIDER COMPUTATI0NS"-s╟Бж 4350-е╠З "INPUT VOLTAGE VT ACROSS SERIES LC CIRCUIT"-н╤Й V-▌╓З "VOLTAGE ACROSS INDUCTOR=";VнYоD;" VOLTS".█З "VOLTAGE ACROSS CAPACITOR=";VнXоD;" VOLTS".hрЗ "INPUT 1 TO REPEAT VOLTAGE DIVIDER COMPUTATION, 2 TO GO TO LC CIRCUITS MENU" : В **.pхЙ N.ДъЕ N│1 з Бе 4285.ШяЕ N│2 з Бе 4000.оЇЗ "INVALID INPUT".║∙Бе 4320/	■З "INPUT INDUCTOR VALUE IN HENRIES" : В ** SUBROUTINE TO INPUT LD│YмX/╡Р /w║З "INPUT VOLTAGE VT (PEAK) INVOLTS (0 IF UNKNOWN)" : В ** SUBROUTINE TO COMPUTE OHM'S LAW GIVEN Z AND T/┐Й V/╡─З "INPUT CURRENT I (PEAK) IN AMPS (0 IF UNKNOWN)"/╜╔Й A/╤╬Е V│0 з ║ V│AнZ/х╙Е A│0 з ║ A│VоZ0╪З "VOLTAGE VT=";V;" VOLTS"0!▌З "CURRENT I=";A;" AMPS"0UтЗ "POWER CONSUMPTION="; В(VнAн Х(T)о2);" WATTS"0[чР0╦ь║ Z│RнYнXо Ы(YнYнXнXлRнRнDнD) : В ** SUBROUTINE TO COMPUTE IMPEDANCE (Z) AND PHASE ANGLE (T) FOR FIGURE 9.10сё║ T│ Ф(RнDо(YнX))0чЎР10√║ Z│ Ы(RнRнлDнD) : В ** SUBROUTINE TO COMPUTE Z AND T FOR FIGURE 9.21@║ T│ Ф(DоR)1FР1▒
║ Z│ Ы((RнRлYнY)н(SнSлXнX)о((RлS)н(RлS)лDнD)) : В SUBROUTINE TO COMPUTE Z AND T FOR FIGURES 9.3 AND9.41ё║ T│ Ф((Xн(RнRлYнY)мYн(SнSлXнX))о(Rн(SнSлXнX)лSн(RнRлYнY)))1ўР2З "INPUT 1 TO REPEAT CALCULATION, 2 TO GO TO RLC CIRCUITS MENU" : В ** SUBROUTINE TO DETERMINE ACTION AFTER CALCULATION IS COMPLETE2ЗЙ N2Ы#Е N│1 ▒ N│2 з Р2▒(З "INVALID INPUT"2╜-Бе 5145                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                r&4
В LISTING # 8 : OPERATIONAL AMPLIFIERS PROGRAM&A|Ю : В **&vБЗ "OPERATIONAL AMPLIFIER COMPUTATIONS. OPTIONS:"&зЖЗ "1) INVERTING AMPLIFIER WITHOUT CAPACITOR"&╒ЛЗ "2) INVERTING AMPLIFIER WITH CAPACITOR"'РЗ "3) CUTOFF FREQUENCY FOR INVERTING AMPLIFIER WITH CAPACITOR"';ХЗ "4) NON-INVERTING AMPLIFIER"'gЪЗ "5) GOTO MASTER MENU" : В MASTER MENU'ЛЯЗ "INPUT NUMBER OF YOUR CHOICE"'УдЙ N'зйЕ N│1 з Бе 5580'╗оЕ N│2 з Бе 5680'╧│Е N│3 з Бе 5785'ф╕Е N│4 з Бе 5880 '¤╜Е N│5 з : О "MASTER"(┬З "INVALID INPUT"(╟Бе 5535(,╠Ю : В **(Z╤З "INVERTING AMPLIFIER WITHOUT CAPACITOR"(С╓З "INPUT RESISTOR R1 VALUE IN OHMS (0 IF UNKNOWN)"(Щ█Й R(ерБж 5950(╨хЗ "INPUT SOURCE RESISTANCE RS IN OHMS"(╪ъЙ S(ЁяЕ G│0 з ║ G│Tо(RлS))ЇЕ T│0 з ║ T│Gн(RлS))∙Е R│0 з ║ R│TоGмS)8■З "VOLTAGE GAIN= ";мG)WЗ "VALUE OF R1=";R;" OHMS")vЗ "VALUE OF R2=";T;" OHMS")г
З "VALUE OF R3=";(RлS)нTо(RлSлT);" OHMS")ъЗ "INPUT 1 TO REPEAT CALCULATION, 2 TO GO TO OP-AMP MENU" : В **OK)ЄЙ N*Е N│1 з Бе 5580*!Е N│2 з Бе 5500*0&З "INVALID INPUT"*<+Бе 5650*I0Ю : В ***t5З "INVERTING AMPLIFIER WITH CAPACITOR"*Я:З "INPUT SOURCE RESISTANCE RS IN OHMS"*з?Й S*╧DЗ "INPUT RESISTOR R1 VALUE IN OHMS"*╫IЙ R*уNБж 5950+SЗ "INPUT CAPACITOR VALUE IN FARADS"+XЙ C+4]З "INPUT FREQUENCY IN HERTZ"+<bЙ F+\gЕ FнCнR│0 ▒ TлG│0 з Бе 5775+жlЕ T│0 з З "RESISTORS R2 AND R3 BOTH =";GнSOR((RлS)л1 З(39.5нFнFнCнC))+щqЕ G│0 з З "VOLTAGE GAIN= ";мTо Ы((RлS)н(RлS)л1о(39.5нFнFнCнC)),vЕ T┤▓0 з З "RESISTOR R3=";T;" OHMS",X{З "INPUT 1 TO REPEAT CALCULATION, 2 TO GO TO OP-AMP MENU" : В **OK,`АЙ N,tЕЕ N│1 з Бе 5680,ИКЕ N│2 з Бе 5500,еПЗ "INVALID INPUT" : В **,▒ФБе 5755,╛ЩЮ : В **,■ЮЗ "CUTOFF FREQUENCY FOR INVERTING AMPLIFIER WITH CAPACITOR"-/гЗ "INPUT VALUE OF R1 IN OHMS (0 IF UNKNOWN)"-7иЙ R-bнЗ "INPUT SOURCE RESISTANCE RS IN OHMS"-j▓Й S-б╖З "INPUT CAPACITOR VALUE IN FARADS (0 IF UNKNOWN)"-й╝Й C-╫┴З "INPUT CUTOFF FREQUENCY (O IF UNKNOWN)"-▀╞Й F.╦Е F│0 з З "CUTOFF FREQUENCY=";1о(6.28н(RлS)нC);" HZ".R╨Е R│0 з З "RESISTOR R1 VALUE=";1о(6.28нFнC)мS;" OHMS".О╒Е C│0 з З "CAPACITOR VALUE=";1о(6.28нFн(RлS));" FARADS".╠┌З "INPUT 1 TO REPEAT CALCULATION, 2 TO GO TO OP-AMP MENU".╘▀Й N.шфЕ N│1 з Бе 5785.№щЕ N│2 з Бе 5500/OW RECOMMENDED LIMIT OF 5E-10 FARADS"/Е░З "INPUT 1 TO REPEAT MONOSTABLE MULTIVIBRATOR CALCULATION, 2 TO GO TO 555 TIMER MENU" : В **/Н╡Й N/б║Е N│1 з Бе 6230/╡┐Е N│2 з Бе 6000/╦─З "INVALID INPUT"/╫╔Бе 6320                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                      >&

Т150,18&PRT│0:Ю:З &<З"1) ENTER LOWPASS  DESIGN"&\(З"2) ENTER HIGHPASS DESIGN"&|2З"3) ENTER BANDPASS DESIGN"&Ш<З"4) LOWPASS SCHEMATIC"&╡FЗ"5) HIGHPASS SCHEMATIC"&╥PЗ"6) BANDPASS SCHEMATIC"'ZЗ"STAGE GAIN SHOULD BE BELOW 10   FOR BEST RESULTS."'/dЗ"THIS IS A BUTTERWORTH FILTER"'RnЗ"ENTER FUNCTION NUMBER ";:Й A'wxИ A Бе 140,250,350,1080,1400,660'ЧВЗ"INVALID TRY AGAIN":Бе 110'╡МЮ:З"             LOWPASS"'█ЦЙ"ENTER THE DESIRED STAGE GAIN";H(
аЙ"ENTER CUTOFF FREQUENCY IN HZ";F(0кЙ"ENTER FEEDBACK CAPACITOR <C2> IN MFD";C2(B┤C2│C2о1000000(_╛R2│.707о(2н3.14159нFнC2)(o╚R3│R2о(Hл1)({╥R1│R2оH(Т▄C1│(1лH)нC2о.707п2(жцC1│C1н1000000:Ю(▒ЁБе 930(╧·Ю:З"            HIGHPASS"(ё
Й"ENTER DESIRED STAGE GAIN";H)
Й"ENTER CUTOFF FREQUENCY HZ";F)>
Й"ENTER INPUT CAPACITOR C2 IN MFD";C2)P
"C2│C2о1000000)u
,R1│(2нHл1)о(4н3.14159н.707нFнC2))Ш
6R2│.707о(3.14159нFнC2н(2л1оH)))д
@C1│C2оH)╢
JC1│C1н1000000)┬
TБе 1270)р
^Ю:З"            BANDPASS"*
hЙ"ENTER THE DESIRED GAIN";H*#
rЙ"ENTER CENTER FREQUENCY HZ";F*5
|W│2н3.14159нF*R
ЖЙ"ENTER THE DESIRED Q";Q*|
РЙ"ENTER INPUT CAPACITOR C2 IH MFD";C2*О
ЪC2│C2о1000000*╗
дЙ"ENTER FEEDBACK CAPACITOR C1 IN MFD";C1*═
оC1│C1о1000000*▀
╕R1│Qо(HнWнC1)*Ў
┬T│R1о(Qн(C1лC2)нW)+
╠B│R1м1о(Qн(C1лC2)нW)+
╓R2│TоB+5
рR3│Qн(C1лC2)о(C1нC2нW)+;
ъЮ+O
ЇЕA$│"Y"з PRT│м2+x
■З # PRT,"VALUES NEEDED FOR BANDPASS"+бЗ # PRT,═"<R1> #######,#.## OHMS";R1+╩З # PRT,═"<R2> #######,#.## OHMS";R2+ЇЗ # PRT, ═"<R3> #######,#.## OHMS";R3,#&З # PRT:З # PRT,"YOU PICKED THE FOLLOWING",;0З # PRT,"GAIN OF";H,Z:З # PRT,"FREQUENCY";F;"HZ",pDЗ # PRT,"Q  OF";Q,гNЗ # PRT,═"INPUT <C2> ####.#### MFD";C2н1000000,┌XЗ # PRT, ═"FEEDBACK <C1> ####.#### MFD";C1н1000000-
bЙ "DO YOU WANT A PRINT Y OR N";A$:ЕA$│"Y"з 500-1lЗ:З"PRESS ANY KEY FOR SCHEMATIC-PvЗ"PRESS <R> KEY TO REPEAT -uАЗ"ANY KEY TWICE FOR INSTRUCTIONS-ККA$│ Т:ЕA$│""з650-УФ╚4,1-ЩЮ╝-ви┐1,0-╝▓╞"BM130,50 D100E50H50-Ё╝╞"BM120,65 U35R13E5F5E5F5E5F5R17D65BD4R10H5F5G5.╞╞"BM125,65 L25D5U10D5BL10U5D10U5L25.E╨╞"BM64,65 L5D15L5H5G5H5G5H5G5L8D45F5H5G5.r┌╞"BM80,65 U60R30U5D10U5BR10U5D10U5R55D25.йф╞"BM80,65 D25G5F5G5F5G5F5D5R5L10R5BD4R4L8R4BD4R2L4.┘ю╞"BM125,140 L20D25L5R10L5BD4L4R8L4BD4L2R4L2/°╞"BM140,45U9E1R4F1D4G1L4R2F3D1BU2 √&2
В LISTING # 11 : TRANSISTOR CIRCUITS PROGRAM&?@Ю : В **&EEХ&oJЗ "TRANSISTOR CIRCUITS MENU OPTIONS:"&ЭOЗ "1) TRANSISTOR CIRCUIT CHARACTERISTICS"&┼TЗ "2) TRANSISTOR CIRCUIT SELECTION"&эYЗ "3) EMITTER RESISTOR COMPUTATION"'^З "4) GO TO MASTER MENU" : В ** MASTER MENU'#cЗ'OhЗ  "INPUT NUMBER OF YOUR CHOICE" : В **'WmЙ N'krЕ N│1 з Бе 8080'wЕ N│2 з Бе 8450'У|Е N│3 з Бе 8630'мБЕ N│4 з : О "MASTER"'┬ЖЗ "INVALID INPUT"'╬ЛБе 8040'█РЮ : В **'сХХ(ЪЗ "TRANSISTOR CIRCUIT CHARACTERISTICS"(>ЯЗ "WHICH TYPE OF CIRCUIT DO YOU WISH TO USE?"(`дЗ "1) COMMON EMITTER CIRCUIT"(РйЗ "2) COMMON EMITTER WITH EMITTER RESISTOR"(┤оЗ "3) COMMON COLLECTOR CIRCUIT"(╙│З "4) COMMON BASE CIRCUIT"(┘╕З)╜З "INPUT NUMBER OF YOUR CHOICE" : В **)┬Й N)2╟Е N│1 ▒ N│2 ▒ N│3 ▒ N│4 з Бе 8150)H╠З "INVALID INPUT")T╤Бж 8125)a╓Ю : В **)И█Е N│1 з З "COMMON EMITTER CIRCUIT")╜рЕ N│2 з З "COMMON EMITTER WITH EMITTER RESISTOR")цхЕ N│3 з З "COMMON COLLECTOR CIRCUIT"*
ъЕ N│4 з З "COMMON BASE CIRCUIT"*PяЗ "INPUT TRANSISTOR SMALL SIGNAL CURRENT GAIN HFE (0 IF UNKNOWN)"*XЇЙ F*k∙Е F│0 з ║ F│50*Х■З "VALUE OF LOAD RESISTOR RL IN OHMS"*Э Й L*╨ З "VALUE  BIAS RESISTOR R1 IN OHMS (0=NONE)"*╪ 
Й X*ё Е X│0 з ║ X│0.000001+$ З "VALUE OF BIAS RESISTOR R2 IN OHMS (0=NONE)"+, Й Y+E !Е Y│0 з ║ Y│0.000001+U &║ A│1оXл1оY+a +║ R│1оA+Ж 0З "SOURCE RESISTANCE RS IN OHMS"+О 5Й S+г :Е N┤▓2 з Бе 8265+╨ ?З "VALUE OF EMITTER RESISTOR RE IN OHMS"+╪ DЙ E, IЗ "TRANSISTOR INPUT IMPEDANCE (HIE) IN OHMS (0=UNKNOWN)" : В **,$ NЙ C,7 SЕ C│0 з C│1100,S XЕ N┤▓1 ░ N┤▓3 з Бе 8305,У ]З "TRANSISTOR OUTPUT CONDUCTANCE (HOE) IN MHOS (0=UNKNOWN)",Ы bЙ Z,┤ gЕ Z│0 з ║ Z│0.000001,└ l║ T│1оZ,═ qЗ : В **,т vЕ N┤▓1 з Бе 8330,  {║ K│Rо(RлC)н(мFнTо(TлL))-	 А║ U│T- Е║ P│Sл1о(Aл1оC)-9 КЕ N┤▓2 з Бе 8345 : В **-T П║ K│мFнRо(RлCл(1лF)нE)-r Ф║ P│Sл1о(Aл1о(Cл(1лF)нE))-О ЩЕ N┤▓3 з Бе 8370 : В **-е Ю║ H │(1лF)о(1лZнL)-╗ г║ K│HнRо(RлCлHнL)-╒ и║ P│Sл1о(Aл1о(CлHнL))-ў н║ U│1о((1лF)о(SнRо(SлR)лC)лZ). ▓Е N┤▓ 4 з Бе 8385 : В **.2 ╖║ K│Fо(1лF)нRо(RлCо(1лF)).J ╝║ P│Sл1о(Aл(1лF)оC).p ┴З "THE CURRENT GAIN IS ";K : В **.Ъ ╞З "THE INPUT IMPEDANCE IS ";P;" OHMS".╜ ╦З "THE VOLTAGE GAIN IS ";KнLоP.р ╨З "THE OUTPUT RESISTANCE IS ";.ў ╒Е N│2 ▒ N│4 з З L;/ ┌Е N│1 ▒ N│3 з З UнLо(UлL);/$ ▀З " OHMS"/С фЗ "INPUT 1 TO REPEAT TRANSISTOR CIRCUIT CHARACTERISTICS COMPUTATION, 2 TO GO TO TRANSISTOR MENU." : В **/Щ щЙ L/н юЕ L│1 з Бе 8080/┴ єЕ L│2 з Бе 8000/╫ °З "INVALID INPUT"/у ¤Бе 8420/Ё!Ю : В **/Ў!Х0!З "TRANSISTOR CIRCUIT SELECTION"0^!З "INPUT TRANSISTOR INPUT IMPEDANCE (HIE) IN OHMS (0=UNKNOWN)"0f!Й Z0{!Е Z│0 з ║ Z│11110╛! З "INPUT TRANSISTOR SMALL SIGNAL CURRENT GAIN HFE (0=UNKNOWN)"0╞!%Й F0┘!*Е F│0 з ║ F│511!/З "INPUT LOAD RESISTANCE RL IN OHMS (0=DON'T CARE)"1!4Й L1D!9З "INPUT SOURCE RESISTANCE RS IN OHMS"1L!>Й S1~!CЗ "INPUT DESIRED CURRENT GAIN (1=DON'T CARE)"1Ж!HЙ K1╕!MЗ "INPUT DESIRED VOLTAGE GAIN (1=DON'T CARE)"1└!RЙ V1■!WЗ "INPUT DESIRED OUTPUT IMPEDANCE IN OHMS (1=DON'T CARE)"2!\Й U2B!aЗ "INPUT DESIRED INPUT IMPEDANCE IN OHMS (1=DON'T CARE)2J!fЙ E2и!kЗ "INPUT DESIRED OUTPUT POLARITY (-1 FOR INVERTED, 0 FOR DON'T CARE, 1 FOR NON-INVERTED)"2░!pЙ P2╢!uЗ2▀!zЗ "THE FOLLOWING CIRCUITS MAY WORK:"3Z!Е P┤│0 ░ V│▓1 ░ K│▓1 ░ (F│51 ▒ K┤│Fн1.2) ░ (E│1 ▒ Z│1111 ▒ E┤SлZн1.2) ░ (L│0 ▒ U│1 ▒  В(UмL)┤Uо5) з З "COMMON EMITTER"3ї!ДЕ P│▓0 ░ K│▓1 ░ (F│51 ▒ K┤│1лFн1.2) ░ V┤│1 ░ (E│1 ▒ L│0 ▒ Z│1111 ▒ E▓ZлS) ░ (U│1 ▒ L│0 ▒ F│51 ▒ Z│1111 ▒  В(Uм(SлZ)о(1лF))┤Uо5) з З "COMMON COLLECTOR"4Z!ЙЕ P│▓0 ░ K┤│1 ░ V│▓1 ░ (E│1 ▒ Z│1111 ▒ F│51 ▒ E▓Z) ░ (U│1 ▒ L│0 ▒  В(UмL)┤Uо5) з З "COMMON BASE"4х!ОЕ P┤│0 ░ K│▓1 ░ (F│51 ▒ K┤│Fн1.2) ░ V│▓1 ░ (E│1 ▒ Z│1111 ▒ E▓Z) ░ (L│0 ▒ U│1 ▒  В(UмL)┤UоT) з З "COMMON EMITTER WITH EMITTER RESISTOR"4ы!УЗ5E!ШЗ "INPUT 1 TO REPEAT TRANSISTOR CIRCUIT SELECTION, 2 TO GO TO TRANSISTOR MENU" : В **5M!ЭЙ N5a!вЕ N│1 з Бе 84505u!зЕ N│2 з Бе 80005Л!мЗ "INVALID INPUT"5Ш!▒Бе 8600 5е!╢Ю : В **5л!╗Х5╨!└З "EMITTER RESISTOR COMPUTATION"6!┼З "INPUT DESIRED VOLTAGE GAIN (0= DON'T CARE)"6!╩Й V6!╧Е V│0 з Бе 86706U!╘З "INPUT LOAD RESISTOR RL IN OHMS (0=DON'T CARE)"6]!┘Й L6й!▐З "INPUT DESIRED CIRCUIT INPUT IMPEDANCE IN OHMS (0=DON'T CARE)" : В **6▒!уЙ R6┼!шЕ R│0 з Бе 87207!эЗ "INPUT TRANSISTOR'S INPUT IMPEDANCE IN OHMS (0=UNKNOWN)"OK7!ЄЙ Z7#!ўЕ Z│0 з ║ Z│11117[!№З "INPUT TRANSISTOR'S CURRENT GAIN HFE (0=UNKNOWN)"7c"
Й F7v"Е F│0 з ║ F│517о"Е V│0 з З "EMITTER RESISTOR = ";(RмZ)о(1лF);" OHMS"7я"Е R│0 ░ VнL┤▓0 з З EMITTER RESISTOR │ ";L/V;" OHMS" : REM **8C"Е R│0 ░ L│0 A(Y,Mл2)│1/%+Л Y/ %0А L│1 е M/,%5║ K│Kл1/T%:Е A(L,K)┤▓0 ▒ L┤▓M з Бе 9545 : В **/`%?║ K│Kл1/l%DБе 9530/У%IЕ A(L,K)│0 ░ L┤▓M з Бе 9730 : В **/и%NА X│Mл1 е 1 й м1/├%S║ A(L,X)│A(L,X)оA(L,K)/╦%XЛ X/┘%]А J│1 е M/э%bЕ J│L з Бе 95950%gА X│Mл1 е 1 й м10$%l║ A(J,X)│A(J,X)мA(J,K)нA(L,X)0W%qЕ  В(A(J,K)) ┤  В(A(J,Xл1))о10000 з ║ A(J,X)│00_%vЛ X0n%{Л J : В **0v%АЛ L0Г%ЕЮ : В **0С%КА Y│1 е M0Ы%П║ S│00й%ФА X│1 е M0┴%ЩЕ A(Y,X)┤▓0 з ║ S│10╔%ЮЛ X0ы%гЕ S│0 ░ A(Y,Mл1)┤▓0 з Бе 98000є%иЛ Y1
%нА L│1 е M1%▓Е A(L,L)┤▓1 з Бе 97901#%╖Л L11%╝А Y│1 е M1?%┴А X│1 е M1`%╞Е X┤▓Y ░ A(Y,X)┤▓0 з Бе 97901h%╦Л X1p%╨Л Y1~%╒А Y│1 е M1Щ%┌З "X";Y;" = ";A(Y,Mл1)1б%▀Л Y2%фЗ "INPUT 1 TO REPEAT SIMULTANEOUS EQUATIONS COMPUTATION, 2 TO GO TO GENERAL MATH MENU" : В **2%щЙ N2%юЕ N│1 з Бе 929023%єЕ N│2 з Бе 90002I%°З "INVALID INPUT"2U%¤Бе 97002l&А H│Lл1 е M : В **2Ж&Е A(H,K)┤▓0 з Бе 97602О&Л H2Ъ&║ K│Kл12░&Е K▓Mл1 з Бе 96052╝&Бе 95302╙& А G│1 е Mл1 : В **2т&%║ T│A(L,G)2Ў&*║ A(L,G)│A(H,G)3&/║ A(H,G)│T3
&4Л G3&9Бе 95303B&>З "EQUATIONS NOT INDEPENDENT" : В **3N&CБе 97003u&HЗ "EQUATIONS CONTRADICTORY" : В **3Б&MБе 97003З&zЮ3ж&{В*************************3╟&|В** CALCULATOR SUBROUTINE **3т&}В** BY FRANK TURNER **3■&~В** RAINBOW FEB 1988 **4&В*************************47&АМP(90):CF$│"######.#"4╦&БЖ129,131,131,131,131,131,131,131,131,130,133,96,96,96,96,96,96,96,96,138,132,140,140,140,140,140,140,140,140,136,32,49,128,50,32,32,51,32,52,325&ВЖ32,53,32,54,32,32,55,32,56,32,32,57,32,48,32,32,32,32,61,325/&ГЖ32,43,32,45,32,32,47,32,42,325l&ДЖ32,32,32,32,32,32,32,32,32,32,3,1,12,3,21,12,1,20,15,185z&ЕY│992:A│05д&ЖАX│Yл208 е Yл217:P(A)│ Ж(X):НXX:ТX,XX5▒&ЗA│Aл1:ЛX5╫&ИY│Yл32:ЕY▓1279 Бе 9865 :Д Бе 98625ў&ЙY│0:B$│"":D$│"":O$│"":C$│""6&КC$│ Т:Е C$│""з98666-&ЛЗ@209лY,C$;:B$│B$лC$:Y│Yл16x&МЕ C$│"*" ▒ C$│"/" ▒ C$│"+" ▒ C$│"-" з З@209,"       "C$;:O$│C$:Бе 98706Д&НБе 98666М&ОY│06в&ПC$│ Т:ЕC$│""з98716┴&РЗ@209лY,C$;:D$│D$лC$:Y│Yл16Ї&СЕ C$│"=" ░ O$│"*" з A│( Й(B$))н( Й(D$)):Бе98787'&ТЕ C$│"=" ░ O$│"/" з A│( Й(B$))о( Й(D$)):Бе98787Z&УЕ C$│"=" ░ O$│"+" з A│( Й(B$))л( Й(D$)):Бе98787Н&ФЕ C$│"=" ░ O$│"-" з A│( Й(B$))м( Й(D$)):Бе98787Ш&ХБе98717к&ЦЗ@209,═CF$;A;7└&ЧC$│ Т:ЕC$│""з98797ш&ШЕC$│"C" з З@209,"        ";:Бе 98657■&ЩЕC$│ Л(32) Бе98838
&ЪБе 98798&ЫY│992:A│085&ЬАX│Yл208 е Yл217:ТX,P(A)8B&ЭA│Aл1:ЛX8g&ЮY│Yл32:ЕY▓1279 з 9000 :Д Бе 9884                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                     HMS";R18-
З # PRT,═"R2 #######,#.## OHMS";R28PЗ # PRT,═"C1 ####.#### MFD";C18З # PRT:З # PRT,"YOU PICKED THE FOLLOWING"8Ч(З # PRT,"GAIN OF";H8╢2З # PRT,"FREQUENCY";F;"HZ"8Є<З # PRT, ═"INPUT CAPACITOR<C2>####.#### MFD";C2н10000009&FЙ "DO YOU WANT A PRINT Y OR N";A$:ЕA$│"Y"з 12709KPЗ:З"PRESS ANY KEY FOR SCHEMATIC"9nZЗ"PRESS <R> KEY FOR COMPONETS"9УdЗ"ANY KEY TWICE FOR INSTRUCTIONS9мnA$│ Т:Е A$│"" з 13909╡x╚4,19╗В╝9─М┐1,09▐Ц╞"BM130,50 D100E50H50:а╞"BM120,65 U35R13E5F5E5F5E5F5R17D65BD4R10H5F5G5::к╞"BM125,65 L25D5U10D5BL10U5D10U5L25:o┤╞"BM64,65 L5D15L20U5D10U5BL10U5D10U5L10D55H5F5E5:Ь╛╞"BM80,65 U55R30U5D10U5BR10U5D10U5R55D20:╙╚╞"BM80,65D20G5F5G5F5G5F5D20L5R10L5BD4L4R8L4BD4L2R4;
╥╞"BM125,140 L20D25R5L10R5BD4R4L8R4BD4R2L4;6▄╞"BM108,28 E1U1D1G1L4H1U8E1R4F1D1BR7BD8R6L3U10G3;fц╞"BM141,45 U9E1R4F1D4G1L4R2F3D1BR7R6L3U10G3;гЁ╞"BM96,85 E1U1D1G1L4H1U9E1R4F1D1BR7BD9R5L5U2E5U3H1L4G1D1;▄·╞"BM88,105 U9E1R4F1D4G1L4R2F3D1BR7R5L5U2E5U3H1L4G1D1<╞"BM29,105 E1U1D1G1L4H1U9E1R4F1D1BR7BD9R5L5U2E5U3H1L4G1D1<т╞" BM146,180 U10D5R5U5D10BR7R4L2U10L2R4BR7BD10R4E1U3H1L2D1BL3D4U9E1R4F1D1BR7D8U10D4R5U4D10BR7U10R4F1D3G1L4BD5BR12U8E2R3F2D8U5L5BD5BR12BU2D1F1R3E1U3H1L3H1U3E1R3F1D1BR7BD6D1F1R3E1U3H1L3H1U3E1R3F1D1<·A$│ Т:Е A$│""з 1560="Е A$│"R" з 1270=,Бе840==6Й"AGAIN <Y/N>";X$:ЕX$│"Y"з20:Д К                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                B&'
З"INDUCTANCE-CAPACITANCE PROGRAM"&H:ГCOPYRIGHT 1982 BY C. MOTES&NЗ&v(З"WHICH PROBLEM DO YOU WANT TO DO?"&Р2З"  1. TUNED CIRCUIT"&░<З"  2. INDUCTIVE REACTANCE"&╤FЗ"  3. CAPACITIVE REACTANCE"&шHЗ"  4. END PROGRAM&ЁPЙ A'RЕ A│4 з 460'1ZЗ"ENTER THE FOLLOWING; ENTER 0 IF NOT KNOWN"'KdЗ"FREQUENCY IN HERTZ"'SnЙ F'cxЕ A│1 з 270'|ВЗ"REACTANCE IN OHMS"'ДМЙ X'ФЦЕ A│2 з 180'даЕ A│3 з 270'окБе 30'╦┤З"INDUCTANCE IN HENRYS";'╙╛Й L'ё╚Е F│0 з F│Xо(2н3.14159нL)(╥Е L│0 з L│Xо(2н3.14159нF)(+▄Е X│0 з X│2н3.14159нFнL(HцЗ"INDUCTANCE IN H IS ";L(gЁЗ"REACTANCE IN OHMS IS ";X(З·З"FREQUENCY IN HERTZ IS ";F(С
Бе 30(░
З"CAPACITANCE IN MICRO F";(╕
Й C(╚
"C│Cо1000000(╪
,Е A│1 з 370(°
6Е X│0 з X│1о(2н3.14159нFнC))
@Е C│0 з C│1о(2н3.14159нFнX))8
JЕ F│O з F│1о(2н3.14159нXнC))H
TC│Cн1000000)l
^З"CAPACITANCE IN MICRO F IS ";C)w
hБе 240)Ф
rЗ"INDUCTANCE IN HENRYS";)Ь
|Й L)ж
~Q│LнC)│
АБж 30030)╤
ЖЕ F│0 з F│1о(2н3.14159нY)) 
РЕ L│0 з L│1о(4н(3.14159н3.14159)н(FнF)нC)*-
ЪЕ C│0 з C│1о(4н(3.14159н3.14159)н(FнF)нL)*=
дC│Cн1000000*a
оЗ"CAPACITANCE IN MICRO F IS ";C*i
╕X│0*t
┬Бе 220*и
╠З"INDUCTANCE-CAPACITANCE PROGRAM  SAYS GOODBYE"*о
╓К*└uNЕ Q│0 з Y│0:Р*╥uXЕ Q▓0 з 30060*ЇubЗ"ROOT OF NEGATIVE NUMBER?":С+ulY│Qн.5:Z│0+uvW│(QоYмY)н.5+*uАЕ (W│0)л(W│Z) з Р+AuКY│YлW:Z│W:Бе 30070                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                            zdВ: HAM CODE<nВ: (C) 1981, TOM RUGG AND PHIL FELDMANHxБе 2000kВW│ К(R$)м39:Е W┤0 ▒ W▓51 з 220ЗМT$│C$(W):Е T$▓"/" з 220иЦА J│1 е  З(T$):W$│ Р(T$,J,1)┐аD│3:Е W$│"." з D│1╔кЗ W$;╙┤а P,Dф╛А D│1 е 30:Л∙╚Л:А J│1 е 60нT:Л╥З" ";:Р▄а 8,8:Р2·А K│1 е  З(P$):R$│ Р(P$,K,1)H
Е  К(R$)│32 з 280W
Бж 130:Л:Рs
З  Л(175);:А J│1 е 90:Л}
"Л:З:РШ
,З"PRESS A KEY TO HEAR"░
6R$│ Т:Е R$│"" з 310╦
@W│ К(R$):Е W│12 з 2100у
JЕ W┤39 ▒ W▓90 з 350¤
TЕ C$(Wм39)┤▓"X" з 360
^а 8,8:Бе 310&
hЗ R$::Бж 130:Бе 310<
РЗ:З"ENTER PHRASE"E
ЪЙ P$\
дЕ  З(P$)│0 з P$│L$r
оЕ P$│"END" з 2100Г
╕Бж 250:L$│P$О
┬Бе 400Щ
ЇБж 900д
■Бж 920─З"WHAT CHARACTER IS THIS ?"╧Бж 130ч&T$│ Т:Е T$│"" з 550■0Е  К(T$)│12 з 2100	:Е  К(T$)│13 з 540	+DЗ T$:Е T$│R$ з 620	ANЗ"NO, IT WAS ";R$	XXЗ"TRY IT AGAIN.":З	cbБе 510	ylЗ"RIGHT!!":Бе 500	О╝З"WHAT'S THIS ?"	в╞P$│"":А J│1 е N	н╨Бж 900	╝┌P$│P$лR$:Л	╨фБж 920:Бж 250:З	чюЙ T$:Е T$│"" з 740	¤°Е T$│"END" з 2100
Е T$│P$ з З"RIGHT!":Бе 700
2З"NO, IT WAS ";P$
GЗ"LISTEN AGAIN."
R Бе 740
sДR│ Д(52)м1:Е C$(R)│"X" з 900
ЕОR$│ Л(Rл39):Р
ЩША J│1 е 800:Л:Р
Я╢К
й╨Х 125
╢┌М C$(51)
╧фА J│0 е 51:Н C$(J):Л
▌юP│190:T│1
ёЮ:P$│"HAM CODE"
З д12);P$:ЗБж 250 N│5:L$│ Л(32)$4З9>З:З"**OPTIONS**"THЗ"1  LEARN CHARACTERS"lRЗ"2  LEARN PHRASES"М\З"3  SINGLE CHARACTER QUIZ"лfЗ"4  MULTI CHARACTER QUIZ"╣pЗ"5  END"╩ОЗ"ENTER 1-5"╨ШЗтвR$│ Т:R│ Д(J)°мЕ  З(R$)│0 з 2210╢R│ Й(R$):Е R┤1 ▒ R▓5 з 22107└И R Бе 300,400,500,700,950Q┬Ж .----.,-.--.-,X,X,Xl╠Ж --..--,-....-,.-.-.-Д╓Ж -..-.,-----,.----ЬрЖ ..---,...--,....-┤ъЖ .....,-....,--...═ЇЖ ---..,----.,---...щ■Ж -.-.-.,X,X,X,..--..,X
Ж .-,-...,-.-.,-..,.
Ж ..-.,--.,....,..,.---
7Ж -.-,.-..,--,-.,---
Q&Ж .--.,--.-,.-.,...,-
i0Ж ..-,...-,.--,-..-
y:Ж -.--,--..                                                                                                                                                                                                                                                                                                                                                                                                    ╛]
В ** RADIO-SYSTEMS **wВ **  CALCULATIONS **СВ **  BY VERN EPP  **лВ ** HOT COCO 9/85 **▒
ХяВ/UPDATED DEC 83 ON THE RECEIVE SIGNAL CALCULATIONS (0DB)ЎЮ3	(┐ 0,1:Т 359,57/<З@35,"RADIO SYSTEM CALCULATIONS";AFЗ  б(36,170);dPЗ:З"      PROGRAM BY VERN EPP"БZЗ"          705 6TH ST."ЮdЗ"          NELSON,B.C."┬nЗ"          COPYRIGHT (C) 1983"╥xАX│1е1600:ЛчВЮ3:З  б(35,170);
МЗ@35,"RADIO SYSTEM CALCULATIONS";ЦЗ  б(36,170);KаЗ@129,"(A) WATTS-DBW CONVERSION      ";xкЗ@193, "(B) PATH LOSS CALCULATION     ";д┤З@257,"(C) RECEIVE SIGNAL CALCULATION";╨╛З@321,"(D) ANTENNA GAIN + BANDWIDTH  ";Є╚З@390,"PRESS ENTER FOR MORE";╥З@465,"make selection";▄Т 1493,325цA$│ Т: Е A$│"" з 230HЁЕ A$│"A" з 300[·Е A$│"B" з 400n
Е A$│"C" з 520Б
Е A$│"D" з 890О
A│ К(A$)з
"Е A│13 з 1040 :Д 230╚
,Ю3:З:Й"POWER IN WATTS.***";P╪
6Е P│0 з 300ю
@D│10н Щ(P)о Щ(10)
JЗ:З"THE POWER IN DBW IS";:З ═"###.##";D%
TF│30лDO
^З"THE POWER IN DBM IS";:З ═"###.##";Fh
hЗ@462,"press enter";u
rТ1491,32У
|A$│ Т: Е A$│"" з 380 :Д ЮЭ
ЖБе130╦
РЮ3:З"*****PATH LOSS CALCULATIONS*****":З;
ЪЗ:З"PATH LOSS CALCULATIONS ARE CALC-ULATED WITH NO OBSTRUCTIONS."T
дЗ"SHADOW LOSS AND KNIFE DEFRACTIONARE NOT TAKEN INTO ACCOUNT."u
оЗ:Й"FREQ. IN MHZ.********";KЕ
╕Е K│0 з 430д
┬Й"PATH DISTANCE- MILES.";R┤
╠Е R│0 з 450▀
╓A│36.6л20н Щ(K)о Щ(10)л20н Щ(R)о Щ(10)
рЗ"PATH LOSS IS ********* ";:З ═ "###.##";A;:З" DB."9
ъЗ@462,"press enter";:Т1491,32W
ЇA$│ Т: Е A$│"" з 500 :Д Юb
■Бе 130ТЮ3:З"****RECEIVE SIGNAL STRENGTH****:PRINT;·З:З"THIS CALCULATION ADDS UP ALL OF THE GAINS OF THE SYSTEM AND SUB-TRACTS IT FROM ALL THE LOSSES."9З"THESE CALCULATIONS ARE ACCURATE FOR TERRESTIAL SYSTEMS."┐&З"EARTH TO SATELLITE CALCULATIONS REQUIRE DIFFERENT MATHEMATICAL  FORMULAS AS THE SIGNALS TRAVEL  IN FREE SPACE AND  ATMOSPHERE."╪0З@462,"PRESS ENTER";Ї:A$│ Т:Е A$│""з 570 :Д Ю !DЮ3:З"****RECEIVE SIGNAL STRENGTH****":З; 6NЗ"SYSTEM LOSSES" WXЙ"PATH LOSS IN DB.       ";L gbЕ L│0 з 600 ЙlЙ"COAXIAL CABLE LOSS     ";C$ ЭvЕ C$│""з Бе 620 кАC│ Й(C$) ╠КЙ"DUPLEXER LOSS          ";V$ рФЕ V$│""з Бе 650 эЮV│ Й(V$) ∙иU│LлCлV!2▓З"TOTAL SYSTEM LOSS IS    "  ;:З ═"###.#";U;:З"DB":З!F╝З"SYSTEM GRATIO CALCULATION"3{╢З"********************************"3°└З"  THIS PROGRAM CALCULATES THE   VOLTAGE SWR WHEN THE POWERS OF  THE REFLECTED AND INCIDENT WAVES           ARE KNOWN."3■╩З4#╘Й"THE INCIDENT WAVE POWER IS";IP45▐Е IP│0 з 22604[шЙ"THE REFLECTED WAVE POWER IS";RP4pЄЕ RP│0 з Бе 22804В№Е RP│0 з 22804Х	AA│1л Ы(RPоIP)4и	BB│1м Ы(RPоIP)4╕	VSWR│AA оBB4ъ	$З"THE ACTUAL  VSWR IS *******";:З ═"##.#;VSWR5
	.З@462,"press enter";:Т 1491,325/	8A$│ Т:Е A$│""з 2360 :Д Бе 1305Y	BЮ3:З"*******************************"5z	LЗ"       PARALLEL RESISTORS"5б	VЗ"*******************************"5к	`XT│05░	jЗ5╒	tЙ"NO.OF RESISTORS DESIRED   ";AA5ч	~Е AA│0 з 24205Ў	ИА X│1 е AA6	ТЙ"ENTER RESISTOR VALUES     ";XX6-	ЬЕ XX│0 з 24506<	жXT│1оXXлXT6D	░Л X6_	║XT│ Б(1оXTн100л.5)о1006б	─З"THE EQUIVALENT PARALLEL         RESISTANCE IS";XT;:З" OHMS"6╞	╬З:З@462,"press enter";:Т 1491,326щ	╪A$│ Т:Е A$│"" з 2520 :Д Бе 1306 	т┐ 0,0:Т 359,126:Ю