(a---------LOUDSPEAKER DESIGN PROGRAMS------------------WRITTEN BY ROBERT L. CAUDLE---------Nj------------BASED ON EQUATIONS OF---------------------D.B. KEELE AND RICHARD SMALL--------, ---------TRANSFERRED TO THE PX-8 BY---------^ -------------MICHAEL MONTGOMERY-------------:FS=FREQ. OF FREE-AIR RESONANCE QTS=RESONANCE MAGNIFICATION AT FS:VAS=DRIVER COMPLIANCE OF AIR VOLUME VB=BOX VOLUME:FB=BOX RESONANCE FREQ. F3=SYSTEM CUT OFF FREQ.e:PROGRAM TAKEN FROM 'RADIO SHACKS BOOK"BUILDING SPEAKER ENCLOSURES"--:--CAT.NO.62-2309--- M()(: )"LOUDSPEAKKER SYSTEM DESIGN PROGRAMS":܍2"1. DRIVER PARAMETERS"<"2. VENTED BOX DESIGN"F"3. CLOSED BOX DESIGN""P"4. END"=Z"SELECTION (1-4) >";PMd P ]n P mx P Z{ P : )"DRIVER PARAMETERS":L$"N":R$"N"ˎ"ENTER DRIVER NAME";D$"ENTER D.C. RESISTANCE OF VOICE COIL";RE"ENTER FREE-AIR RESONANCE";FSN"ENTER IMPEDANCE AT FREE-AIR RESONANCE";ZMAX]ROZMAXREnRF(RO)RE"ENTER FREQ. BELOW FREE-AIR =";RF;"OHMS"; F1Տ"ENTER FREQ. ABOVE FREE-AIR =";RF;"OHMS";ޏ F2QMSFS(RO)(F2F1) QESQMS(RO)%QTSQMSQES(QMSQES)F""ENTER TEST BOX VOLUME";TVBt,"ENTER DRIVER RESONANCE IN TEST BOX";TFS6VASTVB(n((TFSFS)))@: )"DRIVER PARAMETERS"::ĐJ D$T"VOICE COIL RESISTANCE(RE)=";RE;" OHMS"^"FREE-AIR RESONANCE(FS)=";FS;" HZ")h"QMS=";QMS9r"QES=";QESI|"QTS=";QTSZ"VAS=";VAS," LINE PRINT OUTPUT (Y)";L$ L$"Y" đ )"DRIVER PARAMETERS"ё:: D$"VOICE COIL RESISTANCE (RE)=";RE;" OHMS"("FREE-AIR RESONANCE (FS)=";FS;" HZ"8"QMS=";QMSH"QES=";QESX"QTS=";QTSh"VAS=";VAS"ANOTHER DRIVER (Y)";R$ R$"Y"  (Ē: )"VENTED BOX DESIGN":ϒL$"N"&"DRIVER NAME";D$0"ENTER QTS";QTS:"ENTER VAS";VAS"D"ENTER FS";FS:NVBQTS7VASUXFB= WQTSfffFSpbFHQTS333FS}l:R$"N"v )"B4-ALIGNMENT":"VB=";VB;"(BOX VOLUME)"擊"FB=";FB;" HZ (BOX FREQUENCY OF RESONANCE)""F3=";FH;" HZ (SYSTEM CUT-OFF FREQUENCY)"H=:"CHANGE BOX SIZE (Y)";R$Q R$"Y" w:"ENTER NEW VB (BOX VOLUME)";VBFBFS(VASVB) #FHFS(VASVB)ҔH(ff&QTS(VASVB)333)( ): )"VENTED BOX DESIGN":B$"VENT":R$"N":L$"N" D$'"VB=";VB; "FB=";FB;" HZ"O"F3=";FH;" HZ"x "PEAK OR DIP IN RESPONCE =";H;" DB"*:"CHANGE BOX SIZE (Y)";R$4 R$"Y" ˕>"LINE PRINT OUTPUT (Y)";L$ߕH L$"Y" R )"VENTED BOX DESIGN":W D$\"VB=";VB*f"FB=";FB;" HZ">p"F3=";FH;" HZ"fz"PEAK OF DIP IN RESPONSE=";H;" DB""VENTED BOX RESPONSE GRAPH (Y)";R$ R$"Y" "CUSTOM DESIGN (Y)";R$і R$"Y" <: )"CUSTOM VENTED BOX DESIGN" B$"":R$"N"#:"CHANGE VB (Y)";R$7 R$"Y" N"ENTER NEW VB";VBYR$"N"y"CHANGE BOX TUNING (Y)";R$ R$"Y" "ENTER NEW FB";FBӗ: )"GRAPHICS CALCULATION IN PROGRESS"A(FB)(FS)BAQTS(FB(FS))"CA(FB(FSQTS))(VASVB):$DQTS(FB(FS))N. F  b8F9FFS:F5F9vBF4F9:F3F9LF6(F4CF5A)VF7(BF9DF3)ʘ`M(F)((F4(F6F7))( ))Иjژt l~ B$"VENT" : )"CUSTOM VENTED BOX DESIGN""R$"N"-: D$;"VB=";VBO"FB=";FB;" HZ"_"QTS=";QTSs"FS=";FS;" HZ""VAS=";VAS:"CHANGE VB OR FB (Y)";R$ R$"Y" ֙"LINE PRINT OUTPUT (Y)";L$ L$"Y" < )"CUSTOM VENTED BOX DESIGN":: D$* "VB=";VB>"FB=";FB;" HZ"M"QTS=;QTSa("FS=";FS;" HZ"q2"VAS=";VAS<"ANOTHER VENTED BOX DESIGN (Y)";R$F R$"Y" P (ؚZ: )"CLOSED BOX DESIGN":dL$"N":R$"N"n"DRIVER NAME";D$x"ENTER QTS";QS)"ENTER VAS";VAS<"ENTER FS";FSO"ENTER VB";VB\AVASVBnFCFS(A)QTC(FCQS)FSF3FC(((QTC)((QTC))))ӛ: )"CLOSED BOX DESIGN"ޛR$"N": D$"F3= ";F3;" HZ""QTC= ";QTC"VB= ";VB>:"CHANGE BOX SIZE (Y)";R$R R$"Y" "k:"ENTER NEW VB";VBu ": )"CLOSED BOX DESIGN",R$"N":L$"N"6: D$œ@"QTS=";QS,ӜJ"QTC=";QTC,T"VAS=";VAS,^"VB=";VB,h"FS=";FS;" HZ",r"ALPHA=";A,.|"FC=";FC;" HZ",C"F3=";F3;" HZ",e:"LINE PRINT OUTPUT (Y)";L$y L$"Y"  )"CLOSED BOX DESIGN"::"QTS=";QS"QTC=";QTCʝ"VAS=";VASٝ"VB =";VB"FS ="FS;" HZ""ALPHA=";A"FC =";FC;" HZ"'"F3 =";F3;" HZ"Q:"CLOSED BOX RESPONSE GRAPH (Y)";R$e R$"Y" I: )"GRAPHICS CALCULATION IN PROGRESS" F  ݞFHFFC:FQFH:MAGFQ(((FQ)(FHQTC)))&M(F)((MAG)( ))0 : lD "IR$"N"GN"ANOTHER CLOSED BOX DESIGN (Y)";R$ZX R$"Y" Zdb (xl :::R$"N"v::"0 DB":"5 DB":"PER":"DIV."Ɵ )"20";)"HZ";)"200"֟ I ⟞(I,&)蟨 I &(,I)  I ! ((,I).< I D Jb(((J)Xi),%)h | F    M(F) M(F)*(((F)Xi),(&M(F)))Ġ4> 30,40,50,60,70,80,90,100,200C 20,30,40,45,50,60,80,100,120,140,160,200/H"LINE PRINT (Y)";R$JR ,,: R$"Y" fP\f )"-40";)"-30";)"-20";')"-10";2)"0";;)"+10"p  )"+";)"+";()"+";2)"+";<)"+"̡z I  ԡ F䡎 F;)"I"; M(F)'   2M(F))"*" ""$N ,,:"PRESS ENTER TO CONTINUE";R$T F;)"I"; M(F)'   2M(F))"*" ""$N