)-READ MZ-rCOAX BZS CURVE1 DATsNCURVE10 DATt~CURVE11 DAT&UCURVE12 DATJCURVE13 DATJCURVE14 DAT!(CURVE15 DAT$}CURVE16 DAT'CURVE2 DAT* CURVE3 DAT-{CURVE4 DAT0CURVE5 DAT2CURVE6 DAT54RCURVE7 DAT8kCURVE8 DAT;#CURVE9 DAT>*DESIGN1 BZSA(DESIGN2 BZSi(ԮFILTER BZS)gMATERIALBASߑMENU BZS5TRANS BAS?& v-READ.ME-[Vector Board 716-544-1863]%  S@f4  a2NC)r7DH(r4& ;Ȏct&CHDp42D3 3ΦĔ@A'q\A)Ѐf|n;k(4 3&IҾC( ɢA4A)Hbd1ʌ'9Ji6 l7x ;|~ l0 6)S)qM.O hudozS@?6\)a}~'4OIQ\S$YER"HB)H a,$@(碰$R:ȅA%e:"1e"]3ÍRqP‚!0lW*g K(HR#}sm1 M&9r'Sg3(& ".@׸bx$"s.n @H  &P,$ A PHt Ț "` A bP!c*)2*FHu2S3M\s\N9!9SvS@ :OY & ""bhȆ@ @{ک 8C XkT-eP5XUrUe[iVVuUAłs`]gUZVgvկm6o\6l\w5t[ "!'}, e "QJQTe4!ވ&>B ]M5(h٭Xqb UcN偖e'9>RmWl" &蚆`aTm!݊bE 8>g}i=([`AMh56hkZp ^Xiacirvʹ٦]z:muy7R(=) $Lx-R uH`)ᆁX.jy`ny/UK߹t_$JSR3t|swAre &j@v˙v4cēJEBaMbTGHaIP*DB%,1@!UJ28ל&0@'CB*TdV /k! ~)uZ:ΫXkRR WhXDscK 3 384ՖSbXDM5vZYfڄ4dYnDd*T#H|l^rH/GnA//T*R9FIUel^ͅ p0HVB zcHǂ$qK*r40_ :PQ@P۴/ۘlIsѴW>H1A6uCS6C#tSC R}&. &=J'`52Mv\ Q0MĴ VdpxȗdlF88$+#chM )*bn0L PlwP0D({" :p /0~%86A w3Kdo QGdc% /p$1 1 U \a0|N ~c9Nc *LP@whldiA(H)#'lJ&슞 B*,@h˙)~1ܓm hGޏnP; 18A.@&$`N w]ɖhs2,g\Re7 j>:%0wRLR`xtft l?``E$`Vs |0lެQv_΂-겺M |-T)F'(ֻ2&c㞏0l΄҇%x8r1&A);"(:^`Ѓ3N3.ltj') `zK@ z}GNf2`bO (&hJ| 8FHR8HRI("39M'Lk>a^"L"9q.$e)ҳB$712a.l"3r> 3RE,@ dLs``D7@$\. @@XgB4'Q)%%s3RF,vPEcI$j[3v;Q%C'E,].1 V4\i~gK-NG7v 4N)MmK4 f .\LT ?.3PBbILP5 BhjPFPK1R?RNBDt-ʦ  #@ؘE Ɖ) GBWP? o)qE8$B 0)C<R`d/YQJ"ES\nUpt5K܅rX)!(tF5ڃK`2 q~o]!1]h,ȱ4vi`]aO ZmO+UQAFV46a1y+s7viTE8udk< ^hR\+6)N좦7Jk{i+Ei-P-^MNMD>U)'VAJQlYpyV0aDJ+"BIfv Qu `_ rCvY & CdC  w aW,r^)v^00WKtkaQ p1u [`sF$*E43<sDYzO bE+vcS,q00wz7$w9c{g`En^V@  @0 4éTU.fS{g7[eFr)Ÿz+i 8X Jp- Js0b+.OO.v.deDZT6@& $F8fb")vSMqaqSw;Q߉~P A}SfwQ#8XaNc!a\uFL8ɉ]fح5)oOcُCxXϐ M|WxNF57,΄F\mfj:55 `Vӓ2' eB*NwM0xˏywN9+u_ˑ1p;+ە#*Me;kJz׹۲"vRH/<;j"RKjqgS"uYѿ2oE2 b4Ƶ!1Q" r;l ):rȤ `+H s|&\8єSvmBZ-h`; R:̯iI1g0]*̣uI7}[ė"89\-<щj# /T_$VF0 Z 5TRYU9V1 8qvuyHlqǭI I80T. L YV$Sʃme)nA "vDESIGN2.BAS[Vector Board 716-544-1863]% F $P %  "Jd98@P)" 4]aY %0V$q P%I1PV% DaL8k5DbN"P )!j@>C $ a]VFЂUɉ(sgȤhME(R%ƲyN*JSy("r<3T)2B H#^Hdi7BI 9B8cKR89DIѲ \FaIyFRb8T  D)pB} [܅+=΂6+0@!0tp! .p`""t" (H( R+q0a WC0jBHA QH!LsapFѸPHq!#HT #N& x"Âh,K`' {ģB >Xk>B/t"B/WA G%tXi@Q5?a*4XsJmE>TuMTURՕ=]Tu[YcZW5uXȂ #+!'|  dȇA/Lxd4@ +I9W, !P5qMԡ3SCM {JS}D(J `%dBug\-e [vg a\M)K}.cHХsy`mT"*ԡSkRHRiK RPiUTd6c!Oy`u%Vj[n7LD H -T`ϕVˆ4RPjt3ˆnt5ϮQE4%O2!kd{MC PgR:N""|Ah b{B X^B;yq>늳@C wVMN ߄Аp"d5砷0}o'"(\8\2g4E"9 M$靃`x; ĩ ANP)$0U^<'P$^gf(+v{wp=ȿޔ eDE@P8:Oء7D "b'BN螂-̧7>5TUkϠ_KB$A.oUآUk5B@ֲ"'*Aȋ2:pK=&j`)=%5S@ۗO@"0?#ߩ hY!p6A089zAQ `Zn"M!{,A4"à :I%L% ($s8|"9##@;8Bs;)+*BA@<;9BCH8(-BT7(&CQ hEA$@<.D2:dVğBlQQT<-p*2BF+f+dw? FM(VU.Wҥy>´VpB\4Bx*LW<K0-yҾXFn5#X턫",T,Y"!Ws@EzV{3֪kWk͵mQ[mzp؜ ؓ$/ جEtA@A||#qAXd:$P,BBY01 W PJ(I8ŪV4կB+C\%*CdRLSXVC[Cäs>mg۝\&E$]IĩPS܋]L=]coqDmDWutW(^-ϘH6儀 /!EY *Hͪ+^ڥBH>+ƈ;N5MzMrEC"A_(M;(_͘Y)HdE=ػݫ> C5p!?51]a-a}X|'a(a( W(㧆~+a]?c'6'65cfe.Wd># J٫b` QQ:4[>z(7pHel$)n$ez7?d%f2䀣gVndQ@d)R g; .~v<'E `٥f pYmЛ>)EYZYYETf~_D) 9u%8$.3C.˵ V"i &Hk"!|8&H} -LtS Z#4S @ ҪCmńI4 ؞(yOFnr֫Jhl^mV *C|.b ͙(p!CHqVQJ~όQ>{~b+ n"+#\;Հ~|nUjЎc0 nk%"94(j9ṈɒهG; BU4` 6F< 0 OT &}N&{kyƺyFr{'q) (@*ȋGB819L-l/H ,#:@񌠟U3:i D￶GW͕oJ1*3qKȧ2 I*TH( Y  #"+D ߎ`@'/q3f|p (q\dx!UXʟq?9a"j  A Ci$!E25*6yԈJpdL +x<{mqGp %vFILTER.BAS[Vector Board 716-544-1863]% D")4@M' $bI #B@_!DL I&x^8So7 P` ($XR CaLe9EIg9Ja* "Jd98 JP9$ACK!Nl5B AH 'H$GYM)l8"qH(B)B*Ћ=071@VkRI@L"p/!ʥf-!&ӍVNJ7$2EEJPqZ@,}~(?Ѓ)/# AB P)p[/ /t$\jF^;DhH`"K! Dª"n*"Q|Z'C!N߉ȈP"ALR*z΋ KHkpA"90DtW(NO*HȒ(&)#M(*$y#ҁ,*>|'~N"H08-@B c- z a7-&⒐jD-L_h3'Bbb!/Dx́?_N7L kLN/v}b)bPu}- X"uQ*Bu)# B(*G(*Ow$"6 'A!f$()2ITD-B}$^'h_B+ хMڦ[[UkhAʡ]:wXPf-kôW%T>Ta,'~`QPg~k{ɴ U!w(}~+*2|ӱoׯaMxgsw[*)|!]{R˜! KBw`6N0^%R A!z9pPH)5:#7 P5N lDn4%O^#q@w=5|+fX\W~T@+B3\b0M:>BV $ 2 NكT\܂[om3f@K4@=UT  ]qFIH{!@/%:FYqM'/`3.*CB):yWRJt rJ(@P6BL'G bP "`yhM) yCj4"\APZ<Y6 ȹ9DA Oi;f0MF50䌎@On5Jjtt fYFAB̓74h/[G @^ $ƓAFu8f&h2B-pZ H yN KNި=zAVPRX>$+7VU}"; )3M 'IFQj_LLbJ4NpiOkPt',S%mMjɢ|"r쎰 SDmo QP `, fBǖ(i#nDz2(}کx")ۃ̍n^W :n /P's/Ġ@Sw Y@;MG+7xNzpuu0P2"vT-L2B\hb vRʯ=CȎ˾@" Sw"N7 eI(^iC l>RdH7`vTg}7eFMs[(+ݕ%E5;*nq~; Ys&o^Iƒ8Ai̍0/䁈 <$m;ZÁ +*80z7#x:$Qu +Ðۣߣ ( !I%8x'F?A@)Lؿ(AP&l [ۈ¹**:?8D?BXB &:ω!N)¹ Bꏊd; "3h#CT6 P0"C&AE,(!$=+𛁙RsDISH&?hBdHs3#4 :cDE4`Qg|p+K=g g,I*"6vYYU#WiH5vv^i\7]06P66Wkp6j=na%i#a 2s#r8P5 Y7i&VAU .&*֎(aQyP꩖pS8D!㢻#9+ ecz9+ k'Qt 8T_:u:G; F)L;j;z[DkAY;Ĺ ʠ:%s¼:OK ̔KKĺ%̿mt̄kT7シnvV=S>+K{辙!#`oj_~]Έ Μ }P8y'?6aO мNNg&p   O|ֲp],ЁЛ- Gj_pY 7'# .5H]q-'51QhL$!m#18&'q= r)Rg/h-mE/i?52SU]4:npP S@ 2k-;tG/83_QtV/@*5%= =EUhp?\@:/T@1T5JH"$ ?mPHTabtH$MJk^T0='ް^tZU-WzWmaU^u4խs 5]>Mu(7Ղ BV67Ahk->MkWnLxאa'MtxMWcqW}{R;pMrP'U@`pswxQMQ*` :5 REM MODIFIED FOR CP/M BY JIM LILL 8/3/86 version 1 10 PRINT CHR$(26) 20 INPUT "OVERALL DIMENSION OF DIPOLE IN MM :- ";DO 30 INPUT "INTERNAL DIMENSION OF FOLDED DIPOLE IN MM :- ";T :R=T/2 40 INPUT "DIAMETER OF ELEMENT :- ";DE 50 A=2*(DO-2*(DE+R)) 60 C=2*22/7*(R+DE) 70 D=A+C 80 PRINT "TOTAL LENGTH OF MATERIAL REQUIRED :- ";D;" MM" 90 PRINT "START OF BENDS FROM CENTER OF ELEMENT :- ";A/4;" MM." 100 PRINT :PRINT :PRINT :PRINT 110 INPUT "ANOTHER CALCULATION Y = YES N = NO " ;X$ 120 IF X$= "N" THEN RUN "MENU" 130 IF X$="Y" GOTO 10 140 GOTO 110 vMENU.BAS[Vector Board 716-544-1863]% D")4@M' $bI #B@_!DL I&x^8So7 P` ($XR CaH L"){?R N 8T"HR$NMuyA[G4VD w*M;b.$9$AmpluheHdlFP'!$T$!HeRfOMEk68TTyc^ A,qsdvqu%N@T)Wq26'V??x&0ڦ @ ¨!>"xo#h@'$bC'"A *EУ X'*q1t;q|3`bnTa)H <)82D&[&<T'/+C^:,kP Ȇ$KShD;Ldϓ=4Hy5 REM NODIFIED FOR CP/M BY JIM LILL version 1 10 PRINT CHR$(26) 20 PRINT " IMPEDANCE TRANSFORMATION" 30 PRINT " ========================" 40 PRINT 50 PRINT 60 INPUT "WHAT IS THE INPUT IMPEDANCE ";ZI 70 PRINT 80 INPUT"WHAT IS THE REQUIRED IMPEDANCE";RZ 90 PRINT 100 PRINT 110 PRINT "THE IMPEDANCE OF THE MATCHING LINE = ";SQR(ZI*RZ);" OHMS." 120 PRINT 130 PRINT 140 INPUT "ANOTHER CALCULATION Y=YES N=NO ";A$ 150 IF A$="Y" GOTO 10 160 IF A$="N"THEN CHAIN "MENU" 170 GOTO 120