30 DIM M(200):SCREEN 2 40 CLS:PRINT TAB(15)"Loudspeaker System Design Programs":PRINT:PRINT 50 PRINT"1. Driver Parameters" 60 PRINT"2. Vented Box Design" 70 PRINT"3. Closed Box Design" 80 PRINT"4. END" 86 X=6.7:Y=3 90 PRINT:INPUT"Select 1 - 4";P 100 IF P=1 THEN 140 110 IF P=2 THEN 530 120 IF P=3 THEN 1370 130 IF P=4 THEN END 140 CLS:PRINT TAB(23)"Driver Parameters":PRINT:PRINT 150 L$="N":R$="N" 160 INPUT"Enter Driver Name";D$ 170 INPUT"Enter D.C. Resistance of Voice Coil";RE 180 INPUT"Enter Free-Air Resonance (FS)";FS 190 INPUT"Enter Impedance At Free-Air Resonance";ZMAX 200 RO=ZMAX/RE 210 RF=SQR(RO)*RE 220 PRINT"Enter Freq. Below Free-Air =";RF;" Ohms "; 230 INPUT F1 240 PRINT"Enter Freq. Above Free-Air =";RF;" Ohms "; 250 INPUT F2 260 QMS=FS*SQR(RO)/(F2-F1) 270 QES=QMS/(RO-1) 280 QTS=QMS*QES/(QMS+QES) 290 INPUT"Enter Test Box Volume";TVB 300 INPUT"Enter Driver Resonance In Test Box";TFS 310 VAS=TVB*(1.149*((TFS/FS)^2-1)) 320 CLS:PRINT TAB(23)"Driver Parameters":PRINT:PRINT 330 PRINT D$ 340 PRINT"Voice Coil Resistance(RE) =";RE;" Ohms" 350 PRINT"Free-Air Resonance(FS) =";FS;" HZ" 360 PRINT"QMS =";QMS 370 PRINT"QES =";QES 380 PRINT"QTS =";QTS 390 PRINT"VAS =";VAS 400 PRINT:PRINT:INPUT"Output To Printer? (Y/N)";L$ 410 IF L$<>"Y" THEN 500 420 LPRINT TAB(23)"Driver Parameters" 430 LPRINT:LPRINT:LPRINT:LPRINT D$ 440 LPRINT"Voice Coil Resistance(RE) =";RE;" Ohms" 450 LPRINT"Free-Air Resonance(FS) =";FS;" HZ" 460 LPRINT"QMS =";QMS 470 LPRINT"QES =";QES 480 LPRINT"QTS =";QTS 490 LPRINT"VAS =";VAS 500 INPUT"Another Driver? (Y/N)";R$ 510 IF R$="Y" THEN 140 520 GOTO 40 530 CLS:PRINT TAB(23)"Vented Box Design":PRINT:PRINT 540 L$="N" 550 INPUT"Enter Driver Name: ";D$ 560 INPUT"Enter QTS: ";QTS 570 INPUT"Enter VAS: ";VAS 580 INPUT"Enter FS: ";FS 590 VB=15*QTS^2.87*VAS 600 FB=.42*QTS^-.9*FS 610 FH=.26*QTS^-1.4*FS 620 CLS:R$="N" 630 PRINT TAB(25)"B4-Alignment":PRINT:PRINT 640 PRINT"VB = ";VB 650 PRINT"FB = ";FB;" HZ" 660 PRINT"F3 = ";FH;" HZ" 670 H = 0 680 PRINT:PRINT:INPUT"Change Box Size? (Y/N) ";R$ 690 IF R$<>"Y" THEN 740 700 PRINT:INPUT"Enter New VB: ";VB 710 FB=FS*(VAS/VB)^.32 720 FH=FS*SQR(VAS/VB) 730 H=20*LOG(2.6*QTS*(VAS/VB)^.35)/LOG(10) 740 CLS:PRINT TAB(23)"Vented Box Design":PRINT:PRINT 750 B$="VENT" : R$="N":L$="N" 760 PRINT D$ 770 PRINT "VB = ";VB 780 PRINT "FB = ";FB;" HZ" 790 PRINT "F3 = ";FH;" HZ" 800 PRINT"Peak of Dip in Response = ";H;" DB" 810 PRINT:INPUT"Change Box Size? (Y/N):";R$ 820 IF R$="Y" THEN 700 830 INPUT"Output to Printer? (Y/N):";L$ 840 IF L$<>"Y" THEN 900 850 LPRINT TAB(23)"Vented Box Design":LPRINT:LPRINT 855 LPRINT D$ 860 LPRINT "VB = ";VB 870 LPRINT "FB = ";FB;" HZ" 880 LPRINT "F3 = ";FH;" HZ" 890 LPRINT"Peak of Dip in Response = ";H;" DB" 900 INPUT "Vented Box Response Graph? (Y/N):";R$ 910 IF R$="Y" THEN 1020 920 INPUT "Custom Design? (Y/N):";R$ 930 IF R$<>"Y" THEN 1340 940 CLS:PRINT TAB(20)"Custom Vented Box Design" 950 B$="":R$="N" 960 PRINT:PRINT:INPUT"Change VB? (Y/N):";R$ 970 IF R$<>"Y" THEN 985 980 INPUT"Enter New VB:";VB 985 R$="N" 990 INPUT"Change Box Tuning? (Y/N):";R$ 1000 IF R$<>"Y" THEN 1020 1010 INPUT"Enter New FB:";FB 1020 CLS:PRINT TAB(15)"Graphics Calculation In Progress" 1030 A=(FB^2)/(FS^2) 1040 B=A/QTS+(FB/(7*FS)) 1050 C=1+A+(FB/(7*FS*QTS))+(VAS/VB) 1060 D=1/QTS+(FB/(7*FS)) 1070 FOR F= 20 TO 200 STEP 5 1080 F9=F/FS:F5=F9^2 1090 F4=F9^4:F3=F9^3 1100 F6=(F4-C*F5+A)^2 1110 F7=(B*F9-D*F3)^2 1120 M(F)=20*(LOG(F4/(F6+F7)^.5)/LOG(10)) 1130 NEXT 1140 GOSUB 1900 1150 IF B$="VENT" THEN 740 1160 CLS:PRINT TAB(20)"Custom Vented Box Design" 1165 R$="N" 1170 PRINT:PRINT:PRINT D$ 1180 PRINT"VB = ";VB 1190 PRINT"FB = ";FB;" HZ" 1200 PRINT"QTS = ";QTS 1210 PRINT"FS = ";FS;" HZ" 1220 PRINT"VAS = ";VAS 1230 PRINT:PRINT:INPUT"Change VB or FB? (Y/N):";R$ 1240 IF R$="Y" THEN 940 1250 INPUT"Output to Printer? (Y/N):";L$ 1260 IF L$<>"Y" THEN 1340 1270 LPRINT TAB(20)"Custom Vented Box Design":LPRINT:LPRINT 1280 LPRINT D$ 1290 LPRINT"VB = ";VB 1300 LPRINT"FB = ";FB;" HZ" 1310 LPRINT"QTS = ";QTS 1320 LPRINT"FS = ";FS;" HZ" 1330 LPRINT"VAS = ";VAS 1340 INPUT"Another Vented Box Design? (Y/N):";R$ 1350 IF R$="Y" THEN 530 1360 GOTO 40 1370 CLS:PRINT TAB(23)"Closed Box Design":PRINT:PRINT 1380 L$="N":R$="N" 1900 CLS:RESTORE:R$="N" 1910 PRINT:PRINT:PRINT:PRINT:PRINT"0 DB":PRINT:PRINT:PRINT"5 db":PRINT"PER":PRINT"DIV" 1920 PRINT:PRINT:PRINT:PRINT:PRINT 1930 PRINT TAB(5)"20" TAB(25)"HZ" TAB(45)"200" 1940 FOR I=12 TO 120 1950 SET(4*I,Y*38) 1960 NEXT 1970 FOR I=3 TO 38 1980 SET(43,Y*I) 1990 NEXT 2000 FOR I=3 TO 33 STEP 5 2010 SET(44,Y*I) 2015 SET(45,Y*I) 2020 NEXT 2030 FOR I=1 TO 9 2040 READ J 2050 SET (X*((LOG(J/20)*18.3851)+12),(Y*38)) 2052 SET (X*((LOG(J/20)*18.3851)+12),(Y*37.5)) 2060 NEXT 2070 FOR F=20 TO 200 STEP 5 2080 IF M(F) <-25 THEN M(F)=-25 2090 SET (X*((LOG(F/20)*18.3851)+12),Y*((38-M(F))-25)) 2100 NEXT 2110 DATA 30,40,50,60,70,80,90,100,200 2115 DATA 20,30,40,45,50,60,80,100,120,140,160,200 2120 INPUT "Output To Printer? (Y/N):";R$ 2130 IF R$="Y" THEN 2150 2140 RETURN 2150 LPRINT TAB(9)"-40" TAB(19)"-30" TAB(29)"-20" TAB(39)"-10" TAB(50)"0" TAB(59)"10" 2160 LPRINT TAB(10)"+" TAB(20)"+" TAB(30)"+" TAB(40)"+" TAB(50)"+" TAB(60)"+" 2170 FOR I=1 TO 12 2180 READ F 2190 LPRINT F TAB(9)"I"; 2200 IF M(F)<(-39) THEN 2230 2210 LPRINT TAB(50+M(F))"*" 2220 GOTO 2240 2230 LPRINT"" 2240 NEXT 2250 INPUT"Press ENTER To Continue";R$ 2260 RETURN  U^ ꪠUW(B*$UT@ DAU^ꪠUU* (H*HHU" U@UUz **pUHAADUEUTUZU^ " "EWm߶[ViR ]m"U!*[VUQ%jުZ]mUmՠ W6HIJUTUJUV(@mʪmZUb V{_~*!ZRUUZ!UVmUU]v֭[kZ }ݫջ3TjD(VmU_UT]{JoKUjIRED]}vwh vE}[]UTUZ֮jzJZUUW) @ TH X**R  B@H*R(@v^ݻ]U]HJVUuRJAI $@B%()$@"JmݷV -ڵ QVH%@AH(UBQ@! AI!UVw]vZUUI @ 6Z@WT+ ޕ$Q" @ ABT D *UU[mnVT UU@[U$$ ' T"*I(I%JmWUjUJ H E… I(""# RUTBHE%JUU[mzխUUj*J QD(*UERHB"(HTUV-UUH*UU[womUA ][j*Uꪚ"QDB @UUTUeUZZյUj*EA mPK+ U%I$)RU[jUUTu[{[kjUH vVqZ2UT%D($HBJ*VZڪZإ]~ݵV_몭%R% kPUT.+U("$$"@@UkkwmVkjU[jҠ@ mUUn~H@%@!URV޶R{v[UZڭUUT v>@JUڭu/ݺUUT RXU}U jUZDD@&+uuU_{}}n% mjU*%*UUjD މݠ7TW߽IU*RITUD'_!Ju{[[[}[n mUT  ~ߤWۯ@ Pmmo T%[)$)%Uu%@ @/~ڀ'"뷷j﷾vڒ!BUJJBIUVJ WoWm 7H)_]W{[[ۿmDJUjRvR@m"@QnZkU۶UJBVڪBݢ?Um(L&{jջ[ZZUU[ꪠ {VU ! T/{[jUU۶JUR]URB[T~[@@MdU ~ڵUuZ!JUTjT_P8  _mjUU {m( UUۿ UTUH{[[U_*2"Vto۷UUU@ [mZUjR@ i}j@*[UPZZPuPگUWX oWګW-V{v@j"U]I mUW  EUUmVd UJ+UoH} U@RJ*I%5mjA$U@R*  %UUVIA@ ZݞJ_o ZE@ UZmjՔEB"_%Tw~ !TT U'HUUVVAT_w})JTUUnUUUUZUT%_n_ݢ ][[)URUU@UUUI$UJ[P-Vk [j*U@%UUjnIBU[UUR*I%*T URH"+$UH]XU *"I*JR @UUJTP@DIT ]P@ T @(/i%J$`U @/"JQI]DU*(  *  UUT(@%B?I)DJ*D@U j *_D Ԣ+  UB@ P(DJP]UV ?(" $@ꫪQ@B /T$Dm]U]Z@ B_UJ(KP@ T@U*QBIUbER@P_ AH%dԪ@?RB N@@m{O* Rm^j P@T H !V$@ ڪUR o (D*WUH wvEUP@P  $ }wlV B *WU$(D  ^۶DP@/ A_҂ @ ;m*T@O " WmU("[mU@_ժJ $ @@ omUU*o H WB@ ݶH@ PUT vTH @$]UJ@ mmUUT( A*jU" ݷvVڪ ?IWTD   oݯ[jZ @$ @ !I*ZJB@( nEZ"DUU( hP  HBRU[kD@ }ڪ-@H UEV"@" $!ZUuUUR( ojAUA ]UTĔH B$DP@$HPUZ۪B(@@P *W`+ ꪪ_!   @@$Q@@*UU UUA- mBJP @B  HU [Ui"$nTvA[o2_I  )QUUUU"D ;+P`.2oWI%(ADDUjmZ 6TVհ( "HB$ "D@ A I)*Um۶$P  USZ*PHҔ B! * ! BI !JU}zUJ jkA/D!"@ @H P Vj)@ []@+$-J I "DD$HJ$*vUUB  Zh -I!$B@ @H$($(I$ԵU^o{uBAB ںD+R I("T"ABIU }UIQ" ۷vnФ~*P!$D" @ ($VۿmI" ڀ * I$!@IPE@$ B$vzwUJDR ۶ `2T !)AE"IUUV{U P*UEUhIVR" Rj[UUjUUVm@ UUUUVR** ( L[]Z kkUUZU@ UUT@@*[jU ] ꪪJ R*֠"v@ IUUWuh {mj VU%UjUj ]IUwjEVy !ڪUV "JUUVT UV` " %)U@nkmV j@H& @RUT Vդvh(@ E*JZյUUj+ZUPU@Hm@@UTUu ڪBmk_ UUT UU@ ֩ (@ ހwU$*nP*U@ UH*H @EUUumRIREjW@DVڪ *mj D*RlnZ" UU UVյE 7kj**@ @)UUUUk Uڀ P*UU[ @ / BUVV VmU  U)UJ ֪J!  [Uj BP$kں$EUU[hRH !UUZյX  I*mm@  @@*j%"  TZ EW[  DUU/ HRUjUUmP [$  "KUUVQ"ZUP UH(SJU@ԑVUDH $/BU@ EUU^$ EUJ]UV@@KUeU@ BJU@ **$U%UJ RU]UD@ @"[{]EI$UZUU VUkVmV UVݴR@ Vmjխ@I[kT  7$UWUU ZkZZ@Vݨ B @@OU[[U[P !  {n D"UVT UU۶ P@HO U UUvZmEUwVJ$%UPjUn( ھID UZ^@RT W !UP*Un@+n "JUUR-UVZ[P " +uUj5UUjU@mJIRH!U$ U*UU@۫p@]nT" U U @RQ%*T  UUJ VH@@/ UZUUU@@U( I)UJUZ VRUT@@RU]URU@ J)*@!/(*TjR$ HտTI*_ݶUU @R@R (+ZjUU%PWj]j!$J "TD  v_j׀ ۩( JU]ԫU@JQ$_kݻݿ}U[ } D T$% _{߫nR I ETI*JUUT_ݾjuR!&@ *+V @R*_~kUZҐ ( %ABT{{REB):($%^kUUj$' @[ZT*׿_{V @K! D *{zJ%@*R U^{Vժj"D@(_Z@QIHD~Z֭[H@EBZU*@%H,U_}ݻjm+! $ *IVHD U__UU]U@C"UWݶZ*UovڭUnډ$Z "Bە%kT *HU_muU VdD!+EPH!JJ]@P#D mUZDUUV U_jUVD UTJցEz}omZ[}+" "JtJ]P h $JݷUUn%DUUJDR]& *@w}]ovI(PJԥI[@EmJյU A2R(@UWQ %mJz  U߻~o֭RDMP){TTڀ JUWA5Kz(( J VU_B*%TDUwmnRJP*6$]UjHV wnUUUV~R%UUTJڪvP! ځR%)U^۵VkVjz +KB"JUZI$UjڭR R ""H UUwm{mkUjVmTWTUmVDU} ݫ]kVjm]UԪ +UUUUjRQDHT}oouVUUZduPUjUZj]B)J$Um#@@U]]UUWwmU*UR)E%ZAK֔@  *ֶ[mUU j֭ݶՀ ׽UQZUUZuUEB @!  RU[[kjmUZ~UP (!ZU* TUtݕ@@ T[Vꭶ[T @UUTU j%A* @AD@nWUjU[UT@Ԫ*RUJJԁJI IUk_{ګU ڭkj'DUR(URUBimHD U^{[umU jֶݵP @U*UZTjkZUD@ %UV~ں kڠ%K VR ~[BR]mH@WmT( ~Z UUZUZޯj " _[BUVUww~ڀպED) p U(uZ ov *Uunk{%߾m_!誩 AUV֪_H! ?߾UJUnTZ@? ݮ )$ UUVm]TԥB ҢIU֫_UJ$ ߽UUR_Th o뿷R! ]V$D ￷}۶)IUPR wﭷm@ UZ%UA }߷_kCUUIUUjU~ҕ*P ]ZUUkݢkUU@ o߫vUUUUVUR*" n  UVҵUU~ZJRWU@ o߿tUU*UZjoU* [R* u~VjUjjJ@oTݾ}$U VmZ[TJ(o_mz$HJ Uj* 57m I!U]zUQHZ""_U[n-TT{{w׽ IUTUuVUb@*BߵH {V" U[RU$~P$RUUTVڮڵ]d@J UkT(%*UUmUVRJP]BUTZUB J{UU"TURjjRE֪߫U JRU[U" )RwݿkU{JTUUZIRRE }V*UUVTU@ R {}wڪ &jURUZڪURR*%~ݭj KJU*U @@T@w!""!"D TRTV褐R$(J+]VC IU[UUA-w}kjBj %*~J W{v}U@E^E QRUVwH)AnV RY@ @J[APUR(uЊz (^T(@UDBow[mjZ TEUE BU{"UUDWWm[h@jA RnU*P_V֭"BRUJ * "U-U"UE{}UDA++UK߷5USP>U$ZPPQQW}UU@-ko^PPR}޽V @UB>ڐR(!W{"UD@@E@/={@[(@_`>UD!{PPPJT[nm>Jp @%]orB~x @}w߲  T[~ ~@}_{XRP@UDwo o R_ݾow  }@@ooԀw؀@J[$* T@?B nH%J/@P(E j^w^@; UCUU7R?* j[ޤw} U[UU]^ｾP UjUUOokZn@ *[uDPwPUU UvuU_R{ U_UmmT T ZuRնڴ@QT UuU?U* }~$ Uu{^P@ UV  Z+Uڥ }`( UUo~]@ ݽ Z^ _k@@@ UUV-uT ] RUv{? W_PU) UUV~j zШ *Vֿ?D ۽@ UVo@7U) ݿT UUZRP ?uTP *mv׿@ 몸Umk uZ@-UmP EUBU]mV@ު{۶@( j{^UHB @@UVUֵR~o@ UUU^Ѐ ު ȵU Vn֫U${T UUZUݷ]h@H )A @  }  7?Wm^ zՠ@* @kV@ j `/* '۷K@ CkUW*o@U WVP mv m   p W^[P Ru  @FUU( tnAE$V U?@@UUT $?d*_*V J( @؀ZxR@ /4V%T  _P @ Gޅ/t)$UURj  WU(  h`5HB Ѐ EKU"P  īH ?PPD5!T q+RJT W@Z P- J WXPA@SZ  * @#>?TX@ ~  @JI*$@THJU T\JTס $UR(~?T8UJIRm?"/pUJUUHO %J@? aUEJ?!/"UJZ_@@REm@??@@^V@7@WP@@@Wj__P^կU[굪۫}_mH_v  IB@vB_U @{R"@U~  $@*o" ! (P tR"  D$nB @* RR H *-* ߿ЀU$ۀ:H@ Tu\Wߪ" _j+UTߺjoT ۭjVVmUu_j_@=_ ~U^݀w@=mwhH{UR_uU@-/敖Uvڪ/W@ ~ {VZU( ׭?-7PV׽Ukx?@~(UuZ@z@}ZUU@{W wo kuUnn@^ @V{ }G`;}[muTzw T@Ua`@A }P]^Ҩ *]j@:nP`@ @~ kڻuvWP onvph @Vv^PP%@ߺ~(\_Њ[n`6m]*_%)@oU- ZĚmn@w}-?TUHm[}׈*?o+W}[w6UU(@V-_Z A!W_7-T}hWv6 ~I*U}+n5U@m>mު U{n{vmvU!@_m@߿ڀ_TTUuUZ @߽jPVl֠vZߪ} PI(UXڠ ߭]R@ko_PwoUߺmhڕ|?[WV۶:uuPZ~nm@ڨ]TV߽^mPw޷u׽kmZWwWwn5U}@$VUC۷ZZ lUcmjV T h ݵU[_UV{ V| }nX?Uo[ ݫ ZwkW kj+ V@Vݭ /V6 ?oj o@?V oܻ`_om ?~l ?wxV ?_}x ??Vpހ _}R( oVUTUTUP"*kUU$VZ6%?kۿKm޵zMP5$[[U7VU@JUUVڭjUUP+U@TMկv+W+P%Hյ URUTTjWU# V+ nTJ+[ZVТ-V{UUjUUT*JZԪU#@ Awz۪@ H5>uUU*UR@UVֻVUUjV %m vzVUr9V着[UPT jTUUPPK{wmUjn m~U.T[`5UUZۭUjUU\[@nk]UvU9VzjZUJkVڪUj-mmDUUk_V@@9oUmJUT[U{nջo[nZ`knz꒪]u*8VﶽUUTJU*uAV[{PjP Z@Z߷]+Zڪ8}nժTXUno{jUV%^Q *UP @7[kmVUZ[ ZݫZ Z VomWhꤔJ IU9޽WmUVֶիZVUP ++@"P 2UVګTujjmu[vno`+jh WokTݭI  D1nګVꪫmޭV @UX»&[jmvҵUJՓUmV{~~ՠ+PjVWm)]@?/ZWUZU{׽[zջU۷j4ĵj?/+mjVֵݭmmm݀T*WmmKH/ڷUHzvUUVڻwu5նUR [mVkUBUVzVUmj^ov*z*mU[UJ/ZU*mUZUڀ+ڵPT߷m(VڪUwwWoժUZmm@UEE@ݶ}/]UURvUukֶmjZWĉP[Ukjj*SZUjwv-P UUYD_~U jUޭkuUjkmomP X[zTKUUuUݶֵW*X ڪ WjznVUVv߫PX W~VURR.JUU{ګmUd ޷UuWk t ovZ)%%.WZ}UUZU[uUkj[\ZnVVH.VjUkUUUw[ wj4 u}ު[w]@_ UKRP WjZUUmVUmkZV@ߵ!U oUVUUk_}h:mmuJB@ VUUj@@U۶pUTJ@ Vե]o݀.EU@ VﺩUUmXUjշ}hmXUQTC ﺵUV ڭzu BW$ Wu@]u[}ݠ[t@  UToU5ڀmVkwֿҕڵ[%UUV-U*VlJ Z\۷@}޵ڮ}%RTJRUmUUJj jUjmW߹_HVoUU^VJmT'UUVPz+}n=PUKյV%UUmImURT [lm]JW]Z@ jҕjjRX%*@:@{Z߿}jUU}ҼJIwUUT֥npP[Zm-_ VWuZ*.h?kDB_WUIHZ*JVE]U]UP*Z݀{_׫UJU*V֮vVUmnm$M_ o޾ojeUVVݪVPu-ڰ7@]I6 +u@گKjRkz]UJ @ vm^-!^ԕK Un RޥݷUZnB UU* mPDjw Dwm'үVzVݪZJ UZ"m_E[moY_ZkKnkUUWUVIUT"P h B_[-[.K@j[j]UoT*UUmUn,v_÷W__UUVZm+mT)VU*VU۴n+kZw'UiVUWUX節UU*֮ڪ!j UUoyZnjڭUU ڪJ'U[Z"W_www-Vսn*YU6WTU* UUV֨ ږRU@ʫwj۶ԕklouڨ# [u ]]%WFkoy`Qn{U^ݶQujUWP'ڀ6*Uۺ[Uݻ*[[UnjKUꪨ&UkW`v-ڭjJ ۵uTUwWۭVmҋUUK^ % ݀%]S׿k VRhvڭmUlUTjP#[VovJڽajFw{A"SWmֶڪVUZڡ@%Z`ҲWݴMUVVRKmmu UjB#m ݠ  _mQjmmPZVvuUVVT "xUU} mJkjڭZjV% ``o}uRUTUP]WkVjjU[nV&Ut~ivUUTE*[UuZ[jUT RU!khl ]]U{請QXU -m{vjVV UjUUUT*Vڀ5?uomMZMZSuZۭVV[j*Z*jX+}U,j*HTAUmo UZju\JUUP' X hu/z VvUt@QTU%ImmVuVUP$U)UJjZ׵[TZHm>vVVZR UTjumm k UjZUU꭪U & ,!R[UtI@WkUUU[:v[UUVJڵQDJ%U~k]׿Sڪ]* ګUUWVUUj+R@@$- Pqڪ_Wha_UR~m^mUH* $ UڶڕUT&}UUWUVڷVZ*%$@IUtRv-׵7` ڭko ]VTUURU**U[>Zj_zkjW+VU nZZe - UU@v}UUWmځUZ UVԫߵ߽jZZUUj@.@*kZꪪUWjzwuuWjURD*UUTkn@5Z{[W}VjUjJ%U$}[jEV__*U読vkխmWڷ]j[UZT &ޭڑUowUUZ[UUWvխmjmnRU#TuVIoB۷UKwjWZUZU*;wۿURU~^vo޾nڵm]mmUn*$V@jUjvWoZ[VնV֪նUUU%UU`# vUUުՁ}kjVjUV֪h%U@PvWJkm]-ڵUmVUZUUkWAJUUT{kUu+_EڪO}UZ֪UUV*J&7Z?UڷvW֔ZjjڭjږQ**UZ!mkm[SUjU{o[UVU J(@JP& ހuն*ն{kT*ժ[URET5UUV&ﶿZ^Ui_WMVUj@w{}UmW W궫Zګ U)URP*Pް{{E}WUj%UVUjUVUW@?w]UU} UUkUZZUTJ)@?V^ZUR%w%UZZکPRJmWvt t]m}֭U[jJUVV)[[@mw*[ڮԕRP"-۸$o}e E]U[Um[jSTH"wnh#RoU꭫JUUTUU!*ݷwWӿ]Woj*ZmZ@U[T! vޭWkE-UivUV]UUT@UUݶjUڷnnڵ*R)J@"+mZ4~j}uݪڿTU RUuZjU 7@^nVխU_IjVMnZU U k ~TUUTVUU@PZ@տ}zߪۖVKPTUo%P ڪZjUU BJA*]!U Zߵmm^[EUTAKm@PD% "UUVUZkBP J`.kֶm* R #@? TZZUQUUuZ&@]@V}Uk{ﶪTTR"K?GI["֭VVڪ۵ *km@U([_m~_j QzZ$RUZkUUZ*UmjVB [mջPTBumuڽVT:_UUSUzVUVUPRګ P*շ^HV[UonWUjVUUOꪩUUPUZUjUjU!I mP**IVvPUQ+jUW*UUT*V*TPAkmZ(Jvj QZEի UUT"VUT.J R֪PP*mW^]_}uUjRUZUJ*(@UjU %PUnUz說T w_@URUTjUU*UU((Rj֤(VUUW]nݿmUVR_UEURUKTUJj HP+U{zwo¨kUZUUTUU5 HV{U%UvHUVZ]]RZZUJJUUU)kW RTVunZJUUUTWUUVJܤ տPW߾ZڕUk_o{UPUJZ-mRk Po@)ݶU彽jSUWn~$ZUUjUUmVWJJUv[UmQ B@-UVv~YW޵TimUUm_$*UUVU[jUjUjA Wv{Zuڪ"ݷZW$UZUVUmmꪭ*EUnյP`AmoUUmVU^mmUUM\*ڭ_*UkUVUJURBmm@RU׷ڭUjU{mT!-v%jUV]ZVVꬄUQ@J%V֩\BomU{o_U)[Z*LUUUZ*UVV]v)@ukjjVֻ]۷V[T^*Ԫ]UVZ@%m۪@B߷mUw~]VjBUU$\W*]UUUmmPUUVT@H۷۶nVmjUIV%+Ԫ+UU%UZ(ڪ A^[Uw}mvz ,*U jUZUW *]oUT@%D*vU~PU*UU UUjVUu!U] R{J~RU-W7*UUmU*JګUh**ZDmk]oUT7U)NUUUURUZT]mmURU(U]UPTEQ+]߻]U$*JVV*ժAUE*ݯw^@mUU]*UjvU QjUZklP)%v{}VVOĶio-UUZUUUD*T,#U׮몭޻IVkUUJUU[UT UX*U@WV*_VU$%V۪QZW UUjUֺ$CWVVZVm)KU! R GIu*  1&&UTUUjv֭ZZ@*J PTUZڴEJ.E]UZUU[VZT J*TA/TRwWojm % (&ZڶVjUUjUkUhV Mmm۪VJB%"u[VU-[ZUVjR)U}!J)uV__]@_$UZժZUj$W}hDNWmn}VB:"kUWUukvU[jTJHUU-EUVտ?W $OUj]%-VV붮[ZڪVT%T(NZ({URD(*%"֪Vo[mwmjwuD*TJB^JUuOv~-UP*U)$ĖQ UZom굯vڮUVQP(+T\_Uݽ(IT#)kZ {vݫm{B%ZD@QU%_W[j**UUV#%UhUZߺ^wn`<{[W 뽿Ԫ" TERԪ#oﷻjBUAb%WVﵿojUA*RJF# Uڭڑ-WVTWQ^j_ _P@ @$ mw۽ohTUTH j{ʿo z$! B"RJ$T{k[u$VUaUU}uw o(*DȄ$/}խoT(UJ VU V#@ m[Un*UVPD)Z)RmJ_RDj$T@%]mTT$VU H@()U(@JݿnkjR޵RU]{Օ ,)$RTVmVյT Vڮ(MoJ@ (HT VooSvڠB$B*CUwե E)BFuVmۯvT_UZJ wUj =PTUkovڂPR")E+Z^_@T'SU! Uj{mT"@DmUZDT+]($T@UUV~{@H! ު_]۪W"@ D @*WjvkjA UR~oZZUVVmn$d ^_^[[U)⪡/A  % ! UUVWUom  UVZݪDUTUt]@Uuj]$J@j_h5_uwTUQߚDUuVUmHJ%ۻVРUU?/@ZUYȀUjR@IJkm={Z{{ުZW U P(UjꪵUuUꐅ@BUջ_$_u{miv*RU UUTjUBH zM Z[kmjmjjUVU_UW [UVWwO 3U[mVkmmjoUUUU}muon3R VjU[ZUuUU^U着Zv3(UUZvkVۿTUjQkZuZUZkWmڋ3A [mZmUmj֫Zo"R_ߪjn[Vk PVUU%mkUmZTEJQVW~UZ3UVjUUjmTU _[ڪ_{_W }w@@U+Zmu[u%jjUVWUU[}~U]UU([[VֵnݾTEUTIHޫzUV{^wWT`*Ujv۶JUR%]U~^^__oKV*QvuZխWkjm[Jj$JVj UUm3D!)muUUkZnmJJTRf֭Z[_UW Zn3B]ֵ֪VշZnIJJ^Uo[~-UU*4 ZU]mժmC))P%*iR*QV~Vkn4 TRݭVmUUmnڶvJ`UZRT_{k}Uw U_*֪UZU[w!$Z"Y%*n k^4""mkuZUkU]Umj*I $Uҩ*TU[_kU 4ZmUkjVV"J)ItJ*ݷ[U [߶}۾5$*VvuZW]ֻ[mJ+DB*PU]m{]Z oZoDIDZjUխn[kUJ jJE";ZuPowu^5"KWjUjZյZm*II W]Uwz]] d?]5JjUUjZnDDJ%T%iWwU]{_Z_ m' UUjUVګm{YI(C֫^oon[@zU*G-֪VUUVTTJARR~Uwvz[~wvoPUUG KmUVV֪Vڻko( +EVTݵU߻ w@T& QRjժUwVkUյRJ(QP"E)+U޶۪mkmn%* JUjUUnVI$%HRw[UU^H|ki-RUU[jUZֵU{P(JIHEԄmkuߺ]ڿn v@ ݾB  T-VUZ֪WZګ]E B$Ti)UZkUuUV@7*Q"jVjmjmwjJDEFUp @% UVUj[[UkT KZ۵ o^u_^ !_&" U*ImZڶUU E@T%&kmw꪿ U D[}&@ ZkZ]mkmUmt*P!) RUUw￭U kE]k۵VU*Uuv[knv۶ UjU[J[mUUo][oww{mo k^kVURUu۪v߶o o֪U R$UV[knmmݭݶvݽ _jUUZ$UT}UU[n~ۿ ݫ]jI)JUU*ڪm{] mmkUDTUUTVWWKKvֶ5mvn kU *RT%*UU[vmۻn~ {kUW U$J"UJRoڭU*߶mmom U *IJRITUתmmw jڶU R)$E$U*_V%Vۭk}k U]U RUJDI*$UW ~Z}mmo {mڪU JTIJJRW*BT[jmmW뵵UURQURD$TW~UUwumvݻm{V$UTI%D!$oUv[Z뭶oݾV]U*U$THJI$WuHUB޶mnnwwE$II_~{Uk[vknnڶ-JT*"IA$($uTUTumoo}*ݾ֥TER BJI )Unn}v۶]noZI*R") R Zo_RUJmm^kmmuI*RREJE %U }URZv۷nm۶-wURD @B+ jkomv۷omm~VڨTU$J! P"UUUVUv۶vU[}m)UDIAP%Do{]mmmmSu*"֩*E @WUmvն֮]UK_v^jUURI$"*J $[ڭZmkwmv~*Pu *I%DEJ ߫UT*mZvݶݵۭoUUE=Uں PH B V߷mm[mvjVmv*mum}U K(VYTD okmvm߿UU U_U VBUT?߷$UUUkm۽֫Zmz*RڪW5 _ ߯m߷**UU[nڻmmn}UR%]W]UUQ-U{TU$ ݷ$JUUUwommV۶[]~*]WmjUZ3Tڵնֶ֫mjUI[uVUUuUUa) BV( k[Uk]Vk]U S^_mTV~UխWmmwUJUZKU Vj%z궫$֪IIUW$@!I[nmm,֥jݯmU RDD*V%T @  UP _m(J[_n[WVUUokTZ)$J H!AB{v}_+ʥVnVZI$I *"@!H@ _VV}ow]UwmvVUZݽ[RI(U T @DJ wVo(֊ۻmmn[kB$U D  @VW]ݻ})Z}wvVUU$%UjP A (ko[.ݾ[ֶ-[wnv@!!JVP@"U @U[v_U_m+Q)*~mmmZիoJUT( !ATD Evޚn*D{{vjnַQ VҨP  $ koom[V]U^GT~ݻ۶k]B% UDJ B UH뭶kWwvUCwݻnj[jնԈ"HRUZD!H BTB"EwVڭUmwC}wovn[")@B$"T@wwkֻ[GUSj޽ڵVH%DQU]UTTRH@B@R!۷UW[}nGV{~kzwwkommo)$֭R!@$ @VJHUo{ZA[uj]nںTRU[UH*U)JT(A@QP]ݯWn ZZ}mVm6mmTUVUDDBD%$ %+Vݯ{}B^mnmնRiRUW֔)*T* $ $I)RHPnoGmUۻۺmokmo[V]kRQU! DI!D%UR Wۿu8{Znݻmm۶ZURVTRJTJ*T(P wnjnݮݶ׶mnTU)JJIH$D@JQJ_ 9-U{wm[jZՕUJ}UUIUJU*J%$DU$(vݺݵvmUnU$UT5$JH IQ)jB_mUU[ݻmnګkumۻoUJVVUUIURʤJ$R_UUvݶ޷omvmֻk߭UjJJUZ*JJJ$kVnmkmmoooUV U$TUj%U* ~}UuUBnm}ڶݶWUTU2ڶVږڪunkm۶oUoURUIJmm*UnmmovݶmmۻUJU*Tֵm۶m{momUUURRV[[UUwuv{v vժUTU-UTJMխTmn{}w}oo mUmUVUJW*UV[o_m kjUTU)/[vUmmnmnn ڵUZRUZ_߻vv{mw{ 2 on 1PNTGMPNT\P*Ajժj$UW*/[UUPP**UUIZUZmUUZ ݵUU*mUUQ*U _WZޫ*U? ۵U!Q$ @ _~jmkQUTUV$ U+nյmn߿n Z~jmoUmURUJVmUU_ WJJW֪UUWJ)$v *JUkmꪪjURIJBBI)I%WUZWjU*D$BQHKUJ mU*UUjUUV$I!!!_ RJjjUUUJRI$I   @EJ/u} mU]*UU )V%UURIP BE(}}} ԷUWUV׿JPo ꪩDAEvAB?zV ZUwUQW~$"RDQ)$P wzBOwU ҷUUT-tII]) BA@$P@oo ڪwUVW_"RWUTJQ@ @z AD_w}UZj oTH$A! (@ eAڿZ*uU]WV~)IVIRB)P! o}ok'_jꪭVӻ$+[UTAI@@@!hH !k}Um+UUQUUUU[VۿvI(MZI!( EUR/[zZ$ۮۻwkUEJUuD@$$PHPHD~ۿ]ݽ*ڵTTUEU^۪@$U$$HJ_w_{o jҰUD*RD@%H U@  ?{ojnꖪjЁ*URJ*PB@)$@U_Wo۽ukmUU ֵ-Uj*@@2 H$!D@ D"PD J AnVڮ J[UmDJVII%7_TJB@@T_{o߭RJkvmڪ%k@ RV@UUݭ굪-z*Q"UVUjTZZEU)J(@(JRթJ@UIRWW}VURETUiU*U%kU*UPR)ARD@"I)*P(UR%)@UU֪VUP%TTT"UU*TPT%U I"R[ڪJԤH v@U+kݶjZZ R֪RRjTJ@$UmwU)KjJRR_jսUTURjU{UjJU!R"!REJRBQ"EUuU$UTJR@UU[UJu_UREJjUjU*R֭UUJ)RH* TRRTUURUVUUEURJ9UVojRUWUR TZJZUjR%H% JJRVZj-mjUJ)UUWIQVRZUUJI%R))JUڮRUUVUUUIUmZ)J*o֭U%UZQ$TT)UUoZHTuURURkZ[UUH$BHP RJRTU)UJRJ*@%jU)HڥPJ*V[{U)*խkUT_!iJҩU-R׭UUZ @RjVR"k]j)EZT*VUUUjDR!(*ZTBR^jUjR@JRߪZ֪U-uH$U*ҕUT RV$"JUJY jURJJJ9JUZR*J$B*^]RjJREUJߡPP;FB;" HZ" 790 PRINT "F3 = ";FH;" HZ" 800 PRINT"Peak of Dip in Response = ";H;" DB" 810 PRINT:INPUT"Change Box Size? (Y/N):";R$ 820 IF R$="Y" THEN 700 830 INPUT"Output to Printer? (Y/N):";L$ 840 IF L$<>"Y" THEN 900 850 LPRINT TAB(23)"Vented Box Design":LPRINT:LPRINT 855 LPRINT D$ 860 LPRINT "VB = ";VB 870 LPRINT "FB = ";FB;" HZ" 880 LPRINT "F3 = ";FH;" HZ" 890 LPRINT"Peak of Dip in Response = ";H;" DB" 900 INPUT "Vented Box Response Graph? (Y/N):";R$ 910 IF R$="Y" THEN 1020 920 INPUT "Custom Design? (Y/N):";R$ 930 IF R$<>"Y" THEN 1340 940 CLS:PRINT TAB(10)"Custom Vented Box Design" 950 B$="":R$="N" 960 PRINT:PRINT:INPUT"Change VB? (Y/N):";R$ 970 IF R$<>"Y" THEN 985 980 INPUT"Enter New VB:";VB 985 R$="N" 990 INPUT"Change Box Tuning? (Y/N):";R$ 1000 IF R$<>"Y" THEN 1020 1010 INPUT"Enter New FB:";FB 1020 CLS:PRINT TAB(5)"Graphics Calculation In Progress" 1030 A=(FB^2)/(FS^2) 1040 B=A/QTS+(FB/(7*FS)) 1050 C=1+A+(FB/(7*FS*QTS))+(VAS/VB) 1060 D=1/QTS+(FB/(7*FS)) 1070 FOR F= 20 TO 200 STEP 5 1080 F9=F/FS:F5=F9^2 1090 F4=F9^4:F3=F9^3 1100 F6=(F4-C*F5+A)^2 1110 F7=(B*F9-D*F3)^2 1120 M(F)=20*(LOG(F4/(F6+F7)^.5)/LOG(10)) 1130 NEXT 1140 GOSUB 1900 1150 IF B$="VENT" THEN 740 1160 CLS:PRINT TAB(10)"Custom Vented Box Design" 1165 R$="N" 1170 PRINT:PRINT:PRINT D$ 1180 PRINT"VB = ";VB 1190 PRINT"FB = ";FB;" HZ" 1200 PRINT"QTS = ";QTS 1210 PRINT"FS = ";FS;" HZ" 1220 PRINT"VAS = ";VAS 1230 PRINT:PRINT:INPUT"Change VB or FB? (Y/N):";R$ 1240 IF R$="Y" THEN 940 1250 INPUT"Output to Printer? (Y/N):";L$ 1260 IF L$<>"Y" THEN 1340 1270 LPRINT TAB(20)"Custom Vented Box Design":LPRINT:LPRINT 1280 LPRINT D$ 1290 LPRINT"VB = ";VB 1300 LPRINT"FB = ";FB;" HZ" 1310 LPRINT"QTS = ";QTS 1320 LPRINT"FS = ";FS;" HZ" 1330 LPRINT"VAS = ";VAS 1340 :'Another Vented Box Design? (Y/N):";R$ 1350 IF R$="Y" THEN 530 1360 GOTO 40 1370 CLS:PRINT TAB(13)"Closed Box Design":PRINT:PRINT 1380 L$="N":R$="N" 1390 INPUT"Enter Driver Name: ";d$ 1400 INPUT"Enter QTS: ";QS 1410 INPUT"Enter VAS: ";VAS 1420 INPUT"Enter FS: ";FS 1430 INPUT"Enter VB: ";VB 1440 A=VAS/VB 1450 FC=FS*SQR(A+1) 1460 QTC=(FC*QS)/FS 1470 F3=FC*SQR(((1/QTC^2-2)+SQR((1/QTC^2-2)^2+4))/2) 1480 CLS:PRINTTAB(13)"Closed Box Design" 1485 R$="N" 1490 PRINT:PRINT:PRINT D$ 1500 PRINT"F3 = ";F3;" HZ" 1510 PRINT"QTC = ";QTC 1520 PRINT"VB = ";VB 1530 PRINT:INPUT"Change Box Size? (Y/N):";R$ 1540 IF R$<>"Y" THEN 1570 1550 PRINT:INPUT"New VB: ";VB 1560 GOTO 1440 1570 CLS:PRINTTAB(13)"Closed Box Design" 1580 R$="N":L$="N" 1590 PRINT:PRINT:PRINT D$ 1600 PRINT"QTS = ";QS 1610 PRINT"QTC = ";QTC 1620 PRINT"VAS = ";VAS 1630 PRINT"VB = ";VB 1640 PRINT"FS = ";FS;" HZ" 1650 PRINT"ALPHA = ";A 1660 PRINT"FC = ";FC;" HZ" 1670 PRINT"F3 = ";F3;" HZ" 1680 PRINT:INPUT"Output to Printer? (Y/N):";L$ 1690 IF L$<>"Y" THEN 1780 1780 PRINT:INPUT"Closed Box Response Graph? (Y/N):";R$ 1790 IF R$<>"Y" THEN 1865 1800 CLS:PRINT TAB(15)"Graphics Calculations In Progress" 1810 FOR F=20 TO 200 STEP 5 1820 FH=F/FC:FQ=FH^2:MAG=FQ/(SQR((FQ-1)^2+(FH/QTC)^2)) 1830 M(F)=20*(LOG(MAG)/LOG(10)) 1840 NEXT 1850 GOSUB 1900 1860 GOTO 1570 1865 R$="N" 1880 IF R$="Y" THEN 1370 1890 GOTO 40 1900 CLS:RESTORE:R$="N" 1902 HSCREEN3:PALETTE CMP:PALETTE0,0 1904 HCLS0 1910 HPRINT(0,5),"0 DB":HPRINT(0,8),"5 DB":HPRINT(0,9),"PER":HPRINT(0,10),"DIV" 1930 HPRINT(5,15),"20":HPRINT(25,15),"HZ":HPRINT(45,15),"200" 1940 FOR I=12 TO 120 1950 HSET(4*I,Y*38) 1960 NEXT 1970 FOR I=3 TO 38 1980 HSET(43,Y*I) 1990 NEXT 2000 FOR I=3 TO 33 STEP 5 2010 HSET(44,Y*I) 2015 HSET(45,Y*I) 2020 NEXT 2030 FOR I=1 TO 9 2040 READ J 2050 HSET (X*((LOG(J/20)*18.3851)+12),(Y*38)) 2052 HSET (X*((LOG(J/20)*18.3851)+12),(Y*37.5)) 2060 NEXT 2070 FOR F=20 TO 200 STEP 5 2080 IF M(F) <-25 THEN M(F)=-25 2090 HSET (X*((LOG(F/20)*18.3851)+12),Y*((38-M(F))-25)) 2100 NEXT 2110 DATA 30,40,50,60,70,80,90,100,200 2115 DATA 20,30,40,45,50,60,80,100,120,140,160,200 2120 HPRINT(0,18),"Output to Printer? (Y/N):" 2121 INPUT R$ 2122 WIDTH 40:CLS:PALETTE CMP 2130 IF R$="Y" THEN 2150 2140 RETURN 2150 LPRINT TAB(9)"-40" TAB(19)"-30" TAB(29)"-20" TAB(39)"-10" TAB(50)"0" TAB(59)"10" 2160 LPRINT TAB(10)"+" TAB(20)"+" TAB(30)"+" TAB(40)"+" TAB(50)"+" TAB(60)"+" 2170 FOR I=1 TO 12 2180 READ F 2190 LPRINT F TAB(9)"I"; 2200 IF M(F)<(-39) THEN 2230 2210 LPRINT TAB(50+M(F))"*" 2220 GOTO 2240 2230 LPRINT"" 2240 NEXT 2250 INPUT"Press ENTER To Continue";R$ 2260 RETURN B(20)"+" TAB(30)"+" TAB(40K^T*KI)T!U$)UjJUUTUJRUEI*mꪔ2J&RPBPJIkJB%(BUU*UUTU*U*JkU*UU*R&J I%jVխZRUUJUTHBU)%jUURJTB%(U%"ݨ*JUJ [ZUJURUUR* TU]ժUR 2050 HSET (X*((LOG(J/20)*18.3851)+12),(Y*38)) 2052 HSET (X*((LOG(J/20)*18.3851)+12),(Y*37.5)) 2060 NEXT 2070 FOR F=20 TO 200 STEP 5 2080 IF M(F) <-25 THEN M(F)=-25 2090 HSET (X*((LOG(F/20)*18.3851)+12),Y*((38-M(F))-25)) 2100 NEXT 2110 DATA 30,40,50,60,70,80,90,100,200 2115 DATA 20,30,40,45,50,60,80,100,120,140,160,200 2120 HPRINT(0,18),"Output to Printer? (Y/N):" 2121 INPUT R$ 2122 WIDTH 40:CLS:PALETTE CMP 2130 IF R$="Y" THEN 2150 2140 RETURN 2150 LPRINT TAB(9)"-40" TAB(19)"-30" TAB(29)"-20" TAB(39)"-10" TAB(50)"0" TAB(59)"10" 2160 LPRINT TAB(10)"+" TAB(20)"+" TAB(30)"+" TAB(40)"+" TAB(50)"+" TAB(60)"+" 2170 FOR I=1 TO 12 2180 READ F 2190 LPRINT F TAB(9)"I"; 2200 IF M(F)<(-39) THEN 2230 2210 LPRINT TAB(50+M(F))"*" 2220 GOTO 2240 2230 LPRINT"" 2240 NEXT 2250 INPUT"Press ENTER To Continue";R$ 2260 RETURN B(20)"+" TAB(30)"+" TAB(40)"+" TAB(50)"+" TAB(60)"+" 2170 FOR I=1 TO 12 2180 READ F 2190 LPRINT F TAB(9)"I"; 2200 IF M(F)<(-39) THEN 2230 2210 LPRINT TAB(50+M(F))"*" 2220 GOTO 2240 2230 LPRINT"" 2240 NEXT 2250"*$H6U]޶U"zURRTUj)J U)AJDB[K[jT%V[[RW]URBJj%uTEP+U) ]ZJU*oojSWmojJKk]UVUI("URP@ڪ$V@WڵU)[ڵUHU}}IvV%DVUJRR@jRHU*A(zmTUm}VUJJVջU!FꪫUZ jUVJ@UU)JPTIH UJJm*I!UUV_T+ջU]UTZҕ*H!Jڪ" *D"UݺJTUWU!.RնRUV*REBYTU*jRVʥ)JVwRHjvީBUԪJRAVmRV UUJJP%R@{mT*RoVU*UR^j(FjJjUUR U)Hj%H@R*w@UT]]뻵dJVJVI* ժ%@$ ^֪RVީU**vժުKZ֥UkT*Z*UHP%n*TH$*zJ"VTUVj$'jZUJR ֫ZU%*URET%@U(R۶HTQo^[URU+R)P ZUZ@ZUJRAP)"UժJZ^VknުIU*ZUBkUUUjHBJ֪I*JBZRV]UD*BDjVժUjMUZRDWU)  (۷{U)I%ZHURվ۵TJڪQ"R%JjJ!  %}UTAP %UTj%TVzTR%U)V[nު+jIJD*ֵU*TTUVꪪTeRjժU"V@DzmZU%jUVDZֵTRPB[BTZ֭RRjRH@RURVT%)RkZ֪*T@ UuUU(QPD(j)k[UJRU*U%*@ 30 DIM M(200) 40 CLS:PRINT TAB(4)"Loudspeaker System Design Programs":PRINT:PRINT 50 PRINT"1. Driver Parameters" 60 PRINT"2. Vented Box Design" 70 PRINT"3. Closed Box Design" 80 PRINT"4. END" 86 X=6.7:Y=3 90 PRINT:INPUT"Select 1 - 4";P 100 IF P=1 THEN 140 110 IF P=2 THEN 530 120 IF P=3 THEN 1370 130 IF P=4 THEN END 140 CLS:PRINT TAB(13)"Driver Parameters":PRINT:PRINT 150 L$="N":R$="N" 160 INPUT"Enter Driver Name";D$ 170 INPUT"Enter D.C. Resistance of Voice Coil (RE):";RE 180 INPUT"Enter Free-Air Resonance (FS)";FS 190 INPUT"Enter Impedance At Free-Air Resonance";ZMAX 200 RO=ZMAX/RE 210 RF=SQR(RO)*RE 220 PRINT"Enter Freq. Below Free-Air =";RF;" Ohms "; 230 INPUT F1 240 PRINT"Enter Freq. Above Free-Air =";RF;" Ohms "; 250 INPUT F2 260 QMS=FS*SQR(RO)/(F2-F1) 270 QES=QMS/(RO-1) 280 QTS=QMS*QES/(QMS+QES) 290 INPUT"Enter Test Box Volume";TVB 300 INPUT"Enter Driver Resonance In Test Box";TFS 310 VAS=TVB*(1.149*((TFS/FS)^2-1)) 320 CLS:PRINT TAB(13)"Driver Parameters":PRINT:PRINT 330 PRINT D$ 340 PRINT"Voice Coil Resistance(RE) =";RE;" Ohms" 350 PRINT"Free-Air Resonance(FS) =";FS;" HZ" 360 PRINT"QMS =";QMS 370 PRINT"QES =";QES 380 PRINT"QTS =";QTS 390 PRINT"VAS =";VAS 400 PRINT:PRINT:INPUT"Output To Printer? (Y/N)";L$ 410 IF L$<>"Y" THEN 500 420 LPRINT TAB(23)"Driver Parameters" 430 LPRINT:LPRINT:LPRINT:LPRINT D$ 440 LPRINT"Voice Coil Resistance(RE) =";RE;" Ohms" 450 LPRINT"Free-Air Resonance(FS) =";FS;" HZ" 460 LPRINT"QMS =";QMS 470 LPRINT"QES =";QES 480 LPRINT"QTS =";QTS 490 LPRINT"VAS =";VAS 500 INPUT"Another Driver? (Y/N)";R$ 510 IF R$="Y" THEN 140 520 GOTO 40 530 CLS:PRINT TAB(13)"Vented Box Design":PRINT:PRINT 540 L$="N" 550 INPUT"Enter Driver Name: ";D$ 560 INPUT"Enter QTS: ";QTS 570 INPUT"Enter VAS: ";VAS 580 INPUT"Enter FS: ";FS 590 VB=15*QTS^2.87*VAS 600 FB=.42*QTS^-.9*FS 610 FH=.26*QTS^-1.4*FS 620 CLS:R$="N" 630 PRINT TAB(15)"B4-Alignment":PRINT:PRINT 640 PRINT"VB = ";VB 650 PRINT"FB = ";FB;" HZ" 660 PRINT"F3 = ";FH;" HZ" 670 H = 0 680 PRINT:PRINT:INPUT"Change Box Size? (Y/N) ";R$ 690 IF R$<>"Y" THEN 740 700 PRINT:INPUT"Enter New VB: ";VB 710 FB=FS*(VAS/VB)^.32 720 FH=FS*SQR(VAS/VB) 730 H=20*LOG(2.6*QTS*(VAS/VB)^.35)/LOG(10) 740 CLS:PRINT TAB(13)"Vented Box Design":PRINT:PRINT 750 B$="VENT" : R$="N":L$="N" 760 PRINT D$ 770 PRINT "VB = ";VB 780 PRINT "FB = " 30 DIM M(200) 40 CLS:PRINT TAB(4)"Loudspeaker System Design Programs":PRINT:PRINT 50 PRINT"1. Driver Parameters" 60 PRINT"2. Vented Box Design" 70 PRINT"3. Closed Box Design" 80 PRINT"4. END" 86 X=6.7:Y=3 90 PRINT:INPUT"Select 1 - 4";P 100 IF P=1 THEN 140 110 IF P=2 THEN 530 120 IF P=3 THEN 1370 130 IF P=4 THEN END 140 CLS:PRINT TAB(13)"Driver Parameters":PRINT:PRINT 150 L$="N":R$="N" 160 INPUT"Enter Driver Name";D$ 170 INPUT"Enter D.C. Resistance of Voice Coil (RE):";RE 180 INPUT"Enter Free-Air Resonance (FS)";FS 190 INPUT"Enter Impedance At Free-Air Resonance";ZMAX 200 RO=ZMAX/RE 210 RF=SQR(RO)*RE 220 PRINT"Enter Freq. Below Free-Air =";RF;" Ohms "; 230 INPUT F1 240 PRINT"Enter Freq. Above Free-Air =";RF;" Ohms "; 250 INPUT F2 260 QMS=FS*SQR(RO)/(F2-F1) 270 QES=QMS/(RO-1) 280 QTS=QMS*QES/(QMS+QES) 290 INPUT"Enter Test Box Volume";TVB 300 INPUT"Enter Driver Resonance In Test Box";TFS 310 VAS=TVB*(1.149*((TFS/FS)^2-1)) 320 CLS:PRINT TAB(13)"Driver Parameters":PRINT:PRINT 330 PRINT D$ 340 PRINT"Voice Coil Resistance(RE) =";RE;" Ohms" 350 PRINT"Free-Air Resonance(FS) =";FS;" HZ" 360 PRINT"QMS =";QMS 370 PRINT"QES =";QES 380 PRINT"QTS =";QTS 390 PRINT"VAS =";VAS 400 PRINT:PRINT:INPUT"Output To Printer? (Y/N)";L$ 410 IF L$<>"Y" THEN 500 420 LPRINT TAB(23)"Driver Parameters" 430 LPRINT:LPRINT:LPRINT:LPRINT D$ 440 LPRINT"Voice Coil Resistance(RE) =";RE;" Ohms" 450 LPRINT"Free-Air Resonance(FS) =";FS;" HZ" 460 LPRINT"QMS =";QMS 470 LPRINT"QES =";QES 480 LPRINT"QTS =";QTS 490 LPRINT"VAS =";VAS 500 INPUT"Another Driver? (Y/N)";R$ 510 IF R$="Y" THEN 140 520 GOTO 40 530 CLS:PRINT TAB(13)"Vented Box Design":PRINT:PRINT 540 L$="N" 550 INPUT"Enter Driver Name: ";D$ 560 INPUT"Enter QTS: ";QTS 570 INPUT"Enter VAS: ";VAS 580 INPUT"Enter FS: ";FS 590 VB=15*QTS^2.87*VAS 600 FB=.42*QTS^-.9*FS 610 FH=.26*QTS^-1.4*FS 620 CLS:R$="N" 630 PRINT TAB(15)"B4-Alignment":PRINT:PRINT 640 PRINT"VB = ";VB 650 PRINT"FB = ";FB;" HZ" 660 PRINT"F3 = ";FH;" HZ" 670 H = 0 680 PRINT:PRINT:INPUT"Change Box Size? (Y/N) ";R$ 690 IF R$<>"Y" THEN 740 700 PRINT:INPUT"Enter New VB: ";VB 710 FB=FS*(VAS/VB)^.32 720 FH=FS*SQR(VAS/VB) 730 H=20*LOG(2.6*QTS*(VAS/VB)^.35)/LOG(10) 740 CLS:PRINT TAB(13)"Vented Box Design":PRINT:PRINT 750 B$="VENT" : R$="N":L$="N" 760 PRINT D$ 770 PRINT "VB = ";VB 780 PRINT "FB = ";FB;" HZ" 790 PRINT "F3 = ";FH;" HZ" 800 PRINT"Peak of Dip in Response = ";H;" DB" 810 PRINT:INPUT"Change Box Size? (Y/N):";R$ 820 IF R$="Y" THEN 700 830 INPUT"Output to Printer? (Y/N):";L$ 840 IF L$<>"Y" THEN 900 850 LPRINT TAB(23)"Vented Box Design":LPRINT:LPRINT 855 LPRINT D$ 860 LPRINT "VB = ";VB 870 LPRINT "FB = ";FB;" HZ" 880 LPRINT "F3 = ";FH;" HZ" 890 LPRINT"Peak of Dip in Response = ";H;" DB" 900 INPUT "Vented Box Response Graph? (Y/N):";R$ 910 IF R$="Y" THEN 1020 920 INPUT "Custom Design? (Y/N):";R$ 930 IF R$<>"Y" THEN 1340 940 CLS:PRINT TAB(10)"Custom Vented Box Design" 950 B$="":R$="N" 960 PRINT:PRINT:INPUT"Change VB? (Y/N):";R$ 970 IF R$<>"Y" THEN 985 980 INPUT"Enter New VB:";VB 985 R$="N" 990 INPUT"Change Box Tuning? (Y/N):";R$ 1000 IF R$<>"Y" THEN 1020 1010 INPUT"Enter New FB:";FB 1020 CLS:PRINT TAB(5)"Graphics Calculation In Progress" 1030 A=(FB^2)/(FS^2) 1040 B=A/QTS+(FB/(7*FS)) 1050 C=1+A+(FB/(7*FS*QTS))+(VAS/VB) 1060 D=1/QTS+(FB/(7*FS)) 1070 FOR F= 20 TO 200 STEP 5 1080 F9=F/FS:F5=F9^2 1090 F4=F9^4:F3=F9^3 1100 F6=(F4-C*F5+A)^2 1110 F7=(B*F9-D*F3)^2 1120 M(F)=20*(LOG(F4/(F6+F7)^.5)/LOG(10)) 1130 NEXT 1140 GOSUB 1900 1150 IF B$="VENT" THEN 740 1160 CLS:PRINT TAB(10)"Custom Vented Box Design" 1165 R$="N" 1170 PRINT:PRINT:PRINT D$ 1180 PRINT"VB = ";VB 1190 PRINT"FB = ";FB;" HZ" 1200 PRINT"QTS = ";QTS 1210 PRINT"FS = ";FS;" HZ" 1220 PRINT"VAS = ";VAS 1230 PRINT:PRINT:INPUT"Change VB or FB? (Y/N):";R$ 1240 IF R$="Y" THEN 940 1250 INPUT"Output to Printer? (Y/N):";L$ 1260 IF L$<>"Y" THEN 1340 1270 LPRINT TAB(20)"Custom Vented Box Design":LPRINT:LPRINT 1280 LPRINT D$ 1290 LPRINT"VB = ";VB 1300 LPRINT"FB = ";FB;" HZ" 1310 LPRINT"QTS = ";QTS 1320 LPRINT"FS = ";FS;" HZ" 1330 LPRINT"VAS = ";VAS 1340 +HPRINTAnother Vented Box Design? (Y/N):";R$ 1350 IF R$="Y" THEN 530 1360 GOTO 40 1370 CLS:PRINT TAB(23)"Closed Box Design":PRINT:PRINT 1380 L$="N":R$="N" 1900 CLS:RESTORE:R$="N" 1902 HSCREEN3:PALETTE CMP:PALETTE0,0 1904 HCLS0 1910 HPRINT(0,5),"0 DB":HPRINT(0,8),"5 DB":HPRINT(0,9),"PER":HPRINT(0,10),"DIV" 1930 HPRINT(5,15),"20":HPRINT(25,15),"HZ":HPRINT(45,15),"200" 1940 FOR I=12 TO 120 1950 HSET(4*I,Y*38) 1960 NEXT 1970 FOR I=3 TO 38 1980 HSET(43,Y*I) 1990 NEXT 2000 FOR I=3 TO 33 STEP 5 2010 HSET(44,Y*I) 2015 HSET(45,Y*I) 2020 NEXT 2030 FOR I=1 TO 9 2040 READ J& M(200)&B(: 4)"Loudspeaker System Design Programs"::&_2"1. Driver Parameters"&|<"2. Vented Box Design"&F"3. Closed Box Design"&P"4. END"&VX6.7:Y3&Z:"Select 1 - 4";P&d P1 140&n P2 530&x P3 1370' P4 '1: 13)"Driver Parameters"::'CL$"N":R$"N"'_"Enter Driver Name";D$'"Enter D.C. Resistance of Voice Coil (RE):";RE'"Enter Free-Air Resonance (FS)";FS'"Enter Impedance At Free-Air Resonance";ZMAX'ROZMAXRE( RF(RO)RE(>܇"Enter Freq. Below Free-Air =";RF;" Ohms ";(G F1(x"Enter Freq. Above Free-Air =";RF;" Ohms ";( F2(QMSFS(RO)(F2F1)(QESQMS(RO1)(QTSQMSQES(QMSQES)(""Enter Test Box Volume";TVB),"Enter Driver Resonance In Test Box";TFS):6VASTVB(1.149((TFSFS)21)))^@: 13)"Driver Parameters"::)gJ D$)T"Voice Coil Resistance(RE) =";RE;" Ohms")^"Free-Air Resonance(FS) =";FS;" HZ")h"QMS =";QMS)r"QES =";QES)|"QTS =";QTS*"VAS =";VAS*)::"Output To Printer? (Y/N)";L$*= L$"Y" 500*`LPRINT 23)"Driver Parameters"*LPRINT:LPRINT:LPRINT:LPRINT D$*LPRINT"Voice Coil Resistance(RE) =";RE;" Ohms"*LPRINT"Free-Air Resonance(FS) =";FS;" HZ"*LPRINT"QMS =";QMS+LPRINT"QES =";QES+&LPRINT"QTS =";QTS+<LPRINT"VAS =";VAS+\"Another Driver? (Y/N)";R$+o R$"Y" 140+y 40+: 13)"Vented Box Design"::+L$"N"+&"Enter Driver Name: ";D$+0"Enter QTS: ";QTS+:"Enter VAS: ";VAS, D"Enter FS: ";FS, NVB15QTS2.87VAS,6XFB.42QTS.9FS,MbFH.26QTS1.4FS,Zl:R$"N",wv 15)"B4-Alignment"::,"VB = ";VB,"FB = ";FB;" HZ","F3 = ";FH;" HZ",H 0,::"Change Box Size? (Y/N) ";R$, R$"Y" 740-:"Enter New VB: ";VB-)FBFS(VASVB).32->FHFS(VASVB)-gH20(2.6QTS(VASVB).35)(10)-: 13)"Vented Box Design"::-B$"VENT" : R$"N":L$"N"- D$- "VB = ";VB- "FB = ";FB;" HZ"- "F3 = ";FH;" HZ". "Peak of Dip in Response = ";H;" DB".?*:"Change Box Size? (Y/N):";R$.R4 R$"Y" 700.v>"Output to Printer? (Y/N):";L$.H L$"Y" 900.RLPRINT 23)"Vented Box Design":LPRINT:LPRINT.WLPRINT D$.\LPRINT "VB = ";VB.fLPRINT "FB = ";FB;" HZ"/pLPRINT "F3 = ";FH;" HZ"/FzLPRINT"Peak of Dip in Response = ";H;" DB"/s "Vented Box Response Graph? (Y/N):";R$/ R$"Y" 1020/ "Custom Design? (Y/N):";R$/ R$"Y" 1340/: 10)"Custom Vented Box Design"/B$"":R$"N"0::"Change VB? (Y/N):";R$0)ʅ R$"Y" 9850Aԉ"Enter New VB:";VB0LR$"N"0pމ"Change Box Tuning? (Y/N):";R$0 R$"Y" 10200"Enter New FB:";FB0: 5)"Graphics Calculation In Progress"0A(FB2)(FS2)0BAQTS(FB(7FS))1C1A(FB(7FSQTS))(VASVB)12$D1QTS(FB(7FS))1H. F 20 200 51\8F9FFS:F5F921pBF4F94:F3F931LF6(F4CF5A)21VF7(BF9DF3)21`M(F)20((F4(F6F7).5)(10))1j1t 19001~ B$"VENT" 7402: 10)"Custom Vented Box Design"2R$"N"2(:: D$28"VB = ";VB2N"FB = ";FB;" HZ"2`"QTS = ";QTS2v"FS = ";FS;" HZ"2ć"VAS = ";VAS2·::"Change VB or FB? (Y/N):";R$2؅ R$"Y" 9402"Output to Printer? (Y/N):";L$2 L$"Y" 134032LPRINT 20)"Custom Vented Box Design":LPRINT:LPRINT3@LPRINT D$3U LPRINT"VB = ";VB3pLPRINT"FB = ";FB;" HZ"3LPRINT"QTS = ";QTS3(LPRINT"FS = ";FS;" HZ"32LPRINT"VAS = ";VAS3 30,40,50,60,70,80,90,100,2006qC 20,30,40,45,50,60,80,100,120,140,160,2006H(0,18),"Output to Printer? (Y/N):"6I R$6J 40:: 6R R$"Y" 21506\7fLPRINT 9)"-40" 19)"-30" 29)"-20" 39)"-10" 50)"0" 59)"10"7IpLPRINT 10)"+" 20)"+" 30)"+" 40)"+" 50)"+" 60)"+"7Xz I1 127` F7uLPRINT F 9)"I";7 M(F)(39) 22307LPRINT 50M(F))"*"7 22407LPRINT""77ʉ"Press ENTER To Continue";R$7Ԑ-20" 39)"-10" 20 WIDTH 80 30 DIM M(200):SCREEN 2 40 CLS:PRINT TAB(15)"Loudspeaker System Design Programs":PRINT:PRINT 50 PRINT"1. Driver Parameters" 60 PRINT"2. Vented Box Design" 70 PRINT"3. Closed Box Design" 80 PRINT"4. END" 86 X=6.7:Y=3 90 PRINT:INPUT"Select 1 - 4";P 100 IF P=1 THEN 140 110 IF P=2 THEN 530 120 IF P=3 THEN 1370 130 IF P=4 THEN END 140 CLS:PRINT TAB(23)"Driver Parameters":PRINT:PRINT 150 L$="N":R$="N" 160 INPUT"Enter Driver Name";D$ 170 INPUT"Enter D.C. Resistance of Voice Coil";RE 180 INPUT"Enter Free-Air Resonance (FS)";FS 190 INPUT"Enter Impedance At Free-Air Resonance";ZMAX 200 RO=ZMAX/RE 210 RF=SQR(RO)*RE 220 PRINT"Enter Freq. Below Free-Air =";RF;" Ohms "; 230 INPUT F1 240 PRINT"Enter Freq. Above Free-Air =";RF;" Ohms "; 250 INPUT F2 260 QMS=FS*SQR(RO)/(F2-F1) 270 QES=QMS/(RO-1) 280 QTS=QMS*QES/(QMS+QES) 290 INPUT"Enter Test Box Volume";TVB 300 INPUT"Enter Driver Resonance In Test Box";TFS 310 VAS=TVB*(1.149*((TFS/FS)^2-1)) 320 CLS:PRINT TAB(23)"Driver Parameters":PRINT:PRINT 330 PRINT D$ 340 PRINT"Voice Coil Resistance(RE) =";RE;" Ohms" 350 PRINT"Free-Air Resonance(FS) =";FS;" HZ" 360 PRINT"QMS =";QMS 370 PRINT"QES =";QES 380 PRINT"QTS =";QTS 390 PRINT"VAS =";VAS 400 PRINT:PRINT:INPUT"Output To Printer? (Y/N)";L$ 410 IF L$<>"Y" THEN 500 420 LPRINT TAB(23)"Driver Parameters" 430 LPRINT:LPRINT:LPRINT:LPRINT D$ 440 LPRINT"Voice Coil Resistance(RE) =";RE;" Ohms" 450 LPRINT"Free-Air Resonance(FS) =";FS;" HZ" 460 LPRINT"QMS =";QMS 470 LPRINT"QES =";QES 480 LPRINT"QTS =";QTS 490 LPRINT"VAS =";VAS 500 INPUT"Another Driver? (Y/N)";R$ 510 IF R$="Y" THEN 140 520 GOTO 40 530 CLS:PRINT TAB(23)"Vented Box Design":PRINT:PRINT 540 L$="N" 550 INPUT"Enter Driver Name: ";D$ 560 INPUT"Enter QTS: ";QTS 570 INPUT"Enter VAS: ";VAS 580 INPUT"Enter FS: ";FS 590 VB=15*QTS^2.87*VAS 600 FB=.42*QTS^-.9*FS 610 FH=.26*QTS^-1.4*FS 620 CLS:R$="N" 630 PRINT TAB(25)"B4-Alignment":PRINT:PRINT 640 PRINT"VB = ";VB 650 PRINT"FB = ";FB;" HZ" 660 PRINT"F3 = ";FH;" HZ" 670 H = 0 680 PRINT:PRINT:INPUT"Change Box Size? (Y/N) ";R$ 690 IF R$<>"Y" THEN 740 700 PRINT:INPUT"Enter New VB: ";VB 710 FB=FS*(VAS/VB)^.32 720 FH=FS*SQR(VAS/VB) 730 H=20*LOG(2.6*QTS*(VAS/VB)^.35)/LOG(10) 740 CLS:PRINT TAB(23)"Vented Box Design":PRINT:PRINT 750 B$="VENT" : R$="N":L$="N" 760 PRINT D$ 770 PRINT "VB = ";VB 780 PRINT "FB = ";FB;" HZ" 790 PRINT "F3 = ";FH;" HZ" 800 PRINT"Peak of Dip in Response = ";H;" DB" 810 PRINT:INPUT"Change Box Size? (Y/N):";R$ 820 IF R$="Y" THEN 700 830 INPUT"Output to Printer? (Y/N):";L$ 840 IF L$<>"Y" THEN 900 850 LPRINT TAB(23)"Vented Box Design":LPRINT:LPRINT 855 LPRINT D$ 860 LPRINT "VB = ";VB 870 LPRINT "FB = ";FB;" HZ" 880 LPRINT "F3 = ";FH;" HZ" 890 LPRINT"Peak of Dip in Response = ";H;" DB" 900 INPUT "Vented Box Response Graph? (Y/N):";R$ 910 IF R$="Y" THEN 1020 920 INPUT "Custom Design? (Y/N):";R$ 930 IF R$<>"Y" THEN 1340 940 CLS:PRINT TAB(20)"Custom Vented Box Design" 950 B$="":R$="N" 960 PRINT:PRINT:INPUT"Change VB? (Y/N):";R$ 970 IF R$<>"Y" THEN 985 980 INPUT"Enter New VB:";VB 985 R$="N" 990 INPUT"Change Box Tuning? (Y/N):";R$ 1000 IF R$<>"Y" THEN 1020 1010 INPUT"Enter New FB:";FB 1020 CLS:PRINT TAB(15)"Graphics Calculation In Progress" 1030 A=(FB^2)/(FS^2) 1040 B=A/QTS+(FB/(7*FS)) 1050 C=1+A+(FB/(7*FS*QTS))+(VAS/VB) 1060 D=1/QTS+(FB/(7*FS)) 1070 FOR F= 20 TO 200 STEP 5 1080 F9=F/FS:F5=F9^2 1090 F4=F9^4:F3=F9^3 1100 F6=(F4-C*F5+A)^2 1110 F7=(B*F9-D*F3)^2 1120 M(F)=20*(LOG(F4/(F6+F7)^.5)/LOG(10)) 1130 NEXT 1140 GOSUB 1900 1150 IF B$="VENT" THEN 740 1160 CLS:PRINT TAB(20)"Custom Vented Box Design" 1165 R$="N" 1170 PRINT:PRINT:PRINT D$ 1180 PRINT"VB = ";VB 1190 PRINT"FB = ";FB;" HZ" 1200 PRINT"QTS = ";QTS 1210 PRINT"FS = ";FS;" HZ" 1220 PRINT"VAS = ";VAS 1230 PRINT:PRINT:INPUT"Change VB or FB? (Y/N):";R$ 1240 IF R$="Y" THEN 940 1250 INPUT"Output to Printer? (Y/N):";L$ 1260 IF L$<>"Y" THEN 1340 1270 LPRINT TAB(20)"Custom Vented Box Design":LPRINT:LPRINT 1280 LPRINT D$ 1290 LPRINT"VB = ";VB 1300 LPRINT"FB = ";FB;" HZ" 1310 LPRINT"QTS = ";QTS 1320 LPRINT"FS = ";FS;" HZ" 1330 LPRINT"VAS = ";VAS 1340 INPUT"Another Vented Box Design? (Y/N):";R$ 1350 IF R$="Y" THEN 530 1360 GOTO 40 1370 CLS:PRINT TAB(23)"Closed Box Design":PRINT:PRINT 1380 L$="N":R$="N" 1900 CLS:RESTORE:R$="N" 1910 PRINT:PRINT:PRINT:PRINT:PRINT"0 DB":PRINT:PRINT:PRINT"5 db":PRINT"PER":PRINT"DIV" 1920 PRINT:PRINT:PRINT:PRINT:PRINT 1930 PRINT TAB(5)"20" TAB(25)"HZ" TAB(45)"200" 1940 FOR I=12 TO 120 1950 SET(4*I,Y*38) 1960 NEXT 1970 FOR I=3 TO 38 1980 SET(43,Y*I) 1990 NEXT 2000 FOR I=3 TO 33 STEP 5 2010 SET(44,Y*I) 2015 SET(45,Y*I) 2020 NEXT 2030 FOR I=1 TO 9 2040 READ J 2050 SET!"$%'(*+TEST1 BAS TEST2 ASC#SPKR1 BASSPKR1 ASC/SPKR2 BAS&SPKR2 ASCSPKR3 BAS) (X*((LOG(J/20)*18.3851)+12),(Y*38)) 2052 SET (X*((LOG(J/20)*18.3851)+12),(Y*37.5)) 2060 NEXT 2070 FOR F=20 TO 200 STEP 5 2080 IF M(F) <-25 THEN M(F)=-25 2090 SET (X*((LOG(F/20)*18.3851)+12),Y*((38-M(F))-25)) 2100 NEXT 2110 DATA 30,40,50,60,70,80,90,100,200 2115 DATA 20,30,40,45,50,60,80,100,120,140,160,200 2120 INPUT "Output To Printer? (Y/N):";R$ 2130 IF R$="Y" THEN 2150 2140 RETURN 2150 LPRINT TAB(9)"-40" TAB(19)"-30" TAB(29)"-20" TAB(39)"-10" TAB(50)"0" TAB(59)"10" 2160 LPRINT TAB(10)"+" TAB(20)"+" TAB(30)"+" TAB(40)"+" TAB(50)"+" TAB(60)"+" 2170 FOR I=1 TO 12 2180 READ F 2190 LPRINT F TAB(9)"I"; 2200 IF M(F)<(-39) THEN 2230 2210 LPRINT TAB(50+M(F))"*" 2220 GOTO 2240 2230 LPRINT"" 2240 NEXT 2250 INPUT"Press ENTER To Continue";R$ AB(10)"+" TAB(20)"+" TAB() THEN 2230 2210 LPRINT TAB(50+M(F))"*" 2220 GOTO 2240 2230 LPRINT"" 2240 NEXT 2250 INPUT"Press ENTER To Continue";R$ 2260 RETURNAB(20)"+" TAB(30)"+" TAB(40)"+" TAB(50)"+" TAB(60)"+" 2170 FOR I=1 TO 12 2180 READ F 2190 LPRINT F TAB(9)"I"; 2200 IF M(F)<(-394T@ TRT֗ o(UZ J@{*}{ZQI B5U+~! JH$%@T}-R*"VVZֺ  _[w UZ *[*۷ZTTD ml"[jURյ R@*oUV  VAJ~սZR!J*@HH۪ ))Pk{Z*UP^ J"Oխ[*RRU*R  @T /~JPB*Zh@Pׯ@%J תڭ~ EA )@@)TWt U*P kk1 5 70F 5 607YYN0----T----1----T----2----T----3----T----4----T----5----T----6----T----7----T----8----T----9----T----10---T----11---T----1230 DIM M(200):SCREEN 2 40 CLS:PRINT TAB(15)"Loudspeaker System Design Programs":PRINT:PRINT 50 PRINT"1. Driver Parameters" 60 PRINT"2. Vented Box Design" 70 PRINT"3. Closed Box Design" 80 PRINT"4. END" 86 X=6.7:Y=3 90 PRINT:INPUT"Select 1 - 4";P 100 IF P=1 THEN 140 110 IF P=2 THEN 530 120 IF P=3 THEN 1370 130 IF P=4 THEN END 140 CLS:PRINT TAB(23)"Driver Parameters":PRINT:PRINT 150 L$="N":R$="N" 160 INPUT"Enter Driver Name";D$ 170 INPUT"Enter D.C. Resistance of Voice Coil";RE 180 INPUT"Enter Free-Air Resonance (FS)";FS 190 INPUT"Enter Impedance At Free-Air Resonance";ZMAX 200 RO=ZMAX/RE 210 RF=SQR(RO)*RE 220 PRINT"Enter Freq. Below Free-Air =";RF;" Ohms "; 230 INPUT F1 240 PRINT"Enter Freq. Above Free-Air =";RF;" Ohms "; 250 INPUT F2 260 QMS=FS*SQR(RO)/(F2-F1) 270 QES=QMS/(RO-1) 280 QTS=QMS*QES/(QMS+QES) 290 INPUT"Enter Test Box Volume";TVB 300 INPUT"Enter Driver Resonance In Test Box";TFS 310 VAS=TVB*(1.149*((TFS/FS)^2-1)) 320 CLS:PRINT TAB(23)"Driver Parameters":PRINT:PRINT 330 PRINT D$ 340 PRINT"Voice Coil Resistance(RE) =";RE;" Ohms" 350 PRINT"Free-Air Resonance(FS) =";FS;" HZ" 360 PRINT"QMS =";QMS 370 PRINT"QES =";QES 380 PRINT"QTS =";QTS 390 PRINT"VAS =";VAS 400 PRINT:PRINT:INPUT"Output To Printer? (Y/N)";L$ 410 IF L$<>"Y" THEN 500 420 LPRINT TAB(23)"Driver Parameters" 430 LPRINT:LPRINT:LPRINT:LPRINT D$ 440 LPRINT"Voice Coil Resistance(RE) =";RE;" Ohms" 450 LPRINT"Free-Air Resonance(FS) =";FS;" HZ" 460 LPRINT"QMS =";QMS 470 LPRINT"QES =";QES 480 LPRINT"QTS =";QTS 490 LPRINT"VAS =";VAS 500 INPUT"Another Driver? (Y/N)";R$ 510 IF R$="Y" THEN 140 520 GOTO 40 530 CLS:PRINT TAB(23)"Vented Box Design":PRINT:PRINT 540 L$="N" 550 INPUT"Enter Driver Name: ";D$ 560 INPUT"Enter QTS: ";QTS 570 INPUT"Enter VAS: ";VAS 580 INPUT"Enter FS: ";FS 590 VB=15*QTS^2.87*VAS 600 FB=.42*QTS^-.9*FS 610 FH=.26*QTS^-1.4*FS 620 CLS:R$="N" 630 PRINT TAB(25)"B4-Alignment":PRINT:PRINT 640 PRINT"VB = ";VB 650 PRINT"FB = ";FB;" HZ" 660 PRINT"F3 = ";FH;" HZ" 670 H = 0 680 PRINT:PRINT:INPUT"Change Box Size? (Y/N) ";R$ 690 IF R$<>"Y" THEN 740 700 PRINT:INPUT"Enter New VB: ";VB 710 FB=FS*(VAS/VB)^.32 720 FH=FS*SQR(VAS/VB) 730 H=20*LOG(2.6*QTS*(VAS/VB)^.35)/LOG(10) 740 CLS:PRINT TAB(23)"Vented Box Design":PRINT:PRINT 750 B$="VENT" : R$="N":L$="N" 760 PRINT D$ 770 PRINT "VB = ";VB 780 PRINT "FB = ";FB;" HZ" 790 PRINT "F3 = ";FH;" HZ" 800 PRINT"Peak of Dip in Response = ";H;" DB" 810 PRINT:INPUT"Change Box Size? (Y/N):";R$ 820 IF R$="Y" THEN 700 830 INPUT"Output to Printer? (Y/N):";L$ 840 IF L$<>"Y" THEN 900 850 LPRINT TAB(23)"Vented Box Design":LPRINT:LPRINT 855 LPRINT D$ 860 LPRINT "VB = ";VB 870 LPRINT "FB = ";FB;" HZ" 880 LPRINT "F3 = ";FH;" HZ" 890 LPRINT"Peak of Dip in Response = ";H;" DB" 900 INPUT "Vented Box Response Graph? (Y/N):";R$ 910 IF R$="Y" THEN 1020 920 INPUT "Custom Design? (Y/N):";R$ 930 IF R$<>"Y" THEN 1340 940 CLS:PRINT TAB(20)"Custom Vented Box Design" 950 B$="":R$="N" 960 PRINT:PRINT:INPUT"Change VB? (Y/N):";R$ 970 IF R$<>"Y" THEN 985 980 INPUT"Enter New VB:";VB 985 R$="N" 990 INPUT"Change Box Tuning? (Y/N):";R$ 1000 IF R$<>"Y" THEN 1020 1010 INPUT"Enter New FB:";FB 1020 CLS:PRINT TAB(15)"Graphics Calculation In Progress" 1030 A=(FB^2)/(FS^2) 1040 B=A/QTS+(FB/(7*FS)) 1050 C=1+A+(FB/(7*FS*QTS))+(VAS/VB) 1060 D=1/QTS+(FB/(7*FS)) 1070 FOR F= 20 TO 200 STEP 5 1080 F9=F/FS:F5=F9^2 1090 F4=F9^4:F3=F9^3 1100 F6=(F4-C*F5+A)^2 1110 F7=(B*F9-D*F3)^2 1120 M(F)=20*(LOG(F4/(F6+F7)^.5)/LOG(10)) 1130 NEXT 1140 GOSUB 1900 1150 IF B$="VENT" THEN 740 1160 CLS:PRINT TAB(20)"Custom Vented Box Design" 1165 R$="N" 1170 PRINT:PRINT:PRINT D$ 1180 PRINT"VB = ";VB 1190 PRINT"FB = ";FB;" HZ" 1200 PRINT"QTS = ";QTS 1210 PRINT"FS = ";FS;" HZ" 1220 PRINT"VAS = ";VAS 1230 PRINT:PRINT:INPUT"Change VB or FB? (Y/N):";R$ 1240 IF R$="Y" THEN 940 1250 INPUT"Output to Printer? (Y/N):";L$ 1260 IF L$<>"Y" THEN 1340 1270 LPRINT TAB(20)"Custom Vented Box Design":LPRINT:LPRINT 1280 LPRINT D$ 1290 LPRINT"VB = ";VB 1300 LPRINT"FB = ";FB;" HZ" 1310 LPRINT"QTS = ";QTS 1320 LPRINT"FS = ";FS;" HZ" 1330 LPRINT"VAS = ";VAS 1340 INPUT"Another Vented Box Design? (Y/N):";R$ 1350 IF R$="Y" THEN 530 1360 GOTO 40 1370 CLS:PRINT TAB(23)"Closed Box Design":PRINT:PRINT 1380 L$="N":R$="N" 1900 CLS:RESTORE:R$="N" 1910 PRINT:PRINT:PRINT:PRINT:PRINT"0 DB":PRINT:PRINT:PRINT"5 db":PRINT"PER":PRINT"DIV" 1920 PRINT:PRINT:PRINT:PRINT:PRINT 1930 PRINT TAB(5)"20" TAB(25)"HZ" TAB(45)"200" 1940 FOR I=12 TO 120 1950 PSET(4*I,Y*38) 1960 NEXT 1970 FOR I=3 TO 38 1980 PSET(43,Y*I) 1990 NEXT 2000 FOR I=3 TO 33 STEP 5 2010 PSET(44,Y*I) 2015 PSET(45,Y*I) 2020 NEXT 2030 FOR I=1 TO 9 2040 READ J 2050 PSET (X*((LOG(J/20)*18.3851)+12),(Y*38)) 2052 PSET (X*((LOG(J/20)*18.3851)+12),(Y*37.5)) 2060 NEXT 2070 FOR F=20 TO 200 STEP 5 2080 IF M(F) <-25 THEN M(F)=-25 2090 PSET (X*((LOG(F/20)*18.3851)+12),Y*((38-M(F))-25)) 2100 NEXT 2110 DATA 30,40,50,60,70,80,90,100,200 2115 DATA 20,30,40,45,50,60,80,100,120,140,160,200 2120 INPUT "Output To Printer? (Y/N):";R$ 2130 IF R$="Y" THEN 2150 2140 RETURN 2150 LPRINT TAB(9)"-40" TAB(19)"-30" TAB(29)"-20" TAB(39)"-10" TAB(50)"0" TAB(59)"10" 2160 LPRINT TAB(10)"+" TAB(20)"+" TAB(30)"+" TAB(40)"+" TAB(50)"+" TAB(60)"+" 2170 FOR I=1 TO 12 2180 READ F 2190 LPRINT F TAB(9)"I"; 2200 IF M(F)<(-39) THEN 2230 2210 LPRINT TAB(50+M(F))"*" 2220 GOTO 2240 2230 LPRINT"" 2240 NEXT 2250 INPUT"Press ENTER To Continue";R$ 2260 RETURNAB(20)"+" TAB(30)"+" TAB(40)"+" TAB(50)"+" TAB(60)"+" 2170 FOR I=1 TO 12 2180 READ F 2190 LPRINT F TAB(9)"I"; 2200 IF M()"E$#RU*R*jURUeBk_[_k;ږRQB)JH*UUJ*UJ_*]};okkҕ*PP)DJ(U@R׶UR*U%m֩_Uֶݿ۽;[}jJ("*$B^ޥ *TIUH *ZVR@I ڕuVv:תR!D$R+TTJU% IUUmV]U*I$RUmV^{;{JPRQ(BRWZVTV%UUWjU$IJտujڶ;UJU"(_P**ZI%)~֫nWnon;*BHRR$DTU@JQ+UZRRU$Zj}{_o:RH$ ( "U)BJT*JUU[_"UABRV~տ߷k:kVޥ*%"TVjImujڨE-(IJkֵ}Wj{{4_RB"*_TZU)Z"U֕ %U+mzo[u}׿w:kRH%BTJWT-TT$BUV}UUKk{Wz3ViU**B(UUH Z>R}z_}mjJm{{߫o:-TI(H%EJ@-k}RTUU)VRviojUmjݵݭz5WRDT!*J׭UI*UUZ*UZ}mjZֵVֽ}9UZJTTPQU% _U TUBꪵWֵk^k[Wow3U)AAQJDUmTDRUUV*]UWUwZ3}Z*I)E TRI/VUEJJ*UwU{mj޻ZW2UU RQB!*wuHBU]*B^W߯u^3T"BR D(UQ*E(UURUET%o߯۽_ڵ}mU"WJI)$*%֭%TI*& M(200)&B(: 4)"Loudspeaker System Design Programs"::&_2"1. Driver Parameters"&|<"2. Vented Box Design"&F"3. Closed Box Design"&P"4. END"&VX6.7:Y3&Z:"Select 1 - 4";P&d P1 140&n P2 530&x P3 1370' P4 '1: 13)"Driver Parameters"::'CL$"N":R$"N"'_"Enter Driver Name";D$'"Enter D.C. Resistance of Voice Coil (RE):";RE'"Enter Free-Air Resonance (FS)";FS'"Enter Impedance At Free-Air Resonance";ZMAX'ROZMAXRE( RF(RO)RE(>܇"Enter Freq. Below Free-Air =";RF;" Ohms ";(G F1(x"Enter Freq. Above Free-Air =";RF;" Ohms ";( F2(QMSFS(RO)(F2F1)(QESQMS(RO1)(QTSQMSQES(QMSQES)(""Enter Test Box Volume";TVB),"Enter Driver Resonance In Test Box";TFS):6VASTVB(1.149((TFSFS)21)))^@: 13)"Driver Parameters"::)gJ D$)T"Voice Coil Resistance(RE) =";RE;" Ohms")^"Free-Air Resonance(FS) =";FS;" HZ")h"QMS =";QMS)r"QES =";QES)|"QTS =";QTS*"VAS =";VAS*)::"Output To Printer? (Y/N)";L$*= L$"Y" 500*`LPRINT 23)"Driver Parameters"*LPRINT:LPRINT:LPRINT:LPRINT D$*LPRINT"Voice Coil Resistance(RE) =";RE;" Ohms"*LPRINT"Free-Air Resonance(FS) =";FS;" HZ"*LPRINT"QMS =";QMS+LPRINT"QES =";QES+&LPRINT"QTS =";QTS+<LPRINT"VAS =";VAS+\"Another Driver? (Y/N)";R$+o R$"Y" 140+y 40+: 13)"Vented Box Design"::+L$"N"+&"Enter Driver Name: ";D$+0"Enter QTS: ";QTS+:"Enter VAS: ";VAS, D"Enter FS: ";FS, NVB15QTS2.87VAS,6XFB.42QTS.9FS,MbFH.26QTS1.4FS,Zl:R$"N",wv 15)"B4-Alignment"::,"VB = ";VB,"FB = ";FB;" HZ","F3 = ";FH;" HZ",H 0,::"Change Box Size? (Y/N) ";R$, R$"Y" 740-:"Enter New VB: ";VB-)FBFS(VASVB).32->FHFS(VASVB)-gH20(2.6QTS(VASVB).35)(10)-: 13)"Vented Box Design"::-B$"VENT" : R$"N":L$"N"- D$- "VB = ";VB- "FB = ";FB;" HZ"- "F3 = ";FH;" HZ". "Peak of Dip in Response = ";H;" DB".?*:"Change Box Size? (Y/N):";R$.R4 R$"Y" 700.v>"Output to Printer? (Y/N):";L$.H L$"Y" 900.RLPRINT 23)"Vented Box Design":LPRINT:LPRINT.WLPRINT D$.\LPRINT "VB = ";VB.fLPRINT "FB = ";FB;" HZ"/pLPRINT "F3 = ";FH;" HZ"/FzLPRINT"Peak of Dip in Response = ";H;" DB"/s "Vented Box Response Graph? (Y/N):";R$/ R$"Y" 1020/ "Custom Design? (Y/N):";R$/ R$"Y" 1340/: 10)"Custom Vented Box Design"/B$"":R$"N"0::"Change VB? (Y/N):";R$0)ʅ R$"Y" 9850Aԉ"Enter New VB:";VB0LR$"N"0pމ"Change Box Tuning? (Y/N):";R$0 R$"Y" 10200"Enter New FB:";FB0: 5)"Graphics Calculation In Progress"0A(FB2)(FS2)0BAQTS(FB(7FS))1C1A(FB(7FSQTS))(VASVB)12$D1QTS(FB(7FS))1H. F 20 200 51\8F9FFS:F5F921pBF4F94:F3F931LF6(F4CF5A)21VF7(BF9DF3)21`M(F)20((F4(F6F7).5)(10))1j1t 19001~ B$"VENT" 7402: 10)"Custom Vented Box Design"2R$"N"2(:: D$28"VB = ";VB2N"FB = ";FB;" HZ"2`"QTS = ";QTS2v"FS = ";FS;" HZ"2ć"VAS = ";VAS2·::"Change VB or FB? (Y/N):";R$2؅ R$"Y" 9402"Output to Printer? (Y/N):";L$2 L$"Y" 134032LPRINT 20)"Custom Vented Box Design":LPRINT:LPRINT3@LPRINT D$3U LPRINT"VB = ";VB3pLPRINT"FB = ";FB;" HZ"3LPRINT"QTS = ";QTS3(LPRINT"FS = ";FS;" HZ"32LPRINT"VAS = ";VAS3<:'Another Vented Box Design? (Y/N):";R$3F R$"Y" 5304P 404&Z: 13)"Closed Box Design"::48dL$"N":R$"N"4Vn"Enter Driver Name: ";d$4lx"Enter QTS: ";QS4"Enter VAS: ";VAS4"Enter FS: ";FS4"Enter VB: ";VB4AVASVB4FCFS(A1)4QTC(FCQS)FS5F3FC(((1QTC22)((1QTC22)24))2)50Ȟ:13)"Closed Box Design"5;R$"N"5H҇:: D$5^܇"F3 = ";F3;" HZ"5p"QTC = ";QTC5"VB = ";VB5:"Change Box Size? (Y/N):";R$5 R$"Y" 15705:"New VB: ";VB5 14405":13)"Closed Box Design"6 ,R$"N":L$"N"66:: D$6)@"QTS = ";QS6;J"QTC = ";QTC6MT"VAS = ";VAS6]^"VB = ";VB6sh"FS = ";FS;" HZ"6r"ALPHA = ";A6|"FC = ";FC;" HZ"6"F3 = ";F3;" HZ"6:"Output to Printer? (Y/N):";L$6 L$"Y" 17807:"Closed Box Response Graph? (Y/N):";R$7/ R$"Y" 18657_: 15)"Graphics Calculations In Progress"7t F20 200 57FHFFC:FQFH2:MAGFQ(((FQ1)2(FHQTC)2))7&M(F)20((MAG)(10))707: 19007D 15707IR$"N"8X R$"Y" 13708 b 408l::R$"N"8,n3: :0,083p08nv(0,5),"0 DB":(0,8),"5 DB":(0,9),"PER":(0,10),"DIV"8(5,15),"20":(25,15),"HZ":(45,15),"200"8 I12 1208(4I,Y38)88 I3 388(43,YI)8Ƌ8Ѐ I3 33 59(44,YI)9(45,YI)99) I1 991 J9Z (X(((J20)18.3851)12),(Y38))9 (X(((J20)18.3851)12),(Y37.5))9 9 F20 200 59 M(F) 25 M(F)259* (X(((F20)18.3851)12),Y((38M(F))25))94:> 30,40,50,60,70,80,90,100,200:FC 20,30,40,45,50,60,80,100,120,140,160,200:nH(0,18),"Output to Printer? (Y/N):":wI R$:J 40:: :R R$"Y" 2150:\:fLPRINT 9)"-40" 19)"-30" 29)"-20" 39)"-10" 50)"0" 59)"10";pLPRINT 10)"+" 20)"+" 30)"+" 40)"+" 50)"+" 60)"+";-z I1 12;5 F;JLPRINT F 9)"I";;b M(F)(39) 2230;zLPRINT 50M(F))"*"; 2240;LPRINT"";;ʉ"Press ENTER To Continue";R$;Ԑ-20" 39)"-10" 50)"0" 59)"10";pLPRINT 10)"+" 20)"+" UUDIRRU_4J$"JU@R$UUVP!U)RU~*)D+Z*UU+ZժB"JUVwԀRA1T$ZJRUiZTJR)IUZۿvo{u@ TjUTRUUj B%$J_ Wo")ݪRIU*ҒT%TW") %vP R JD*ITV JUR[~~T D0}귮U@"V*UEJUUjBEIJT_}"P_'))KJ*R)UUV"Q*$)B}  W}Z$V%BH$VT /}J"&UJ*DUZ BDP~ *RUUUARUUjڡ)")PJ}D/۷Z@RU- UJj * I)UڐP/**RUUTJUi Uzj@@&v!BJUUR)PUVJ *{H* .߭J)_mZJR+R"!"@RHm{U @.R(%%kUJRR*ڒ!EUW_ })ZU T)IJUTHUUk@տ]&TVֵT*j$BT*ݷT,zJEE[֪RDB"THD)WB@oZ,o׿RHQJ;ZUU)JRl R DZ]?-mJ) OUI)$T%%U$!& M(200)&B(: 4)"Loudspeaker System Design Programs"::&_2"1. Driver Parameters"&|<"2. Vented Box Design"&F"3. Closed Box Design"&P"4. END"&VX6.7:Y3&Z:"Select 1 - 4";P&d P1 140&n P2 530&x P3 1370' P4 '1: 13)"Driver Parameters"::'CL$"N":R$"N"'_"Enter Driver Name";D$'"Enter D.C. Resistance of Voice Coil (RE):";RE'"Enter Free-Air Resonance (FS)";FS'"Enter Impedance At Free-Air Resonance";ZMAX'ROZMAXRE( RF(RO)RE(>܇"Enter Freq. Below Free-Air =";RF;" Ohms ";(G F1(x"Enter Freq. Above Free-Air =";RF;" Ohms ";( F2(QMSFS(RO)(F2F1)(QESQMS(RO1)(QTSQMSQES(QMSQES)(""Enter Test Box Volume";TVB),"Enter Driver Resonance In Test Box";TFS):6VASTVB(1.149((TFSFS)21)))^@: 13)"Driver Parameters"::)gJ D$)T"Voice Coil Resistance(RE) =";RE;" Ohms")^"Free-Air Resonance(FS) =";FS;" HZ")h"QMS =";QMS)r"QES =";QES)|"QTS =";QTS*"VAS =";VAS*)::"Output To Printer? (Y/N)";L$*= L$"Y" 500*`LPRINT 23)"Driver Parameters"*LPRINT:LPRINT:LPRINT:LPRINT D$*LPRINT"Voice Coil Resistance(RE) =";RE;" Ohms"*LPRINT"Free-Air Resonance(FS) =";FS;" HZ"*LPRINT"QMS =";QMS+LPRINT"QES =";QES+&LPRINT"QTS =";QTS+<LPRINT"VAS =";VAS+\"Another Driver? (Y/N)";R$+o R$"Y" 140+y 40+: 13)"Vented Box Design"::+L$"N"+&"Enter Driver Name: ";D$+0"Enter QTS: ";QTS+:"Enter VAS: ";VAS, D"Enter FS: ";FS, NVB15QTS2.87VAS,6XFB.42QTS.9FS,MbFH.26QTS1.4FS,Zl:R$"N",wv 15)"B4-Alignment"::,"VB = ";VB,"FB = ";FB;" HZ","F3 = ";FH;" HZ",H 0,::"Change Box Size? (Y/N) ";R$, R$"Y" 740-:"Enter New VB: ";VB-)FBFS(VASVB).32->FHFS(VASVB)-gH20(2.6QTS(VASVB).35)(10)-: 13)"Vented Box Design"::-B$"VENT" : R$"N":L$"N"- D$- "VB = ";VB- "FB = ";FB;" HZ"- "F3 = ";FH;" HZ". "Peak of Dip in Response = ";H;" DB".?*:"Change Box Size? (Y/N):";R$.R4 R$"Y" 700.v>"Output to Printer? (Y/N):";L$.H L$"Y" 900.RLPRINT 23)"Vented Box Design":LPRINT:LPRINT.WLPRINT D$.\LPRINT "VB = ";VB.fLPRINT "FB = ";FB;" HZ"/pLPRINT "F3 = ";FH;" HZ"/FzLPRINT"Peak of Dip in Response = ";H;" DB"/s "Vented Box Response Graph? (Y/N):";R$/ R$"Y" 1020/ "Custom Design? (Y/N):";R$/ R$"Y" 1340/: 10)"Custom Vented Box Design"/B$"":R$"N"0::"Change VB? (Y/N):";R$0)ʅ R$"Y" 9850Aԉ"Enter New VB:";VB0LR$"N"0pމ"Change Box Tuning? (Y/N):";R$0 R$"Y" 10200"Enter New FB:";FB0: 5)"Graphics Calculation In Progress"0A(FB2)(FS2)0BAQTS(FB(7FS))1C1A(FB(7FSQTS))(VASVB)12$D1QTS(FB(7FS))1H. F 20 200 51\8F9FFS:F5F921pBF4F94:F3F931LF6(F4CF5A)21VF7(BF9DF3)21`M(F)20((F4(F6F7).5)(10))1j1t 19001~ B$"VENT" 7402: 10)"Custom Vented Box Design"2R$"N"2(:: D$28"VB = ";VB2N"FB = ";FB;" HZ"2`"QTS = ";QTS2v"FS = ";FS;" HZ"2ć"VAS = ";VAS2·::"Change VB or FB? (Y/N):";R$2؅ R$"Y" 9402"Output to Printer? (Y/N):";L$2 L$"Y" 134032LPRINT 20)"Custom Vented Box Design":LPRINT:LPRINT3@LPRINT D$3U LPRINT"VB = ";VB3pLPRINT"FB = ";FB;" HZ"3LPRINT"QTS = ";QTS3(LPRINT"FS = ";FS;" HZ"32LPRINT"VAS = ";VAS3<"Another Vented Box Design? (Y/N):";R$3F R$"Y" 5304P 404&Z: 13)"Closed Box Design"::48dL$"N":R$"N"4Vn"Enter Driver Name: ";D$4lx"Enter QTS: ";QS4"Enter VAS: ";VAS4"Enter FS: ";FS4"Enter VB: ";VB4AVASVB4FCFS(A1)4QTC(FCQS)FS5F3FC(((1QTC22)((1QTC22)24))2)50Ȟ:13)"Closed Box Design"5;R$"N"5H҇:: D$5^܇"F3 = ";F3;" HZ"5p"QTC = ";QTC5"VB = ";VB5:"Change Box Size? (Y/N):";R$5 R$"Y" 15705:"New VB: ";VB5 14405":13)"Closed Box Design"6 ,R$"N":L$"N"66:: D$6)@"QTS = ";QS6;J"QTC = ";QTC6MT"VAS = ";VAS6]^"VB = ";VB6sh"FS = ";FS;" HZ"6r"ALPHA = ";A6|"FC = ";FC;" HZ"6"F3 = ";F3;" HZ"6:"Output to Printer? (Y/N):";L$6 L$"Y" 17807:"Closed Box Response Graph? (Y/N):";R$7/ R$"Y" 18657_: 15)"Graphics Calculations In Progress"7t F20 200 57FHFFC:FQFH2:MAGFQ(((FQ1)2(FHQTC)2))7&M(F)20((MAG)(10))707: 19007D 15707IR$"N"8X R$"Y" 13708 b 408l::R$"N"8,n3: :0,083p08nv(0,5),"0 DB":(0,8),"5 DB":(0,9),"PER":(0,10),"DIV"8(5,15),"20":(25,15),"HZ":(45,15),"200"8 I12 1208(4I,Y38)88 I3 388(43,YI)8Ƌ8Ѐ I3 33 59(44,YI)9(45,YI)99) I1 991 J9Z (X(((J20)18.3851)12),(Y38))9 (X(((J20)18.3851)12),(Y37.5))9 9 F20 200 59 M(F) 25 M(F)259* (X(((F20)18.3851)12),Y((38M(F))25))94:> 30,40,50,60,70,80,90,100,200:FC 20,30,40,45,50,60,80,100,120,140,160,200:nH(0,18),"Output to Printer? (Y/N):":wI R$:J 40:: :R R$"Y" 2150:\:fLPRINT 9)"-40" 19)"-30" 29)"-20" 39)"-10" 50)"0" 59)"10";pLPRINT 10)"+" 20)"+" 30)"+" 40)"+" 50)"+" 60)"+";-z I1 12;5 F;JLPRINT F 9)"I";;b M(F)(39) 2230;zLPRINT 50M(F))"*"; 2240;LPRINT"";;ʉ"Press ENTER To Continue";R$;Ԑ-20" 39)"-10" 50)"0" 59)"10";pLPRINT 10)"+" 20)"+" Ingrid 3PNTGMPNT@X;ówwwwwwUUUUUUUUݻwݻw0  @@ D9Dt"G"qU@@U  P"""""""D"D @""A@ H0 A> Tww*U* E6@@@   @ %  EE PPPR %R%I R $*TU(C I"P %UIUI@ T@* RUU@@@ eR$*U$U^*%$$H@J@ U**J TQ&*UUP *TIJ*TDAUJUQ *TETUI*B@ UR*TRIU QUT@UJ$TI"(J*@I*JPUTI)UTUT**J %UJ*"5UJ)UI J@$PR)%URRU )UUJIR R$ U*% @)JTTĕ2%UUK)JB JRRI(JI (U%%D"R RJ"HJRIUJI%$@ U"%H! D HHI"E  *I$HR@MUE$PHITJ" %TT B ZB D"@ TAURT BAP!!(UDEJD( @ AUY"TUHA% JUH@ "$  J DDJ* R$ PI")@ $$$RDRE 54I $ UR(JBDJTJT! !H" %*RTMjPHJAJH BXURJ)$)"JIA"UT%%U$(IRRPJ AB+PJUTPPII(T" %%RRB+*kjJVR@UUD +UT!UU* E*]%U֪UTIII5UT#U" ڦ֪T$DA%mJD/ڕRI JR_j H"ZDڭR%"UjU("H!U$Jʠ *UժU$D@DIRQ*U$P) UJIDIVRI)$U$jjRU$IU$@ JV)$U$@@ RJI$I*T "MUvI"IA *%$H$E KR I$$IUDU6TRI"IR(R%U_UJ$QH$DBBI$$(@ KmUU&RI)D% URB()(T VDA$BER {UUuUI!) PT@H$܈DABA*mUU}U) I*@@%RIRJAR!DQ "$WR$IU!*H $(Q H )*UJ@$ITBU@ BU_UT(A  T( T"$@!_UTTTPHTDjRT("HT$_"TRI"$*IU*HYA@UT"% "EU[HDRJ " @ T 2ԉ%*JJR%(OJU^ڐ (%*ꪠ%*RM*P HU[Q "J_BD!%^ڤPR D$"DR(%*KDP@ JT(A@EHD[mB D0 *R!$"&@"UVBEJQHDI@  $[oj@  *AETQT"e@ oH DUU}TAETQJR)Jw @DBVRQE "JU DRI @A%KoP)E$JR_DB$UJT"J@ @!% $ $!IHUjTRIDRHUUB $ $JQ$I @UTIH @UI!(HU$JD +VI$P$RWU*I!*TkPJ@QAWkU*"@TI*P^oI@P *kTAuQ DI(@WHJABj"H$oT* j@ DH[~P "+D WT " RJ@@Z Uۿ%HB!)+moUJHPJBOگPBjU$Av~@IR uڻU_UU!U@J߿jUWDU kVU_U%@ EjWTWRJiV]U $UWU"RQUEIpQVuRD+@ֈGUR))TEU0 ZU"$TBXII+!$E*V"UjI!D\@ҥ"DJ%%\_UHU#Q$HHJ]RDJUJI%VUt$R%H$%\)$$U)$ IHVUABJ$UBI$(RI~IDS %K$U"D@WPEH($UT$R$) PD_J$I I  I*T Y P@ I_%*RDP@H?U LB (DER$P @BD)UUP,@ (  $B_ª"PȠ@$Jԅ"HU($@D j(@ *E$Jb$"!@@H( B % $B@@ $ @@)JDTAh @@" $(T p E"H (IJ(P  B|)PB! TD$HDDhBEA ~ I 2@ E> * (BJ!P_ R$ PBH$TH @$/"(#$HQ DAA@!D HD$$!@' )PD $! IH !DA 3E(P%EJBBCԔ@HB $))Q( (@ABB R" ") DB@)IPBD@$$PIA@(D AIa@ DI@ Q!@" $   PJ@@!"($ExB((@@D p @U  RY$!D  % ! DP"!$""H$$tQ H@ $ "H $D"8RPH A )D!x@$A! X! )P"( @B< "xDA!$D  @ P "@@ E- @E A   \B*Bp AB$ A@,@ "@ "%@x!D !! *H DAA@$  !   V @h@D  @B @B$ & PQxI@@@P @  & x ""  @ @ $x@ D@"DH   ( *x$R"UDJ@ @ "*"@D@  @@| B)$( C@ "B A@ BP@ xH@C@  Q x  @ @  @ @# JIxH "" A B|H$E!@#BH "   E "D nIB!  ($(#"B"J@CnPT @@ @$ \*@E"D D A$# Z J$@Al  J IZ " @)IUDB@Z @G@$  U@@@ - *@   B Z %'." )E@BT O H @AA RB Hđ-( ) @* A!B AFH@@[") OȈ(- DA*P@  B[J T $V!B U(P %%J@  @B*BI"' !+P@"B@BGDH"]I "H @I"E!(BG"@(WP@H@DA[D *  @-PHAET @Tց%@ *@"-T!H DRTB JUB@#$BW *AEH*D@@ %T""DT*"Q@ RR  PHJ"@@!%% +DE@I%UD!HRV DHH  HE"Q@@T*@$)%@ AJDKAPP R*)DT" @$D@ DDR&(D@D*JA"!T%*Cj@"T B"D*RD@*  I% J !@H$ )@RR}$J*C`@ $"@ $DHUI%P@#Be%IH@J$R#Q $H **Q%"@~(I"D(BA#$ DBD%BJ&JB"@@%*E)!DH~H$R` " JTB@Q"~ QI$B #)%"H!T ~ EBI)`T"@" @ TRA J*~$VA ( @@ $ ?(U$ID$RI"PE*BH"_E$I%EhD!@*(DU$HD@* QQBJ؉ "@B@A$""IEH"?RJP$@#!@@DDB ) !$܀H #! U$PH*J U@("% " @I% A(/($RUq"@ $HDB *E$R"HZ "*" I$ %@Oʔ("Q*KD"(@!$P*J"@QBIHUjH"B$ IRQH/$ UU$ % @@ $P$HH$*OґA)AD#EATII)I_mWDR$UU @ #" (HBDDI$#!$D BDH UUK* IzU@E %J@)"$!$@@$R$kjR% @"DJPJT/ꢕIHv`"@& HID@%IROH Q ڪ*$ (AB(HI$W$DmUX$@%A$$H)/ )m%*& "$HQI@@$ROJ@DEUT@"P@@@* I$D*H%[U @@P$I"DG_۠DD꺶@!B(  I$)"JW ʒkmj %H$@"I$$BD"$Em$/ݶڪI@'@PI H$I_UU @@D$J"!!"I#%m"m֪BJ@@@! RIJADGj* @)$DI "$/'I@@P !EH#OKUB( @")$J" wzA"B$$ AJTI D짿ﶧ @@*$P" PH@TJRI% RHWVުTR *JHP  VԢ$@ UD$T)RBPGuQ  @ X(I$(BwzUU AE@BU"IB*T#^}wIUZ@ H"%)I @~_}UJ$@!R) R)~/o^[@ATR %U! BP@~W_ "HQJVJP%($}nwwB!*PBR ${WnRP&)$H I$JE(J"A!~ګm")@@*wvn U(@0H! @ $ ("Ewݺzݵ}UD "DE!A$JJE@I(U w ("A JDB'ս) I@@@J$ݷzU &$IA $T%I H ۷Wr_ %@% A"I% P'}[vU%@@ ! HDHJ%$ Fk % I "utT%@D$E$EIDj/#$ A @II$DұuUr_@P%@APA"EI%T n꼽o%!!" $THDDJ oux?H%@(D $J))D {? @ "DB!.ݷ?"R$A@R(D @D"  $R$! w? @H"D @ JRQPR) DHI*"@joBH HHD@QI wwu J"$ m{( @ DR@HH :U@ @  A *m[ AB j@U~@!$@@[׮ (P@ @ !Dګ H@ ( wV~ $HA Uw  [ $( @$H!$VD $@[ @@ @(BBA@$@Vw@ BA@ U  ݻw` @ oPRR wn %ݷ}/$%B$!_ ?vk@@J?ڼ޿@*P\V *J%om*P@@@*Q_(./* @$RB( U! )[+Cp @DB"B 9@PJ"DU@B@^@ ""* "@@@HP J /  EU|4  U/`0J+UdGH@ $y]j B@tRK @ U]k  ݵQ%ۺ  @#U}UWnHt @AuU  @"ګZܕ@PIVUݭuj $)H@Ankt @(RݵՠUj@B)Az}Zk@ H @Dm?Z2 "@BH{ou?Tu@"  "D@[`_H@  @  num ?ҒD@ (o{ $((Pݶ?o  ݾ%_wA" ( A AD@x @B$   ?wҐ J R@ _"A@@(P(@R!"A%@$!B  %@K(ޡ@@ B I A(@@@  ( ?mE/R?  @ @@" ? K ! J! "ЅDH@ "DD@_ )H $@H" @?    H}Ċ I R $!  P (  BA@  Q@ } P%*wBHP @QAB QEH@ !Q T@( @A )J  P A%)BKP%*J h" B@IB@!J(Q@BX D PRU"B?"  D"@$J)H !$ED @ !JTIB@IU0 JR" $ *$ @@`A" $AB)UUQII! $A@)@ D*JJ( @ @!R B"$(jTA@  @  D@@BRT$U!B @Q @  "URIH$!J !HBD*UJ*Q(T$DTP( %! ժHA  A  " !%*UU"(% DA !TP@@( DIU *@ @` !@)!(@ U@ @ETD$ $A$JDJB(  H(" $@D!@ VT B@RT!PH @D$@UURE *$UJ@JT(J@@u@0(RQ*H P%UUVdE%*5!A`@ " J*HE@VB%$ ( BUT E D /!+!) E@JJ@ ^,B" IQUI %HB@Qꨢ  "!! ZJ$@A UD"A A RIQ !}RPA!P (!DDUTERD-H0 @IRD RETA@(  $ D$@ "JDURD$"QB"DD*U!N  Q! @T$@RBE @` DD"H%Q$I )Dp @(H( @ I@ jE@ DA $JUDP@ A" @D ! HPD P$ RDB "@(*E"@A I)@U"DD X%P@I! %TTDPRB@@DQ@ *@ BB JP@ R(H  "A !T  JB@  A I P" @ RQt@ 8 $H *J@ BU"$RP @  *HR !* %P UTBBB$ HHA" H  J TUR@ B  $ QT 4 ` ITQTU@IU$  H @ $T UUJ$R  I"*"@" ERI*UHUJ @QUU!5` "BJA*UUEHDT )P($JH B*B %@T% \ (B@(@ H"  "D@(B RUURD)H@@  @ R AP"Q*A @  B(%UUHHXaA HIBUT  DH  HJ TP(Q U*"@@U(@ @H% )RUJp@  KJ @*  UUR @@D)@D%T*J4$ @ IURDA`@HHIR B ) R"D@" RJTԉ -Q8@A "RH$@ @) UD @$@@JU"P@@   )RA <  UJ@@ * @P EJT"Eh @$0RA Z @@A%Uj@@5J$@  *@@ "" UUR T@@ *@R =QI  "TR ڔDAx @!IRD"   B@UQ  @ # A"@ TI$P$U%P#EH @ *PT@ ZH "e$@ " R R*$$"JR@% ("BT(BUTH@)DA$  !DQJQ H -F@  UT$U  "W@A"" QE"dJB` @D@HUUR!&BDD"!RU*%U "\@@@ $THH 0"HI"  *IP)UR@@ B P@ RR$ PHHDJ"JUTUEA`@ H(D@"  *@*H(@@H@@("QU@0$TC!ʪUU)U(H`  TRB@ @@@ HIU J *I*P  @@!$*B$( @ $J@(  JB@H P$@( @@(  "   !D R$  D" 0  DJD@H @ ` $ @@@ !Q @ "D"!@ @B   B @H "H($ @ BBR" @ @"@ @H R DD" @E$@Q U%@ % @ PE@AHD@  URP@B" "@ D@ DH @ @ !DB $!@E U% J DPPD$AI@ U*@ JHPB@ $ " ! U@B@$ P@ $ T {IATI(@R@$  _( @D /! H @ $@ P T U~"!H@ HH _R  UUT!Q$@"@ !@ UUPJQ @V@  WU) UVBBD  @@* UD!% " ۪JH @` Vo$! VWIJ((  UZR H$ i)( kUi"B b*VH @ UUT@ !BH*UQJDD@URDD.*!Y@ @! jW)T  @ X3@  " U[T(@$ * ! A  *) @A @ TA B    *JA ADD!r"  -T ET H"  iI!B"$B %R 6( "! Y~E PIH@ 5Qdt" T   %$ j+)@" @AB  R D@ 直 (@! m+ DE DB B [@B"P t$P $D@ I*H@ !! D!")P"$H $$  "@ @ }Q(@A DH@ JI @J P ھ  "( @~ԩP"J IH@"HvR* %"H E$ "T AH! }𨡐 HT(D%Q|{J%W J"*T"!R$P =m@W @D>R%'  U"*("Q  [j PH@IC %%UB @T_ D!A BH #[ *T"!I%Rm @$HB"A| ۻ}}uv RPDU}nnͫ RD! @ۻn ")$UTBPPEmvoZ  BI$B@@zyw۷ RIUT@P%E ]oګm A$"H@ ݭ] I$ wvv I "%D@w U$UJ!HR UI"$J o 2D( D R$B(PIP  ! I"D JRH*H  @ ET@ %) $)B HRI "B$T H A"$  _( @D /! H @ $@ P T U~"!H@wwwwwwUUUUUUUUݻwݻwAP( 0  @""""D9Dt"G"qU@@U  PBBBBBB""""UUUU"D"D @""A@ H0 A> Tww*U*" "  """B@B   @ @@  H AA@AA     H@HHH *" "B@@B@   @AA A      @  PUT@ @ HHH "  U ""RB@ @B@B@B QQ@@@@ @@AA TDETDP@ H   "QU @ @H@H@H@HH @UTDDUDE@"""B@BBB@BA $UU PP  ABADDUTDEDUT    BRQUQU HHHBF @EDEDEDDUDDETD@ "  ""BH@B@BBBQQUQ @@H  @A@ABB UDTEDTDUDIT   BBD UQQUQT@HHHBBC TDUTDDETUDUDE@ "  "" "BB@BB@ UUQQUUQ@(@*B_ URIEUUEUDUUTDTD@ݥBRBAQQUUQTB  ݥBUTUDUEUUDEDTݥBB@ BBUQUUQPݥBPTDTDEUDEUUT@@ $ݥBRBBAQQUUT B(ݥB U$@DETDETDEU@$ݥBB BBUUUQQTA$ݥBPETDEDT@ߥBRB@ @BߥBUDUDT$B@@BBUUUU$ߥ* BPUTDEUTD   @($BR@QUQUQB(  BU TUTDETDDUTDE@ BBU QUUQQP @$ BPADUDUTDUUA@$B RB@QUUUUPB( %BUDUTDDETEDTDETDU@$@ BBUUQUQUP"$ @ B P@DDETDTTEDUTDUDED@$BR@UQQUUQQB P %BUTDUDDUTDUUDEHB BBUUUQUUD@BPEUUEUD@"EUDETDER %HBRAUQU"QQQU@ @B(B UUDETDDBB"DTDUDU@@@ BB UQQU%QUQT %RBP TDTP TDDEUUTDDEDTB RA QQ UUQQB@@ B UETDTE@*U DEDETTDDU$@ @BB UQ@U UUQQ$"  @BPDTDDU@UUTUETDDUTDEUDU@@BRAQU@UQUQQUB @  @(BUDUDUUjUDUUDTT @  TP BBUUjT"" QUQU@$U]TBPUDDU@R DEUUTDET  TUUET5BR@UQUU@QUQQBC@RB T@_P( BU UDDU ",~TDUUETDT@UW> BBCBBUUUQ* =QUUQP  @BPUDDE[Dv@$ DDUDT }P $BR@DQUUQU{@RQQR@BCB@ BU DDUUDEUV"%@$DTDU% @  í HBCBBUQT"UUP % %` nBPDU:"DUDT@@  %%5`BR@QU"QUPTBC@ D@B %BUDEU"TUDTD$DUUT@ B CPP1 @BBUQU"QUU@$KUT  ($ "!p0BPTDEU"TDUDU@AQETEUT@  "$%   BRB@AUU"UQ@ BBC`@D@H@B H%BUUDEU" DTTDETDEP$TDDTB@ BBC PBBUUQU""QUT$"PUT   $ *BPUTDUU""EEUDTDDU@UT  @ (UTBRBBUUUU"QQUQBBC@@BEB@@BUT B@%$UTB UDETDDUUTEDUEDEUT B@(BBC UTBB UUUUQQQUUQ% J  "UTB PDDUDUDU@JDEDTDUTE@Q HUTBR@QQU@@@% Q QPBC@A@@@B  0~%$BUDEDTDD` P"JDTEDT@U@@ BBCVBBUUQQ"@ P@ !%BPUTDDED""DEDU @T@ @ 4BRB@UQ""UUBC@EB @ BUUTTDDTDTDD@""DDUDEU@PBA (@BC@@I BBUUQQ""QUUD"RTP!!H %BPEUEUUDH(""DDEUDEUEPQUP % 2 BR@U  ""QUQ@BC UDBUUW@D*PB UEDEUUTD!E ""DTDETEUTDDTAE @UW(BC& ( $BB UUUUQ "JU QP@%ȢEUA @uTBPETDUUDEB!*DTDDU DDET "$%TBR@QQQ%*UU @PCI$BH%TBUTEUDEHj*UUDEUDUTDE@ @@=* CTBBUUT"U*UQUQ%% TBPDEUBJUDETETBR@UQQUUUQUCB@@  WTUTBUDETDU`"*TETD EDUEH P@  H CWUHTUTBBUUP*Q QUEH@ UPUTBPEDDUUDEX" "DEDED TDU &`  %U EPUUTUTBRBB@QUUUV(QQQQBC"DB((UTUUTBUUTETDUDUb"QTETDTDDEDER"BDCU @PUTBBUUQUQUU UUQQQPB@ U T@UUTBPTEUDDUTETDUU 2 UTTETEDDEUDT@D@@ȈUUD@ TUTB RB@UQUUUL " UUUUUQU@C@@BU T `UUTB UUTDTDEUTDU" UTTUEEUTTUUE @PBA  @CUUQ!`UTBB UUUUU" UUQQQUUPp("( U T!`UUTBPUDUDEUTU" UUTTDUTDTEUU@p * U D`TB RB@UQUURU" UQQU*(PB UP" @UPpUTBUDDUR"*U" UTTDEUDXBD@U AUUQѠUTBBUQUHUKT" UQ*hTUUTUUTB P@UTDDUB"*" UDDUTDDJ"J@(UUP@5U  UUTB RB@UQUh"" UQ*"BUP  UDP TUTB UUDDET *!" UUTDETD"B@UPP UUT@ UTBB U@UQP" UU" *H(P UP UUTBPUDU@"" TQUTDETJD5QUTBRB@EUU EURT** BD@  UUPUTBU@QTD@ UTDETDEU@B@ UUTUUTBBU!UUPUQUQ UUPUTBPU@D@UTDUTDUU@PUTUUTBRB@UUQUQUB@@(UUTAQUTBUPUT@@AU@DETB(  UTBBUUPUTT@ (UTBPU@URET %P UTBRBUAUUQ@TB ! PBUUUJ ETB !" BBUU UBT$ ( BPU@U@T !   BRDTU@TB!  BU TDUHTE@@ BBU@R UHE(@ BP@PUH@DT@!$ *BR@ Q@TB @J(BUT@%DTEA @ $@BBUUQ@TEBPT@ @EQ T@@ BRDQPB BUB TEUDTEDBBUUU%EP@BP T@@JT@$ PBR@TUBPBUTUU DTEBBPBOPBBUU UU%TE=@UBP@U@DT@UAeBRB@UPTBx*BUU]BU@UUPTEҪ BB@ @BC^}UBBUEUUHE  UU`BPA@T$@D@HUUPDT@ 8  @W]BRBB@U UUHBjB8@X5WBUU@@UPDTEB8@BCU` UBBUU UTE  BUU@BP@EU@@DD@@@PT@ +($VeBRBUP PTBZB(TuUBU@EUP@@DBDBPDTE*B@ BuXx5ZBB_UQDE  UPTBP ETD@DRBD@T@ (@WBRB@U(TB"&B@WBU@@ETDDT@@@DTEB@@BCUUBBU$Qj PTE"*$UUBP@ET@DU@TT@ U`BRBDQU B"P *"BU\BUEDDDU@@DTE KϟHBH B CU$0`BBUQU@@TE """ U`ՀBPUDDDDUPT@ @"( UBRBCQU@ TTB ""B UHBUDUD@DDUPTTE B B CUKKIBBUQU`TDEH" UGUBPDUDDUpUDDT@  U@@HUBRBEQUaUD@TB CHx""B @$WBU@UDDUPU@" @@DTE x"B(B `@ VBBU@UP"PTE 꺢$"*( UP TBP@DDEU]UD"PT@ je( X5]BRBC@@U]UQ" PTB j#T"*zB(Q VU)UBU@DDDEU]UT" DTE B(QB MU UD@bBBUP D@U]UQ@ "j(TE (8b(Q U@ UJ@U@BP@DD@EUT@ "Z T@H(Q UP UJ@UBRB@@UQ"Uj TB C(@bzB(U@ V 5J@WBU UD EUUUD "Uz TE諈 I-B`(DUP BtUOʇTZBBUU  UUU "Uj TE0:!(DU\h  ]UzuQ`BP@ DD@ EUUTD "+ T@0(DU\ EU}z=UBRBP UUU" TBj+B(DU\ UBU DD EUUUD@" TE*BH(D@P BMUAbBBUQ UUU"T*DD UTBP@DTD" EU]UTD@"PT* D@ PBRBDQ U]UU" @UBB DD@ BU@TD@UU]UUD@UBH DD@* BBUUUUUUQU@S DD* BPEUD@DUUuUDDUR BRBDUQ UUuUUQURB BUCUTDDEUUD@ETSB BBUUUUUTUUTU (BP@EUUDD@BDUUDEUTET*BRBDUUQUTUQUUXVB* BUE5UUDUWPUTDU`DU]B` BBUMUU]@uU]  *BPWUTDDEUu@]UUP *BRBPUUUVUrB**%BUEUuUWUUXUeBH*bBBU]U]TuU`Ue @BPUWUuP]UEUꪪBRBDUWU@U\UBꪠBUEUWU_UuU`EUB*BBUUWUuT]UWW BPUWU_UPD@UUpEVBRBCWU_UuU@_U_VBBUUWUUUUU@DUpU]B* BBUUUUTUU] BP@U]U@AUU`@UX*BRBCU]UUU@rB**%BU@DU]UQUPUUDEUeB*bBBUU]UUU@ UU@Ue*@BP@U]UPAD@UU@U*奥BRBCU]UDUUUB^"BBPBBU@@U]U@@UUDEU BB pBBD:BBUPU]UPUTU    I BP DDU]UDDEUTDUV `y ) 8BRBIU]UDUTU^BFBBB 2eBUDUDDEUPE]ĄB` BCBCBBUUQ@U@UU ) a  9 I `BPTDUDD@EUDEUp` .*%BRBQUWUQUUbBF*e2eBUDDUWU@DDUTDUeBh*BCBU UWUTUPU a(+9 BPDUADU`EU +BRBUUP@UUB+ rBU@EU@@DD@EUEUBH+ |BUUUPVV?  *. BP@EUUUDDTEW *,BRBDUTV*BUDEUP@DXETB* BUUT@`Y  BP@EUUuTDD@U@UY   BRBEUUuU@Z BU@EUQ@DUU\B BUUPUUY   BP@DUTDTD@VUy  2BRBEUPTUr2BUUPTUdB$BU@DUPDTD@DXUUI I BPUPUI RBRBE@UED@DUD@UPUU BUUQDUE`UB BU @UU]UUPDD@E UU  @ BP U]UUQU@U @BRB E@DUU]UUEDTDEE@DUVBUU]UUUTB BU @EU]UUDEDUDEUDEUY  BPU]UUUQUUY 2BRBC@EU]UTTDEUDEUVEURRBUU]UQUQUTUDBBU@EU]UEUDTDEXUU   BPU]UQQQXU @   BRBC@EU]UDUTDPDUU  ?BUU]UQ UTB@BU@EUDDD@DUU  @  9 BPUUY @I 2BRBc@EUEDD@DDDEURҒ2?BUUQUDBDBU@EUTDDAUI@BPPUTUU TBRBC@EUT@D@DUW@@TBUPUUTBT BU@EUD@ HEUY D @BPPU@UY T@BRBEUDDDEURP2UBU UPUD BDPD U@PBU$EUTU EUUI  UP   "UPBP UP@U T@@UU@BRBEUQ @@EUU@@UBUUTTUTBDU@ BUEUQ@EUY @tGU@/BP UUi | UP?@/BRBEUTPDEU@}*UP?BU UWUUU] (BDUP @?BUUWUUTD@DUT]UP " " q"?BP UWUUP UHUUUP " t "BRB @DUWUUE@@ EUPU@UP@"" *B"""\"#BUUWUUU U(BCP`R"@"""0" /BU @EUWUUAE@EU@W" "" " -UBPUWUUPQU @b""(5UBRB D@@UWUUE@DUTHR" 2 UUBU QUWUUEPXBD @V" B""UUBU T@EUWUUAE@@DUQ ""DDBP UUUWUDUThP"#BRBHUT@UWUUTEPUUT@"BU UUPUWUUDVȌBPT@D ?BUUU@DUWUUEDDEUV@0 TBP UUP0UWUUT@PU]T DD BRB`UUT$UWUTA@ @UUuV  @j"@ BUUU@UQ@UV BDPDBUEUT@UUUW   BP U UWUU(@ $D@BRBDUUL@UA@U]UU@D +"@ B_ EUUU@@UuUU +*@Bt DUT@UPEUuUUD@@(AD+(BEUUUTUUU@ + DBBC DUU@U @UWUU@@"HP+@UP  BBF" (EUUUT@@U]U@+UUP@D@BBT DUU@U@EUuUU "" AP+*U@  BBh EUUPUTDFUuUD(`+ @BBDDUUDUUUUT DUUU"*H@ *  BC"UUQUUUTQUWU **BDDDEUUTUUUU\D@EU]U@""  A@  "BHUUQUUU`UuU  jBb DDEUUTUWDEUU*"""H@ ꪬUW" @B"UUQUYUUj ꪸ@A]CDUUT@UdDDUWU@"" A ET"DUUuWQU]Ub  :UPJD EEUT@EU]]TD DUuUUTUUj **@"HIjU@U@" b" UUUWuAXUUUj @8%AEAAE D EUU@DUUU}D@DWUTEP "*" AD*5UAU@AEA@A  UUPUuWWUUz* D EUU@EUUDEUEUZ  *HL pUU"(U PUUPQ]UQUZ* EED UUDDUUDDU]UP"" AP E UUPUQ=UZ  @UD UUTDUDDTEUuUDZ "HP *UPU"( QUQUUUuUVjEDED UT@EUDDuUUDT   AP0 U]UU]UQ  DETU TDUUTD@GU WUTDD@DDU "H`uUU" QUUQUQU WUQUzEE@DEUDDTuU ]UTDD@AUU\" A@( @UQU ]UQUUEW : DEUTTDTD}U uUTEUTEU"""H "uDEUUTUTEUU"QU QQUUUU*UzUHA@ADU TD@UTDDGUWRUE^   AB*"@ QQUQUu]jW  <:UUTDEU DEUUQDDըU " " "*H+UR" uUTU"4UUQU֠Uz **pUHAADUEUTUZU^ " "*Ah UR"@UQUUUWW *UH@DEEUWUWUU " " *H`ªUR"uUPU"@U}WUUz *꯫UHATA@DEUU^ "  AªUR"@QUUUUWWUPDTDTUuU^U " "H"UR"uUU@U"#UQU]Uzx " (*UTDTDTEUWU^"  AB*U" TU UUW ꪠ UHTUDEUuU~U* HJ *U"uUTU"$QQU]WUUzz UHPADUTUWUU^ @ AH UR"@ UU_U_W @UP@ UPDEDUUU_U * H H`(UR" uU@ U"PQU_WUz B UT@ A@@DEUTUU^ (H AUR"@ UAQU_UW B UT@ UDTEU^EU (H H(HIUT"uU@ U"#U^""Uz B UT@ ADEEU\zU^ (H  AAA}UT" @  U\>UW (B(*UT@ DII))E IJU^EU * (H *H*HH_UT" uU@ U"#"!B%U^""?U: (B(*UTH@ DH EU^U^ * (H"*ABAAOUB"@ U ""U^UW(B(UH@ UDHDU^UU* (H"HHHKUR"U@ U"#""U^""#Uz(B* UT9@ D@@U^ꪠU^* (H*A AUR" @