' +JJJJ ?\>m0M='+l> /+l   d]@ŵLҦ]]LF L}BBL] X  ` 鷎귭෍ᷩ췩緈JJJJx Lȿ L8ᷭ緍췩 緍i 8 `巬 췌`x (`(8`I`B` ``>J>J>VU)?`8'x0|&HhHh VY)'&Y)xꪽ)' `Hh`V0^*^*>&` aI꽌ɪVɭ&Y&&Y& 꽌ɪ\8`&&꽌ɪɖ'*&%&,E'зЮ꽌ɪФ`+*xS&x'8*3Ixix&& 8  '  & x)*++`FG8`0($ p,&"ųųೳŪŪųųij  !"#$%&'()*+,-./0123456789:;<=>?   1 '" *"( (9"1 ( ,.(0# 2  /#0/#0 *?'#07#00/0/'#07#0:"4<*55/**5/*%5/)1/)1/)1/)'#0/#0*5/*75/**5/*:5//#0/#0'#07#0:::*::'#07#0"):$(%"%:$(%"%$$2%4%$$2%4%$(2()!)E(!8b $!H(+ "@H !D)"E` @ $ C ` DQ &J80^݌Hh ü ü݌ ռ ռ ռA ļD ļ? ļAEDE?HJ>h Լ ռ ռ ռ`HJ>݌h Hh݌`葠葠ȔЖȔЖȠHIHHHHhHH݌hHhHh݌H6 VDP (ED Z $0x8x D- ܸDD# H8`?E Vk *f???0xE Hh D#-EEE8` D ܸx D - ܸx8`-0ݩ?ʥD EEE`   LDcpq` [` ~  LӜu`".Q`pNФbptťܥm2<(-Py0\|e<6e<g< JJJJj귍hI  aUL@ kU8  L  Q^R(jQ0l^l\  wUuW ԧ H h@ [_ /QSIRb_L`LLLL`ª`LQLYLeLXLeLee ўQH\(h0L& Ꝥ$`( R \ZLl8 ўR HH\`\Z[YS6`LxQɿu3'RͲʎRʎ]]]ɍuL͟ɍ}RLRɍg^H8 ^hZLɍR LͲɊRR% QLܤͲ Z@ -^ ş\[Z QY\[Z8`l6Lş_Ȍb_Ͳ] )Y h( ֭ͲLɍ [LLĦ__ ^ 9 LҦ3 9 a   0LjLY u< (_9 ˭ɠuɠK_9 ?LˆʎõĵL õ ĵµ aµ`` L̦µ_bJLuLz`  ȟ QlXJ̥KlV  ȟ QlV eօ3L e3L &RL &QL d L4 Ne)n `@-eff L f`L . tQLѤ LҦL` OPu d L Ne)noon 8ɍ` ^f\õL ^NR  RΩLҦ)\Z ʽ LHv 3h`0h8` [L NС õ`A@` ŵL^Lõ`  \ 濭0 \  ȟ Q ^\lZl^?cqH şch`fhjõĵ@OAP`u@`@&`QR`E Ls  @DAE@u`8` %@ @A@`@`@A`Mµ ) LЦ`8@AWc@8@-@HAȑ@hHȑ@ȑ@hHȑ@Ȋ@ch8&ȑ@Hȑ@Ah@LHȑ@ȑ@ htphso`hMhL`9V8U897T6S67`INILOASAVRUCHAIDELETLOCUNLOCCLOSREAEXEWRITPOSITIOOPEAPPENRENAMCATALOMONOMOPRINMAXFILEFINBSAVBLOABRUVERIF!pppp p p p p`" t""#x"p0p@p@@@p@!y q q p@  LANGUAGE NOT AVAILABLRANGE ERROWRITE PROTECTEEND OF DATFILE NOT FOUNVOLUME MISMATCI/O ERRODISK FULFILE LOCKESYNTAX ERRONO BUFFERS AVAILABLFILE TYPE MISMATCPROGRAM TOO LARGNOT DIRECT COMMANč$3>L[dmx- (  Ϡ@跻~!Wo*9~~~~ɬƬ~_ j ʪHɪH`Lc (L ܫ㵮赎 ɱ^_ J QL_Ls贩紎 DǴҵԵƴѵӵµȴ 7 ַ :ŵƴѵǴҵȴµ納贍﵎ٵ്ᵭⳍڵL^ѵ-I `  4 ò-յ!  8صٵ紭ﵝ 7L (0+BC  7L HH`LgL{0 HH` õL H hBL BH [ h`Lo õ ڬL B ڬ LʬH hB@ յյ [L (ȴ) ȴ 7L L ( L (ȴL{ƴѵ洩ƴǴҵ 7 ^* B0 HȱBh ӵԵ 8 L8 ݲ` ܫ  / / ED B / / ]ƴS0Jȴ ȴ)  紅D贅E B ƴ  / 0L Ν `HD٤DEEhiHLGh ` ŵBѵ-` ѵB-` ܫ XI볩쳢8 DH E𳈈췍Ȍ X0 · JLǵBȵC`,յp` 䯩 R-յյ`յ0` K R-յյ`ɵʵӵԵ` 4 K ( ѵҵLBȱBL8` DBHBH : ַ޵BȭߵBhhӵԵ RBܵmڵ޵ȱBݵm۵ߵ` 䯩LR˵̵ֵ׵`êĪLR E( 8` R` ELRŪƪ`췌 յյI뷭鷭귭ⵍ㵍跬ª 뷰` Lf ݵܵߵ޵ ^`8ܵ i B8` 4L ֵȱB׵ ܯ䵍൭嵍 ` DȑB׵Bֵ  ַ յյ`굎뵎쵬 뵎쵌``õĵBCõĵ`µµ`L õBĵCصص Qƴ0"Bƴ 󮜳` 0۰ϬBƴ8`i#`ЗLw!0>ﵭ` m ﳐ 7i볍 8 ЉLw`H h ݲL~ `浍국䵍뵩嵠Jm赍嵊mjnnn浈ۭm浍浭m䵍䵩m嵍`"L ŵ8ŵH ~(` d ֠z# u`" I I"4& " I I"Q&" R1 R2"m&" I I"& " I I"&*" O----I----------I-----O"&4:&>"R1= ";R1:&H"R2= ";R2:&R"R3= ";R3:'f"MINIMUM LOSS= ";M:%R3(L1).5(IOL))%X(L1)(L1)E%R11(((1I)X)(1R3))a%R21(((1O)X)(1R3))n%X(IO)%Y((IO)1)%X(XY)(XY)%M10(X)(10)% DISPLAY RESULTS%(R1)17500%:::%" O----I----R3----I-----O"&"FINISHED?? ENTER C/R ";A$#$,$" "2$ I$X PI-ATTENUATOR **Q$b:y$8)"** PI-NET ATTENUATOR **":::$"INPUT IMPEDANCE ";I:$"OUTPUT IMPEDANCE ";O:$"LOSS IN DB ";L:$ COMPUTE **$L(L)$LL10$L10LIONS PRINTOUT **#6400m#"THIS PROGRAM SUPPLIES THE UNKNOWN QUANTITY WHEN ANY TWO VALUES ARE GIVEN.":#"ENTER THE KNOWN VALUES WITH THEIR VALUE AND THE UNKNOWN AS 0 OR 1."##"THE PROGRAM WILL PROMPT FOR SOLUTION OF THE UNKNOWN.":$"SOLUTION: "1""......VOLTAGE= ";X;" RMS":H""IMPEDANCE= ";I:P"80m" SOLUTION FOR IMPEDANCE}",X(30D)10"6Y(10X)VV"@"SOLUTION: ""J"......IMPEDANCE= ";Y;" OHMS":"^"VOLTS= ";V:"h"DBM= ";D:"r80#p INSTRUCT .....ERROR....."!M51602!P SOLUTION FOR DBM=!dXVVS!nY((XI)(10))c!xX10(Y3)u!"SOLUTION: "!".......DBM= ";X:!"VOLTS= ";V:!"IMP= ";I:!80! SOLUTION FOR VOLTS **!X(D30)10!Y10X!X(YI)""YES"İ6000 A$"Y"İ6000( 6400F "IMPEDANCE IN OHMS ";I:c "VOLTAGE IN V RMS ";V:| "LEVEL IN DBM ";D:  SOLUTIONS ** ( 2"SOLVE FOR (DBM, VOLTS, IMP) ";S$: <(S$)685200 F(S$)865300 H(S$)735400!K" X3((R2(QX2))1)(LX3(23.1416F)241008A" "Gt "INVALID PARAMETER - Q < SQR (R1/R2-1)"z "RE-ENTER ";*4020 DBM CONVERSIONS:6400"VOLTAGE TO DBM PROGRAM..WANT INSTRUCTIONS";A$ A$ ---".@" I I"MJ" I I"oT" O----------------------O"w^80X1R1QC11(23.1416X1F)X2((R2R1)(QQ1))1X2R2((X2))C21(23.1416FX2)X3(QR1)(QQ1)X3 ";R1:"R2 ";R2:("FREQ ";F:6"Q ";Q:KQ(R1R2)4600U4500v" O--------UUUUU--------O"" I L= ";L" I I""" --- ---"," C1= ";C1;" C2= ";C26" --- 0371(DD))(1000N)6 8);"RESISTANCE= ";R;" OHMS"< V WEIGHT CALCULATIONSv W(.0030269(DD))(1000N) 8);"WEIGHT= ";W;" LBS" 80 * PI NETWORK IMPEDANCE MATCH :8)"PI-NETWORK IMPEDANCE MATCHING":::"R1BLES ** 1096 :6 8);"WIRE CALCULATIONS"< X DIAMETER CALCULATIONSp0 "A W G GUAGE # ";Gv5 : X(G3)39D D(460(92X))N 8);"DIAMETER= ";D;" MILS"S  RESIST CALCULATIONS "NUMBER OF FEET ";N  R(1$:L$"IN"LL2.54G"WIDTH OF PLATES, COMMA, IN OR CM ";W,W$]W$"IN"WW2.54p XD(3.1416W)%XX(1((6.2832W)D))'100WLX0*C.0885419((ELW)D)/CC(1X) : "CAPACITANCE=";C;" PF" 80 WIRE TA TURNS= ";NG80H" ""IG CAPACITANCE OF PARALLEL PLATESQ1096Y:~"PERMITTIVITY OF INSULATION ";E"DISTANCE BETWEEN PLATES, COMMA, IN OR CM ";D,D$:D$"IN"DD2.54 "LENGTH OF PLATES, COMMA, IN OR CM ";L,L$"RADIUS ";R:,."SPACING ";D:P3"INDUCTANCE DESIRED (UH) ";L:^5N01082{8L(NNRR)(9R10ND):X(5DL)(RR)<Y((9R)L)>N((XX)(YY))?NNXAB10);"INDUCTANCE= ";L" UH"C D10);"NUMBER OFX(I):IA$:9384 HORIZONTAL LINE GENERATORNI15:E0,39Y(I):I[A$:938v CROSSHATCH GENERATORI15:E0,47X(I)E0,39Y(I):IA$:938 INDUCTANCE OF SINGLE LAYER COIL1096:"NUMBER OF TURNS ";N6.FM.092903456.M;" SQ METERS = ";F;" SQ FEET"@6.12160X6."SQ CENTIMETERS ";^6.e6.Cv6.IC6.4516266.C;" SQ CENTIMETERS = ";I;" SQ INCHES"6.121606."SQ MILES ";6.6.M6/KM2.58999857/M;" SQ MILES = ";K;" SQ KILOM6...SQ INCHES TO SQ CENTIMETERS"::+56.X:5@.X111730I5J.X611730w5T.(X)11870,11920,11970,12020,12070,121205^."SQ KILOMETERS ";5c.5h.K5r.MK2.58999855|.K;" SQ KILOMETERS =";M;" SQ MILES"5.121605."SQ METERS ";5.6.M4-10)"AREA CONVERSION"!4-:,4-11270V4-5)"1...SQ KILOMETERS TO SQ MILES":{4.5)"2...SQ METERS TO SQ FEET":4.5)"3...SQ CENTIMETERS TO SQ INCHES":4.5)"4...SQ MILES TO SQ KILOMETERS":4".5)"5...SQ FEET TO SQ METERS":$5,.5)"3F-M3P-KM1.6094319;3Z-M;" MILES = ";K;" KILOMETERS"F3d-11720T3n-"FEET ";Z3s-a3x-Fr3-MF.30480063-F;" FEET = ";M;" METERS"3-117203-"INCHES ";3-3-I3-CI2.5400053-I;" INCHES = ";C;" CENTIMETERS3-3-11230319&2,K;" KILOMETERS = ";M;" MILES"12,11720A2,"METERS ";G2,N2,M_2,FM.3048006|2,M;" METERS =";F;" FEET"2-117202 -"CENTIMETERS ";2-2-C2-IC2.5400052(-C;" CENTIMETERS = ";I;" INCHES"22-117202<-"MILES ";2A-IMETERS TO INCHES":81`,5)"4...MILES TO KILOMETERS":W1j,5)"5...FEET TO METERS":}1t,5)"6...INCHES TO CENTIMETERS":1~,X1,X1112901,X6112901,(X)11430,11480,11530,11580,11630,116801,"KILOMETERS ";1,1,K2,MK1.6094HIS PROGRAN (Y/N)"0+X$)0+X$"Y"80;0+X$"N"11010A0+G0+h0,"DO YOU WANT TO CONVERT:":n0,y0,112300$,10)"LENGTH CONVERSION":0.,:08,112700B,5)"1...KILOMETERS TO MILES":0L,5)"2...METERS TO FEET":1V,5)"3...CENT/H+5)"4...WEIGHT":2/R+5)"5...TEMPERATURE"::/\+:`/f+"INPUT 'NUMBER' OF YOUR CHOICE "/p+::5)"(INPUT '99' TO END)"/z+X/+X111010/+X9980/+X511010/+(X)11290,11730,12170,12610,13050/+0+"ARE YOU FINISHED WITH T&.'O4096O(1)256O(2)16O(3)O(4),.'J.'N$;" IS ";O;" DECIMAL":T.'9300z.* ANGLO-METRIC CONVERSION PROGRAM.+11230. +8)"ANGLO - METRIC CONVERSION".+:. +11270.*+5)"1...LENGTH":.4+5)"2...AREA":.>+5)"3...VOLUME":)P -0%JJ1-:%J09440!-?%B-D%N$;" DECIMAL IS ";X$;" HEX"L-N%9300d-' HEX TO DECIMAL **l-'J2x-$'L(N$)-.'L29480-8'L59480-B'I14-L'O(I)0-V'I-`'I6L4-j'O(I)((N$,J,1))48-t'O(I)9O(I)O(I)7-~'JJ1.'IDEF",T$ GET NEXT NUMBER ,^$(,c$:0,h$N$G,r$(N$,1)"H"10000Y,|$N$"END"ī80n,$ DECIMAL TO HEXz,$N(N$),$X$" ",$J4,$P,$I116,$NIP09500,$I,%">>>>>>>>>INPUT ERROR",%9300,%X$X$(H$,I,1)-&%NN(I1+<#11)"< HEX < > DEC >"::r+#"THIS PROGRAM CONVERTS HEX NUMBERS TO DECIMAL AND DECIMAL NUMBERS TO HEX"::+#"IF A NUMBER IS HEXIDECIMAL PRECEED IT WITH A 'H'"::+#::"TYPE 'END' TO RETURN TO MENU"+# 4096,256,16,1,#H$"0123456789ABC((IO)1))*D XXX'*N X(X)(10)2*X X10X8*b N*l LOSS PROBLEM **p* "DESIRED LOSS ";L;" TIMES ";v* * "GREATER THEN MINIMUM LOSS ";X;" DB";* * "THUS, YOU MUST REENTER DATA.":* 8060*(# HEX DEC CONVERSION PROGRAM+2#:---O")4);"R1= ";R1:/)4);"R2= ";R2:D)4);"R3= ";R3:J)j)"MINIMUM LOSS= ";X;" DB":r)80x) ) COMPUTE INFO **) LL10) L10L) R32((LIO))(L1))& R2O((L1)(L1))R3)0 R1I((L1)(L1))R3 *: X((IO)ESIRED LOSS - DB ";L: (82003((R2)18300M( PRINTOUT ROUTINE **o(" O----R1----I----R2----O"(" I"(" I"(" R3"(" I"(" I")" O----------I-------'k80'p0'L"DESIRED LOSS ";L;" TIMES":Y'Q"IS MORE THAN MIN LOSS OF ";M;" DB"o'V"REENTER ":7070'@ TEE ATTENUATOR PROGRAM'J:'r8)"** TEE NETWORK ATTENUATOR **"::'|"INPUT IMPEDANCE ";I:'"OUTPUT IMPEDANCE ";O:("D1$;" IS ";:1:A1(A$)0(A$)ĺ::A11:270CA1123451470"THE ";A1$;" IS ";A1MB;:A2A1MB:A2(A2)ĺ" OR ";((A1MB).5);::1530"330,:"INCORRECT ENTRY"::240WRITTEN AND PLACED IN PUBLIC DOMAIN BY A11234514700"THE ";B1$;" IS ";A1MB;>A2A1MBeA2(A2)ĺ" 0R ";((A1MB).5);s::1420}WW1UW2(W2)U01390M(NQRP)(NEPP)B(ERPQ)(NEPP):"X =";M;"Y + (";B;")":"IF THE ";BELER D 16000,16500,17000,17500Cn7MCs7"ARE YOU FINISHED WITH THIS PROGRAM (Y/N)"UCx7X$dC7X$"Y"80vC7X$"N"14000|C7C7C8:C8C8"DO YOU WANT TO CONVERT:":C8C:"CUBIC INCHES?";C:C:CID N WRITTEN IN APPLESOFT II BY WHEO CUBIC INCHES":;B 75)"5...CUBIC YARDS TO CUBIC FEET":gB75)"6...CUBIC YARDS TO CUBIC INCHES":oB7:B(7"INPUT 'NUMBER' OF YOUR CHOICE "B27::5)"(INPUT '99' TO END)"B<7XBF7X114000BP7X9980BZ7X614000Cd7(X)15000,15500,A3!A6 CUBIC AREA CONV. ANGLO,A614500RA68)"CUBIC AREA CONVERTION ANGLO"ZA6:eA614520A65)"1...CUBIC INCHES TO CUBIC FEET":A65)"2...CUBIC INCHES TO CUBIC YARDS":A65)"3...CUBIC FEET TO CUBIC YARDS":B75)"4...CUBIC FEET T3050@T3(X)13150,132003@^3"DEGREES CELSIUS ";9@c3@@h3CQ@r3F(C95)32@|3C;" DEGREES CELSIUS= ";F;" DEGREES FAHRENHEIT"@313240@3"DEGREES FAHRENHEIT ";@3@3F@3C(F32)59@3F;" DEGREES FAHRENHEIT= ";C;" DEGREES CELSIUS"?2"TONS ";?2?2T*?2MT.9071849M?2T;" TONS = ";M;" METRIC TONS"S?2^?211230?310)"TEMPERATURE CONVERSION"?3:?311270?"35)"1...CELSIUS TO FAHRENHEIT":?,35)"2...FAHRENHEIT TO CELSIUS":?63X?@3X113050@J3X2172 ><2M>F2TM.9071849>>P2M;" METRIC TONS = ";T;" TONS"I>Z213040Y>d2"OUNCES ";_>i2f>n2Ox>x2GO28.349527>2O;" OUNCES = ";G;" GRAMS">213040>2"POUNDS ";>2>2P>2KP.4535924>2P;" POUNDS = ";K;" KILOGRAMS">213040 1601=1(X)12750,12800,12850,12900,12950,13000@=1"GRAMS ";F=1M=1G_=1OG28.349527~=1G;" GRAMS = ";O;" OUNCES"=113040=2"KILOGRAMS ";=2= 2K=2PK.4535924=2K;" KILOGRAMS = ";P;" POUNDS"=(213040=22"METRIC TONS ";>:<`111270.0126009H0"CUBIC METERS ";:M0 8/11270;8/3)"1..CUBIC CENTIMETERS TO CUBIC INCHES"A8/i8/3)"2..CUBIC METERS TO CUBIC FEET"o8/8/3)"3..LITERS TO GALLONS"8/8/3)"4..CUBIC INCHES TO CUBIC CENTIMETERS"8/8/3)"5..CUBIC FEET TO CUBIC METERS"8/9/3)ETERS"7/12160"7&/"SQ FEET ";(7+//70/F@7:/MF.0929034d7D/F;" SQ FEET = ";M;" SQ METERS"o7N/121607X/"SQ INCHES ";7]/7b/I7l/CI6.4516267v/I;" SQ INCHES = ";C;" SQ CENTIMETERS"7/7/112307/10)"VOLUME CONVERSION"8/: RESULT IN:":="A. LARGE CURRENT CHANGES IN THE DIODE."l"B. SMALL CURRENT CHANGES IN THE DIODE.""C. NO CURRENT CHANGE IN THE DIODE.""D. MAXIMUM POWER DISSIPATION IN THE DIODE."::"10. ZENER DIODES DELIVER:": "A.E MAY NOT BE USED FOR:":7"A. A SHUNT REGULATOR."V"B. A REFERENCE SOURCE."v"C. A VOLTAGE REGULATOR.""D. A HIGH VOLTAGE RECTIFIER."::"9. WHEN OPERATED AT ITS ZENER VOLTAGE, SMALL CHANGES IN VOLTAGE ACROSS":"THE DIODEROYED."5a"D. WILL DELIVER 25 VOLTS TO THE LOAD."=c:hf:"7. ZENER DIODES ARE RATED FOR:":k"A. ZENER VOLTAGE."p"B. ZENER CURRENT."u"C. MAXIMUM POWER DISSIPATION."z"D. ALL OF THE ABOVE."|::"8. A ZENER DIODONE OF THE ABOVE IS TRUE.""J:M:"6. A ZENER DIODE WITH A RATING OF 15 VOLTS, WHEN CONNECTED TO A SOURCE":"VOLTAGE OF 25 VOLTS:":R"A. WILL DELIVER 15 VOLTS TO THE LOAD."W"B. WILL DELIVER 10 VOLTS TO THE LOAD."\"C. WILL BE DEST5. WHEN A ZENER DIODE IS SWITCHED FROM ITS ZENER STATE TO":"TO ITS NON-ZENER STATE:":9"A. MAXIMUM CURRENT WILL FLOW THROUGH THE DIODE.">"B. MINIMUM CURRENT WILL FLOW THROUGH THE DIODE."C"C. MINIMUM ZENER RESISTANCE EXISTS."H"D. NEEN ESTABLISHED:":L "A. A STEADY CURRENT WILL FLOW THROUGH THE ZENER."%"B. THE CURRENT THROUGH THE ZENER WILL VARY WITH THE LOAD."*"C. NO CURRENT WILL FLOW THROUGH THE ZENER DIODE."/"D. THE DIODE WILL BE DESTROYED."1:X4:"RRENT WHEN:":7"A. THE ZENER VOLTAGE IS REACHED."` "B. THE ZENER CURRENT IS REACHED.""C. THE AVALANCHE VOLTAGE IS APROACHED.""D. A VOLTAGE OF -0.7 VOLTS IS APPLIED TO THE CIRCUIT."::"4. ONCE THE AVALANCHE STATE HAS BE FOLLOWING IS (NOT) A CHARACTERISTIC OF A ZENER DIODE.":^"A. REVERSE LEAKAGE CURRENT."|"B. TRIGGER THRESHOLD.""C. MAXIMUM POWER DISSIPATION.""D. THERMAL DERATING FACTOR."::"3. A ZENER DIODE WILL CONDUCT FORWARD CUCURRENT TO FLOW."/"D. NONE OF THE ABOVE."7:}"1. A ZENER DIODE, WHEN USED AS A VOLTAGE REGULATOR MUST BE:":"A. POLAR BIASED.""B. REVERSE BIASED.""C. REFLECTED BIASED.""D. FORWARD BIASED.":::"2. TH6 :"NOT WRITTEN YET"A5 POLE DIP) OFF":20:17:"PLEASE"VL10:"----------------------------------------"\NhPI132xRD:934I,DTIVXZ 162,2,169,0,141,199,3,141,200,3,141,162,192,238,199,3,208,3,238,200,3,173,161,192,41,1,240,241,202,208,227,9102CC19:C32400C'4CC.008CI6(C);17);"APPROXIMATE BAUD"R8812f:" C BAUD"l<>" 64 -- 9600"@" 129 -- 4800"B" 258 -- 2400"D" 519 -- 1200"F"1038 -- 600"H"2075 -- 300""J19:7:"ALL SWITCHES ()WR110(DB10)::"WATTS = ";W:750Z:"MORE? YES OR NO ";:A$:(A$,1)"Y"ī700`~  BAUD RATE ADJUST FOR ES" SERIAL I/O CARD$&(826*848,935:A(967):B(968):C256BA.5:20:"C= ";25);C;" "015:DBCV10(VVR0R1)::"DBM = "DB:750W"DBM TO VOLTS"::"DBM? ";DBV(10(DB10)R1R0)::"VOLTS = ";V:750"WATTS TO DBM"::"WATTS? ";WDB10CV(WR1)::"DBM = ";DB:750"DBM TO WATTS"::"DBM? ";DBOM LIST:"::" 1. VOLTS TO DBM":" 2. DBM TO VOLTS":" 3. WATTS TO DBM"o" 4. DBM TO WATTS"{R11E3CV2(100)A$::"REFERENCE IMPEDANCE: ";R0X(A$):X711,722,733,744700"VOLTS TO DBM"::"VOLTS? ";V5 BILL BLUE/SEPT 1978AT THE OUTPUT.":/(::::%/*s/-"7. SHOW THE POLARITY OF THE SECONDARY IN QUESTION 6 BY PLUS AND MINUS"/2"AT THE PROPER PLACE ON THE DIODE.":/4/7"8. DRAW THE WAVESHAPE THAT WOULD BE SEEN ON AN OSCILLOSCOPE AT THE"(0<"OUTPUT OF WAVE RECTIFIER IS EMPLOYED."I."B. A FULL-WAVE RECTIFIER IS EMPLOYED."o."C. THE CENTER TAP IS GROUNDED."."D. TWO RECTIFIERS ARE USED."..:"6. DRAW A HALF-WAVE POWER SUPPLY WITH TRANSFORMER INPUT THAT PROVIDES"/#"POSITIVE VOLTAGE IS TWICE THE FREQUENCY OF THE APPLIED VOLTAGE."o-"D. IS THE SAME AS THE FREQUENCY OF THE APPLIED VOLTAGE."u--:"6. GIVEN A TRANSFORMER WITH A 12.6 V CENTER TAPPED SECONDARY,"-"GREATEST OUTPUT VOLTAGE WILL OCCUR WHEN:":. "A. A HALF-N.","C. PULSATING A.C."9,"D. NONE OF THE ABOVE."?,x,:"5. THE RIPPLE RATE OF A FULL-WAVE RECTIFIER:":,"A. DEPENDS ON THE AMPLITUDE OF THE APPLIED VOLTAGE.","B. IS LOWER IN FREQUENCY THAN THAT OF A HALF-WAVE RECTIFIER."0-"C.MUST BE POSITIVE IN RESPECT TO THE CATHODE."y+"B. THE CATHODE OF THE DIODE MUST BE POSITIVE IN RESPECT TO THE ANODE."++:"4. A SINGLE DIODE IN A POWER SUPPLY WILL DELIVER:":+"A. FULL-WAVE RECTIFICATION.","B. HALF-WAVE RECTIFICATIO. D.C. IS CHANGED INTO A.C."@*"B. A.C. IS CHANGED INTO D.C."x*"C. CURRENT FLOWS THROUGH A REVERSE BIASED DIODE."*"D. NONE OF THE ABOVE."**:"3. TO OBTAIN A POSITIVE VOLTAGE ACROSS A LOAD RESISTOR:":,+"A. THE ANODE OF THE DIODE NTROL SCREEN"7)"D. NONE OF THE ABOVE COMBINATIONS."=)f)"1. POWER COMPANIES DISTRIBUTE:":)"A. PULSATING D.C.")"B. RECTIFIED D.C.")"C. PURE D.C.")"D. HIGH VOLTAGE A.C.")):"2. RECTIFICATION OCCURS WHEN:":*"AIC EMISSION.".(w"C. CONTROLS CURRENT FLOW."X(|"D. IS USUALLY TIED TO THE CATHODE."^(~(:"10. A TRIODE CONTAINS:":("A. A PLATE, CONTROL GRID, AND CATHODE."("B. A CATHODE, SCREEN GRID, AND SUPRESSOR." )"C. A HEATER, PLATE, AND COVE VOLTAGE APPLIED TO IT."F'Y"B. A NEGATIVE VOLTAGE APPLIED TO IT."n'^"C. FULL CONTROL OF CURRENT FLOW."'c"D. A CONNECTION TO THE CATHODE."'e'h:"9. THE SUPPRESSOR GRID:":'m"A. PREVENTS THERMIONIC EMISSION." (r"B. CAUSES THERMION"D. NONE OF THE ABOVE."&3>&6:"7. THE CONTROL GRID:":e&;"A. PREVENTS SECONDARY EMISSION."&@"B. EMITS ELECTRONS."&E"C. CONTROLS CURRENT FLOW."&J"D. HAS THERMIONIC EMISSION."&L&O:"8. THE SCREEN GRID HAS:":'T"A. A POSITIMUST BE ABOVE CUT-OFF"2%"D. ALL OF THE ABOVE."O%"E. NONE OF THE ABOVE."U%%:"6. A VACUUM TUBE THAT CONTAINS A SCREEN GRID AND A SUPPRESSOR GRID:":%""A. IS A PENTODE."%'"B. IS A TRIODE."%,"C. DOES NOT REQUIRE A CATHODE."&1CUT-OFF"'$"D. POSITRON PROPAGATION"-$p$:"5. TO INCREASE THE CURRENT FLOW THROUGH A VACUUM TUBE:":$"A. THE CATHODE MUST BE MORE NEGATIVE THAN THE PLATE."$ "B. THE PLATE MUST BE MORE POSITIVE THAN THE CATHODE."%"C. THE GRID BIAS TE MUST BE MORE POSITIVE THAN THE CATHODE"e#"B. THE CATHODE MUST BE MORE POSITIVE THAN THE PLATE"m#:#"4. HEATING THE CATHODE OF A VACUUM TUBE RESULTS IN:":#"A. MELTING THE BARIUM COATING"#"B. THERMIONIC EMISSION"$"C. THERMAL VACUUM TUBE IS:":;""A. FROM THE PLATE TO THE CATHODE"`""B. FROM THE GRID TO THE PLATE"""C. FROM THE PLATE TO THE GRID"""D. FROM THE CATHODE TO THE PLATE""""3. IN ORDER FOR CURRENT TO FLOW IN A VACUUM TUBE:":*#"A. THE PLAION. IT IS NOT":"REQUIRED FOR THIS COURSE AS OUTLINED IN THE STUDY GUIDE."R! !"1. CURRENT FLOW IN A VACUUM TUBE CONSISTS OF:":!"A. HOLES"!"B. NEUTRONS"!"C. ELECTRONS"!"D. POSITIVE CHARGES"!":"2. CURRENT FLOW IN A THE RATED AVALANCHE VOLTAGE."> "B. THE SOURCE VOLTAGE." "C. THE DIFFERENCE BETWEEN THE SOURCE VOLTAGE AND THE ZENER VOLTAGE." "D. NONE OF THE ABOVE." : D$;"PR#0"L! ::"CHAPTER THREE ON TUNNEL DIODES REQUIRES ONLY A DISCUSSOAD."7?"C. AN INCREASE IN VOLTAGE ACROSS THE LOAD."T?"D. NO OUTPUT VOLTAGE."Z? @:"4. IN FIG. 8-1, V+ VOLTAGE UNDER LOAD HAS DECREASED, THE RIPPLE":"FREQUENCY IS 60 HZ., AND THE RIPPLE VOLTAGE UNDER LOAD HAS ":"INCREASED. THE TROUBLE IS FROM P TO G=40.4 VOLTS."?>m"C. VOLTAGE FROM P TO G=80 VOLTS"h>r"D. VOLTAGE FROM A TO P= 80 VOLTS."n>t>w:"3. IN FIG. 8-1 IF C2 OPENS, THERE WILL BE:":>|"A. AN INCREASE IN RIPPLE ACROSS THE LOAD."?"B. A DECREASE IN RIPPLE ACROSS THE L"D. THE VOLTAGE FROM P1 TO V+ MEASURES 20 VDC."6=[=^:"2. IN THE CIRCUIT OF FIG. 8-1, THE D.C. VOLTAGE AT A WITH REFERENCE":"TO GROUND IS 80 VDC. IF RC=220 OHMS AND TOTAL CURRENT=18 MA:":=c"A. VOLTAGE FROM P TO G=76 VOLTS.">h"B. VOLTAGE "1. IN THE CIRCUIT OF FIG. 8-2, IF RB1=RB2, C3=C4, AND VOLTAGE FROM P1":"TO P2 MEASURES 20 VDC:":{0A"9. DRAW A FULL-WAVE RECTIFIER POWER SUPPLY THAT WILL SUPPLY POSITIVE"0F"VOLTAGE AT THE OUTPUT. SHOW THE SWITCH, FUSE, TRANSFORMER, AND THE" 1K"DIODES. THIS DIAGRAM MUST BE ENTIRELY CORRECT FOR VE TO D."7O8'"C. THERE WILL BE NO OUTPUT AT POINT E."`O='"D. ONLY WHEN POINT G IS POSITIVE."fO?'OB':"3. IF THE RMS VOLTAGE ACROSS THE SECONDARY OF T IS 50 V, THE":"PEAK OF THE POSITIVE ALTERNATION ACROSS RL IS APPROXIMATELY"PG':"A. 100 VOLTSTED D2."$N'"C. 120 HERTZ RIPPLE."GN$'"D. HALF-WAVE RECTIFICATION."MN&'N)':"2. IN THE CIRCUIT OF FIG. 10-1, AN OPEN D2 WILL PRODUCE A":"VOLTAGE ACROSS RL:"N.':"A. ONLY WHEN C IS POSITIVE RELATIVE TO D. O3'"B. ONLY WHEN C IS NEGATIVE RELATIED WITH SILICON DIODES."TM$"C. GENERATED LESS HEAT THAN A SOLID STATE RECTIFIER."M$"D. WERE USUALLY IN A VOLTAGE DOUBLER SUPPLY."M$M':"1. IN FIG. 10-1, AN OPEN RECTIFIER D1 WILL RESULT IN:"M':"A. NO OPUTPUT AT POINT E."N'"B. A SHORURNED OUT R1. C. A SHORTED D1."vL#"B. NO OUTPUT AT POINT 'P'. D. HIGHER RIPPLE AT THE OUTPUT."|L#L#:"10. RECTIFIER TUBES IN TELEVISION RECEIVERS:"L$:"A. ARE SELDOM USED IN ALL SOLID STATE SETS."M $"B. COULD BE REPLACEARING AT POINT 'A'":K#"C. BURNED OUT DIODES, D1 & D2."aK#"D. GREATER RIPPLE AT POINT 'P'."gK#K#:"8. IN FIG 9-1, AN OPEN C2 WOULD RESULT IN:"K#K#:"9. IN THE POWER SUPPLY IN FIG. 9-1, AN OPEN CHOKE, L, WOULD RESULT IN:"-L#:"A. A BORKING VOLTAGE OF AT LEAST:""J#WJ#"A. 150 VDC. C. 200 VDC."J#"B. 450 VDC. D. 300 VDC."J#J#:"7. IN FIG 9-1, AN OPEN C1 WOULD RESULT IN:"J#:"A. 0 VOLTS OUTPUT AT POINT 'P'"K#"B. A.C. APPVER USED IN A COLOR TELEVISION SET."FI#"C. ISOLATED FROM THE LINE."I#"D. POSSIBLE TO USE A POWER TRANSFORMER INSTEAD OF THE LINE TO":"PROVIDE THE INPUT SOURCE."I#J#:"6. THE FILTER CAPACITORS IN THE POWER SUPPLY IN FIG. 9-1 MUST HAVE":"A W"A. 60 HERTZ."#H}#"B. 120 HERTZ."EH#"C. LESS THEN AT POINT 'P'."H#"D. NOT PRESENT BECAUSE, AT THAT POINT OPNLY A.C. APPEARS."H#H#:"5. IN FIG. 9-1, IT WOULD BE:"H#:"A. IMPOSSIBLE TO PROVIDE INPUT FROM A POWER TRANSFORMER."$I#"B. NECHOKE." GW#BGZ#:"3. IN FIG. 9-1, THE OUTPUT AT POINT 'P' IS:"XG_#:"A. NEGATIVE."lGd#"B. POSITIVE."Gi#"C. ALTERNATING CURRENT."Gn#"D. AT A HIGHER POTENTIAL THAN AT POINT A."Gp#Gs#:"4. IN FIG. 9-1, AT POINT 'A', THE RIPPLE IS:"Hx#:IN FIG. 9-1, C1:"FC#@FF#"A. IS THE INPUT FILTER CAPACITOR."FK#"B. CONDUCTS ON THE POSITIVE ALTERNATION OF THE INPUT FROM THE LINE."FP#"C. CONDUCTS ON THE NEGATIVE ALTERNATION OF THE INPUT FROM THE LINE."GU#"D. COULD BE REPLACED WITH A FILTER *E& "B. 100K FORWARD AND 1 MEG REVERSE."0E( XE(#:"1. IN FIG. 9-1, THE OUTPUT IS:"bE*#::E-#"A. ISOLATED FROM THE LINE."E2#"B. NOT ISOLATED FROM THE LINE."E7#"C. 120 HERTZ RIPPLE FREQUENCY."E<#"D. LOCATED AT POINT M."E>#FA#:"2. .........;..........;..........;...........;.........."D :"10. TROUBLE IN A POWER SUPPLY HAS BEEN TRACED TO A DEFECTIVE ":"SILICON RECTIFIER. THE DEFECTIVE DIODE WILL HAVE A RESISTANCE":"READING ABOUT:"E! :"A. 10 OHMS FORWARD AND 2 MEG REVERSE."SE OF":"TROUBLE IS:"/C:"A. A SHORTED C2."EC"B. AN OPEN C2."[C "C. AN OPEN RC."qC "D. AN OPEN C1."wC C :"9. IN FIG. 8-2, LIST THE COMPONANTS THAT COULD CAUSE A ZERO VOLTS":"READING ACROSS THE PRIMARY OF T1."::7D "...........;..T OF FIG. 8-2 ARE:":,B"A. A,G, AND V-."EB"B. A, P1, AND P2."]B"C. D1, D2 AND G."vB"D. V+, V-, AND G."|BC:"8. WITH THE LOAD OPEN, THE RESISTANCE MEASURED ACROSS PG (WITH":"THE POWER OFF) IN FIG. 8-1 IS 0 OHMS. THE MOST LIKELY CAUD1 AND D2."A"D. V+ AND G."%AgA:"6. THE DC TEST POINTS IN THE CIRCUIT OF FIG. 8-2 ARE AT:"A"A. A, P1, AND P2."A"B. D1, D2, AND G."A"C. V+, V-, AND G."A"D. A, G, AND V+."AB:"7. THE RIPPLE TEST POINTS IN THE CIRCUIA DEFECTIVE:"@'@"A. RECTIFIER.G@"B. FILTER CAPACITOR, C1."e@"C. FILTER RESISTOR RC."@"D. POWER TRANSFORMER."@@:"5. THE DC TEST POINTS IN THE CIRCUIT OF FIG. 8-1 ARE AT:"@@"A. P AND G."@"B. A AND P." A"C. ND END NUMBERS!";S,EQ_#˭S22E21ĺ"ILLEGAL ENTRY! CHOOSE OTHER VALUES!":52002f_$˭S21E2152900_&˺"VALUES OF LOW INPUTS=";S,E_(ˁI11000:I_3ˁTSE`4˴T1000,1030,1050,1080,1105,1135,1165,1195,1225,1255,1285,2000,2025,2050,2075,2100,2125,"SIXTEEN THOUSAND":0^hB"SEVENTEEN THOUSAND":K^PF"EIGHTEEN THOUSAND":f^8J"NINETEEN THOUSAND":^ N"TWENTY THOUSAND":^>N:"A. ONLY WHEN C IS POSITIVE RELATIVE TO POINT D."^PúD$;"PR#0"^QÀ^8Ǘ::"SEMESTER TEST"^ ˺_"˄"ENTER START A. TRANSISTORS ARE FOR THE MOST PART:"V]+"A. VERY DURABLE AND IMPERVIOUS TO DAMAGE."]+"B. FRAGILE AND SUBJECT TO DAMAGE FROM ABUSE."]+]."TWELVE THOUSAND":]2"THIRTEEN THOUSAND ":]6"FOURTEEN THOUSAND":]:"FIFTEEN THOUSAND":^>ED AS FAR FROM THE CHASSIS AS POSSIBLE."^\+"B. PROVISION SHOULD BE MADE FOR WATER COOLING."\+"C. THEY SHOULD BE MOUNTED ON A HEAT SINK."\+"D. AN ELECTRICAL CONDUCTIVE MATERIAL SHOULD BE USED BETWEEN THE":"TRANSISTOR AND GROUND.\+%]+:"10"([+"B. A TAB IS PLACED ON THE CASE."U[+"C. A SPACE IS LEFT BETWEEN THE LEADS."}[+"D. ANY OF THE ABOVE MAY BE USED."[+"E. NONE OF THE ABOVE ARE USED."[+[+:"9. TO PREVENT DAMAGE FROM HEAT TO TANSISTORS:"(\+:"A. THEY SHOULD BE MOUNT B. REVERSED."!Z+`Z+:"7. IN THE SYMBOL OF A TRANSISTOR THE CURRENT FLOW IS:"Z+:"A. AGAINST THE ARROW. B. WITHE THE ARROW."Z+Z+:"8. TO IDENTIFY THE LEADS ON A TRANSISTOR:"[+:"A. A DOT IS PAINTED ON THE CASE.HE EMITTER."BYK+"D. COLLECTOR IS POSITIVE RELATIVE TO THE BASE."HYY+mY\+:"5. IN AN NPN TRASISTOR THE:"xYp+11077~Yr+Yu+:"6. THE BATTERY POLARITIES IN AN NPN CIRCUIT, AS COMPARED WITH THAT":"OF A PNP CIRCUIT, ARE:"Zx+:"A. THE SAME. B. EMITTER/BASE. D. EMITTER/COLLECTOR.">X@+cXC+:"4. IN A PNP TRANSISTOR THE:"XE+:"A. EMITTER IS POSITIVE RELATIVE TO THE BASE."XG+"B. BASE IS POSITIVE RELATIVE TO THE EMITTER."XH+ YI+"C. COLLECTOR IS POSITIVE RELATIVE TO TW+3W+:"2. THREE ELEMENT TRANSISTORS CONTAIN:"jW+:"(ONE) (TWO) (THREE) (FOUR) JUNCTIONS."pW'+W*+:"3. THE JUNCTION OF A TRANSISTOR THAT IS FORWARD BIASED IS THE:"W-+:"A. BASE/COLLECTOR. C. COLLECTOR/EMITTER."8X/+"ECTED AT THE FOLLOWING":"POINTS IN FIG. 10-4. (CIRCUIT NORMAL)"V'::"C D F V+ G"V(V*:"1. MOST PRESENT-DAY TRANSISTORS ARE MADE OF:"V*:"A. RUBIDIUM. B. GERMANIUM. C. SILICON. D. SILICONE." RIPPLE THAN A FULL WAVE RECIFIER."HU'"B. 60 HERTZ RIPPLE FREQUENCY."U'"C. TWICE THE VOLTAGE OF THE RMS VOLTAGE ACROSS THE SECONDARY."U'"D. THE RMS VOLTAGE ACROSS THE SECONDARY TIMES 1.414."U'@V':"10. DRAW THE WAVEFORMS THAT COULD BE EXPAT POINT F."?T'"B. THE RIPPLE WOULD BE GREATER AT POINT V+."T'"C. FILTER CAPACITORS C1 AND C2 WOULD HAVE GREATER CAPACITANCE."T'"D. ALL OF THE ABOVE."T'"E. NONE OF THE ABOVE."T'T':"9. A BRIDGE RECTIFIER PRODUCES:"#U':"A. GREATERRATE IN PARALLEL."]S'"C. THE DIODES HAVE A HIGHER VOLTAGE RATING THAN THOSE IN A DOUBLER."S'"D. NONE OF THE ABOVE IS TRUE."S'S':"8. IF A RESISTOR WERE USED IN THE PI FILTER TO REPLACE L IN FIG. 10-4:" T':"A. THE RIPPLE WOULD BE GREATER HORT CIRCVIT."7R'"B. D3 AND D4 WOULD SHORT CIRCUIT."gR'"C. THE RIPPLE AT POINT F WOULD INCREASE."R'"D. THE OUTPUT WOULD DROP TO 0."R'R':"7. IN A BRIDGE RECTIFIER:"R':"A. TWO RECTIFIERS OPERATE IN SERIES."S'"B. TWO RECTIFIERS OPEQt':"5. IN FIG 10-4, INDICATE WHERE A DEVICE WOULD BE INSTALLED TO":"PROTECT THE PRIMARY, AND WRITE THE NAME OF THE OF THE DEVICE BY IT."Q'Q':"6. IN FIG. 10-4, IF POINT G AT THE JUNCTION OF D3-D4 OPENED:"R':"A. DIODES D-1 AND D-2 WOULD S."(PL'"B. .707 TIMES THE RMS VOLTAGE."14.3F1,14.3F2,14.3F3::"THIS MAXIMIZES GAIN AND F/B RATIO WITHIN YOUR PARAMETERS")H:"DISTANCE ALONG SPI(MHZ) ";F3-" SECOND FREQUENCY (MHZ) ";F2P" THIRD FREQUENCY (MHZ) ";F1m400:FF1:422:424:426:"SPACING DEPENDS ON IMPEDANCE": "READY FOR SPACING? HIT RETURN ";A$:FF1:600:"READY FOR SECOND? HIT RETURN ";A$:FF2:600.%"RNCE DIAL= ";:C" C0C.000018 Y(159155)(FC)R Q1(1(D2)1(Y2))q "RANGE EXTN RESIS= ";:E $U(QD)E .U0U.00001 8WQY B  300::0  SUB ROUTINE FOR OMEGA-T BRIDGE8 *UD\  SUBROUTINE FOR PALOMAR BRIDGEd UD "XL(+) OR XC(-) =";:C C70C140C C70CC139.999 W(2273.64F)C(C70)   SUB ROUTINE FOR W6BXI BRIDGE "CAPACITA2)(H2))) :A(BU)(HG). DG0AAPI; NRM(A)H XXM(A)g b"ANTENNA RESISTANCE= ";R l"ANTENNA REACTANCE= ";X v: R((((RZ)2)(X2))(((RZ)2)(X2))) R1K.999999 S(1K)(1K) "FEEDLINE V S W R = ";S DIAL= ";:D TD0D0.00001% ^6 A$"O"İ800G A$"P"İ900Y A$"B"İ1000f U0500 "NEGATIVE RESISTANCE!" 350 : P(6.38372E3)LFV T(P)(P) B(ZT)W GZ(WT) &HUT 0MZ(((U2)(B2))((GRIDGE";:A$ xA$"O"2007 A$"P"200:A$"B"200@ 100H :f "CHARACTRISTIC Z= ";:Z "LINE LENGTH (FT)= ";:L "VELOCITY FACTOR= ";:V V1.0230 , 6"FREQUENCY (MHZ) = ";:F @F01200 J"RESISTANCE R " THIS PROGRAM FINDS REAL AND IMAGINARY PARTS OF ANTENNA IMPEDANCE""AND SWR, GIVEN FEEDLINE DATA,MEASUREMENT FREQUENCY,""AND READINGS FROM POPULAR NIOSE BRIDGES." d" TYPEO FOR OMEGA - T,P FOR PALOMAR, OR B FOR W6BXIB W6NKU B  FOLLOWING PART CALCULATES RESISTOR VALUES, GIVEN OPERATING FREQ., DUTY CYCLE, AND CAPACITOR VALUE n"WHAT IS THE OSCILLATION FREQENCY F ";F x"WHAT DUTY CYCLE (MORE THAN 50 PRECENT) ";D D50ī120 D100ī120 T11FD100 T21FT1/"73 MAGAZINE SEPT. 1980 PAGE # 92"5S "SWR CALCULATOR PROGRAM"Y"ENTER FOWARD POWER IN WATTS ";F#("ENTER REVERSE POWER IN WATTS ";R-2F1(F)<R1(R)FS(F1R1)(F1R1)P"THE SUM IS ";S;":1"F 16KA.P"--IN------------------------------OUT--"?R"NETWORK C"fT"TO CONTINUE ENTER ANY NUMBER ";ZoV218uXt$"OHMS"TCONTINUE ENTER ANY NUMBER";Z%<218F>" -----------"u@"-------------! INDUCTANCE !------------"B" ! -----------"D" !"F" -----------"H" CAPACITANCE"J" -----------"L" !"N" !"----------"7." ! INDUCTANCE !"a0" -----------"2" !"4" IN ! OUT"6"---------------------------------------"8"NETWORK B":"TO "N$"A"238'N$"B"2907 N$"C"318N"" ! !"e$" ! C !"&"----------! A !------------------------"(" ! P ! !"*" ! ! !" ," ----------""NETWORK A"E"TO CONTINUE ENTER ANY NUMBER";ZN218^"WANT TO:"z "1-ENTER A NEW FREQ.?" "2-DESIGN A NEW NETWORK?""3-REVIEW NETWORK ";N$;" ?""4-STOP?"DD1208D2122D4344" !"8"IN ------------- OUT"c" CAPACITANCE "" -------------"" !"" !" "-------------------------------T Z= ";R1;O$) "COMPLEX Z= ";R;" + ";X2 234; 264j "---------------------------------------"p " ------------" "---------! INDUCTANCE !----------------" " ------------ !" "  "FREQ. IN MHZ? ";F* C1(C12PF); LL1(2PF)R C(C10000000)10c L(L10)10 "CAPACITANCE= ";C;" PF." "CAPACITIVE REACTANCE= ";(C110)10;O$ "INDUCTANCE= ";L;" UH." "INDUCTIVE REACTANCE= "(L10)10;O$ "INPU1X)2( C1(S2(RR))(L1X.0000001)> "NETWORK C USED"I N$"C"R 202d W4R1R1XXv Y4R1(RR1) ZXXRR K(WYZ) "CAPACITIVE REACTANCE= ";(C1100)100;O$ "INDUCTIVE REACTANCE= ";(L1100)100;O$ 234168 180 1926 C1((2R1X)K)(2(RR1))T L1((R1X)(C1(RR1)))Rj "NETWORK A USED"u N$"A"~ 202 192 L1(2R1X)K C1(L1(RR1)(R1X))R "NETWORK B USED" N$"B" 202 L1((R1RRR))X S2(L "RESISTIVE (OHMS) ";RM "REACTIVE (CAPACITIVE=(-); INDUCTIVE=(+)) ";X_ AXR1:BRR1h 234v A.5142 144 B1156 A0146 152 B1148 152 D((A2)((B.5)2)) D.5156 A.5154 180 B1 n936:P3.14159[p"************L NETWORK DESIGN***********"z"WHAT IS THE INPUT IMPEDANCE TO THE L NETWORK? ";R1|"ENTER THE COMPLEX IMPEDANCE OF THE LOAD; FIRST THE RESISTIVE COMPONENT THEN THE REACTIVE COMPONENT."       ";R2# "T10.693C1000000(R1R2)= ,T20.693C1000000R2R 6DT1(T1T2)100b @F1(T1T2) J"TIME ON (SECONDS) ";T1 T"TIME OFF ";T2 ^"DUTY CYCLE ";D;" PRECENT" h"OCILLATING FREQUENCE ";F;" HZ"170o FOLLOWING PART CALCUATES OUTPUT ON TIME, OFF TIME, AND FREQUENCY GIVEN RESISTOR AND CAPACITOR VALUES. "ENTER CAPACITOR VALUE IN MICROFARADS ";C "ENTER RESISTOR FROM +V TO PIN 7 (OHMS) ";R1 "ENTER RESISTOR BETWEEN PINS 7 AND 2/6 ? * "WHAT VAULE OF C (IN MICROFARADS) ";CF R2T2(0.693C1000000)e R1T1(0.693C1000000)R2 "RESISTOR FROM +V TO PINS 7 IS ";R1;" OHMS" "RESISTOR FROM PIN 7 TO PIN 2 & 6 IS ";R2;" OHMS" R1R25000000ĺ"RESISTOR ARE TOO BIG " A)F(B))0 J1);F(A);11);F(B);22);T1;32);T27 TB> hAD r^O BE CHECKED FOR INTERMOD ";N) F(N)/ : A1N_ "FREQ'Y TO BE CHECKED ";F(A)f Al 1);"FREQ'Y";11);"FREQ'Y";22);"INTERMOD";32);"INTERMOD"  A1N BA1N "NA1Ā ,ABĂB 6T1F(A)F(B) @T2(F(Ed INTERMOD LOCATOR4n BY DAN MORRIS, WB0VWQPp THIS PROGRAM COMPUTESoq ALL INTERMOD FREQUENCIESr CAUSED BY THOSE ENTEREDx FOR HARD COPY OUTPUT CHANGE 'PRINT' STATEMENTS IN LINES 250,260 AND 330  "HOW MANY FREQ'S T  -5iAN "WHAT IS THE RESONANT FREQ. THE ANTENNA IS TO BE CUT FOR ? ";AaC(4681000)Ak::"CUT YOUR ANTENNA WIRE TO THE LENGTH OF ";C;" FEET AND YOU WILL BE RESONANT AT ";A;" MHZ"#:::("HIT ANY KEY TO CONTINUE":A$ E D";I2 PC1(3.14159FR)((4I3)3.14159(4N))B ZCC1000000o dLR(3.14159F)((4I1)3.14159(4N))| nLL1000 x" C IS ";C;" MICROFARADS" " L IS ";L;" MILLHENRIES" I."73 MAGAZINE SEPT. 1980 PAGE # 924a "BUTTERWORTH LC LOW PASS FILTER DESIGN"g"HOW MANY LC STAGES ";N#("ENTER THE SOURCE RESISTANCE ";R-2"ENTER THE CUTOFF FREQUENCY IN HZ. ";F7<I1N F"STAGE  z# " Ҡ͠Ҡ  ĠΠɠ ĠΠɠ ŠԠɠӠҠҠҠΠ ҠРҠ! Ơ̠Π ŠŠҠ ӠנӠנ ɠˠΠɠ ɠˠΠɠ  Ҡ٠ĠҠ ̠Ġ  ҠĠӠŠ!ҠɠӠŠ"ҠϠӠŠҠϠӠà͠ĠҠ ̠ˠΠ  ٠ҠԠҠɠ>ԠӠԠˠԠӠ^àŠΠ٠ΠϠ àϠŠԠȠԠԠ̠ "ENTER RESISTANCE(R) ";R* P(II)RI "THE POWER IS ";P;"WATTS"O ] A1İ160G VARIABLE (R,I,E) ";B$( "B$"R"ī3209 ,B$"I"ī360J 6B$"E"ī400e @"ENTER CURRENT(I) ";I J"ENTER VOLTAGE(E) ";E TPIE ^430 h"ENTER VOLTAGE(E) ";E r"ENTER RESISTANCE(R) ";R |P(EE)R 430 "ENTER CURRENT(I) ";I";E& "ENTER RESISTANCE IN OHMS ";RU "THE CURRENT IS EQUAL TO ";ER;" AMPERES"[ ~ "ENTER CURRENT IN AMPERES ";I "ENTER RESISTANCE IN OHMS ";R "THE VOLTAGE IS ";IR;" VOLTS WITH ";R;" OHMS AND ";I;" AMPERES"  "ENTER MISSINA2İ200 xA3İ240% A4İ280h "DO YOU WANT TO DO ANOTHER PROBLEM? ";Q$:Q$"Y"Q$"YES"ī20n "ENTER VOLTAGE IN VOLTS ";E "ENTER CURRENT IN AMPERES ";I "THE RESISTANCE EQUALS ";EI;" OHMS"  "ENTER VOLTAGE IN VOLTS ^$10)"OHM'S LAW FORMULA",:V("SELECT NUMBER FOR DESIRED FUNCTION"\)t2"RESISTANCE(R) #1"z3<"CURRENT(C) #2"=F"VOLTAGE(V) #3"GP"POWER(P) #4"QZ"UNKNOWN FACTOR ";AdA1İ160 n#(Y$)201(Y$)1935206(Y$)194530I(Y$)212540_"AT LINE 625",Y$nF$"RUN":~F$"BRUN":F$"EXEC":&056,72,132,208,160,0,145,209,230,209,208,2,230,210,104,164,208,96,169,160,96: LINE #20 = DISK TITL OR RUN ANY OF THESE PROGRAMS? (THERE ARE MORE.) ";:380I hZ$W rZ$"Y"ıh |Z$"N"360 32,0:34,3:33,19:: (Y$)201(Y$)193440 (Y$)194450 (Y$)212460 470 F$"LOAD": F$"BLOAD":F$"EXEC": (X$,1)"R"İ480:2800 (X$,1)"0"2709 190Q ::D$;"CATALOG":h (X$,2,1)"0"270 "((X$,2,1))0190 ,: 6D$;F$;(A$(X),7,31);",V0" @ J33,19:32,20:: T32,0:34,22:33,40:A ^384:" DO YOU WANT TO LOAD:J10T21 T:J;3);(A$(J),7,16):JJ1:140K 32,0:34,22:33,40: 384:" TO RUN OR LOAD - TYPE OR AND PROGRAM # FOLLOWED BY A .";:380:" ";X$ X((X$,2,4)):Y$(A$(X),2,2) XJ1190 (X$,1)"L"İ400:280Q1,3:Q2,18:Q3,3:34,3X n24:D$;"CATALOG":D$;"PR#0":D$;"IN#0"::33,20:34,3::~ x384:" 0 CATALOG ":380 J1:QQ0A$(0)B$" " (A$(J),7,15)" "190 J18J53İ330 J36İ340:Z$"Y"190 T1 (I10011:A$(I)B$C$:B 2QQ(977)185:QQ0A$(0)C$" "Z <QQ0A$(0)C$" "z FI768788:PP:I,PP:I:I0 PZZ3037:I0:R0:QQ(977)185:QQ0ZZ3220 ZQ(977)(978)256ZZ:Z(107)(108)2568 d(209),(Z):(210),(Z1):Q,0:3 255:::A$(100):D$(4):D$;"NOMON C,I,O":"----------------------------------------";:384:" A.P.P.L.E. PUBLIC DOMAIN SOFTWARE ";:380:"----------------------------------------"C$" ":B$" "      4090 pCOIL (TURNS/INCH)=";P D1P8 X(5DL3)(R3R3) K Y((9R3)L3)a N((XX)(YY)) k NNX ::"NUMBER OF TURNS=";N :"TYPE 'J' TO JUGGLE COIL SIZE" "TYPE 'G' TO RETURN TO PI-NET" A$:A$"J"4000 A$"G"3050 L1, TYPE 'D'" 4 "TO TRY ANOTHER SETUP, TYPE 'A'"Z "TO TERMINATE PROGRAM, TYPE 'T'"o A$:A$"F"2040  A$"A"2010  A$"T"6000  A$"D"4000 & :"DOES NOT COMPUTE":3050 : "RADIUS OF COIL (IN INCHES)=";R3 "PITCH OF )(QQ1) C11(P2FX1C)1 *C21(P2X2CF)C L3X3L(P2F)d "C1=";C11E12;" PICOFARADS" "C2=";C21E12;" PICOFARADS" "L1=";L31E6;" MICROHENRIES" L3L31E6 :"TO TRY ANOTHER FREQUENCY, TYPE 'F'" "TO DESIGN THE COIL FOR   2000P26.2832:936<"PI NETWORK DESIGN"::`"INPUT RESISTANCE IN OHMS=";R1"OUTPUT RESISTANCE IN OHMS=";R2"DESIRED Q=";Q"FREQUENCY IN HERTZ";FX1CR1Q X2CR2((R1R2)(QQ1(R1R2))) X3L(QR1R1R2X2C   RD...TWO DISK SIDES+ ARE YOURS WHEN YOUG IDENTIFY WITHOUT DOUBTa THAT A FILE ON THIS { DISK IS COPYRIGHTED! P PxAAA HELLO#PUBLIC DOMAIN=BY RONALD D. MALEIKAR721 PIKE STREETjCHEYENNE, WY 82001{28 FEB 198111843,5@"APPLE AVOCATION ALLIANCE, INC."TP11000:Ph1184|(4);"CATALOG" REWA 454 ******************CN ANOTHER PI-NETWORK, TYPE PI; TO DESIGN ANOTHER COIL, TYPE COIL; TO EXIT PROGRAM HIT RETURN: ";Y${ Y$"PI" 20 Y$"COIL" 900::: ****************** LOUIS D. BREYFOGLE BOULDER, COLORADO (303) 449-6(9J10K))"  P0 P6.28319= CP1(L((F2)(P2)))C t  "******* CALCULATED DESIGN VALUES *******"  "NUMBER OF TURNS, N=";N   "PARALLEL RESONANT CAPACITOR,  CP= ";CP ::h"TO DESIG36 8  "* CALCULATION OF COIL OF INDUCTANCE L *"> h  F0 "OPERATING FREQUENCY, F=";F  L0 "REQUIRED INDUCTANCE IN HENRIES, L=";L "MEAN COIL RADIUS IN INCHES = ";J "COIL LENGTH IN INCHES = ";K  N(1J)(L1E6";C2 $ "INDUCTANCE L=";L, : "TO DESIGN ANOTHER PI-NETWORK, TYPE PI; TO DEGIGN THE COIL, TYPE COIL; TO EXIT PROGRAM HIT RETURN. "; " ";X$  X$"PI" 20  X$"COIL" 900 " X$"PI" X$"COIL" 999 9)1))1 BZ2(C)( E(Z2(QB))1C DE((QZ1)((Q2)1))Q P6.28319b C11(PFA)s C21(PFB) LD(PF) "****** PI-NETWORK COMPONENT VALUES *****" "INPUT CAPACITOR C1=";C1  "OUTPUT CAPACITOR C2=3"TO CALCULATE COIL ONLY, TYPE COIL; TO CONTINUE, HIT RETURN ";C$:b 4 C$"COIL" 900 < "SOURCE IMPEDANCE, Z1=";Z1 F "LOAD IMPEDANCE, Z2=";Z2 Z "DESIRED SYSTEM Q=";Q n "OPERATING FREQUENCY, F=";F xAZ1Q C((Z2Z1)((Q2 ::< "****************************************"Z, 12)"PI-NETWORK DESIGN"`.y/ 15) "L.D.B.-1978"0 "****************************************"1 10)"DATA IS IN UNITS OF:"2 "OHMS, HERTZ, FARADS, HENRIES AND INCHES":J   WY 82001" > "HIT 'C' FOR CATALOG - 'RETURN' TO QUIT"F C$V C$"C"780c 1184:p 1184: (4);"CATALOG" 4C"** PLEASE, SEND US A COPY **"$  "WE'LL RETURN YOUR DISKETTE, RECOPIED WITH ANY DISK SIDE YOU CHOOSE FROM THE LIBRARY, WITH OUR THANKS."  05 D"APPLE AVOCATION ALLIANCE, INC." X12 l"721 PIKE STREET" 10 "CHEYENNE, YOU HAVE FOUND SOME OF THESE PROGRAMS HAVE FAULTS AND YOU FIXED THEM?MAYBE YOU EVEN TOOK SOME PAINS TO RE- WRITE A FAULTY PROGRAM? IN ANY CASE..."  "WE WOULD LIKE TO HARVEST YOUR 'IMPROVED'PROGRAMS FOR OTHERS TO ENJOY AND USE." 6 x AAA MESSAGE' PUBLIC DOMAINB BY RONALD D. MALEIKAX 721 PIKE STREETq CHEYENNE, WY 82001 28 FEB 19811184:,12@"AN INVITATION FOR"T5h"APPLE TREES AND APPLE SEEDLINGS"| "PERHAPS    B$"LC"ĭA$"H"HP(63.141593R2LC): H0130N B$"C"VPH2i B$"LC"V2P314159 "DC OUTPUT VOLTAGE IS ";V;" VOLTS" ""PEAK TO PEAK PIPPLE IS ";H;" VOLTS". R CHOKE INDUCTANCE IN HENRYS ";LR "ENTER FILTER CAPACITANCE IN MIRCOFARADS ";Cb CC1000000 "ENTER LOAD RESISTANCE IN OHMS ";R B$"C"ĭA$"H"HP(60RC) B$"C"ĭA$"H"HP(120RC) B$"LC"ĭA$"H"HP(33.141593R2LC)- =FULL WAVE "" F" B=BRIDGE "* PA$D ZA$"H"PT1.4140.7] dA$"F"PT.7071.4w nA$"B"PT1.4141.4 xP0ī30 "WHAT KIND OF FILTER?" " C=CAPACITOR ONLY " " LC=CHOKE INPUT ONE STAGE " B$ B$"LC"Ą"ENTE."73 MAGAZINE SEPT. 1980 PAGE #95"O"LC HAS A BUG IN IT"U "POWER SUPPLY AND FILTERING CALCULATIONS""ENTER FULL SECONDARY RMS VOLTAGE ";T#("WHAT KIND OF RECTIFIER?"2" H=HALF WAVE " <" F   Y1158158IT3 X1,Y1% ;L LO0250, (VLO(BL(AB)(2A))6 21000\ <LO;12);V;25);(X.5)2(Y.5)2f F2000n KLOt P X0:Y0 I0VV200 XX(3.141592II)V200 YY(3.141592II)V200 I  IT(X.5)2(Y.5)2 X1LO&L ANTENNA HEIGHT-WM. WALKER 73 MAGAZINE NO 236 PG 57 (MAY, 1980)ZX10:Y10`q278,530,53|0,159"HOW FAR IS IT FROM TRANSMITTER TO OBSTACLE ";A"HOW FAR IS IT FROM OBSTACLE TO RECEIVER";B "WHAT IS THE WAVELENGTH"  59,59,N,N,MICKEY CALIF.J 800424 ,1440,JY3ZH,14.2,SSB,59,59,BOB JORDONE QSL VIA MY S.A.S.E.;R$"Y"ĺ"TNX FER YOUR QSL OM!!!"Ao"SIGNED: OP ""**************************************"904 END OF REPORT "END OF REPORT"::105 800101,0001,WA6SZC,14.2,SSB,"4301 GARNSEY LANE "3"BAKERSFIELD, CALIF"D"ZIP 93309"N::X::"TO: ";X$;"CONFIRMING OUR QSOAT ";Y$;" GMT ";Z;"DATE""YOUR RST ";U$;" RIG IS KENWOOD TS 520,ANT IS MOSLEY CL33 TRYBAND BEAM AT 52 FT . "R$"N"ĺ"PLEAS_ M S-R "4$N151:"=";:N:"=":&P PRINT QSL CARDSp::" QSL CARDS DATE ";D:y700A999999950S$"N"910S$"Y"ĺX$;" HAS BEEN QSL'D. ":904"**********************""C MICKEY HICKS,"PRINT DATA RECORD'Z;" ";Y$;" ";X$;\22)W$;" ";V$;" "U$;" ";T$;" ";S$;" ";R$;" ";Q$bv  REPORT HEADER!"REPORT DATE ";D:"" DATE GMT CALL FREQ MODE RST NAME QTH "#" TIME H X PRINT ALL LOG ENTRIES! Z:* \8003 ^700< b720E d606[  READ DATA FILE u A:ZA:Z999999ī950 A$:Y$A$ B$:X$B$ C$:W$C$ D$:V$D$ E$:U$E$ F$:T$E$ G$:S$G$ H$:R$H$ J$:Q$J$  ENTRIES BETWEEN ";N1;"AND ";N2:) 700; Z999999950P ZN1ZN2420Y 412b 720k 412  PRINT LOG ENTRIES BY CALL SIGN : "ENTER CALL SIGN ";M#:800 700 A999999950 M$X$514 506 720 506 ī600 F5ī9001 "INVALID, TRY AGIN":145G , ADD LOG ENTRIESO .: 0"ADDING LOG ENTRIES BY DATA STATEMENTS":1000  PRINT LOG ENTRIES BY DATE : "ENTER FIRST DATE (YYMMDD)";N2: "ENTER NEXT DATE (YYMMDD)";N2: "LOG S"::! n" 1.ADD LOG ENTRIES "F s" 2. PRINT LOG ENTRIES BY DATE"p x" 3. PRINT LOG ENTRIES BY CALL SIGN" }" 4. PRINT ALL LOG ENTRIES" " 5. PRINT QSL CARDS " :"ENTER FUNCTION NUMBER";F F1ī300 F2ī400 F3ī500 F4R APPLE II!  BY MICKEY HICKS' / Z:t ["C MICKEY HICKS, 4301 GARNSEY LANE, BAKERSFIELD, CA 93309" d"AMATEUR RADIO LOG" e"AND INQUIRY SYSTEM" f:"ENTER TODAY'S DATE (YYMMDD))";D: i:"SELECT ONE OF THE FOLLOWING FUNCTIONL  ** AMATEUR RADIO LOG **? * AND INQUIRY SYSTEM *Y BY COMPUTER WRITTEN BY CHUCK ZAPPALA WA7VZR  8051 NE 143ED BOTHELL WA 98011 VERISON 1.0 WRITTEN IN ALTAIR 8K BASIC VERISON 3.1  VERISON FO    -5iN "WHAT IS THE RESONANT FREQ. THE ANTENNA IS TO BE CUT FOR ? ";AaC(4681000)Ak::"CUT YOUR ANTENNA WIRE TO THE LENGTH OF ";C;" FEET AND YOU WILL BE RESONANT AT ";A;" MHZ"#:::("HIT ANY KEY TO CONTINUE":A$ * * * *"',' SQUARE ROOT SUBROUTINE<'X010040e$'"NO SUCH THING AS SQUARE ROOT OF A"})'"NEGATIVE NUMBER.".'8'YX2B'Z0L'W(XYY)2V'W0ı`'WZıj'YYW:ZWt'10060ORATIO (ABILITY TO":J"REDUCE UNWANTED SIGNALS FROM THE"fM"OPPOSITE DIRECTION) SHOULD EXCEED 10"R"DECIBELS FROM ABOUT ";.97F;" TO "T1.03F;" MEGAHERTZ, APPROACHING 25"W"DB AT ";F;" MEGAHERTZ."\ p"* * * * * G O O D D X *(" PRESS RETURN TO CONTINUE";R$.["THIS QUAD ANTENNA WILL WORK WELL EVEN""AT LOW HEIGHTS ABOVE THE GROUND, BUT IT""WORKS BEST WHEN UP IN THE AIR A HALF-""WAVELENGTH--- ";W;" FEET, OR MORE."*H"THE FRONT-TO-BACK "LESS) QUAD MOUNT IS USED,EACH SPREADER"P "WILL HAVE TO BE AT LEAST ";P;" ] "FEET."c  "THE TURNING RADIUS (FOR TREE CLEARANCE," "ETC) WILL VARY BETWEEN ";T;" FEET" "AND ";U;" FEET, DEPENDING ON THE LENGTH" "OF THE BOOM." "ELEMENT IS ";R;" FEET, WHICH IS"D R4;" FEET ON EACH SIDE."J v "THE MINIMUM LENGTH OF BAMBOO, FIBER-" "GLASS, OR OTHER SUPPORTING MATERIAL" "WILL BE ";S;" FEET, MEASURED FROM THE" "CENTER OF THE BOOM. IF A SPIDER (BOOM-"* ;B;" FEET" D"IS OPTIMUM."# NQ l"TOTAL LENGTH OF THE WIRE IN THE DRIVEN"| n"ELEMENT IS ";D;" FEET, WHICH COMES " q"TO ";D4;" FEET ON EACH SIDE." v " PRESS RETURN TO CONTINUE";R$  "TOTAL LENGTH OF WIRE IN THE REFLECTOR"% WAVE RATIO OF 2:1 OR"; "LESS OVER THE FREQUENCE RANGE"` "FROM ";E;" TO ";G;" MHZ WHEN " "USED WITH 50 TO 75 OHM FEED LINE": :"THE BOOM LENGTH CAN VARY BETWEEN ";75F <"FEET AND ";125F;" FEET WITH LITTLE " ?"EFFECT. A LENGTH OF "F X(2(RR64)) 10000( SY< X(SS(BB4))G 10000O PYn X((RR64)7575(FF4))y 10000 UY W468F "THE DESIGN CENTER " "FREQUENCY IS ";F;" MHZ" "THIS 2 ELEMENT QUAD SHOULD EXHIBIT" "A STANDING :55"CUSTOM DESIGNING YOUR OWN HIGH GAIN"[:" >>-->> ANTENNA <<--<<"a  "CENTER FREQUENCY (IN MHZ.)";F" >--> CUBICAL QUAD ANTENNA <--<"(E.985F2G1.033F<D1000FdR1032F B118 $;"BLOAD";N$;",A16384,L8192"( :2000. 4 P2A1C:A1(N),D(N) *- D(1)DS(1N)28 I1NO D(I)D(1)(I1)DSc A1(I)A1(NI) q :SCV2N{ 1000 "":R$  10:"WANT TO SAVE ON DISK"  R$:R1$(R$,1):R1$"N"4020 R1$"Y"3080 "NAME THE FILE";N$:D  6.2832,360,95,1400 P2,C,V2,H27 3A 936i "PATTERN PLOTTER FOR POINT SOURCE" "ANTENNA ARRAYS" : "HOW MANY ELEMENTS";N:N04030 "SPACING IN WAVELENGTHS (IE .5)";DS "DELTA PHASE (IN DEGREES)";A1 A16  2000dX0:Y0"nI1N<xADA1(I)P2D(I)(B)TXX(AD):YY(AD)ZnGSC(XXYY)GXH2G(B):GYV2G(B):YGV2G(B)G1(GX):G3(GY)G4(YG)G1,G3G1,G4B11180BP2B1C100    d6:"4. EXPANDED MINI QUAD":6 n6:"5. NONE":Q x:6:"WHICH ONE ? ";Mp M1000,2000,3000,4000,975  **** DIMENSIONS **** 10:"LENGTH OF ONE SIDE" 11:"REFLECTOR","DRIVEN","DIRECTOR"  12:450:12:460:12:470: F ::10x8:"QUAD ANTENNAE DESIGN":20:20:"L. TOOLE WB4UTT":20:"BIRMINGHAM, ALA":20:"OCTOBER 1978"#L(5)(23:"HIT RETURN ";A$<:8F6:"1. SINGLE BAND QUAD":P6:"2. TRI-BAND QUAD":Z6:"3. MINI QUAD":!              3/0,RHW,.4151,4/0,RHW,.48407 250 MCM,RHW,.5917O 350 MCM,RHW,.7620g 500 MCM,RHW,.9834 .3,.53,.86,1.5,2.04,3.36,4.79 7.38,9.90'S"TRY PARALLEL RUNS."* I1 3000: I5 2160> 17` 18,THHN,.0064,16,THHN,.0079 14,THW,.0135,12,THW,.0251 10,THW,.0311,8,THW,.0598 6,RHW,.1238,4,RHW,.1605 2,RHW,.2067,1,RHW,.2715 1/0,RHW,.3107,2/0,RHW,.3578-----""4::"MORE DATA (Y/N)";,> RE$AH RE$"Y" 2160VR RE$"N" 9999w\"PLEASE ANSWER 'Y' OR 'N'."f 2100p I1 SrAY(I)0t IvS1:SUM0:CT.5z 300 : ::"*** CONDUIT SIZE GREATER THAN 3.5 ***" :"CONDUCTOR: #";AY$(I)5"# OF CONDUCTORS: ";AY(I)W "TYPE OF CONDUCTOR: ";BY$(I)_ Iz "TOTAL A/SQ.IN.=";SUM%"FILL:";:CFCF100:(CF.5);"%";" --- ";*"CONDUIT SIZE: ";CT;2" INCH(ES)"3:"----------------------------------- p 1000z 8509 1010:REM ROUTINE COMPUTE CSN CT1.5 1040\CTCT.25g 1060tCTCT.5 CT3.6 3000$:"----------------------------------------"50,63:"IN CONDUIT :":50,255 I1 S0:SS1:TN0#N1 I1 NACO$,TY$,ARI IW I1 SgTNTNAY(I)o  I TN2 CF.31  TN2 CF.35* TN0 8304 850>"INSUFFICIENT DATA"H 9999RC\CSCFCf SUMCS 2000  "INVALID INPUT; TRY AGAIN."*  3707 AY(S)NUF AY$(S)CO$U BY$(S)TY$b STNUARp STA(S)ST SUMSUMST SS1: 300 &: 0:"DIAMETER IN INCHES"; : DI DAR((DI2)2)3.141593 NCO$"DIAMETER" XTY$(DI)b 48 NU J NU0 700% T NU0 370F ^"INVALID INPUT; TRY AGAIN."P h 310x r:"TYPE OF CONDUCTOR (ENTER -1 IF" w"DIAMETER ONLY IS KNOWN)"; | TC$  TC$"-1" 550  N  I1 N CO$,TY$,AR  TC$CO$ 480  I A/SQ.IN."9 "----------------------------------------"G I1 NW CO$,TY$,ARg CO$,TY$,ARo Iw : "HIT ANY KEY TO CONTINUE...";  RE$ " ,:10 6"NUMBER OF CONDUCTORS (ENTER 0 TO" ;"COMPUTE CONDUIT SIZE)"; @x:"WOULD YOU LIKE A SCHEDULE OF THE"N "CONDUCTORS NOW IN MEMORY (Y/N)";X RE$l RE$"N" 300 RE$"Y" 190 "PLEASE ANSWER 'Y' OR 'N'." 120 N: NUMBER OF CONDUCTORS IN MEMORY 2);"" "CONDUCTOR","TYPE",""N.E.C. 1968."? P:"THE PROGRAM WILL UTILIZE 31% FILL FOR"j Z"2 CONDUCTORS, AND 35% FILL FOR MORE" _"THAN 2 CONDUCTORS." d:"IF THE DIAMETER ONLY OF THE CONDUCTOR" n"OR CABLE IS KNOWN, ENTER -1 WHEN ASKED" s"'TYPE OF CONDUCTOR'."' 5AY(10),AY$(10),BY$(10),STA(10):S1:SUM0:CT.5; :AN 2);""p 10);"*** CONDUIT FILL ***"z(::2"THIS PROGRAM WILL COMPUTE STANDARD"<"CONDUIT TRADE SIZES BETWEEN .5 AND"A"3.5 INCHES, REQUIRED FOR COMPLIANCE OF" F     OHMS" : .TR3 235& "PI PAD ATTENUATOR:"@ R3(L1)2(Z1Z0L)Z T(L1)(L1)Z11R3e R11T T(L1)(L1)Z01R3 R21T 235 "RESISTOR R1 IS ";R1;" OHMS" " R2 IS ";R2;" OHMS" " R3 IS ";R3;" NIMUM PASD LOSS IS ";M;" DB"" Ki P"WHAT DB LOSS DO YOU WANT ? (MUST BE GREATER THAN MINIMUM ABOVE)"o U Z"DB LOSS PLEASE ";L _ dL10(L10) n"T PAD ATTENUATOR:" xR32(LZ1Z0)(L1) R1Z1(L1)(L1)R3 R2Z0(L1)(L1)/"73 MAGAZINE SEPT. 1980 PADE # 92"5[ "RESISTIVE T AND PI ATTENUATORS"a"ENTER INPUT IMPEDANCE IN OHMS ";Z1#("ENTER OUTOUT IMPEDANCE IN OHMS ";Z0-2T((Z1Z0)(Z1Z01))2<M10(T)2.3025 F"THE MI  I"BB$A$(J)ĺ"":DD1:110)BJ3BII1@BA$(I)B$IB,110,CTS = ";I(AK:"DUPE TOTAL = ";D:0:LAn:20:4:"CONTACT TOTAL = ";IjAs22:4:"DUPE TOTAL = ";DAx4:4:"LAST CALL = ";B$A""A12:4A"NEXT CALL = ";B$AB$"END"ĀAB$"DELETE"II1:110AB$"PRINT"ė:30BJ1J@@ K7LED DE-DUPERY@ A$(1000):8:8:"WA7TIB FIELD-DAY DAY DE-DUPER":14:10y@"ENTER BAND AND MODE ";M$@I0:D0:P0@110@1:::"K7LED FIELD-DAY LOG FOR ";M$@<:::X01000:X@AP1I:P,A$(P):P AF::"TOTAL CONTA  039:E0,47I:IA$:9382 RAINBOW COLORS:N1ML16:COL(L)gI16:MNI:E0,47MwI:NN6:LA$:938 DOT MATRIX GENERATORI15:J15:X(J),Y(I)J:I:A$:938 VERTICAL LINE GENERATORI15:E0,47Y AGAIN (1 THRU 6)":943H:N3:I015:I:M12:0,39N:NN1:M:IV21:9583)"0 1 2 3 4 5 6 7 8 9 101112131415"22:"SELECT COLOR (0 THRU 15)";CC0C1696423:"BUMMER SELECTION, ONE MORE TIME";C:958C:16302,0:I18:6)"6. CROSSHATCH":20:6)"7. TERMINATE THIS PROGRAM"j23:"---------> ";B:B780:B1B6949:16302,0:0:I4047:E0,39I:I15:B1952B2968B3980B4985B5988B699223:"BAD SELECTION, TRERN GENERATOR920:"HIT 'RETURN' KEY TO CONTINUE ";A$A:n4:4)"SELECT SCREEN DISPLAY BY NUMBER"8:6)"1. SOLID COLOR":10:6)"2. RAINBOW COLORS"12:6)"3. DOT MATRIX":14:6)"4. VERTICAL LINES":16:6)"5. HORIZONTAL LINES"<5F1(6.2832CF) 825?:: TV DISPLAY SELECTIONiX(5),Y(5),B(10),A$(40):X(1)0:Y(1)0X(2)10:X(3)20:X(4)30:X(5)39:Y(2)12:Y(3)24:Y(4)36:Y(5)47COL(1)3:COL(2)6:COL(3)12:COL(4)13:COL(5)9:COL(6)1 10:8)"T.V. PATT%A$*(A$)88850*/(A$)67875<1(A$)76900W4F1(((CL))6.2832)_6:o9A$;" = ";Fw>80K23:8)"-----> ";U$RA$"XC"925\F6.2832LFf825kF1(6.2832FX1)p825YX26.2832FFY82"THEN ENTER NUMERIC DATA"#D8);"CALC,0 STARTS PROGRAM"U:"ENTRY ";_A$,ApA$"F"ĪFAA$"C"ĪCAA$"L"ĪLAA$"XC"ĪX1AA$"XL"ĪX2AA$"CALC"ī800680 "DESIRED VALUE (X,F,C OR L)";C13932@C1411000)AC15140007BC16500ECC17500SDC18500aEC19500qFC2032767I"ENTER 0 TO QUIT",FJF032767N" "X500" " RLC PROGRAM **:"ENTER F, L, C, XC OR XL, THEN COMMA":"#"18. NOT PROGRAMED YET"=$"19. NOT PROGRAMED YET"N%"20. QUIT"U&Cb(C1200n*C210{,C3100.C46400C510002C620004C730206C840008C95000:C107000<C118000>C129000 ?NS"$ "10. PI ATTENUATOR (DELTA)"D "11. TEE ATTENUATOR (WYE)"[ "12. HEX < > DEC"} "13. T.V. PATTERN GENERATOR" "14. ANGLO - METRIC CONVERSION" "15. CUBIC AREA CONV. ANGLO" !"16. NOT PROGRAMED YET"""17. NOT PROGRAMED YET: "1. RESISTORS"/ "2. P-P TO RMS"K "3. RMS TO P AND P-P"d "4. A.C. CIRCUITS" "5. SINGLE LAYER COIL" "6. CAPACITY OF PARALLEL PLATES" "7. WIRE TABLES" "8. PI NETWORK IMPEDANCE MATCHING" "9. DBM CONVERSIOSSING NUMBER IS ";X J! O806 ^XR2(E1E2)E2? h325V wX(E2R1)(E1E2)_ |325v X(E2(R1R2))R2 325 "TOTAL RESISTANCE IS ";R1R2;" OHMS" 80  ELECTRONICS CALCULATIONS  16);"WHICH PROGRAM ?" :: 1 OR 0 "  R1 1 "ENTER R2 OR 0"7 ? R2E a 5);"ENTER E TOT OR 0"g o E1u  5);"ENTER E OUT OR 0"  "E2 ' ,R10350 1R20375 6E10400 ;E20450 @XR1R2(R1R2) E"THE MIRAM? HIT ANY KEY":U$:5003 d RMS TO P AND P-P; i:P n"CONVERT RMS ",^ x"VALUE";e Rt RR1.414z R;" = PEAK" 2R;" = P-P 80 VOLTAGE DIVIDER : "SOLUTION OF R NETWORK "  "ENTER R <500- ELECTRONICS CALCULATOR5:R"TO CONVERT P-P TO RMS"Xl("P-P VOLTS? ";,"15. ANGLO CUBIC AREAS"-1"16. QUIT":2E7<.707(E2);" RMS"F80MC15500NC1632767 P:"ANOTHER PROG                    (X0Y0N21280(2X0Y01390:<NN1:AZAZ1hdRRX:OOXX:EEYY:PPY:QQXY:1290nM(NQRP)(NORR)xB(OPRQ)(NORR):"Y = ";M;" X + (";B;")":"IF THE ";A1$;" IS ";:1:A1(A$)(A$)ĺ::A11:270A$4"NAME OF SECOND SET OF DATA ";:1::B1$A$N(A1$)(B1$)1250wN0:R0:Q0:S0:O0:P0:W0:E0:AZ0 :"WHAT IS VALUE #";N1;" FOR THE ";A1$;:1:X(A$):"WHAT IS VALUE #";N1;" FOR THE ";B1$;:1:Y(A$)X0Y0AZ01280";:1:C(A$)9"ENTER RESISTANCE IN OHMS";:1:R(A$)mG6.28318:Q1(GCR):QQ1E06:M(GCR)1E06s"3DB DOWN POINT = ";Q;" HZ":"TIME CONSTANT = ";M;" SECONDS"130:F1ĺ:1180240:"NAME OF FIRST SET OF DATA ";:1:A1$T)(A$):(A(T)0)(T1)ī1090/LA(T)01120JVRR1A(T):SSA(T):T}`R1R::"PARALLEL RT =";R;:R2ĺ" OHM":1140j" OHMS"t"SERIES RT = ";S;:S2ĺ" OHM":1160~" OHMS"130:F1ĺ:1070240 "ENTER CAPACITANCE IN MFD.000ī1060/" ","RX= ";M;:M2ĺ" OHM":1030<" OHMS"CTX130:F1ĺ:940a240$"NO MORE RESISTANCE NEEDED":1040."ENTER RESISTANCE VALUES ONE AT A TIME":"C/R=ALL":8R0:S0:T110:A(T)0:T:T110B"ENTER R";T;:1:A(":="ENTER TOTAL RESISTANCE DESIRED (RT)";:1:A(0)(A$)NA(0)0940bM0:N0:R0:S0T110:A(T)0:T:T110"ENTER R";T;:1:A(T)(A$):A(T)01040M0A(0)A(T)A(T)MA(T)A(0)980 NN1A(T):M1A(0)N:M1M:M10000:F(A$):F830,860,890:800>>170:190:P(II)R:920:130NHF1ĺ:830WR240u\150:170:PEI:920:130fF1ĺ:860p240z150:190:P(EE)R:920:130F1ĺ:890240:"THE POWER IS ";P;:P2ĺ" WATT":" WATTS690 240-190:210:I(PR):780:130=F1:750F240d210:150:IPE:780:130tF1ĺ:750}240 :"THE CURRENT IS ";I;:I2ĺ" AMP":" AMPS": 120*"(1) P=(I*I)*R"::"(2) P=E*I"::"(3) P=(E*E)/R":410XF1ĺ:590b240;l190:210:E(PR):650:130KvF1ĺ:620T240p:"THE VOLTAGE IS "E:y120"(1) I=E/R"::"(2) I=SQ.RT.(P/R)"::"(3) I=P/E":1:F(A$):F690,720,750:660150:190:IER:780:130F1ĺ: 2405 :"THE RESISTANCE IS ";R;:R2ĺ" OHM":D " OHMS":M 120 "(1) E=I*R"::"(2) E=P/I"::"(3) E=SQ.RT.(P*R) ": &1:F(A$):F560,590,620:530 0170:190:EIR:650:130 :F1ĺ:560 D240N210:170:EPI:650:13 "(1) R=E/I"::"(2) R=P/(I*I)"::"(3) R=(E*E)/P":Z 1:F(A$):F420,450,480:390x 150:170:REI:510:140 F1ĺ:420 240 210:170:RP(II):510:130 F1ĺ:450 240 150:210:R(EE)P:510:130 F1ĺ:4801:A1(A$):A1110000,11000,12000,13000,14000,15000,16000,17000,18000,19000:230W E J"WHAT WOULD YOU LIKE TO SOLVE FOR ";:1 hA1(A$):(A$)330 m(A$)57330 r1580 |A11230,390,530,660,800,940,1070,1180,1250,1570:330 1207ME, 'END'": "(0) NOTES"X "(1) OHMS":"(2) VOLTS":"(3) AMPS":"(4) WATTS"w "(5) PAR. RES. SOLVE RX" ""(6) PAR. RES. SOLVE RT" ,"(7) R/C TIME CONSTANT" 6"(8) DATA SCALING":Q @A10ĺ:"WHAT WOULD YOU LIKE NOTES ON? ";:A$))::I0ī380 S "ENTER RESISTANCE IN OHMS ";:1:R((A$))::R0ī380Y "ENTER POWER IN WATTS ";:1:P((A$)):P0ī380 :"NOTES AREN'T READY":THIS LINE SHOULD READ:PRINTGOTO105 330 ::A11 :"AT ANY TID$(4):240&A$:A$"END"Ā, Ox:"CHOOSE YOUR FORMULA":::::"WOULD YOU LIKE THE SAME FORMULA (1)":"OR ANOTHER (2)";:1:F(A$)::"ENTER VOLTAGE ";:1:E((A$))::E0ī380 "ENTER CURRENT IN AMPS";:1:I((     vA9RERCR2R0${A0RERIR2RDP::" ATTENUATION CHARACTERISTICS"y:" LENGTH = ";R2" FEET":"SWR RG-58/U RG-59/U RG-8/U"S:" VOLTS AND DB (DBM)"::"INPUT REFERENCE IMPEDANCE ";R0::"ENTER FR665:R03.364647164E3:RC.5153658355:RD1.535973087E3:RI.5491774798:R48.685889636: CONSTANTSg:"FREQUENCY (MHZ) ";RE:"LINE LENGTH (FEET) ";R2:"SWR (RATIO TO 1) ";R3:"LINE TYPE ";NN:NN0Ą"ATTENTUATION DB/FOOT ";R1l640qA8RER9R8R2YPES ARE:"::" RG-58/U (ENTER 58)":" RG-59/U (ENTER 59)":" RG- 8/U (ENTER 8)]:"IF YOU ENTER 0 FOR LINE TYPE,":"YOU MUST KNOW THE ATTENUATION (PER":"FOOT) OF SAID LINE AT THE FREQ.":"IT WILL BE USED"`bR83.403805577E3:R9.569748PICFF);" HENRY"AF0ĺ"FREQUENCY: ";1(2PI(LC));" HZ"R:"MORE? ";lA$:(A$,1)"Y"ī500r\X:" TRANSMISSION LINE ATTEN."::"THIS PROGRAM CAN BE USED FOR UNKNOWN":"LINES IF 0 IS ENTERED FOR LINE TYPE"::"ACCEPTABLE LINE T23):"AMPS"Z:" RESONANT FREQUENCY"::"DESIRED VARIABLE IS ENTERED AS 0":"CAPACITANCE? ";C:"INDUCTANCE? ";L:"FREQUENCY? ";F:PI3.1415926535:C0ĺ"CAPACITANCE: ";1(4PIPILFF);" FARADS"L0ĺ"INDUCTDNCE: ";1(4PIL):RE100HIHE:ICVC(RERC(RCRL(RCRL)))NR1HIVC((ICHE)11HI.07)iR210HIR1(R110HI):"R1 = ";R1;:(23):"OHMS""R2 = ";R2;:(23):"OHMS""RC = ";RC;:(23):"OHMS""RE = ";RE;:(23):"OHMS" "IC = ";IC;:(SIGN"::"RESTRICTIONS:"::" ZO > (250*Z IN)/DC CURRENT GAIN":"LOAD RESISTOR? ";RL:"ZOUT (EQUALS R COLLECTOR)? ";ZO:"Z IN ? ";ZI:"VCC (VOLTS) ? ";VC:"DESIRED VOLTAGE GAIN? ";AV:"DC CURRENT GAIN? ";HE-RCZO:HI1.1ZI:HFAVHI(RCRL)(RCR0(A$,1)"M"ĺ"L (MULTI LAYER) ";.8PERRNN((6R9L10B)1E6);" HENRY"2N0(A$,1)"S"ĺ"# TURNS IS ";(L(9R10L)1E6(RRPE))3N0(A$,1)"M"ĺ"# TURNS IS ";(L1E6(6R9L10B)(.8RRPE))5?:" TRANSISTOR LOW FREQ DE;L:"COIL FORM PERMEABILITY ";PE:"DEPTH OF MULTI-LAYER COIL (IN.) (0 IF SINGLE LAYER COIL) ";DE.:"INPUT UNKNOWN VARIABLE AS 0"::"INDUCTANCE ";L:"NUMBER OF TURNS ";N0L0(A$,1)"S"ĺ"L ";PERRNN((9R10L)1E6);" HENRY"N1L(PE11.684HSX(ODID)));] L0ĺ"INDUCTANCE: ";NN11.684E9HSX(ODID)PE;" HENRY"c ,:::" SOLENOID INDUCTOR"::"SINGLE (S) OR MULTI (M) LAYER? ";:A$:A$:j-:"LENGTH DIMENSIONS IN INCHES"::"COIL RADIUS ";R:"COIL LENGTH " AIR CORE"::"OUTER DIAMETER ";OD:"INNER DIAMETER (SAME UNITS AS OD) ";ID:"COIL HEIGHT IN INCHES ";H:"PERMEABILITY (AIR=1) ";PE :"ENTER UNKNOWN VARIABLE AS 0"::"INDUCTANCE ";L:"# TURNS ";N:SX(100)2 :N0ĺ"NUMNBER OF TURNS: ";(L1E9" VOLTS" " :"I MAX IS ";E (A$,1)"F"ĺVP2FC;" AMPS"f (A$,1)"H"ĺVPFC;" AMPS"l :"MINIMUM CAPACITANCE IS "; (A$,1)"F"ĺI(2FVP);" FARADS" (A$,1)"H"ĺI(FVP);" FARADS" :3:5:"TOROIDAL INDUCTOR;:A$:A$:. "INPUT CURRENT IN AMPERES ";Im "INPUT CAPACITANCE IN FARADS ";C:"INPUT VOLTS PK-PK ";VP "INPUT LINE FREQ IN HZ ";F I0170 C0190 :"PK-PK RIPPLE IS "; (A$,1)"F"ĺI(2F)C;" VOLTS" (A$,1)"H"ĺIFC; LINE ATTEN.":" 7. DB, DBM, VOLTS STUFF"S Q" 8. I/O BAUD RATE ADJUST" ZA$:X(A$):X100,200,300,400,500,600,700,800,900 d:5:10:"CAPACITOR RIPPLE"::"ENTER 0 FOR THE VALUE YOU WISH TO FIND": "FULL WAVE (F) OR HALF WAVE (H) "2 REVISION 1 23 NOV 79'<33,40F:2:5:"CHOOSE FROM:"::" 1. CAPACITOR RIPPLE":" 2. TOROIDAL INDUCTOR":" 3. SOLENOID INDUCTOR":" 4. TRANSISTOR LOW FREQ DESIGN". P" 5. RESONANT FREQUENCY":" 6. TRANSMISSION          D. POSITIVE LEAD TO THE 'U' TERMINAL."/:"11. A JUNCTION DIODE MAY BE COMPARED WITH A RESISTOR BECAUSE IT ":"PERMITS CURRENT TO FLOW THROUGH IT IN EITHER DIRECTION." "A. TRUE.""B. FALSE.""C. A JUNCTION DIODE DOES NOT ALLOW ABOUT ONE HALF OF THE FORWARD RESISTANCE."3:o"10. TO FORWARD BIAS A JUNCTION DIODE CONNECT THE:":"A. NEGATIVE LEAD TO THE 'U' TERMINAL.""B. POSITIVE LEAD TO THE 'N' TERMINAL.""C. POSITIVE LEAD TO THE 'P' TERMINAL."'" IS ELECTRONS."7"C. THE SAME AS IN 'N' MATERIAL."]"D. FROM POSITIVE TO NEGATIVE."e:"9. THE REVERSE RESISTANCE OF A SILICON DIODE IS:":"A. HIGH.""B. LOW.""C. A DIODE DOES NOT HAVE 'REVERSE RESISTANCE."+"D. "7. GERMANIUM AND SILICON IN THEIR PURE FORM ARE:":T"A. SEMICONDUCTORS."k"B. CAPACITIVE.""C. INSULATORS.""D. CONDUCTORS.":"8. THE MAJORITY CURRENT CARRIERS IN 'P' TYPE MATERIAL":"A. IS HOLES.""B. RWARD BIAS MUST BE .7 VOLTS OR GREATER."ae"D. THE REVERSE BIAS MUST BE .4 VOLTS OR GREATER."ij:o"6. THE MOST COMMON SEMICONDUCTOR MATERIAL IS:":t"A. GALLINIUM."y"B. GERMANIUM."~"C. SILICON.""D. RUBIDIUM.":9NT TIMES THE INVERSE RESISTANCE."=J"D. ALL OF THE ABOVE."EL:wQ"5. BEFORE A SILICON DIODE WILL CONDUCT:":V"A. THE FORWARD BIAS VOLTAGE MUST BE 7 VOLTS OR GREATER."["B. THE REVERSE BIAS MUST BE 4 VOLTS OR GREATER."(`"C. THE FO$"B. OHMMETER."&)"C. AMMETER."D."D. NONE OF THE ABOVE."L3:8"4. THE VOLTAMPERE CHARACTERISTIC OF A JUNCTION DIODE IS:":="A. A GRAPH OF VOLTAGE VERSUS CURRENT."B"B. THE RECIPROCAL OF THE INPUT."!G"C. EQUAL TO THE CURREURRENT THROUGH THE DIODE.":"D. FAILURE OF THE DIODE."B:}"2. THE FORWARD RESISTANCE OF A SILICON DIODE IS:": "A. LOW.""B. HIGH.":"3. THE FORWARD RESISTANCE OF A DIODE MAY BE CHECKED WITH A:":"A. VOLTMETER."";Q$Q$"Y"ī10 }:"1. AFTER A DIODE IS TURNED ON, AN INCREASE IN FORWARD VOLTAGE WILL":"RESULT IN:":"A. A DECREASE IN CURRENT THROUGH THE DIODE.""B. AN INCREASE IN CURRENT THROUGH THE DIODE.""C. NO CHANGE IN THE C"  P1N C55001,55002,55003,55004,55005,55006,55007,55008,55009,55010,55011,55012,55013,55014,55015,55016,55017,55018,55019,55020 P D$;"PR#0"  "YOU HAVE JUST RUN ";N;" COPIES OF TEST #";C "ANOTHER TEST? 1000 ZC3C5200/ d"HOW MANY COPIES?";N5 iR n"OUTPUT TO PRINTER?";P$c xP$"N"ī200t P$"Y"ī150} 110 D$"" D$;"PR#1" 200 S110::S "ELECTRONICS: CHAPTER ";C;" NAME...................DATE.........."TOUCH 'RETURN' TO CONTINUE!";MM$( S :"BASIC ELECTRONICS CHAPTER TESTS."_ BT(X)e  "THERE IS ";BT;" BYTES LEFT IN MEMORY" 2:"IF SEMESTER TEST IS DESIRED ENTER '99'" <: F"ENTER CHAPTER TEST DESIRED. ";C K PC995E USELFUL TO OTHERS!":"IT MAY BE MODIFIED AS DESIRED." :"IT WAS INTENDED THAT THE SAME BASIC":"PROGRAM BE USED WITH DISCS FOR EACH SECTION OF THE COURSE, USING OTHER DISCSFOR TOTAL COURSE." :"BY HAROLD JEFFERY, KNIGHTSTOWN, IND 1980"" VERY" "CLOSELY RELATED TO COPYRIGHTED MATERIAL,THEREFORE DISCRETION SHOULD BE EXERCISEDIN THE USE OF THE QUESTIONS IN THIS":"PROGRAM. SOME WERE TAKEN DIRECTLY FROM":"THE WORK-TEXT BY ZBAR!"7 :"IT IS HOPED THAT CONCEPTS IN THIS PROG- GRAM WILL BD\:"THIS PROGRAM IS UNDER DEVELOPMENT FOR":"USE IN A HIGH SCHOOL ELECTRONICS COURSE.TEXT USED AS A BASE FOR THESE QUESTION":"IS ZBAR'S 'BASIC ELECTRONICS, 4TH ED.'.":"ALTHOUGH THERE ARE NO RESERVATIONS ON" "THIS PROGRAM, QUESTION MATERIAL IS                                       O TRY SAME DATA WITH A NEW TOD % ON PEAK ? ";GO$::JxGO$"YES"2900@ "JUNE","JULY","AUG","SEPT","OCT","NOV","DEC","JAN","FEB","MARCH","APRIL","MAY"'S;(TD(L).5);34);(FLT(L).5)% L<RRUM0:TCUM0:FUM0HM011zRUMREG(M)RUM:TCUMTD(M)TCUM:FUMFLT(M)FUMREG(M)0:TD(M)0:FLT(M)0LM~"TOTALS ";19);(RUM.5);27);(TCUM.5);33);(FUM.5) ::6"DO YOU WISH T600 REG(K)PREGRESTWREG(2)VTD(K)TDCHGKWH(K)(PKWTD(0)(1PK)WTD(1)FADJ)yFLT(K)FCHGKWH(K)(WFLTFADJ)K?"MONTH";10);"KWH";20);"REG.";28);"TOD";34);"FLAT"XL011MNTH$MNTH$;10);KWH(L);20);(REG(L).5);28)300PREST70062002PREGPREG400WREG(1)DRESTREST400Y|REST12006400sPREGPREG500WREG(2)DRESTREST500REG(K)PREGRESTWREG(3) 6600pREG(K)RCHGKWH(K)(WREG(0)FADJ)66008REG(K)PREGRESTWREG(1)6)RCHGKWH(J)SREG(0)KWR(J)FADJ+4500HhREG(J)PREGRESTSREG(1)~TD(J)TDCHGKWH(J)(PKSTD(0)(1PK)STD(1)FADJ)FLT(J)FCHGKWH(J)(SFLTFADJ)\JK511$KWH(K)3006000PREGRCHGKWH(K)FADJ300WREG(0)RESTKWH(K) ON PEAK ";PKY % PKPK1000 J04; PREG0R KWH(J)300ī4000x PREGRCHGKWH(J)FADJ300SREG(0)H RESTKWH(J)300 REST15004200PREGPREG1500SREG(1)tRESTREST1500REG(J)PREGRESTSREG(2)<4500!REG(J. RATE CUSTOMER CHARGE ";RCHG:9RCHG0RCHG2.75A. :` "START ENTERING KWH CONSUMPTION DATA WITH THE MONTH OF JUNE, AND CONTINUE SEQUENTIALLY THRU MAY":  I011( "INPUT KWH FOR MONTH ";I KWH(I) IT "ENTER %!WFLT0WFLT.0276Al"ENTER FUEL ADJ. FACTOR ";FADJ:ZFADJ0FADJ.003669"ENTER FLAT RATE CUSTOMER CHARGE ";FCHG:FCHG0FCHG154"ENTER TIME OF DAY CUSTOMER CHARGE ";TDCHG:MTDCHG0TDCHG15#"REGY ON PEAK RATE ";WTD(0)5 WTD(0)0WTD(0).038r @"ENTER WINTER TIME OF DAY OFF PEAK RATE ";WTD(1) YWTD(1)0WTD(1).017 "ENTER SUMMER FLAT RATE ";SFLT: SFLT0SFLT.0461 "ENTER WINTER FLAT RATE ";WFLT:...KWH ";WREG(3)1 WREG(3)0WREG(3).0244m "ENTER SUMMER TIME OF DAY ON PEAK RATE ";STD(0) -STD(0)0STD(0).0587 x"ENTER SUMMER TIME OF DAY OFF PEAK RATE ";STD(1) STD(1)0STD(1).017 "ENTER WINTER TIME OF DAG(0) ' WREG(0)0WREG(0).0640` "ENTER REG. WINTER RATE 300-700KWH ";WREG(1)f  WREG(1)0WREG(1).0356 L"ENTER REG. WINTER RATE 700-1200KWH ";WREG(2) eWREG(2)0WREG(2).0301 "ENTER REG. WINTER RATE 1200- qSREG(0)0SREG(0).0674Y "ENTER REG. SUMMER RATE 300-1800KWH ";SREG(1)v SREG(1)0SREG(1).0515 "ENTER REG. SUMMER RATE 1800- ";SREG(2) % 9SREG(2)0SREG(2).0435 "ENTER REG. WINTER RATE 0-300KWH ";WREES":M "KWH CONSUMPTION IS ENTERED FOR EACH MONTH OF A ONE YEAR PERIOD":U :} ,"ENTER '0' FOR THE DEFAULT CASE": E SREG(2),WREG(3),KWH(11),REG(11),TD(11),FLT(11),STD(1),WTD(1) X"ENTER REG. SUMMER RATE 0-300KWH ";SREG(0) ] _d"THIS IS A PROGRAM TO CALCULATE THE COSTS OF DIFFERENT OPTIONAL SRP RATE PLANS ":"THE THREE PLANS COMPARED ARE THE REGULAR RATE, THE TIME OF DAY RATE, AND THE FLAT RATE": "DATA IS ENTERED FOR ALL THE RATES OR DEFAULTED TO 1980 RAT     /"73 MAGAZINE SEPT. 1980 PAGE # 91"5U "555 TIMER DESIGN PROGRAM"["DO YOU WANT TO CALCUATE COMPONENTS, OR FIND OUT?"#("WANT THE TIMER IS DOING? - TYPE C OR F"2A$<A$"C"ī110FA$"F"ī260P30a Z     ;:CF0:1p#'ER(222)-'""a$'ER45ER220ĺ:"ENTRIES OUT OF RANGE!!"::90gt'COPYRIGHT MAY 1979 BY BILL BLUE OK TO COPY PROVIDED THIS NOTICE STAYS INE OF 300""KWHR. IF YOU HAVE ELECTRIC HEAT IN THE":"HOUSE YOU GAIN AN ADDITIONAL 550 KWHR,":"AND 250 KWHR IF YOU HAVE ELECTRIC HOT""WATER. THIS WILL YIELD YOU A MAXIMUM OF":"1040 KWHR ALLOWANCE FOR AN ALL ELECTRIC":"HOME" "C/R TO RUN "HR FOR ANY AMOUNT OVER""YOUR 'LIFELINE' AMOUNT"::"THE LIFELINE AMOUNT IS DETERMINED BY ":"WHAT MAJOR ELECTRICAL UTILITIES YOUR" "HOUSEHOLD USES. A GENERAL HOUSEHOLD":"WITH GAS WTR HEATER AND HOUSEHOLD HEAT":"WOULD HAVE A LIFELINE ALLOWANC"RATE TOTAL, EXCLUDING METER AND SERVICE"g"CHARGES, OF YOUR ELECTRICAL POWER CON-":"SUMPTION.":"IT IS BASED ON THE SAN DIEGO AREA RATES":"OF $0.03932 PER KILO-WATT-HOUR IF YOU""ARE UNDER YOUR 'LIFELINE' ALLOWANCE AND":"$0.05613 PER KW$";! TP(TP100)100,& TP$(TP):TP$;A( TPLN%0:3120W+ LN%(TP)(10)1t0 LN%(TP$)ĺ".00":31505 (TP$)LN%2ĺ"0":3150: N :1010*::"THIS PROGRAM IS USEFUL FOR CALCUALTING":"COST PER ITEM PER MONTH, AND A GENERAL":" KWHRS"$ :"C/R TO CONTINUE";A$o :"YOUR TOTAL POWER CONSUMPTION FOR ITEMS":"LISTED, IS ";KH;" KWHRS" KHLLTPKHUL:3100 KHLLTPLLUL:TPTP(KHLL)OL :"BASED ON THE FIGURES DESCRIBED EARLIER":"YOUR TOTAL FOR THESE ITEMS IS PTP1:".0";"(HM$)TPTP14KH(IC)2045FTP);KH(IC);nTP((KH(IC)(KH(IC)))100.5)100LS((TP)):LS1ĺ".00";LS2ĺ"0";KHKHKH(IC)ICEC130004ICIC1:2030 :"YOUR LIFELINE ALLOWANCE IS ";LL;"KWHRS/MO" X140:"-";:: EC$(IC);:TP22(EC$(IC)):HM$((((HM(IC)100.5)100))):HM(HM$):HN((HM(IC)HM)100.5)100 HMTPTP1 TPTP(HM$) TP);HM(IC); HM$((((KH(IC)100.5)100))): TP11(HM$)((HN)):HNT0":450 PTI1PTĺ"0":4501 PTI2ĺ"0"D :ICIC1:300 :"DO YOU WANT A SUMMARY AND TOTAL ";:1:(A$,1)"Y"2000 :"DO YOU WANT TO START AGAIN ";:1:(A$,1)"Y"Ľ:90  :IC0:KH0 :PT0 "ITEM";15);"HRS/MO";5);C)(HDDM10)10:KH(IC)(WTHM(IC))1000I KH(IC)(KH(IC)100.5)100w :"CONSUMPTION = ";KH(IC);" KWHRS/MONTH" TCKH(IC)UL:TC(TC100.5)100 TP$(TC) PT0 "AT A COST OF $";TP$;:I1(TP$):(TP$,I,1)"."PTI :PT0ĺ".01;" ";:CF0:1:EC$(IC)A$:(EC$(IC))ICECIC:1000F 6(A$)300 @"POWER CONSUMED (WATTS) ";:CF1:1:WT(A$):WT320 T"HOURS PER DAY ";:1:HD(A$):HD0HD24340 h"DAYS PER WEEK ";:1:DW(A$):DW1DW7360 rDM(DW7)30) HM(I WANT TO SUMMARIZE YOUR ENTRIES":"TYPE C/R IN RESPONSE TO 'ITEM'"::x "DO YOU HAVE ELECTRIC HEAT ";:CF1:1:EH$A$ (EH$,1)"Y"LLLL590 "DO YOU HAVE ELECTRIC WATER ";:1:EW$A$ (EW$,1)"Y"LLLL250 "IC06 ,:"ITEM #";IC 90A$Z:3_D$(4):10000VdEC$(100),HM(100),KH(100):CF1unUL.03932:OL.05613:LL300{"******* ELECTRICITY CONSERVATION *******"::"DO YOU WANT INSTRUCTIONS ";:1:(A$,1)"Y"İ5