L%hh LHH` X% " ӠӠΠǠ ˮԠˠǠӬĠӠ٠٠ϠŮ+JJJJ ,,,L Lک ٥ҥ>ӥ? ( ㆭ  ؆` | A""""""QQQYV <"<Q '(h((QQQ`@GHOHO $"!$q}T@` `@@``p0 8p@@`00 |0@` `pppPox`D3 < p?|@@@|@`f ppn|>0p  qcs6<, 3['Nxxxpp0` ```@vl  ?`@:3q  AcqcCyO@  0p`@@q @p?|`3cC ? ?>|xp`p`@Acwsssssss__????????~^^ ?~~~~~~~?>~||xpp`@~| xyy{~|@`pp xpp`@yyyyyyyx~ ~x`|xpxqa` cqx|||||||cCC?>>>??<<|||~?`ppxx||<||xxpp`|||||||| |?|p`@@@@`p|? OOGgccqpxsssssssppxxx|<<~?>~||xxxxppp```@@@`?~|x|~|||||||p@@p|~><|xp`@>|x|xpx}yyyyyyyAA?~|xpp`ppx|~? ?? 33@``@@glloLL LlOgloloG @`@glolo@@gLLL GaamGGlg`GGlg`G  xL| x@@xMLLxMyyM MyxAxMx|Yq @lllLglllgG LlL`@GLOLo033366m~0>3>33~G<`G}rccb``acccq{{{{8008????~ |lL COoooog CgoooocCFFLLXXPpqa88`}}}}>????~ | ~FCCFL ____|GG|GGccp{{{{ ;1q``qp`aas{{{{8008 0y| |}}}}AAQg((h' $C@0j ed`y < I1@@q q s8EE9EE8> ` `$DC0ANPQN@'h(' WPG((H@stq q8AyEx:NPQ@GhHHG#$p# @ (*Y9AyEy: QQQO~C%%C~_DDD qAAAaq9`ppxxx|xxx|AsGN8088 Ccˆʎõĵ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 iõ`  \ 濭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- ( t Ϡ@跻~!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 Y1_1 [1`+-4(O1)H1t3 u3*R1(S1-T-(G.Ī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䵍䵐`"L ŵ8ŵH ~(` d ֠z# u`"BEGINS AT A HIGHER FREQUENCY. A Q OF .7"V"PRODUCES A CUTOFF FREQUENCY EQUAL TO"o"SYSTEM RESONANCE."u" PRESS RETURN TO CONTINUE ";A$936:::"INPUT THE DESIRED SYSTEM COMPLIANCE (Q)"Q2QQ2Q1.21Q.69īESONANT FREQUENCY, AND"EF"CUTOFF FREQUENCY. THE OPTIMUM SYSTEM Q"uP"IS 1 WHICH PRODUCES A SLIGHT HUMP IN THE"Z"RESPONSE NEAR THE SYSTEM'S RESONANT"d"FREQUENCY. SMALLER Q'S GIVE LARGER VOL-"n"UME AND LOWER RESONANCE, BUT ROLLOFF"*x""YOUR SELECTION ";Z*936:::06<BNY3Y31] Y321460g936"THE DESIGN OF A CLOSED BOX SYSTEM RE-"("QUIRES YOU TO CHOOSE A SYSTEM"2"COMPLIANCE (Q). THIS IN TURN DETERMINES"<"THE BOX VOLUME, ROF",V"SYSTEM YOU WOULD LIKE TO DESIGN: "2`Jj" 1. CLOSED BOX"ut" 2. BASE REFLEX (NOTE: THE WOOFER"~" Q SHOULD BE .5 OR LESS)"" 3. EXIT FROM THE PROGRAM"Z3ė:(8):(10):"RETURNING TO INDEX":(4);"RUN INDEX11"WILL THE SYSTEM INCLUDE A MIDRANGE"P"SUB-ENCLOSURE (Y/N) ";A$g(A$,1)"Y"1090m"INPUT ITS APPROXIMATE DIAMETER"D3$."INPUT ITS APPROXIMATE DEPTH"8D4B936:::L"ENTER THE NUMBER OF THE TYPE 1. LITERS""H" 2. CUBIC FEET"(RA\"YOUR SELECTION ";ZKf936XpZ2910hzV1V128.57r936x"INPUT "W$"'S DIAMETER""IN INCHES"D2"INPUT THE APPROXIMATE DIAMETER OF THE""MAGNET STRUCTURE"M" VALUES IN LITERS OR CUBIC FEET"/S"TOTAL SPEAKER COMPLIANCE (Q)"[Q1a "SPEAKER EQUIV. COMPLIANCE VOLUME (VAS)"V1 *"ENTER THE NUMBER OF THE UNITS USED FOR"4"THE COMPLIANCE VALUES JUST ENTERED:" >" R ENCLOSURE DESIGN CALCULATIONS"&lTv"INPUT THE WOOFER'S MODEL NUMBER AND/OR"l"MANUFACTURER ";W$r"INPUT "W$"'S PARAMETERS""RESONANT FREQUENCY (FS)F1936"NOTE: THE PROGRAM WILL HANDLE COMPLIANCE")"/"ANCE VOLUME (VAS), WHEN CERTAIN VALUES"\"ARE KNOWN. YOU MUST HAVE THE WOOFER'S"&"RESONANT FREQUENCY, MOVING MASS (IN"0"GRAMS), AND DIAMETER (IN CM'S).":D" PRESS RETURN TO CONTINUE ";A$N936:::X: b"SPEAKECROSSOVER FREQUENCIES AND SLOPES"M "FOR A TWO-WAY OR THREE-WAY CROSSOVER"} "NETWORK. IT THEN CALCULATES THE REQUIRED" "VALUES FOR THE CIRCUIT."  "'VASCALC' IS DESIGNED TO ASSIST YOU WITH""THE CALCULATIONS FOR EQUIVALENT COMPLI-SS RETURN TO CONTINUE ";A$ F "ENTER YOUR SELECTION (E/C) ";A$[ (A$,1)"C"590k 936::: "'CROSSOVR' IS A PROGRAM DESIGNED TO" "ASSIST YOU WITH CROSSOVER NETWORK CALCU-" "LATIONS. IT ALLOWS YOU TO INPUT THE"! "DESIRED " PRESS RETURN TO CONTINUE ";A$3 936:::9 "? ,E 6p @"ENTER ONE OF THE FOLLOWING OPTIONS:"v J T"ENTER E FOR AN EXPLANATION OF SEVERAL" ^"OTHER PROGRAMS AVAILABLE TO ASSIST" h"YOU WITH SPEAKER DESIGN." r |" PRE "HOWEVER, THIS PROGRAM ASSUMES THAT YOU"X "HAVE SOME PRIOR KNOWLEDGE OF SPEAKER" "DESIGN. IF YOU DO NOT, SEE THE DOC-" "MENTATION THAT ACCOMPANIES THIS PROGRAM" "OR OTHER INFORMATION PERTINENT TO" "LOUDSPEAKER DESIGN." # "THIS PROGRAM HAS BEEN DESIGNED TO ASSIST"[ "THE SPEAKER ENGINEER WITH THE CALCULA-" "TIONS NEEDED IN THE DESIGN OF A WOOFER" "THAT PRODUCES A GIVEN FREQUENCY RE-" "SPONSE. THE DIRECTIONS ARE SIMPLE AND" "EASY TO FOLLOW." ,S'  SPEAKER ENCLOSURE DESIGNA AUTHORED BY LLOYD THOMPSONP MAY 1981V(f2936:::p<::F" S P E A K E R E N C L O S U R E"P13);"D E S I G N "Z:::d" PRESS RETURN TO CONTINUE ";A$n936:::x-          ;HL&B"NUMBER OF HALFTONES";25);NH6LACC2:1240ZV"HALFTONE COSTS";T35);"$";ACi`F301170j"SIZE OF PMT'S";25);TW;"X";TLt"NUMBER OF PMT'S";25);NT~ACC3:1240"PMT COST";T35);"$";ACT3:C410T2C4100T1(Y/N) ";A$1((A$,1)"Y"10001" "O"JOB IDENT. NO.";25);N$X" "l"PHOTOGRAPHIC"u" "F101070"PAGE SIZE";24);NACC1:1240$"LINE COSTS";T35);"$";AC.F2011208"SIZE OF HALFTONES";25);HW;"X"ERENT JOB (Y/N) ";pA$.z(A$,1)"Y"50g:(8):(10):"RETURNING TO INDEX":(4);"RUN INDEX"o:"YOU MUST FIRST CONFIGURE TO YOUR SYSTEM""PRESS TO CONTINUE";A$"IS THE JOB IDENT. NO. TO BE" "PRINTED ALSO PHOTOGRAPHIC COST"A)"$"C4:> "WOULD YOU LIKE THE RESULTS"a*"SENT TO THE PRINTER (Y/N) ";i4A$>(A$,1)"Y"İ910H:::::R"WOULD YOU LIKE TO REPEAT THIS PROGRAM"\"USING DIFFERENT VALUES FOR THE SAME"f"JOB, OR FOR A DIFF"LINE COSTS "A)"$"C1%F20750L"SIZE OF HALFTONES";A);HW;"X";HLl"NUMBER OF HALFTONES"A)NH"HALFTONE COSTS"A)"$"C2F30790"SIZE OF PMT'S"A)TW"X"TL"NUMBER OF PMT'S"A)NT "PMT COST"A)"$"C3:"TOTAL CALC. PMT'S* 0, :TR(NTPR3): *TIME*R DC3(TRHE)(TT.004NT): *COST*q NC4C1C2C3: *TOTAL COST*w X b *PRINT STATEMENTS* l vA25:936 : "JOB IDENTIFICATION NO.: ";N$  F10700 "PAGE SIZE";A1)N 5);C;" MICRO-MICRO FARADS"& L "DO YOU WANT TO SOLVE SOME MORE"q "PROBLEMS OF THIS TYPE (Y/N) ";y J$ J$"Y"2610 180  936:(4);"RUNINDEX"8TURN> TO CONTINUE";( A$'2 936:N< "TYPE IN FREQUENCY OF CURRENT IN"qF "HERTZ. (CYCLES PER SECOND)"xP F~Z d "TYPE IN CAPACITIVE REACTANCE IN"n "OHMS"x X  P6.2832  "YOUR ANSWER IS: "  C1PFX IN A CIRCUIT"3 "WITH XC GIVEN IS AS FOLLOWS: "9 c "C=1 DIVIDED BY PI TIMES XC TIMES F"i  "WHERE: C IS IN MICRO-MICRO FARADS" 7);"XC IS IN OHMS" 7);"F=FREQUENCY OF CIRCUIT CURRENT" 7);"PI=3.1416"  "PRESS TO COANCE VALUE IS: "#5);SUM)P"DO YOU WISH TO COMPUTE ANY MORE"s"PROBLEMS OF THIS TYPE (Y/N)"{ G$G$"Y"1830 180* SELECTION 54936>:H"THE FORMULA TO CALCULATE CAPACITIVE"R"REACTANCE IS AS FOLLOER OF CAPACITORS"0N"IN THE PARALLEL CIRCUIT"7XN=bYl"TYPE IN THE VALUE OF"uv"YOUR FIRST CAPACITOR"R(1)SUMR(1)I2N"TYPE IN THE VALUE OF CAPACITOR ";IR(I)SUMSUMR(I)I"THE TOTAL CAPACIT0"OR, IN WORDS, PARALLEL CAPACITANCE"T"C IS EQUAL TO THE SUM OF THE"x"INDIVIDUAL CAPACITORS IN THE""CIRCUIT""(ENTER C TO CONTINUE)"A$&936:0"ENTER THE VALUES AS REQUESTED":D"TYPE IN THE NUMBSOLVE ANY"3^"MORE PROBLEMS OF THIS TYPE (Y/N) ";hE$LrE$"Y"1400U|180g SELECTION 4q936y:"THE FORMULA TO COMPUTE PARALLEL""CAPACITANCE IN ELECTRONIC CIRCUITS""IS AS FOLLOWS: ""C=C1+C2+C3+...ETC""YOUR FIRST CAPACITOR""R(1)1SUM1R(1)<I2Ne"TYPE IN THE VALUE OF CAPACITOR ";IoR(I)SUMSUM1R(I)I""THE TOTAL EQUIVALENT VALUE","OF THE CAPACITORS IS; "6@5);1SUMJ T"DO YOU WANT TO THE SMALLEST CAPACITOR"ZAd"PRESS TO CONTINUE";InA$Ux936:w"TYPE IN THE VALUES AS THEY""ARE REQUESTED""ENTER THE NUMBER OF CAPACITORS""IN THE SERIES CIRCUIT: "N:"TYPE IN THE VALUE OF"OWS:" )"C=1/(1/C1+1/C2+...ETC)"/ Y"OR, IN WORDS, SERIES CAPACITANCE C""IS EQUAL TO 1 DIVIDED BY THE SUM"("OF 1 OVER THE INDIVIDUAL CAPACITORS"2"IN THE SERIES."<F"THE SERIES CAPACITANCE IS ALWAYS"P"LESS THANRO-MICRO FARADS"~;"DO YOU WISH TO SOLVE ANOTHER "]"PROBLEM OF THIS TYPE (Y/N)"eF$uF$"Y"980~180 SELECTION 3936"THE FORMULA TO COMPUTE SERIES""CAPACITANCE IN ELECTRONIC CIRCUITS""IS AS FOLLBINED AREA OF PLATES"-"IN SQUARE INCHES"4A:^"TYPE IN DIAELECTRIC CONSTANT"eKk$"TYPE IN THICKNESS OF DIAELECTRIC"."IN INCHES ";8TBN.2248LV"YOUR ANSWER IS: "`jCN(AK)Tt5);C;" MICMICRO FARADS"77);"A=AREA OF PLATES IN SQ. INCHES"_7);"K=DIAELECTRIC CONSTANT (REF)"7);"T=THICKNESS OF DIAELECTRIC (IN.)"7);"0.2248=CONVERSION CONSTANT""PRESS TO CONTINUE";A$936:"TYPE IN COM80  SELECTION 2*936&4:T>"THE FORMULA TO COMPUTE THE CAPACITANCE"yH"OF A GIVEN COMPONENT WITH THE"R"PHYSICAL DIMENSIONS IN INCHES"\"IS AS FOLLOWS: "fp" C=.2248 TIMES A TIMES K/T"z "WHERE: C IS IN MICRO-F DIAELECTRIC"&"IN CENTIMETERS ";-T3?N.0885W"YOUR ANSWER IS: "]rC(AK)T.08855);C;" MICRO-MICRO FARADS""DO YOU WISH TO SOLVE ANOTHER PROBLEM OF""THIS TYPE (Y/N) ";B$ B$"Y"4001S)"+7);".0885 IS CONVERSION CONSTANT"1T&"PRESS TO CONTINUE";\0A$h:936:D"TYPE IN THE COMBINED AREA OF"N"PLATES IN SQ. CM'S"XAbl"TYPE IN DIAELECTRIC CONSTANT ";vK"TYPE IN THICKNESS O"DIMENSIONS GIVEN IN CENTIMETERS": "IS AS FOLLOWS:"@ c "C=.0885 TIMES A TIMES K/T": "WHERE: C IS IN MICRO-MICRO FARADS" 7);"A=AREA OF PLATES IN SQ. CM'S" 7);"K=DIAELECTRIC CONSTANT"7);"T=THICKNESS OF DIAELECTRIC (CM'ION IS ";Z$ JZ$"1"400+ TZ$"2"800< ^Z$"3"1210M hZ$"4"1670^ rZ$"5"2090o |Z$"6"2450 Z$"7"2820  SELECTION 1 936 : "THE FORMULA TO COMPUTE THE CAPACITANCE" "OF A SINGLE COMPONENT WITH PHYSICAL"$ SERIES CAPACITANCE" B "4. COMPUTING PARALLEL CAPACITANCE"H q "5. COMPUTING CAPACITIVE REACTANCE"w  ""6. COMPUTING CAPACITANCE WHEN" % '" CAPACITIVE REACTANCE IS KNOWN" , 6"7. EXIT FROM PROGRAM" @:"YOUR SELECTR OF THE TYPE OF"9 "PROBLEM YOU WOULD LIKE TO SOLVE:"? d "1. COMPUTING CAPACITANCE WHEN"j " DIMENSIONS ARE IN CENTIMETERS" "2. COMPUTING CAPACITANCE WHEN" " DIMENSIONS ARE IN INCHES"  "3. COMPUTING RE OF USE IN THE"7 d"DESIGN OF ELECTRONIC CIRCUITRY"= ni x"THE MENU THAT FOLLOWS IDENTIFIES THE" "PARTICULAR PROBLEMS THIS PROGRAM IS" "DESIGNED TO SOLVE." "PRESS TO CONTINUE"; A$ 936 "SELECT THE NUMBE  CAPACITANCE CALCULATIONSA AUTHORED BY LLOYD THOMPSONP MAY 1981\(R(100)2936:::"CAPACITANCE CALCULATION PROGRAM"<::F"THIS PROGRAM CONTAINS A SERIES OF"P"PROCEDURES FOR SOLVING CAPACITANCE" Z"PROBLEMS THAT A          PR2): *TIME*2 C2(IHHE)(H.007NH): *COST*8 Y  *PHOTOMECHANICAL TRANSFER*_ ~ "DO YOU NEED PMTS ";PT$: (PT$,1)"Y"520 590 PR3.07:"NUMBER OF PMT'S ";NT: "SIZE OF PMT'S ";TW,TL:TTTWTL:F31:  & * ^936::::::NT$" ":"DO YOU NEED HALFTONES ";NT$:P h(NT$,1)"Y"380Y r470z |"NUMBER OF HALFTONES ";NH: "SIZE OF HALFTONES ";HW,HL:::HHWHL:F21   *CALC. HAHFTONES*  PR2.15:(PO$,1)"M"PR2.2 IH(NHʺ:"DO YOU NEED LINE SHOTS ";LS$:8 (LS$,1)"Y"250A 330K L11Q l  * CALC. LINE SHOTS *r  "PR1.12:PPWPL:(PO$,1)"M"PR1.15 ,HR(NIM)PR: *TIME* 6C1(HRHE)(P.005(NIM)): *COST* @ J *HALFTONE* T: INDEX"160/::"DESIGNER'S NAME ";N$S:"ASSIGNMENT NAME OR NO. ";P$p:"DATE (MM/DD/YY) ";D$v936:::::p:::"PRESS TO CONTINUE ";A$: N TO CONTINUE ";A$: ;:"!" ROOT DIAMETER ";25);RDB" DIAMETRAL PITCH ";25);DP[" ADDENDUM ";25);At" DEDENDUM ";25);D" TOOTH FILLET ";25);TF0"PRESS TO CONTINUE, TO EXIT ";A$:(A$,1)"X"ĺ"RETURNING TO INDEX":(4);"RUN;NT#H" PITCH DIAMETER ";25);PDHR" PRESSURE ANGLE(DEG) ";25);PAe\" WHOLE DEPTH ";25);DTf" WORKING DEPTH ";25);WDp" CHORD. ADDENDUM ";25);CAz" CHORD. THICK. ";25);CH" CIRCULAR THICKNESS ";25);CT:" RELATED VALUEST ";25);TF3:"PRESS TO CONTINUE ";A$x 936:::"WOULD YOU LIKE A HARD COPY";:QA$:(QA$,1,1)"Y"Ċ1 "PROJECT: ";20);P$!"DESIGNER: ";20);N$""DATE: ";20);D$*:" TOOTH CUTTING DATA: ":4" NUMBER OF TEETH ";25)ORD. THICK. ";25);CH4" CIRCULAR THICK";25);CT\:"PRESS TO CONTINUE ";A${936::"RELATED VALUES:"" ROOT DIAMETER ";25);RD" DIAMETRAL PITCH ";25);DP" ADDENDUM ";25);A" DEDENDUM ";25);D " TOOTH FILLE5329) N936:::X"TOOTH CUTTING DATA:"Zb" NUMBER OF TEETH";25);NTyv" PITCH DIAMETER";25);PD" PRESSURE ANGLE(DEG)";25);PA" WHOLE DEPTH";25);DT" WORKING DEPTH";25);WD" CHORD.ADDENDUM";25);CA" CH2 DEG.":" 2. 20 DEG."4 :"NO. OF SELECTION ";NE N0N3460e :"RE-ENTER VALUE "::430~ PA14.5:BDPD.96815 N1490 PA20:BDPD.93969 TF.157PD: TOOTH FILL. CAAPD2(1((90NT).01745329))CHPD((90NT).0174 CALCULATIONS J+ TCP(3.1416PD)NT6 ^A1DPE hD1.157DPS rODPD2Aa |RDPD2Dv CT3.1416(2DP) WD2A DTAD CLDA :"ENTER THE NUMBER CORRESPONDING TO THE" "PRESSURE ANGLE TO BE USED: "  " 1. 14 1/N ":936:160( 936:CS240,260,290D :"PITCH DIAMETER ";PDr :"DIAMETRAL PITCH ";DP:NT(DPPD):310 :"PITCH DIAMETER ";PD :"NO. OF TEETH ";NT:DPNTPD:310 ":"DIAMETRAL PITCH ";DP ,:"NO. OF TEETH ";NT:PDNTDP 6 @RAM -- THE OTHERS WILL BE". "CALCULATED":Y " 1. PITCH DIA. AND DIAMETRAL PITCH" " 2. PITCH DIA. AND NO. OF TEETH" " 3. DIAMETRAL PITCH AND NO. OF TEETH" :"ENTER NO. OF SELECTION ";CS CS0CS4230 :"RE-ENTER SELECTIO*WO=WORK DEPTH@ x *CA=CHORD. ADD. *CH=CHORD. THK *CT=DIR. THKq *RD=ROOT DIA *DP=DIAMET. PITCH *A=ADDENDUM *D=DEDEMDUM *TF=TOOTH FIL. "ENTER THE NUMBER CORRESPONDING TO THE" "COMBINATION OF VALUES TO BE INPUT TO" "THE PROG ! ** SPUR GEAR CALCULATIONS8 ** DAVID PONTIUSJ ** MAY 1981P(Z25000<"SPUR GEAR DESIGN PROGRAM":4000F936:5000PZ VARIABLE LISTd *NT=NO. OF TEETH *P=PITCH *PD=PITCH DIA. n *PA=PRESS ANGLE *DT=WHOLE DEPTH      "PRODUCTION HOURLY RATE ";HE:M "MANUAL OR AUTO. PROCESSING (M/A) ";PO$:r (PO$,1)"M"(PO$,1)"A"170 "NUMBER OF FINISHED PIECES NEEDED ";N: "SIZE OF FILM (LINE FILM) ";PW,PL: "IMPOSITION - PIECES PER SHEET OF FILM ";IM:"  1 * PHOTOGRAPHIC ESTIMATING PROGRAM *7O( * BY CHARLES LEE [2936:c<:F"LINE, HALFTONE, AND PMT"P" ESTIMATING PROGRAM"Z:dx * INPUT *"JOB IDENTIFICATION NO. ";N$::::: ING SPEEDS DISPLAYED IN":" METRIC UNITS (Y/N) ";UN$G#UN$(UN$,1):#:(8):(10):"RETURNING TO INDEX":(4);"RUN INDEX"IARCORRESPONDING TO THE"?""TYPE OF CUTTING TOOL TO BE USED:":v":" 1. HIGH STL":" 2. CAST ALLOY":" 3. CARBIDE"":"NO. OF SELECTION ";CT"CT0CT4ı":"RE-ENTER SELECTION":6010"5000::"WOULD YOU LIKE THE RECOMMENDED"4#"CUTT:"PRESS TO CONTINUE ";A$:\!::"PRESS TO CONTINUE, TO EXIT ";A$s!(A$,1)"X"ī6090y!!p:"ENTER THE NO. CORRESPONDING TO THE"!u"MATERIAL TO BE MACHINED:":!z::"CUTTING TOOL SELECTION"":"ENTER THE NO. , 8, 5, 8, 5, 10, 10, 10, 10, 18H  8, 8, 5, 5, 5, 5, 10, 8, 8, 8, 10h  - DRILL ** CUTTING SPEEDSt DR(17) I117:DR(I):I  95, 75, 55, 55, 60, 35, 125, 85, 85, 250, 110, 45, 250  325, 20, 125, 350  936:::::%!:F(66)@I166:MF(I):I8J VALUES ARE IN MM*10^-2eT 25, 20, 20, 10, 20, 10, 31, 25, 25, 41^ 15, 13, 13, 8, 13, 8, 20, 15, 15, 20, 25h 31, 25, 23, 15, 25, 15, 36, 31, 31, 33, 51r 15, 13, 10, 5, 10, 5, 20, 15, 15, 15, 25 | 10, 8 135, 250, 400, 350, 550, 900, 300, 375, 600, 250, 375, 500p - MILL ** ROUGH CUTS W/HIGH SPEED STL CUTTER|MR(10)I110:MR(I):I" 70, 70, 60, 60, 65, 65, 90, 700, 250, 150, - MILL ** FEED/TOOTH, ROUGH CUT, H.S. STL CUTTER6M):I I 115, 250, 400, 100, 215, 350, 95, 190, 300, 80, 175, 250 80, 140, 225, 175, 350, 575, 125, 175, 250, 100, 150, 200 - LATHE ** FINISH CUTI124:LF(I):I 300, 475, 675, 260, 425, 625, 225, 350, 500, 200, 300, 450=0ZDSDS25.4/dRP(DR(MN)12)(DS3.1416)bn936:::"THE RPM OF THE DRILL PRESS IS ";RPqx5020:100 ** SUB TO SUPPLY CUTTING DATA FOR MACHINES - LATHE ** ROUGH CUTLR(24),LF(24):5000:"PLEASE WAIT A MOMENT"I124:LR(ISELECTION ";MN#MN0MN181330I(936:"RE-ENTER SELECTION":1200w2936:::"DRILL SIZE SPECIFICATIONS:":7"WILL THE SIZE OF THE DRILL BIT BE"9"ENTERED IN INCHES OR MM (I/M) ";A$<:"ENTER THE DRILL SIZE ";DSP(A$,1)"I"138-TEN BRONZE"4"4. STL FORGINGS";21);"12. MONEL"\"5. ALLOY STL";21);"13. ALUMINUM""6. STAINLESS STL";21);"14. MAGNESIUM""7. SOFT C.I.";21);"15. MARB/STONE""8. HARD C.I.";21);"16. PLASTICS" 11);"17. WOOD":"NO. OF ":" INCHES/MIN";20);FI>" MM/MIN";20);FR:5020:100p936::::"DRILL PRESS CALCULATIONS":6000:"1. LOW-CARBON STL";21);"9. MALLEABLE C;I""2. MED-CARBON STL";21);"10. BRASS & BRONZE" "3. HIGH-CARBON STL";21);"11. HIGH1020VNM(MNCT)E`:"HOW MANY TEETH DOES THE CUTTER HAVE ";NThjRRMF(NM)NTRP100:IRRR25.4tFRMF(NM)NTRP.5100:FIFR25.4~5000:"FEED RATES"::" ROUGH CUT"" INCHES/MIN";20);IR" MM/MIN";20);RR" FINISH CUTSTL"=" 5. FR.MACH. STAINLESS STL":" 6. STAINLESS STL"|$" 7. SOFT C.I.":" 8. MEDF C.I.":" 9. MALLEABLE IRON"." 10. BRASS & BRONZE":" 11. ALUMINUM"8:"NO. OF SELECTION ";MNBMN0MN121110L936:"RE-ENTER SELECTION ":TING SAWS"(:"NO. OF SELECTION ";CT<CT0CT71020a936:"RE-ENTER SELECTION":970936:"ENTER NO. OF MATERIAL TO BE MACHINED:":" 1. FR.MACH. LOW-CARBON STL":" 2. LOW-CARBON STL"" 3. MED-CARBON STL":" 4. HIGH-CARBON ER TOOTH CALCULATIONS">:"ENTER THE NO. CORRESPONDING TO"d"THE TYPE OF CUTTER BEING USED:":" 1. HEAVY DUTY (PLAIN)":" 2. LIGHT DUTY & SIDE MILLS"" 3. FACE MILLS":" 4. END MILLS"" 5. FORMED RELIEVED MILLS" " 6. SLITTO BE USED FOR THE"3"CLOSEST ACTUAL SETTINGS."_:"WOULD YOU LIKE TO CHANGE THE VALUE""CALCULATED FOR RPM (Y/N) ";A$(A$,1)"Y"950:"ENTER NEW CUTTER RPMS":" ROUGH CUT ";RP" FINISH CUT ";FP5010:5000"FEED P";A$!R:"CUTTER DIAMETER ";CD7\(A$,1)"Y"880FfCDCD25.4vpRCRCM:FCRCRC.37:RP(RC12)(CD3.1416)zFP(FC12)(CD3.1416)5000:"CUTTER SPEED (RPM):":" ROUGH CUT";20);RP" FINISH CUT";20);FP:"CHECK THE MACHINE SH CUT SPEED";25);FCQ:"WOULD YOU LIKE TO CHANGE":"THE VALUES (Y/N) ";:A$g (A$,1)"Y"830*:"ROUGH CUT SPEED ";RC4"FINISH CUT SPEED ";FC>5000:"CUTTER SPECIFICATIONS"H:"IS THE CUTTER DIAMETER TO BE":"ENTERED IN MM (Y/N) USED, MAKE THE"<"FOLLOWING ADJUSTMENTS IN THE SPEED: "c" CARBON STL CUTTER";30);"-50%"" CAST ALLOY TIP CUTTER";30);"+67%" " CARBIDE TIP CUTTER";30);"300%":RCMR(MN)M:"ROUGH CUT SPEED ";25);RC;U$:FCRCRC.375"FINIO. OF SELECTION ";MN(MN0MN11680O936::"RE-ENTER SELECTION":610Y6070kU$" FPM":M1|UN$"N"720U$"MPM":M.3048936::"CUTTING SPEED - MILLING ROUGH CUT""FOR HIGH SPEED CUTTER":"IF A DIFFERENT CUTTER ISCHINE CALCULATIONS"b6000Ql:" 1. LOW-CARBON ST.":" 2. MED-CARBON STL"mq" 3. HIGH CARBON STL"v" 4. TOOL STL":" 5. STAINLESS STL":" 6. GRAY C.I"" 7. MALLEABLE IRON":" 8. ALUMINUM":" 9. BRASS"" 10 BRONZE":"N"I"WDWD2.54# CALCULATE RPM>RR(RC12)(WD3.1416)YFR(FC12)(WD3.1416)5000:"THE MACHINE SETTINGS FOR THIS JOB ARE:"" ROUGH CUT";20);RR;" RPM":" FINISH CUT";20);FR;" RPM"5020:5000:100X936::::"MILLING MAA$ |(A$,1)"Y"400P :"ROUGH CUT";RC:"FINISH CUT ";FC:RCRCM:FCFCMu 5000:"WORKPIECE SPECIFICATION" :"WILL THE SIZE OF THE WORKPIECE DIAMETER" "BE ENTERED IN INCHES OR MM (I/M) ";A$ :"WORKPIECE DIAMETER ";WD(A$,1) 6UN$"Y"330( @U$"M.P.M.":M.3048: JC(MN)(CT)m T5000::"THE APPROPRIATE CUTTING SPEEDS ARE:" ^:"ROUGH CUT";25);LR(C)M;U$:RCLR(C) h"FINISH CUT";25);LF(C)M;U$:FCLF(C) r:"WOULD YOU LIKE TO CHANGE":"EITHER VALUE (Y/N) ";:STL":" 4. HIGH-CARBON STL"T " 5. C.I, SFT GRAY":" 6. BRASS & BRONZE F.M"| " 7. ALUMINUM":" 8. PLASTICS" :"NO. OF SELECTION ";MN MN0MN9290 936:"RE-ENTER SELECTION":210 "936:6010:6070 ,U$"F.P.M.":M1.0 " 3. DRILL PRESS"3 :"NO. OF MACHINE ";NMF NM0NM4170o 936:::"RE-ENTER SELECTION":100 NM200,600,1200 936:::"LATHE CALCULATIONS" 6000 :" 1. FREE-MACHINING STL":" 2. LOW-CARBON STL" " 3. CARBON O"AND DRILL PRESS."A P:"VALUES MAY BE ENTERED OR REQUESTED"Y Q"IN METRIC UNITS."o Z5010:4000:5000 _936::: d"ENTER THE NO. CORRESPONDING TO THE" e"MACHINE TO BE USED: " n:" 1. ENGINE LATHE" x" 2. MILLING MACHINE"# ** SPEEDS AND FEEDS PROGRAM: ** DAVID PONTIUSL ** MAY 1981R(\25000|<"SPEEDS AND FEEDS PROGRAM"F:"THIS PROGRAM CALCULATES THE MACHINE"K"SETTINGS NEEDED TO OBTAIN THE CORRECT"N"ENGINE LATHE, MILLING MACHINE, "           "PRODUCTION COST";A);"$";H1<l"MATERIAL COST";A);"$";M1TvI1A1:"*";:I:Z{ * PRINT OVERALL COST *"TOTAL COST OF PROOFS";A);"$";TC:"WOULD YOU LIKE THE RESULTS SENT TO""THE PRINTER (Y/N) ";A$ (AN.12)BR:M1NP.014:T(K)M1H1:TCTCT(K):5506 U  * PRINT STATEMENTS *[ j &A30:936 0"JOB IDENT. NO. ";A);N$ : D"NUMBER OF PAGES ";A1);N N"SIZE OF PAGES";A1);PW;"X";PL X"BUDGETED HOURLY RATE";A);"$";BRb;"$";AC \a0fFpT3:AC10T2:AC100T1:AC1000T0^zAC(AC100.5)100dN NO. ";N$" "!ACBR:880J"BUDGETED HOURLY RATE ";25);"$";AC[ "OVERLAYS:"fI1Kw ACT(I):880*C$(I);T35);"$";AC:I4ACPC:880>"PAGE COST";T35);"$";ACHACW:880R"TOTAL PASTE-UP COSTS";T35);"$";AC;T45);"RUN INDEX"="YOU MUST CONFIGURE THIS TO YOUR PRINTER":d"TURN ON THE PRINTER, THEN ENTER"" PRESS TO CONTINUE ";A$"IS THE JOB IDENT. NO. TO BE""PRINTED ALSO (Y/N) ";A$1(A$,1)"Y"770 "JOB IDENT. D *REPEAT*  N* S:::::W X"WOULD YOU LIKE TO REPEAT THIS PROGRAM" b"USING DIFFERENT VALUES FOR THE SAME" l"JOB, OR FOR A DIFFERENT JOB (Y/N) "; vA$ (A$,1)"Y"90 936 :(8):(10):"RETURNING TO INDEX":(4);"$";BR O$"N"510( "OVERLAYS:"J I1K:C$(I);A);"$";T(I):Ig "PAGE COST ";A);"$";PC WPCTP:"TOTAL PASTEUP COST";A);"$";W : "WOULD YOU LIKE THE RESULTS SENT" &"TO THE PRINTER (Y/N) ";A$ 0(A$,1)"Y"İ670 : ^TPTPT(K) c:::::E h"DO YOU NEED AN OVERLAY (Y/N) ";E$^ rE$"Y"E$"N"360n |E$"N"420} KK1:170   *PRINT STATEMENTS*  936:A25: : "JOB IDENT. NO. ";N$  "BUDGETED HOURLY RATE ";A), OR":" '3' TO EXIT" DZ,NZ1509XZ3680Ab:hl"INPUT CMS AS A FIGURE EXPRESSED"v"AS 10 TO THE -6 POWER"QQQ1E06CQ370:(8):(10):"RETURNING TO INDEX":(4):"RUN INDEX" ING TO INDEX":(4):"R"POINT, YOU MAY RE-RUN THIS PROGRAM,"S "ENTER THE CMS VALUE PROVIDED BY THE" "MANUFACTURER AND CHECK IT AGAINST THE" "VALUE CALCULATED ABOVE, OR EXIT FROM" &"THE PROGRAM; ENTER '1' TO RE-RUN THE"0"PROGRAM, '2' TO CHECK A KNOWN CMSEAKER HAS AN EQUIVALENT": "VOLUME COMPLIANCE (VAS) OF"O V3;"CUBIC FEET"U ~RʽȼȾȱȻļORʸȫȼȻ;RʫȮȼȿȽRʡȼȫȧȾȩȼ F 4 ""INPUT THE SPEAKER CONE'S DIAMETER"J ,"IN CENTIMETERS"R 6D1X @^ Jd Tx ^T(23.414F)2 hC1(TM) rD2D12 |A3.14(D22) V1C(1.29E03)(11.8108)A2 V2V116.387 V3V21728 936 "THIS SPIN GRAMS"6 " 3. WOOFER'S DIAMETER IN CENTIMETERS"j :"PRESS TO CONTINUE, TO EXIT";A$ (A$,1)"X"680 936:: "INPUT THE SPEAKER'S MOVING MASS IN GRAMS" M "INPUT THE SPEAKER'S FREE AIR RESONANCE""ASSIST THE SPEAKER DESIGNER CALCULATE"V d"EQUIVALENT VOLUME COMPLIANCE (VAS). THE" n"FOLLOWING MANUFACTURER'S SPECIFICATIONS" x"MUST BE OBTAINED TO USE THE PROGRAM:" " 1. WOOFER'S RESONANT FREQUENCY" " 2. WOOFER'S MOVING MASS : SPEAKER DESIGN: EQUIVALENT VOLUME COMPLIANCE (VAS)[ AUTHORED BY LLOYD THOMPSONj MAY 1981p(2936::::<" SPEAKER DESIGN PROGRAM "F" EQUIVALENT VOLUME COMPLIANCE ":P"THIS PROGRAM HAS BEEN DEVELOPED TO"' Z  "Y"O$"N"230 O$"N"420' K1R 936::::::"ENTER CLOR ";C$(K): "ENTER NUMBER OF PIECES TO BE PASTED ";N1: "P400D.25:340 ,P300D.2:340 6P200D.16:340 @P100D.12:340 JD.08 TT(K)(D(N1.03))BR MBER OF PIECES TO PASTED ";N:4 P400B.4:190I P300B.3:190_ P200B.25:190t P100B.2:190~ B.15 PC(B(N.03))BR *CALC. OVERLAYS* 936::::::"DO YOU WANT AN OVERLAY (Y/N) ";O$ O$f ! *PASTE-UP PROGRAM*9 *BY CHARLES LEE*L( * MAY 1981*R2`<936::F"PASTE-UP COST ESTIMATION PROGRAM"P:Z"JOB IDENT. NO.: ";N$d:n"BUDGETED HOURLY RATE ";BR:x"PAGE SIZE ";PW,PL:PPWPL: "NU        14);"PROGRAMMED BY:"6:11);"LESLIE W. ALEXANDER"N15);"KEN BRUMLEY"s:9);"BLOOMINGTON HIGH SCHOOL"14);"1202 E. LOCUST"10);"BLOOMINGTON, IL 61701":::" PRESS TO CONTINUE ";Z$936::: .:"IF YOU WANT TO SOLVE ANOTHER PROBLEM"f"PRESS OTHERWISE ENTER TO EXIT FROM""THE PROGRAM.":P1$936:P1$04 :(8):(10):"RETURNING TO INDEX":(4);"RUN INDEX"936:::;11);"TRANSISTOR SWITCHING":10);"1 MEG OHMS":700B"THE VALUE ON RB IS OUT OF STANDARD"i"RESISTOR LIMITS AND NEEDS TO BE""RE-DESIGNED."::"PRESS TO CONTINUE WITH THE RE-""DESIGN, TO EXIT FROM THE PROGRAM ";P$936::::P$"X"ī108003E4610#X10);"390 K OHMS":700CbRB51.5E4620615ELSE620_g10);"470 K OHMS":700qlRB62E4630q10);"560 K OHMS":700vRB75E4640{10);"680 K OHMS":700RB91E465010);"820 K OHMS":700RB110E4690RB17.5E4510500ELSE510;10);"150 K OHMS":700MRB20E4530i10);"180 K OHMS":700}RB24.5E455010);"220 K OHMS":700&RB30E4570010);"270 K OHMS":700:RB36E4590D10);"330 K OHMS":700NRB4 |10);"47 K OHMS":700+ RB62E3410F 10);"56 K OHMS":700X RB75E3430s 10);"68 K OHMS":700 RB91E3450 10);"82 K OHMS":700 RB110E3470 10);"100 K OHMS":700 RB13.5E4490 10);"120 K OHMS":700 RB20E3290, 10);"18 K OHMS":7005 700I "RB24.4E3310d ,10);"22 K OHMS":700v 6RB30E3330 @10);"27 K OHMS":700 JRB36E3350 T10);"33 K OHMS":700 ^RB43E3370 h10);"39 K OHMS":700 rRB51.5E3390"THE VALUE OF RB IS ";RB* RB110E4690; RB9100690_ :"THE STANDARD RESISTOR THAT"v "MAY BE USED IS:" RB11E3230 10);"10 K OHMS";700 RB13.5E3250 10);"12 K OHMS":700 RB17.5E3270 10)"15 K OHMS":700AMPS ARE TO"" @"BE ENTERED ";AS/ FAS090T K:"ENTER THE VALUE OF THE LOAD"p L"RESISTOR IN OHMS ";RL~ PICVCRL U110 Z:"ENTER THE VALUE OF CURRENT IN AMPS ";IC dRLVCIC nERBSV.6 xIB2ICB RBERBIB 936:: 2:"ENTER THE VALUE OF THE"9 3"SIGNAL VOLTAGE ";SV] 7:"ENTER THE VALUE OF BETA ";B <:"TO COMPLETE THE CALCULATIONS, YOU MUST" ="ENTER THE VALUE OF THE LOAD IN OHMS OR" >"THE CURRENT. ENTER 0 IF YOU WISH TO" ?"ENTER OHMS OR 2 IF 900: "THIS PROGRAM WILL ALLOW YOU TO CALCULATE"i "THE VALUE OF A BIAS RESISTOR TO BE USED" "IN THE DESIGNER SWITCHING CIRCUIT.":" PRESS TO CONTINUE ";A$::::(:"ENTER THE VALUE OF THE")"SOURCE VOLTAGE ";VC        B3N2:B3(B3)460( B3(B31)W H1(.15((N1).03))BR:(BL$,1)"S"B3N M1B3PBC:T(K)M1H1:TCTCT(K):550  TYPE IV: PR=.12: MC=.009 H1(N.12)BR:M1NP.009:T(K)M1H1:TCTCT(K):550  TYPE V: PR=.12: MC=.0140 H1(H1(N.1)BR:M1NP.003:T(K)M1H1:TCTCT(K):550S h TYPE II: PR=.05: MC=.004 rH1(N.05)BR:M1NP.004:T(K)M1H1:TCTCT(K):550 |"IS BROWNLINE SINGLE-" "OR DOUBLE-FACED (S/D) ";BL$  BC.0006 (BL$,1)"D"460 BC.001"TYPE V CROMALIN":I "ENTER 1 THRU 5 FOR PROOFING SYSTEM ";PS:\ PS1PS5260b  " * CALC. PROOF COST * , 6PS340,360,380,480,500 @340 JH1(NPR)BR:M1NPMC:T(K)M1H1:TCTCT(K): T TYPE I: PR=.1: MC=.0034 ^ * PRINT TABLES *& 2 936:: :W KK1:"TYPE OF PROOFS:"] "TYPE I CONVENTION DARKROOM PAPERS" "TYPE II STABILIZATION PAPERS" "TYPE III BROWN LINE" "TYPE IV 3M COLOR-KEY ENCO NAPS/PAPS"  . * PROOF ESTIMATING PROGRAM *4C(T(15):K0O2936:o<"PROOF ESTIMATING PROGRAM"wF:P"JOB IDENT. NO. ";N$Zdn"BUDGETED HOURLY RATE ";BR:x"NUMBER OF PAGES ";N:"SIZE OF PAGES ";PW,PL:PPWPL      2,.3,.35a .05,.15,.09,.29,.14,.38,.16,.53,.2,.68,.26,.88,.29,.97,.47,1.61,.79, 2.69,1.2,4.08T3:AC10T2:AC100T1:AC1000T0AC(AC100.5)100 "TOTAL IMAGE COSTS";T35);"$";AC;T45);"$";AC:D:0:@N_X *DATA STATEMENTS*ebl .10,.05,.15,.08,.18,.1,.2,.12,.35,.16,.4,.2,.5,.25,.7,.3,.9,.4,1.1,.5 v .07,.1,.12,.09,.13,.14,.11,.17,.18,.13,.19,.22,.15,.23,.27,.17,.27,.3,.RATE ";25);"$";AC"ACPC:4490G"FLAT PRER. COST";T35);"$";ACWACLC:4490"LAYING & CUTTING COST";T35);"$";ACACXC:4490"ADDITIONAL COST";T35);"$";ACACMC:4490&"MATERIAL COST";T35);"$";AC0ACTC:4490/:"PRINTER SPECS.":"PRESS TO CONTINUE ";A$t:"IS THE JOB IDENT. NO. TO BE":"PRINTED ALSO (Y/N) ";A${1(A$,1)"Y"4280"JOB IDENT. NO. ";25);N$" ""IMAGE ASSEMBLY"" "ACBR:4490"BUDGETED HOURLY .T"WOULD YOU LIKE TO REPEAT THIS PROGRAM"Y^"USING DIFFERENT VALUES FOR THE SAME"h"JOB, OR FOR A DIFFERENT JOB (Y/N) ";A$r(A$,1)"Y"3110|:(8):(10):"RETURNING TO INDEX":(4);"RUN INDEX""YOU MUST FIRST CONFIGURE TO YOUR"5ST";A);"$";AC."MATERIAL COST";A);"$";MCM"TOTAL COST";A);"$";TC:fI1A10:"*";:I:l *REPEAT*":,"WOULD YOU LIKE THE RESULTS SENT"6"TO THE PRINTER (Y/N) ";A$@(A$,1)"Y"İ4230E:::J::J"WOULD YOU LIKE TO MAKE ANY MORE":MU$:"CALCULATIONS";AN$:936:|936:::"FOR THIS SECTION, I'LL NEED TO":6$:DN3870#\5);Z7$;" = ";Z8$)ffp"PLEASE ENTER THE FIRST LETTER":"OF YOUR CHOICE";X1$:z"ERROR! YOUR CHOICES ARE":936:"ENTER THE NUMERICAL VALUE":"OF THE ";CM$;:X1:"THE VALUE OF YOUR ";CM$;" IS";X1;X1$:"IS THAT CORRECT";AN$ K, M, OR G":720H CM$"FREQUENCY":X1$F$:900:FX1:(AN$,1)"Y"800]936::::720u F$"KHZ"FF1E03*F$"MHZ"FF1E064F$"GHZ"FF1E09>936::::H5);Z1$;" = ";Z2$:5);Z3$;" = ";Z4$:DN2870 R5);Z5$;" = ";Z"IS THE FREQUENCY IN":Z1$"H":Z2$"HERTZ":Z3$"K":Z4$"KILO-HERTZ":Z5$"M":Z6$"MEGA-HERTZ":Z7$"G":Z8$"GIGA-HERTZ":DN4:840:880:F$X1$F$"H"F$"HZ":780F$"K"F$"KHZ":780F$"M"F$"MHZ":780F$"G"F$"GHZ":780890:"H,:840:880:C$X1$!vC$"F"670:C$"M"C$"UF":670SC$"P"C$"PF":670o890:"F, M, OR P":620CM$"CAPACITOR":X1$C$:900:CX1:(AN$,1)"Y"690936::::620C$"MF"CC1E06C$"PF"CC1E12936::::H":580 :890:"H, OR M":540VDCM$"INDUCTOR":X1$L$:900:LX1:(AN$,1)"Y"600kN936::::540XL$"UH"LL1E06b936::::l"IS THE CAPACITANCE IN":Z1$"F":Z2$"FARADS":Z3$"M":Z4$"MICRO-FARADS":Z5$"P":Z6$"PICO-FARADS":DN3";Q:MU$"'Q'":910((AN$,1)"Y"4801110j:(8):(10):"RETURNING TO INDEX":(4);"RUN INDEX"|XX1N:::"IS THE INDUCTANCE IN":Z1$"H":Z2$"HENRYS":Z3$"M":Z4$"MICRO-HENRYS":DN2:840:880:L$X1$&L$"H"5800L$"M"L$"UMU$"'Q'":910:(AN$,1)"Y"440)110920:"KNOW THE INDUCTANCE, FREQUENCY, AND":"THE EFFECTIVE RESISTANCE ":"OF THE COIL."::540720:"WHAT IS THE EFFECTIVE RESISTANCE OF YOUR":"INDUCTOR";R:Q(2PIFL)R:"THE 'Q' OF YOUR INDUCTOR":"IS890:"1, OR 2":410920:"KNOW THE CAPACITANCE, FREQUENCY, AND":"THE EFFECTIVE RESISTANCE ":"OF THE CAPACITOR."::620:720"WHAT IS THE EFFECTIVE RESISTANCE OF THE":"CAPACITOR";R:Q1(2PIFCR)"THE 'Q' OF YOUR CAPACITOR":"IS";Q "IN YOUR CIRCUIT":"IS";L;" HENRYS.":MU$"INDUCTANCE NEEDED TO RESONATE"T|:910j(AN$,1)"Y"360s110936:"DO YOU WANT THE 'Q' OF":Z1$"1":Z2$"CAPACITOR":Z3$"2":Z4$"INDUCTOR":DN2:840:880:CC$X1$:CC$"1"440CC$"2"480" FARADS.":JMU$"CAPACITANCE NEEDED TO RESONATE"::910PT(AN$,1)"Y"300Y^110h920:"KNOW THE CAPACITANCE AND FREQUENCY IN":"THE CIRCUIT TO CALCULATE":"RESONANCE."::620Ir720:L1(((2PIF)[2)C):"THE INDUCTANCE NEEDED TO RESONATE":EACTANCE"::910&(AN$,1)"Y"260/"110`,920:"KNOW THE FREQUENCY AND INDUCTANCE IN"6"THE CIRCUIT TO CALCULATE":"RESONANCE."::540:720:C1(((2PIF)[2)L) @"THE AMOUNT OF CAPACITANCE NEEDED TO":"RESONATE IN YOUR CIRCUIT":" IS";C;MU$"INDUCTIVE REACTANCE"::9106(AN$,1)"Y"220?110920:"KNOW THE CAPACITANCE AND THE FREQUENCY":"IN THE CIRCUIT TO CALCULATE":"RESONANCE."::620:720:XC1(2PIFC)"THE CAPACITIVE REACTANCE":" IS";XC;" OHMS.":MU$"CAPACITIVE RUENCY (IN HERTZ)":" IS";FR:MU$"RESONANT FREQUENCY"::910Q (AN$,1)"Y"180Z 110 920:"KNOW THE INDUCTANCE AND FREQUENCY":"IN THE CIRCUIT TO CALCULATE":"RESONANCE."::540:720:XL2PIFL "THE INDUCTIVE REACTANCE":" IS";XL;" OHMS.":H1CH7ĺ"YOUR CHOICES ARE ONLY 1-7. TRY AGAIN!":110j PI3.141592654:CH180,220,260,300,360,410,520 920:"KNOW THE INDUCTANCE AND CAPAC-":"ITANCE IN THE CIRCUIT TO":"CALCULATE RESONANCE."::540:620:FR1(2PI(LC)); "THE RESONANT FREQCE NEEDED TO":6);"MAKE A CIRCUIT RESONATE":3);"5. AMOUNT OF INDUCTANCE NEEDED TO" 6);"MAKE A CIRCUIT RESONATE":3);"6. 'Q' CALCULATIONS" 3);"7. EXIT PROGRAM"::"ENTER THE NUMBER OF THE CHARACTER-"7 "ISTIC TO BE CALCULATED (1-7)";CH:C:"PRESS TO CONTINUE";Z9$:936. d n"THIS PROGRAM WILL CALCULATE THE":"FOLLOWING TUNED CIRCUIT CHARACTERISTICS:":3);"1. RESONANT FREQUENCY" x3);"2. INDUCTIVE REACTANCE":3);"3. CAPACITIVE REACTANCE"U 3);"4. AMOUNT OF CAPACITANILLINOIS **************R < ************** 61761 ************** F ************************************************* P ON THE 16TH OF MARCH, 1981( Z936:N5:530:"*** TUNED CIRCUIT ANALYSIS PROGRAM ***":N5:530~0 THIS PROGRAM WAS WRITTEN BYj ************************************************* ************** DAVID A. NELSON **************( ************** 105 VERONICA WAY ************** 2 ************** NORMAL,            CPCLCACMC: TOTAL COST x> *PRINT STATEMENTS*DR936::[A26u"JOB IDENT. NO. ";N${"BUDGETED HOURLY RATE";A);"$";BR"FLAT PREP. COST";A);"$";PC"LAYING & CUTTING COST";A);"$";LC"ADDITIONAL COAC10T2:AC100T1:AC1000T0;zAC(AC100.5)100ALF(PS)CF))BR: FLATE PREP.FLC(NFD(FS,CU))BR: LAYING & CUTTING COSTPAC((N1.15)(N2.1)(N3.03))BR: ADD COSTZXCAC: AC IS USED IN A SUBdMC(MCF)FM(PS,FF)nT"BUDGETED HOURLY RATE ";25);"$";AC8 "OVERLAYS:"CI1KT ACT(I):880p*C$(I);T35);"$";AC:I4ACPC:880>"PAGE COST";T35);"$";ACHACW:880R"TOTAL PASTE-UP COSTS";T35);"$";AC;T45);"$";AC\a0f#pT3:RE THIS TO YOUR PRINTER":A"TURN ON THE PRINTER, THEN ENTER"h" PRESS TO CONTINUE ";A$n"IS THE JOB IDENT. NO. TO BE""PRINTED ALSO (Y/N) ";A$1(A$,1)"Y"770"JOB IDENT. NO. ";N$" "ACBR:880':::4 X"WOULD YOU LIKE TO REPEAT THIS PROGRAM"_ b"USING DIFFERENT VALUES FOR THE SAME" l"JOB, OR FOR A DIFFERENT JOB (Y/N) "; vA$ (A$,1)"Y"90 936 :(8):(10):"RETURNING TO INDEX":(4);"RUN INDEX""YOU MUST CONFIGUAYS:"' I1K:C$(I);A);"$";T(I):ID "PAGE COST ";A);"$";PCp WPCTP:"TOTAL PASTEUP COST";A);"$";Wx : "WOULD YOU LIKE THE RESULTS SENT" &"TO THE PRINTER (Y/N) ";A$ 0(A$,1)"Y"İ670 : D *REPEAT* N S::"DO YOU NEED AN OVERLAY (Y/N) ";E$; rE$"Y"E$"N"360K |E$"N"420Z KK1:170` }  *PRINT STATEMENTS*  936:A25: : "JOB IDENT. NO. ";N$  "BUDGETED HOURLY RATE ";A);"$";BR O$"N"510 "OVERL? 90, 100, 110, 120, 130, 140, 150, 160, 170, 180, 190, 200] 220, 240, 260, 280, 300 350, 400, 450, 500, 550, 600, 650, 700, 750, 800 900, 1000, 1200, 1500, 2000, 2500, 3000, 4000  :(8):(10):"RETURNING TO INDEX":(4);"RUN INDEX:"NEXT AVAILABLE SMALLER SIZE ";MS;"MM"/ U "PRESS TO CONTINUE ";A$d 936:220j  *DATA STATEMENTS*  1, 1.2, 1.6, 2, 2.5, 3, 4, 5, 6, 8, 10, 12, 16, 20 25, 30, 35, 40, 45, 50, 55, 60, 65, 70, 75, 80" "THREAD TYPE: ";20);F$/$ "SIZE USED"Q% " FOR TABLE:";20);ML;"MM"W. ]8 {B *PRINT CONT.*L V "AVAILABLE IN MM LENGTHS OF:"W :` K0:IABa K1j K)" ";M(I);t KK1:K402440~ K0 I) : *PRINT SELECTION*7936::::B$"B"2260LS$"SCREW":2270ZS$"BOLT"kC$"C"2290F$"FINE":2300F$"COURSE"936::"FASTENER SPECIFICATION TABLE:" :"TYPE REQUESTED: "20);S$ "SIZE REQUESTED: ";20);S;"MM8:ML10:22305pS12A10:B36:MS10:ML12:2230\zS16A12:B38:MS12:ML16:2230S20A13:B38:MS16:ML20:2230S24A13:B38:MS20:ML24:2230:"THE LARGEST FASTENER IN THIS SERIES ":"IS 24 MM.":1530 24:22300 S30A17:B38:MS24:ML30:2230WS36A17:B38:MS30:ML36:2230 "THE LARGEST FASTENER IN THIS SERIES":"IS 36 MM."*:15304> *PG=4*HR\S8A10:B29:MS0:ML8:2230fS10A10:B34:MS#S6A9:B27:MS5:ML6:2230GS8A10:B29:MS6:ML8:2230mS10A10:B33:MS8:ML10:2230S12A11:B33:MS10:ML12:2230S16A12:B33:MS12:ML16:2230S20A13:B38:MS20:ML20:2230 S24A14:B38:MS20:ML2230+bS24A22:B39:MS20:ML24:2230dl"THE LARGEST FASTENER IN THIS SERIES ":"IS 24 MM."pv:1530v *PG=3*S3A7:B15:MS0:ML3:2230S4A8:B24:MS3:ML4:2230S5A9:B26:MS5:ML5:2230N THIS SERIES IS 36MM.":1530#8 *PG=2*>D&h0S8A16:B29:MS0:ML8:2230:S10A17:B34:MS8:,ML10:2230DS12A17:B36:MS10:ML12:2230NS16A19:B39:MS12:ML16:2230XS20A21:B39:MS16:ML20:S12A17:B36:MS10:ML12:2230IS16A19:B39:MS12:ML16:2230pS20A20:B39:MS16:ML20:2230S24A23:B39:MS20:ML24:2230S30A24:B40:MS24:ML30:2230S36A27:B40:MS30:ML36:2230:"THE LARGEST SIZE Ih *PG=1*r!|ES3A13:B16:MS0:ML3:2230iS4A14:B24:MS3:ML4:2230S5A14:B26:MS4:ML5:2230S6A15:B27:MS5:ML6:2230S8A16:B29:MS6:ML8:2230S10A16:B34:MS8:ML10:2230"::"A ";S;" MM SIZE IS NOT AVAILABLE"Q"PLEASE RE-ENTER THE SPECIFICATION."Wa1420}"B$(BS$,1):C$(CF$,1),B$"B"C$"C"PG16B$"B"C$"F"PG2@B$"S"C$"C"PG3JB$"S"C$"F"PG4TPG1640,1810,1930,2110^ECTION CALCULATED IN"="PART 1. OF THE PROGRAM (Y/N) ";A$T(A$,1)"Y"1490cSMM:1500k::"ENTER METRIC SIZE OF SCREW ";:S::::"ENTER - COURSE OR FINE (C/F) ";:CF$(CF$,1)"C"(CF$,1)"F"15001570'::25.4_390d1250:1300$nAx *BOLT - SCREW*v936:::"ENTER THE ELEMENT TO BE SELECTED:":"BOLT OR SCREW (B/S) ";BS$(BS$,1)"B"(BS$,1)"S"1410::::"WAS THE METRIC SIZE TO BE USED""IN THIS SIN;:" = ";:MM,I120:(95);:IH:"FIRST-CHOICE SIZES"N V:|"PRESS TO CONTINUE ";A$(2202936:::"ENTER THE VALUE IN MILLIMETERS TO "<"BE CONVERTED TO INCHES: "FP"MILLIMETERS ";MMZINMM1300 B!L *P=6*'V1`12207jKt"800 3000"_~"900 4000"k"1000"w"1200""1500""2000""2500"1300 *SUBROUTINE - PRINT HEADINGS*936::"INCHES = MILLIMETERS"=4* 12202"200":"220":"240"K"260":"280":"300"^1300: REPEATdx *P=5*~1220"300 650""350 700""400 750""450 800""500"$"550"."600"8"50 85""55".1300: REPEAT4I *P=3*OY 1220_q "80 150"*"90 160"4"100 170">"110 180"H"120 190"R"130 200"\"140"f1300: REPEATpz *P"1.2 6" &"1.6 8") 0"2 10"9 :"2.5 12"I D"3 16"Y N"4 20"l X1300: REPEATr b l *P=2* v 1220  "20 55" "25 60" "30 65" "35 70" "40 75""45 80"MM20P1:480& MM80P2:480< MM200P3:480R MM300P4:480h MM800P5:480p P6v   *PRINT SECTIONS OF THE TABLE*  P510,640,780,910,970,1120   *P=1* 1220  "1 5" PTION ";NO ,NO1NO4220D 6936::::NO320,1330,1410,2580k @:::"ENTER THE VALUE IN INCHES" J"TO BE CONVERTED TO MILLIMETERS: " T:"INCHES ";IN:936::: ^MMIN25.4 h r *SELECTING A PORTION OF THE TABLE* | NTINUE ";X$A 936:::"SELECT ONE OF THE FOLLOWING OPTIONS:"G r " 1. CONVERT INCHES TO MILLIMETERS" " 2. CONVERT MILLIMETERS TO INCHES" " 3. SELECT METRIC SCREWS OR BOLTS" " 4. EXIT FROM THE PROGRAM"  ""NO. OF OMILLIMETERS AND LISTS THE FIRST-CHOICE"T "METRIC STANDARDS IN THE CORRESPONDING"n "METRIC SIZE RANGE."t "IT ALSO HAS PROVISIONS FOR ASSISTING" "THE DESIGNER IN SELECTING METRIC SCREWS" "AND BOLTS." ::"PRESS TO CO! METRIC CONVERSION PROGRAM9 BY CHARLES E. LEEH MAY 1981N(T<pF *LOAD TABLE*vPZM(100)dI161:M(I):In936::x" METRIC-ENGLISH CONVERSION PROGRAM":"THIS PROGRAM CONVERTS INCHES TO"' "         "230 O$"N"420 K1? 936:"ENTER COLOR ";C$(K):p "ENTER NUMBER OF PIECES TO BE PASTED ";N1: "P400D.25:340 ,P300D.2:340 6P200D.16:340 @P100D.12:340 JD.08 TT(K)(D(N1.03))BR ^TPTPT(K)" hMBER OF PIECES TO PASTED ";N:4 P400B.4:190I P300B.3:190_ P200B.25:190t P100B.2:190~ B.15 PC(B(N.03))BR *CALC. OVERLAYS* 936:"DO YOU WANT AN OVERLAY (Y/N) ";O$ O$"Y"O$"N" PRESS ENTER TO CONTINUE..";Z$-JH12:12:"LOADING INDEX"_R(4);"RUNINDEX"*"1 "* *"g"*";:7:"WESTERN ILLINOIS UNIVERSITY";:39:"*""* *""*";:9:"MACOMB, ILLINOIS 61455";:39:"*""***************************************"'D AS THOUGH THE BOARD WERE"F$"AN INCH THICK. THAT WOULD MAKE THE "U."TOTAL: "_8T1.0qBXNTWL144L10);X;" BOARD FEET"V` AD FEET"V` XV` ". SUBROUTINE TO CALCULATE BOARD FEET FORY PROBLEMS WHERE THE THICKNESS IS LESSm THAN 1.0 INCH:"YOU HAVE SPECIFIED A THICKNESS LESS""THAN 1.0 INCH. USUALLY, FOR MATERIAL""UNDER 1.0 INCH, THE BOARD FEET ARE""CALCULATEET" z8 CONVERT LENGTH TO INCHES TO USE SUB 1000OLL12:T1.0İ990o"DO YOU WISH TO CALCULATE""ANY MORE PROBLEMS? ANSWER "" (Y / N ) "A$:936:::A$"Y"100:(8):(10):"RETURNING TO INDEX":(4);"RUN INDEX936:::4 "HOW MANY PIECES DO YOU HAVE ";;Nd "WHAT IS THE THICKNESS IN INCHES ";k*T4"WHAT IS THE WIDTH IN INCHES ";>WH"WHAT IS THE LENGTH IN FEET ";RL\"THE TOTAL IS: "fXNTWL12p10);X;" BOARD FEE SAME SIZE, WITH THE","LENGTH IN FEET"2U"THE FORMULA IS AS FOLLOWS: "{"NO. OF PIECES X T X W X L (FT)""WHERE:";10);"T=THICKNESS"10);"W=WIDTH"10);"L=LENGTH""PRESS TO CONTINUE "; A$:"DO YOU WISH TO CALCULATE"; &"ANY MORE PROBLEMS? ANSWER"K 0"(Y / N )"_ :A$:936:::o DA$"Y"100x N980 X936::: b l"YOU WILL NOW CALCULATE THE" v"NUMBER OF BOARD FEET IN A" "PIECE OF LUMBER, OR SEVERAL""OF THES DO YOU HAVE "; NA "WHAT IS THE THICKNESS IN INCHES ";H Tm "WHAT IS THE WIDTH IN INCHES ";t W "WHAT IS THE LENGTH IN INCHES "; L "THE TOTAL IS: " XNTWL144 10);X;" BOARD FEET"  T1.0İ990 "LENGTH IN INCHES" @< J"THE FORMULA IS AS FOLLOWS:"b T"NO. OF PIECES X T X W X L (IN)"p ^"WHERE:" h10);"T=THICKNESS" r10);"W=WIDTH" |10);"L=LENGTH" :"PRESS TO CONTINUE "; A$:936::: "HOW MANY PIEC" I DON'T KNOW WHAT YOU DID -- BUT IT"I "WASN'T RIGHT. TRY AGAIN!!"S ::\ 110l 936:::r  "YOU WILL NOW CALCULATE THE " "NUMBER OF BOARD FEET IN A " ""PIECE OF LUMBER, OR SEVERAL" ,"OF THE SAME SIZE, WITH THE" 61 n"TYPE IN THE METHOD 'INCH OR FEET' WHICH"H x"YOU WISH TO USE"N w " TYPE A '1' FOR INCH PROBLEMS" " TYPE A '2' FOR FEET PROBLEMS" "WHICH ONE DID YOU SELECT ";X$ X$"1"250 X$"2"600 936:::' & BOARD FEET CALCULATION PROGRAMG AUTHORED BY LLOYD THOMPSONV MAY 1981`(9362::"BOARD FEET CALCULATIONS PROGRAM"<F"THIS PROGRAM WILL ALLOW YOU TO FIGURE"P"BOARD FEET PROBLEMS IN EITHER INCHES"Z"OR IN FEET" d     T15);"$";AC;T25);"$";AC$" "+ 01]T3:AC10T2:AC100T1:AC1000T0u$AC(AC100.5)100{. LRINTED ALSO (Y/N) ";A$13(A$,1)"Y"950R"JOB IDENT. NO. ";25);N$[" "f"INK"o" ""NO. OF PAGES: ";25);NACCI:1050"INK COST/LB.:";25);"$";AC"LBS OF INK REQ'D:";25);IACTC:1050"INK COSTS:";000,150,265,235,240,235 p #7jz 275,335,235,220,235,220,150,225,225,175,225,000,135,250,220,225,220"CONFIGURE FIRST TO YOUR PRINTER""TURN ON THE PRINTER, THEN ENTER":"PRESS TO CONTINUE ";A$:"IS THE JOB ID. NO. TO BE":"P40,335,425,175,380,340,345,355'4 #4q> 375,425,320,335,340,250,250,310,340,325,325,415,165,375,335,340,340zH #5R 400,435,350,340,350,340,250,325,340,340,335,425,175,385,340,340,340\ #6f 290,350,250,230,250,235,165,240,240,190,240,N INDEX"( * DATA STATEMENTS *.x 425,445,360,355,360,355,385,345,350,350,345,450,200,400,355,350,355  #2 400,435,355,345,355,355,270,335,345,345,340,435,185,390,350,347,355  #3* 380,430,350,340,350,355,260,325,345,3(A$,1)"Y"İ900:"WOULD YOU LIKE TO REPEAT THIS PROGRAM":"USING DIFFERENT VALUES FOR THE":"SAME JOB, OR FOR A DIFFERENT JOB (Y/N) ";R$:R$"Y"R$"N"ė:700R$"Y"Č936:140:(8):(10):"RETURNING TO INDEX":(4);"RUON NO.: ";N$:3b"NUMBER OF PAGES NEEDED "A1)NTl"INK COST PER LB. "A)"$"CIyv"POUNDS OF INK USED"A1)I"LB."TCICI"TOTAL INK COST"A)"$"TC:J1A10:"*";::"WOULD YOU LIKE THE RESULTS":"SENT TO THE PRINTER(Y/N) ";A$100490+ "ENTER (%) OF INK WASTE ";W2:N "COST OF INK PER POUND ";CI:y CC100:W1(W1100)1:W2(W2100)1 I(PCW1W2N)(IP(F,IN)1000):I(I100)100 &A25 0 : *PRINT RESULTS* D N936:::X"JOB IDENTIFICATI2. VARNISH"3 "13. OP. WHITE"B1)"14. TINT BASE"K :"PROCESS COLORS"k "15. CYAN"B1)"16. YELLOW"~ "17. MAGENTA" :: "ENTER 1 THROUGH 17 FOR INK ";IN: IN1IN17470 ::: "PERCENT OF INK COVERAGE ";C: C0CS INVOLVED IN":"SOLAR DESIGN."b<:"PRESS TO REPEAT THE PROGRAM,":"OR E TO EXIT ";A$xF(A$,1)"E"210K:(12):"* * * RETURNING TO INDEX * * *"P(4);"RUNINDEX" A;R6:" GLAZING REQ."7"LBS OF ";T$;22);M3;31);M4>#0m(936::"THE VALUES CALCULATED REPRESENT")" 'ESTIMATES'"-"ONLY. ACTUAL SOLAR PERFORMANCE WOULD"/"REQUIRE MORE RIGOROUS EVALUATION OF THE"2"MANY OTHER VARIABLE1""PASSIVE SOLAR DESIGN"K" SUMMARY TABLE"::26);"RESULTS"g23);"LOW";32);"HIGH"}(I$,1)"Y"1290"EXPECTED SAVINGS (%)";22);S5;31);S6:1300 "EXPECTED SAVINGS (%)";22);S7;31);S8"SQ. FT. OF SOUTH";22);R5;31)"SQ. FT. OF SOUTH";22);R5;31);R6<" GLAZING REQ."]"LBS OF ";T$22);M3;31);M4c"PRESS TO CONTINUE, H FOR A PRINTED""COPY OF THE SUMMARY OF RESULTS ";A$(A$,1)"H"1320::"IS THE PRINTER TURNED ON ";A$SSIVE SOLAR SYSTEM":"SUMMARY TABLE":?V"RESIDENCE : ";R$X`"DESIGNER : ";N$j:26);"RESULTS":23);"LOW";32);"HIGH"t(I$,1)"Y"1170~"EXPECTED SAVINGS (%)";22);S5;31);S61180"EXPECTED SAVINGS (%)";22);S7;31);S8&);"MIDRANGE COIL ";L1;" MH"=J2);"MIDRANGE CAP ";C2;" UF"CTd^2);"WOOFER COIL ";L2;" MH"jhsr690y| TZ2L3R3(2.53.1415F2)0Z2L3L31000@936:::Fi"FOR A 6 DB CROSSOVER AT ";F1 "AND ";F2;" HERTZ, THE""COMPONENT VALUES ARE: ""2);"TWEETER CAP ";C1;" UF",Z2ĺ2);"TWEETER COIL ";L3;" MH"6@2z#?C?Xô  Š Р ˠŠŠ Ϡ Ӡ Ơ  ïԠ ӯԠүԠ ïԠүԠ) ǯԠ ՠ  ůԠ įԠ"үԠԯԠ ïԠ ůԠ ӯԠ ̠Π ؠ үԠԱԠ ̠ӠԲԠүԠF2.26F1Q11.4%F3.42F1Q1.9M"SPECIFICATIONS AT THIS SIZE ARE:"Sx " CUTOFF FREQUENCY ";F2 " PORT TUNING FREQ. ";F3 $ " PRESS RETURN TO CONTINUE ";A$. 9368 B "AT THIS SIZE, THE SYSTEM DESIGNR\5f ***** BASS REFLEX DESIGN *****;pez"YOU ARE NOW READY TO DESIGN A BASS"{"REFLEX SYSTEM."V215(Q12.87)V1"THE OPTIMUM VOLUME FOR ";W$"IS ";V2;" CUBIC FEET"3210936:::ITH A NEW WOOFER.";" 2. DESIGN A BASS REFLEX SYSTEM"^" WITH THE SAME WOOFER." " 3. EXIT FROM THE PROGRAM." "YOUR SELECTION ";Z*936:::4Z1630>Z3ė:(8):(10):"RETURNING TO INDEX":(4);"RUN INDEX"H.v" 1. REDESIGN SYSTEM WITH A DIFFERENT"E" SYSTEM Q."t" 2. CONTINUE WITH PRESENT DIMENSIONS."z"YOUR SELECTION ";ZZ11240936"ENTER ONE OF THE FOLLOWING:"" 1. BEGIN AGAIN WETURN TO CONTINUE ";A$&0936:::,:VD"ARE THESE DIMENSIONS, THE RESONANT"N"FREQUENCY AND THE CUTOFF FREQUENCY"X"OPTIMUM? IF THEY ARE NOT, THEN THE"b"SYSTEM COMPLIANCE MUST BE CHANGED."l"SELECT ONE OF THE FOLLOWING OPTIONS:"Q)(10))936:::J"THIS SYSTEM WILL HAVE THE FOLLOWING"b"CHARACTERISTICS:"h" CUTOFF FREQUENCY ";F2;" HERTZ"" RESONANT FREQUENCY ";F3;" HERTZ"" RESPONSE AT RESONANCE ";R1;" DB "&" PRESS RL Q OF ";Q2'T"IS ";V2;" CUBIC FEET"-^Th" PRESS RETURN TO CONTINUE ";A$dr936:::n|3210{F3R1F1Q1.1Q1.21F2.74F3Q1F2.79F3Q1Q.89F2.83F3Q.9Q.79F2.9F3Q.8Q.69F2F3 R120((1560 4"THE SYSTEM Q IS OUTSIDE THE USABLE"["RANGE. INPUT A SYSTEM Q BETWEEN"o"1.21 AND .69"u1460R1Q2Q1"R2(.4279(R11.02)).08608,V2R2V16@"THE APPROPRIATE BOX VOLUME FOR A SYSTEM" J"WITH A TOTAILLINOIS 62777";:39:"*"I"* *"x "* *" "*CURRICULUM PUBLICATION CLEARING HOUSE*" "* *" "*";:12:"46 HORRABIN HALL";:39:" *"T "*";:9:"AND TECHNICAL EDUCATION";:39:"*" "* *" "*";:9:"100 NORTH FIRST STREET";:39:"*" "* *""*";:6:"SPRINGFIELD, 1 "EXCLUSIVE DISTRIBUTION RIGHTS RETAINED"7 f "***************************************" "* ILLINOIS STATE BOARD OF EDUCATION *" "* *" "* DEPARTMENT OF ADULT, VOCATIONAL, *"" "* WOOD-PROGRAM COORDINATOR *"K "* *"z "***************************************" : "THIS DISC CONTAINS INDUSTRIAL EDUCATION" " PROGRAMS" :: " PRESS RETURN TO CONTINUE";:" ";Z$  *"1 x"*WILMA JEAN ALEXANDER,PROJECT DIRECTOR*"` }"* *" "* *" "* INDUSTRIAL EDUCATION PACKAGE *" "* *" "* WAYNE LOCK**********************"F Z"* *"u d"* MICROCOMPUTER SKILLS: CURRICULUM *" i"* *" n"*DEVELOPMENT AND DISSEMINATION PROJECT*" s"* a  D$""; ::THIS IS THE INDEX PROGRAM FOR THE DISCi IT IS DESIGNED TO ALLOW THE USER TO ( SIMPLIFY THE LOADING AND RUNNING OF- A PROGRAM.2 THIS DISC CONTAINS SEVER HEALTH PROGRAMS8 1982F: P"*****************     S RETURN TO CONTINUE ";A$)#, 936:::/#6 [#@ "SELECT ONE OF THE FOLLOWING OPTIONS:"a#J #T " 1. DISPLAY GRAPH OF RESPONSE CURVE"#^ " FOR ";W$;" IN THIS"#h " BOX SIZE."#r " 2. REDESIGN WITH NEW BOX VOLUME."$| " 3. DES(X2)(10)" X420X3!" 936H" "SPECIFICATIONS AT THIS SIZE ARE"N" x" "CUTTOFF FREQUENCY ";F2;" HERTZ"" "PORT TUNING FREQ. ";F3;" HERTZ"" " HUMP IN CURVE ";X4;" DB "" " "THE DESIGN IS COMPLETE"#" " PRES(4);"RUN INDEX"! 936:::%! +! 1!( 7!2 =!< b!F "INPUT THE NEW INTERNAL VOLUME"w!P "IN CUBIC FEET"!Z Y12!d V2!n !x 3210! T(V1V2).5! F2TF1! T(V1V2).35! F3TF1! X1(V1V2).35! X2X12.6Q1 " X3IGN WITH A NEW VOLUME."C " 3. BEGIN AGAIN WITH A NEW WOOFER."g " 4. EXIT FROM THE PROGRAM."m "YOUR SELECTION ";Z Y11 936 Z1İ3700 Z13020 Z22610 Z3630! Z4ė:(8):(10):"RETURNING TO INDEX": IS"/L "OPTIMUM. IT PRODUCES NO HUMP IN THE"\V "RESPONSE CURVE. THE FOLLOWING OPTIONS"` "ALLOW YOU TO ACCEPT THE PRESENT"j "DESIGN, OR REPEAT THE PROCESS WITH"t "NEW VALUES:"~ " 1. DISPLAY GRAPH OF RESPONSE CURVE." " 2. REDES D6::::::" LOADING SPEAKER ENCLOSURE"OD$;"RUNSPEAKER/TXT"::::::" LOADING PRINTING COST ESTIMATION"D$;"RUNPRINTING/TXT" CULATIONS" pD$;"RUNGEAR/TXT"Vz::::::" LOADING METRIC CONVERSIONS"nD$;"RUNMETRIC/TXT"::::::" LOADING CAPACITANCE"D$;"RUNCAPAC/TXT"::::::" LOADING SPEAKER ENCLOSURE"D$;"RUNSPEAKER/TXT"::::::" LOADING TRANSISTOR SWITCHING "G D$;"RUNBIAS/TXTw*::::::" LOADING SPEAKER EQUIV"4D$;"RUNVASCALC/TXT"R::::::" LOADING SPEED AND FEEDS"\D$;"RUNFEEDS/TXT" f::::::" LOADING GEAR CALTIMATIONS"!D$;"RUNBUILD/TXT"R::::::" LOADING SPEAKER CROSSOVER"mD$;"RUNCROSSOVER/TXT"::::::" LOADING BOARD FEET CALCULATIONS"D$;"RUNBOARDFT/TXT":::::" LOADING TUNED CIRCUITS D$;"RUN TUNE/TXT"2ULATIONS" D$;"RUNHEAT2/TXT"T ::::::" LOADING PASSIVE SOLAR DESIGN"l D$;"RUNPSOLAR/TXT" ::::::" LOADING ELECTRICAL SERVICE" D$;"RUN ESERVICE/TXT" D$;"RUNESERVICR/TXT" ::::::" LOADING BUILDING COST ES DX13850 FX14870( GX158906 IX16910k b::::::" LOADING STAIRWAY CALCULATIONS" lD$;"RUNSTAIR/TXT" v::::::" LOADING HEAT LOSS FOR RESIDENTIALS" D$;"RUNHEAT1/TXT" ::::::" LOADING HEAT LOSS CALC2 "ENTER THE NUMBER OF YOUR SELECTION.";:X$> X(X$)K X1420Y X16420_ l X1610y X2630 X3650 X4670 X5690 X6710 X7730 X8750 X9770 &X10790 0X11810 :X12930 ON"2 J3)"11. SPEAKER EQUIV. VOLUME COMPLIANCE"Y T3)"12. SPEAKER ENCLOSURE DESIGN" ^3)"13. SPEEDS AND FEEDS CALCULATIONS" h3)"14. GEAR CALCULATIONS PROGRAM" r3)"15. METRIC CONVERSION PROGRAM" |3)"16. CAPACITANCE CALCULATIONS" DESIGN"4 4)"5. ELECTRICAL SERVICE CALCULATIONS"[ 4)"6. BUILDING COST ESTIMATIONS" "4)"7. CALCULATING SPEAKER CROSSOVER" ,4)"8. BOARD FEET CALCULATIONS" 64)"9. TUNED CIRCUITS CALCULATIONS" @3)"10. TRANSISTOR SWITCHING CALCULATI  D$""::B"SELECT DESIRED PROGRAM BY DEPRESSING"o"THE NUMBER CORRESPONDING TO THE TITLE"v"4)"1. STAIRWAY CALCULATIONS"4)"2. HEAT LOSS FOR RESIDENTIALS"4)"3. HEAT LOSS CALCULATIONS" 4)"4. PASSIVE SOLAR      UNIT RISE "N3,N6,F$&N1TN:2800C"TOTAL RUN "N3,N6,F$XTT2:N1T:2800u"TOTAL RISE "N3,N6,F$ N1SS:2800"STAIRWELL"" SIZE "N3,N6,F$N1FL:2800("HEIGHT FROM")"FLOOR TO"*" LANDING "N3,N60T1:AC1000T04N  )DED";25);C2X"NUMBER OF PRESS SHEETS";25);DG@bACP:660ol"PAPER COST PER":"1000 SHEETS";T25);ACvACI:GOSUC660"TOTAL PAPER COSTS";T35);AC;T45);AC" ":0:T3:AC10T2:AC100T1:AC1000T0AC(AC100.5)100EM"L "TURN ON THE PRINTER, THEN ENTER":"PRESS TO CONTINUE ";A$ ::"IS THEJOB IDENT. NO. TO BE":"PRINTED ALSO (Y/N) ";A$ (A$,1)"Y"570 &1:"JOB IDENT. NO.";25);N$ 0" " :1:"PAPER" D" " N"NUMBER OF PIECES NEE "WOULD YOU LIKE TO REPEAT THIS PROGRAM"V "USING DIFFERENT VALUES FOR THE SAME" "JOB, OR FOR A DIFFERENT JOB (Y/N) "; A$ (A$,1)"Y"10 :(8):(10):"RETURNING TO MENU":(4);"RUN MENU" "YOU MUST FIRST CONFIGURE TO YOUR SYSTER OF PRESS SHEETS"A1)DGH h"PAPER COST PER ":"1000 SHEETS"A)"$"Pi r"TOTAL PAPER COST"A)"$"I:q |: "WOULD YOU LIKE THE RESULTS SENT" "TO THE PRINTER (Y/N) ";A$ :(A$,1)"Y"İ520  * REPE AT PRINT *  :+ED! O(O(SLO))1000P:A25' @ * CALC. SPOILAGE *F } Q((G100)D)1000P:G(G100)D:I((DG)1000P)  " * PRINT RESULTS * , 6936: @"JOB IDENT. NO.";A);N$ J T"NUMBER OF PIECES NEEDED"A1)C ^"NUMB"PRESS SHEET SIZE (LEN, WIDTH) ";S,LO:G "ENTER NUMBER OF FINISHED"_ "PIECES NEEDED ";Ce "PRICE PER 1000 SHEETS ";P: "IMPOSITION - PAGES PER PRESS SHEETS ";IP: "PERCENT OF PRESS SPOILAGE ";G: DCIP:E(SLO)(WLEIP):O"RUN IMAGE"B(8):(10):"LOADING PRESS COST":(4);"RUN PRESS"{(8):(10):"LOADING PLATEJJ COST":(4);"RUN PLATE"D$;"RUN PLATE" Z'/" PRESS RETURN TO CONTINUE ";A$7/&936:::=/0C/:K/DZ1Q/NAI`/f/l//" PRESS RETURN TO CONTINUE ";A$/&936:::/0/:/DZ1/NA4340.Y324330".Y3242901.Y464330@.Y464310f.5);I;22);"1";Y10)".";36)"!"p.4340.5);I;Y10)".";22)"!";36)"!".4340.5)I;22)"!";36)"!"Y10)".".4340.5);I;22)"!";36)"!".I../CEPT STANDARD VALUE LISTED (Y/N) ";A$;#z(A$,1)"Y"6030}#"ENTER NEW AMP VALUE (0 IF UNIT IS":"NOT TO BE USED) ";TA:# TA100012106MS100:WS$"#6 CU OR #4 AL":1300GTA1501220mMS150:WS$"#2 CU OR #2 AL":1300~TA2001230MS200:WS$"#1 CU OR #1/0 AL":1300MS400:WS$"#350 CU OR #750 AL":1300 ** UNDERGROUND SERVICETA1001260$"PART 2 OF THE HEAT LOSS PROGRAM."G#:"PRESS RETURN TO CONTINUE";A$#:(8):(10):"RETURNING TO INDEX":(4);"RUN INDEX" $&X &b &l &v 630!& '& V& ***** BOX DIMENSION CALCULATIONS *****\& e& B10t& B2V21728& B1B11& WB2(13)& HW1.62& D1B2((H1.5)(W1.5))1.25& B123440& HH1.25& B32H1.5.625' B42W1.5.62GN WITH A NEW VOLUME.">% " 2. DESIGN A CLOSED BOX SYSTEM."i% " 3. BEGIN AGAIN WITH A NEW WOOFER."% " 4. EXIT FROM THE PROGRAM."% % "OPTION SELECTED ";Z%& Z12570%0 Z21240%: Z4ė:(8):(10):"RETURNING TO INDEX"%D &N IGN A CLOSED BOX SYSTEM."=$ " 4. EXIT FROM THE PROGRAM."C$ \$ "YOUR SELECTION ";Zk$ Z1İ3700y$ Z22570$ Z31300$ Z4ė:(8):(10):"RETURNING TO INDEX"$ $ "AT THIS POINT YOU HAVE SEVERAL OPTIONS:"$ % " 1. REDESIIN FEET, INCHES,"A K"AND ANY FRACTIONS; SEPARATE WITH COMMAS,"[ P"LIKE THIS: 8,6,3/4"} Z:"NOW ENTER THE TOTAL RISE" dFT,IN,F$ nF$"0"F$"0/1" xF$""F$"0/1" 2680 TT1 2040 RS22175 250 9366 "WOULD " **** STAIRWAY CALCULATIONS9 **** JAMES CRUCEN **** MAY, 1981o(T0:RS0:UR0:RU0:TD0:TN02936:::::7"STAIRWAY CALCULATION PROGRAM"::::9"PRESS RETURN TO CONTINUE";:A$:936<:: F"ENTER THE TOTAL RISE       UN INDEX" X" I (0 IF UNIT IS":"NOT TO BE USED) ";TA:.# TO EXIT ";A$#"(A$,1)"X"1520Z"(8):(10):"RETURNING TO INDEX":(4);"RUN INDEX""::::"PRESS RETURN TO CONTINUE ";A$:936::::"::::"p"ACCEPT STANDARD VALUE LISTED (Y/N) ";A$"z(A$,1)"Y"6030(#"ENTER NEW AMP VALUECALCULATIONS"(!:"RESIDENCE";12);R$A!"ESTIMATOR";12);E$p!:"ACTUAL POWER DEMAND (AMPS)";34);(TA)!"MINIMUM SERVICE REQUIRED (AMPS)";34);MS!:"MINIMUM WIRE SIZE ";WS$!0!5000:5010 ""PRESS RETURN TO REPEAT PROGRAM, $ n5000:5010V x"IF YOU WOULD LIKE A HARDCOPY, YOU MUST":"CONFIGURE FIRST TO " y"YOUR SYSTEM.":"WOULD YOU LIKE A HARDCOPY (Y/N) ";A$ (A$,1)"Y"1500 :"TURN ON PRINTER AND PRESS RETURN ";A$ 1 !:"SUMMARY: SERVICE ENTRANCE $" WIRE": (5000:5010O2"SUMMARY : SERVICE ENTRANCE CALCULATIONS"j<:"RESIDENCE";12);R$F"ESTIMATOR";12);E$P:"ACTUAL POWER DEMAND (AMPS)";34);(TA)Z"MINIMUM SERVICE REQUIRED (AMPS)";34);MS d:"MINIMUM WIRE SIZE ";WSMS100:WS$"#6 CI PR #4 AL":13005TA1501270[MS150:WS$"#2 CU OR #1 AL":1300lTA2001280MS200:WS$"#1 CI PR #2/0 AL":1300MS400:WS$"#350 CU OR #500 AL":"YOUR SERVICE ENTRANCE MUST BE ";MS;"AMPS""USE EITHER ";WS< X> TO EXIT ";Z$#Z$"X"ī1565+50=Z$"X"ī1565G936~"(8):(10):"RETURNING TO INDEX":(4);"RUN INDEX" 225);H8:H901480"B$"N"1500;"BSMNT-SLAB"25);H9SB$"Y"Z$"Y"1520w"FLOOR-SLAB"25);HA:HB01530"BASEMENT WALL"25);HB"INFILTRATION"25);HC25)"----------""TOTAL BTUH"25);HT"PRESS RETURN TO CONTINUE OR ,:"ENTER THE APPROPRIATE 'R' VALUE ";G5<936:::k:"DO YOU HAVE TRIPLE PANE GLASS ";A$::}A$"Y"1030"HOW MANY SQUARE FEET OF TRIPLE":"PANE GLASS ";G3:"THE TABLE LISTS THE""INSULATING 'R' VALUE FOR":"SEVERAL COMATING WINDOWS"9"VARY BASED ON THE AIR SPACE BETWEEN"h"THE PANES.":"THE INSULATING VALUES FOR""VARIOUS AIR SPACINGS:":"3/16 INCH AIR SPACE 'R'=1.45""1/4 INCH AIR SPACE 'R'=1.54""1/2 INCH AIR SPACE 'R'=1.72"ASS ";G1HKR"ENTER THE 'R' VALUE FOR GLASS":"(USUALLY R=65) ";G8:\::::"DO YOU HAVE DOUBLE PANE":"INSULATING GLASS ";:A$f:A$"Y"940p"HOW MANY SQUARE FEET OF DOUBLE":"PANE GLASS ";G2:z936::::"THE R VALUE OF INSUL@ "NOW WE WILL CALCULATE THE AMOUNT OF":"HEAT BEING LOST";^" THROUGH WINDOW AREAS."d *"DO YOU HAVE SINGLE PANE WINDOWS, I.E.,"/"A SINGLE LAYER OF GLASS (Y/N) ";:A$:4A$"Y"860>"HOW MANY SQUARE FEET OF SINGLE":"PANE GL::"ARE THERE ADDITIONAL WALL AREAS WITH"X"DIFFERENT 'R' VALUES THAT YOU WISH TO"u"CALCULATE (Y/N) ";:A$A$"Y"760 SHIFT DATA FOR ADDITIONAL WALL VALUES:W9=0W0W01470936::"PART 2. WINDOW CALCULATIONS"::10)"3/4 POLISOCYURANATE 'R'=18.94":Q"IF 2X6 STUDS AND 6.0 BATT. INS. AND"x"1/2 SHEETROCK WERE USED WITH:":10)"1/2 EXT. SHEATHING 'R'=22.26"10)"3/4 POLISOCYURANTE 'R'=23.94":"ENTER A VALUE FOR 'R' ";:W5(W0)+936::936:::(:"BASIC WALL CONSTRUCTION"XD"2X4 STUDS, 3.5 BATT. INS., 1/2 SHEETROCK"N"WITH:":10)"1/2 EXT. SHEATHING 'R'=14.26"X10)"1/2 POLYSTYRENE 'R'=15.11"b10)"3/4 POLYSTYRENE 'R'=15.9"l10)"5/8 EXT. SIDING AND"&v:::5"THE INSULATING VALUE OF THE WALL IS NOW"e"NEEDED. YOU MAY USE ONE OF THE FOLLOWING""VALUES CALCULATED FOR WALL SECTIONS WITH""STANDARD INSULATION, OR YOU MAY USE YOUR"&"VALUE.":: 0"PRESS RETURN TO CONTINUE ";:Z$:HIS SECTION"/"IS BROKEN INTO 6 PARTS."::T"PART 1. ABOVE GRADE WALLS"::"ENTER THE TOTAL SURFACE AREA (SQ.FT.)""OF THE WALLS. (NOTE: BE SURE TO DEDUCT""AREAS OF WINDOWS, DOORS, AND OTHER WALL""OPENINGS.) ";:W1(W0):936. |"THE INDOOR DESIGN TEMPERATURE IS TYPI-"\ "CALLY BETWEEN 65 AND 70 DEGREES. ENTER" "THE INDOOR TEMPERATURE DESIRED FOR YOUR" "DESIGN. ";:T2 936::: "WE SHALL NOW BEGIN TO CALCULATE THE HEAT" "LOSS DUE TO CONDUCTION. T -2". 6"CHAMPAIGN 0 QUINCY -2"T @"CHICAGO -3 ROCKFORD -7"z J"ELGIN -8 SPRINGFIELD -1" T ^"SELECT THE TEMPERATURE BEST REPRESENTING" h"YOUR GEOGRAPHICAL LOCATION AND ENTER" r"THE VALUE. ";:T1:936:::DE: ";N$ :::B "LET US BEGIN BY DETERMINING THE DESIGN"k "TEMPERATURES; THE FOLLOWING TABLE" "LISTS 'OUTSIDE' DESIGN TEMPERATURES" "FOR VARIOUS ILLINOIS CITIES.": "AURORA -7 GALESBURG -4" ,"CARBONDALE +7 PEORIA AREA AND INSULATION VALUES"C "FOR VARIOUS ITEMS SUCH AS WALLS,"^ "WINDOWS, AND DOORS." :"PRESS RETURN TO CONTINUE"; N$:936::: "ENTER YOUR NAME, OR THE NAME OF THE" "RESIDENCE FOR WHICH THE CALCULATIONS" "ARE BEING MAAL STRUCTURE BASED ON CONDUCT-"C i"ION AND INFILTRATION LOSSES."o n" THE ACCURACY OF THE FINAL VALUE IS " x"DEPENDENT UPON THE USER'S KNOWLEDGE OF" "HEAT LOSS FUNDAMENTALS.": "THE PROGRAM WILL REQUEST THAT YOU ENTER" "THE SURFACE  *** HEAT LOSS PROGRAM5 *** DAVID BEAVERSH *** MAY 1981o(936:::::"HEAT LOSS PROGRAM"2::"PRESS RETURN TO CONTINUE ";:A$<W1(5),W5(5)FW01P936::Z"THIS PROGRAM CALCULATES HEAT LOSS FOR A" d"RESIDENTI          X":(4);"RUN INDEX"*j&*tE1F322*~E2F12?*E3E1E2K*E47F1^*E5E3Q1F3E4m*E67F1Q1*E71E3F3E6V1V2*E81Q1F3E4*936***"INPUT THE FREQUENCY BAND WIDTH FOR THE" +"GRAPH. THE LOW FREQUENCY SHOUL)"FOLLOWING OPTIONS:")L)" 1. GENERATE SKETCH OF THIS SYSTEM'S"g)$" RESPONSE CURVE")." 2. BY-PASS THE SKETCH")8" 3. EXIT FROM THE PROGRAM")B)L"OPTION SELECTED ";Z)VZ13700*`Z3ė:(8):(10):"RETURNING TO INDEONS OF:"( '( 3)"HEIGHT ";12);H?( 3)"WIDTH ";12);WX( 3)"DEPTH ";12);D1^( ( " PRESS RETURN TO CONTINUE ";A$( ( 936:::( ***** SYSTEM RESPONSE GRAPHING *****( ( ( ( "ENTER THE NUMBER OF ONE OF THE "5' B52(D14.25) ' D2D22:' B61.0471974(D52)4F'* M1M12['4 B73.1415(M12)g'> D3D32'H B83.1415(D32)D4'R B9B3B4B5B6B7B8'\ B2B2B9'f 3260'p "THE BOX VOLUME OF ";V2;" TRANSLATES"(z "TO THE OPTIMUM EXTERIOR DIMENSIT 1 OF THE":N$" RESIDENCE."6"" SURFACE"30)"BTUH"J""WALLS"25);H1r""SGL GLZ"25);H2:"DBL GLZ"25);H3""TPL GLZ"25);H4:"SKYLIGHT"25);H5""DOORS"25);H6:"TEMPERATURE DIFF.=";T":""PLEASE TRANSFER THIS INFORMATION TO""#JA3.68.17!TG81.13I!^H10:N1W0:H1H1TW1(N)(1(A3W5(N))):Na!hH2TG1(1(A3G8))!rH3TG2(1(A3G5)):H4TG3(1(A3G6))!|H5TG0(1(A3G7)):H6TD1(1(A3D5))! PRINT FINAL VALUES!936:::""HEAT LOSS VALUES FOR PARAREA= ";:G2:"R= ";:G5:1310K "TPL GLZ AREA= ";:G3:"R= ";:G6:1310y ""SKYLIGHT AREA= ";:G0:"R= ";:G7:1310 ,"DOOR AREA= ";:D1:"R= ";:D5:1310 6 CALCULATIONS H1=WALLAX1=WALLB H2=SGL H3=DBL H4=TPL H5=SKY T=TEMP DIFF @TT2T1 !D ";:A6A1510,1520,1530,1540,1550,1560,1570,1580^"OUTSIDE DESIGN TEMP= ";:T1:1310"INSIDE DESIGN TEMP= ";:T2:1310"ENTER WALL NO.";N:"WALL AREA =";W1(N):"R=";W5(N):1310"SGL GLZ AREA= ";:G1:"R= ";:G8:1310 "DBL GLZ G5'"6 TPL GLZ"24);G334);G6M"7 SKYLIGHT"24);G034);G7o"8 DOOR"24);D134);D5u"WOULD YOU LIKE TO CHANGE ANY VALUE ";A$A$"Y"1590"ENTER THE LINE NUMBER CORRESPONDING TO""THE VALUE TO BE CHANGE LINE"F"NUMBER"<P"1 OUTSIDE DESIGN TEMP= ";T1dZ"2 INSIDE DESIGN TEMP = ";T2{d24)"AREA"36)"R"n"3";xN1W0:9);"WALL";N;24);W1(N);34);W5(N):N"4 SGL GLZ"24);G134);G8"5 DBL GLZ"24);G234);7 2.94"8"1 1/2 INCH 2.04 3.07 3.02"g"1 3/4 INCH 1.96 ---- ----" "2 INCH 2.33 4.16 3.44:"ENTER THE 'R' VALUE ";D5936:::("HERE IS A SUMMARY OF YOUR DATA INPUT."2<":"WOOD DOOR";16);"'R' VALUE";27);"'R' VALUE "e"THICKNESS";16);" WITHOUT";27);" WITH"16);"STORMDOOR";27);" STORMDOOR"27);" WOOD METAL""1 INCH";19);"1.56";28);" 3.33 2.56" "1 1/4 INCH 1.82 3.5EAT LOSS THROUGH">"DOORS. ENTER THE SURFACE AREA OF YOUR"l"DOORS. (NOTE: BE SURE TO DEDUCT WINDOW""AREAS IN THE DOORS--IF APPLICABLE.)":D1936:::"SELECT AND ENTER THE APPROPRIATE 'R'""VALUE FROM THE FOLLOWING TABLE:"4/4 IN. AIR SPACE 'R'=1.42":"1/2 IN. AIR SPACE 'R'=1.51":@[w`"PLASTIC BUBBLES":" SINGLE WALLED 'R'=.86"e" DOUBLE WALLED 'R'=1.42":j"ENTER THE 'R' VALUE FOR":"YOUR SKYLIGHT ";G7t936:::~"NOW WE WILL CALCULATE HY SQUARE FEET OF SKYLIGHT":"WINDOWS ";G0/.Z8"THE FOLLOWING TABLE LIST 'R' VALUES"="FOR VARIOUS SKYLIGHT WINDOW DESIGNS:"B:"FLAT GLASS":" SINGLE PANE 'R'=.82"L" DOUBLE PANE WITH":" 3/16 IN. AIR SPACE 'R'=1.33":V"1MON PANE SPACINGS"::"1/4 INCH AIR SPACE 'R'=2.13"`"1/2 INCH AIR SPACE 'R'=2.78""ENTER THE APPROPRIATE 'R' VALUE ";G6936:::" SKYLIGHT WINDOWS":"DO YOU HAVE SKYLIGHT WINDOWS (Y/N) ";A$:A$"Y"1140)$"HOW MAN:20000(`'"PRODUCTION COST";T35);AC9e'ACMC:20000Xj'"MATERIAL COST";T35);ACio'ACTC:20000t'"PLATE COSTS";T35);AC;T45);AC~'" ": NT3:AC10T2:AC100T1:AC1000T04N MPIKAP , THEN ENTER":"C TO CONTINUE ";A$:'AC(AC100.5)100y$':"IS THE JOB IDENT. NO. TO BE":"PRINTED ALSO (Y/N) ";A$)'1*'A$"N"10050.'"JOB IDENT. NO.";25);N$8'" "B'"PLATE"L'" "V'"BUDGETED HOURLY RATE";25);"$"BR['ACPC.06, 6.33, 6.34, 3.989 9.81, 6.58, 6.96, 4.33Zl 12.66, 7.91, 8.15, 5.34{ 21.95, 14.04, 14.19, 9.284! 33.64, 27.23, 27.23, 0.00! 64.64, 56.80, 0.00, 0.00'"YOU MUST CONFIGURE TO YOUR SYSTEM""'"TURN ON THE PRINTER1,.45,.1 AUTObL .08,.03,.12,.05,.14,.06,.18,.07,.2,.08,.22,.1,.26,.1,.3,.1,.35,.1,.27,.1s PLATE COST 1,73, 0.00, 1.25, 0.00x 4.40, 3.03, 3.14, 0,00 5.59, 3.92, 4.05, 2.53@ 6.22, 4.62, 4.77, 2.73 9USING DIFERENT VALUES FOR THE":"SAME JOB, OR FOR A DIFFERENT":"JOB (Y/N) ";lR$:R$"Y"R$"N"ī6600},R$"Y"1100D$"RUN MENU"X *DATA STATEMENTS*  .11,.03,.16,.05,.19,.06,.24,.07,.27,.08,.32,.1,.35,.1,.37,.1,.41,."PRODUCTION COST"A)"$"PC< "MATERIAL COST"A)"$"MCXp"TOTAL COST"A)"$"TC:qI1A10:"*";:I:8:"WOULD YOU LIKE THE RESULTS":"SENT TO THE PRINTER (Y/N) ";A$(A$,1)"Y"İ10000Md:"WOULD YOU LIKE TO REPEAT THIS PROGRAM":"S" "PER PICAS ";AC:C &"LINE MEASURE (DECIMAL PICAS) ";LM:c 0"PAGE DEPTH (PICAS) ";MP: :"NUMBER OF PAGES ";NP: D N * CALC. TOTAL NUMBER OF CHARACTERS NEEDED* X bLI(MPNP12)LE: TOTAL # OF LINESlLPLILM: TOTA TOTAL # OF PAGES& NP(NP)450M NP(NP)1: ROUND UP # OF PAGESS Y o  * SUB. C=2*u  936:: "ENTER VALUES FOR EACH OF THE FOLLOWING:" : "TYPE SIZE & LEADING ";TS,LE: "AVERAGE NUMBER OF CHARACTER"PAGE DEPTH (IN PICAS) ";MP:E ^"TOTAL NUMBER OF CHARACTERS ";TC:K h} r * CALC. TOTAL DEPTH & NUMBER OF PAGES * | LPTCAC: TOTAL # OF PICAS LILPLM: TOTAL # OF LINES TD(LILE)12: TOTAL DEPTH IN PICAS NPTDMP: 690 #  *SUB C=1*) 7 936::f ""ENTER VALUES FOR EACH OF THE FOLLOWING:"n ,: 6"TYPE SIZE & LEADING (IN POINTS) ";TS,LE: @"AVERAGE NUMBER OF CHARACTERS PER PICA ";AC: J"LINE MEASURE (DECIMAL PICA) ";LM: T + " 1. TOTAL COPY DEPTH AND/OR"I " NUMBER OF PAGES."r " 2. NUMBER OF CHARACTERS NEEDED" " TO FILL THE SPACE." "ENTER THE NUMBER OF YOUR SELECTION ";C C1C2110 C1İ280 C2ī490 936:: ) * TYPESETTING PROGRAM */e(936:::"COPYFITTING & ESTIMATING PROGRAM"::k2~< * INPUT *FP"JOB IDENT. NO. ";N$ZdA30n936::x"SELECT ONE OF THE FOLLOWING OPTIONS:" "FOR YOUR RESULTS:"   N1UR r2800, |"UNIT RISE "N3,N6,F$> :N1TN:2800[ "TOTAL RUN "N3,N6,F$j N1T:2800 "TOTAL RISE "N3,N6,F$ N1SS:2800 "STAIRWELL" FLNRUR " SIZE "N3,N6,F$ FLNRUR N1FL:2800 ::8 "V2RU:300 "SSRSRU$ ,:::. 1936] 6"STRAIGHT STAIRWAY DESIGN CALCULATIONS": @"NO. OF TREADS";25);TD:"NO. OF RISERS";25);RS E JN1RU T2800 Y ]" FEET INCHES FRACTIONS" ^"UNIT RUN "N3,N6,F$ hYOU LIKE TO INCORPORATE":"A LANDING IN THIS STAIRWAY"b "SINCE IT HAS OVER 22 RISERS? (Y/N) ";j Q$t :: Q$"Y"500 Q$"N"250 :"PLEASE RE-ENTER YOUR RESPONSE."::175 2210 TNTDRU:V1HU:V2V1UR V2RS290 SS20JF$"5/16":$TN7.35916405^F$"11/32":GhN7.3911660VrF$"3/8":h|N7.4221680yF$"13/32":N7.4531700F$"7/16":N7.4841720F$"15/32":N7.51561740F$"1/2":N7.5471760F$"17/32":N7.1091480%F$"3/32":7N7.1411500FF$"1/8":XN7.1721520hF$"5/32":zN7.2031540F$"3/16":N7.2341560F$"7/32":N7.26561580"F$"1/4":,N7.29716006F$"9/32":@N7.32816,F$ <HF"WOULD YOU LIKE TO CALCULATE":"ANOTHER PROBLEM? (Y/N) ";PPL$_ZL$"Y"40sd936:::::n SUB FOR CONVERTING DECIMAL TO INCHESxN7.01551420F$"0":N7.04661440F$"1/32":N7.0781460F$"1/16UNIT RISE "N3,N6,F$&N1TN:2800C"TOTAL RUN "N3,N6,F$XTT2:N1T:2800u"TOTAL RISE "N3,N6,F$ N1SS:2800"STAIRWELL"" SIZE "N3,N6,F$N1FL:2800("HEIGHT FROM")"FLOOR TO"*" LANDING "N3,N6DING IN MIDDLE OF FLIGHT." ="NO. OF TREADS";25);TDW"NO. OF RISERS FROM"x" FLOOR TO LANDING";25);RS:N1RU:2800" FEET INCHES FRACTIONS""UNIT RUN "N3,N6,F$:N1UR:2800TNTDRUL"$:936:.250058 FIND TOT RISE OF EACH STAIR?BTT2IL2040SV2210|`V1HU:V2V1UR:TD(RS2)2:FLRSURjV2TD1150tV3V21:SSV3RUL:1160~SSV2RU936:::"CALCULATIONS FOR STRAIGHT STAIRWAY WITH"" LAN 2800"HEIGHT FROM","FLOOR TO"I" LANDING "N3,N6,F$O"PRESS RETURN TO CONTINUE ";:L$:936::"WOULD YOU LIKE TO RECALCULATE THIS" "STAIRWAY OR CALCULATE ANOTHER" "STAIRWAY (Y/N) ";L$L$"Y"40 ONS"!\"UNIT RUN "N3,N6,F$+fN1UR5p2800Rz"UNIT RISE "N3,N6,F$\N1TNf2800"TOTAL RUN "N3,N6,F$N1T2800"TOTAL RISE "N3,N6,F$N1SS2800"STAIRWELL"" SIZE "N3,N6,F$N1FL;27);"+3 DB"-"-IN1N22--ZIF18-S1Z4H-S2(X2)E7\-S3(S1S2E3)2h-S4E5Zx-S5(Z3)E8-"S6S4S5-,S7S62-6S8S3S7-@S9S8.5-JU1(Z4)S9-TU2(U1)(10)-^U320U2-hU42U3-rY40.5U4.|Y15WHEN INSTALLED IN A "6,nV2;" CUBIC FOOT ENCLOSURE."<,xB,h,"CUTTOFF FREQUENCY ";F2;" HERTZ","PORT TUNING FREQ. ";F3;" HERTZ",Y12ĺ" HUMP IN CURVE ";X4;" DB",,,,11);"FREQUENCY RESPONSE" -12);"-3 DB"D NOT BE"5+"LESS THAN 20, AND THE HIGH FREQUENCY"\+"SHOULD NOT BE GREATER THAN 100."b+ +"LOWER FREQUENCY LIMIT"+N1+(+2"HIGH FREQUENCY LIMIT"+<N2+F936:::+P+ZW$;" PRODUCES THE FOLLOWING ",d"RESPONSE CURVE S FOR STRAIGHT STAIRWAY WITH"C "LANDING AT ODD NUMBERED STAIR."I*f4"NO. OF TREADS";25);TD>"NO. OF RISERS FROM:":" FLOOR TO LANDING";25);NRC" LANDING TO TOP";25);NSHN1RUR2800W[" FEET INCHES FRACTI0707"RE-ENTER ANSWER TO PREVIOUS QUESTION.(1/2) ";@600K FIGUU2500bFLNRURl2210V1HU:V2V1UR:V2NR740V3V21:SSV3RUL:750SSV2RUTDTD1TNTDRUL READY TO PRINT ::"CALCULATION "NS" RISERS ABOVE THE LANDING"I]"AND "NR" RISERS BELOW THE LANDING,"w_"OR 2) THE LANDING CAN BE PLACED IN THE"b"CENTER AND EACH SECTION OF STAIRS":"FIGURED SEPARATELY.":l"WOULD YOU PREFER METHOD 1 OR 2 ";vQQ1680Q21&"SINCE THERE ARE "RS" RISERS, THE LANDING"]("SHOULD BE LOCATED WITH "NS" RISERS ABOVE"*"THE LANDING AND "NR" BELOW THE LANDING"010705:::D"SINCE THERE ARE "RS" RISERS, THE"N"LANDING CAN EITHER 1) BE LOCATED"X"WITHWOULD YOU LIKE TO CALCULATE ":"ANOTHER PROBLEM (Y/N) ";@ L$O L$"Y"40_ 936:::t (4);"RUNINDEX"  STRAIGHT STAIRWAY WITH LANDING NRRS2:NS(NR):NSNR550 NRNR.5:570  NS TOP PART OF STAIR NR BOTTOM PART :-TC1(1(F5A4)):P$"Y"F46088F30F31.99F445RBF32F440:H9F2F4_LH9F2F4VHAF2(F42):HB(T2)B1(1(B5.68))`HCN1N2.018TjHTH1H2H3H4H5H6H7H8H9HAHBHCt H7=CEILING H8=CRAWL SPC. H9=SLB/GRD, HA=BSMT;SLB."LOOSE"30)"2.5"M"ENTER THE APPROPRIATE AIR":"CHANGE VALUE ";N2oH70:H80:H90:HA0:HB0:HC0936::: CALCULATIONS +.68A4.68.68A3.17.68A5A4C$"Y"A5A3$H7TC1(1(C2A5)):C$"Y"F460.H8"THE FOLLOWING TABLE PRESENTS 'AIR"Pp"CHANGE' VALUES BASED ON CONSTRUCTION."Vz"CONSTRUCTION"23)"AIR CHANGE VALUE""VERY TIGHT CONSTRUCTION"31)".5""TIGHT"30)"1.0""AVERAGE"30)"1.5""MODERATELY LOOSE"30)"2.0"E TIGHTNESS OF THE BUILDING"G*"CONSTRUCTION AND THE NUMBER OF 'AIR"r4"CHANGES PER HOUR' THAT THE BUILDING">"'LEAKS'."::H"CALCULATE AND ENTER THE 'VOLUME' OF AIR"R"(IN CUBIC FT) WITHIN THE STRUCTURE.":"VOLUME ";N1\:::#f"1/2 STYROFOAM"4" ---- "20)"1/2 SHEETROCK"Y"-----------"20)"------------"v" R= 1.11"22)" R=3.34""ENTER THE APPROPRIATE 'R' VALUE. ";:B5 936:::"INFILTRATION":"HEAT LOSS DUE TO INFILTRATION IS BASED" "UPON TH"ENTER THE AREA (SQ.FT) OF YOUR BASEMENT"m"WALLS. BE SURE TO DEDUCT ANY OPENINGS.":"BASEMENT AREA ";B1u:"FOLLOWING ARE TYPICAL 'R' VALUES FOR""BASEMENT WALL SECTIONS.""8 IN. CONC.BLK"20)"8 IN. CONC.BLK"" ---- "20)NCHES ";DF3:936:::,NB$"Y"650<XQ$"Y"650jb"IS THERE A BASEMENT FLOOR SLAB (Y/N) ";~lQ$:Q$"Y"530Q$"N"780::::"DO YOU HAVE A BELOW GRADE BASEMENT (Y/N)";Z$:Z$"Y"780936:"BASEMENT WALLS"::*936:::"DO YOU HAVE A CONCRETE SLAB"B"ON GRADE (Y/N) ";WB$:B$"Y"590"WHAT IS THE 'PERIMETER' OF THE SLAB (IN""LINEAL FEET) ";&F2:"IS THE PERIMETER INSULATED (Y/N) ";0P$:P$"Y"650:"WHAT IS ITS THICKNESS IN I0)"FLR TILE"2"1/4 UNDERLAY"20)"1/4 UNDERLAY"V"1/2 PLYWOOD"20)"1/2 PLYWOOD"z"9 BATT INS."20)"9 BATT INS.""------------"20)"--------------"7)"R=32.16"27)"R=31.61":"ENTER THE APPROPRIATE R VALUE. ";:F5F50780*PACE"1 r"BELOW IT ARE HEAT LOSING FLOORS."::_ |"DO YOU HAVE A CRAWL SPACE? (Y/N) ";:A$p A$"Y"500 ::::"WHAT IS THE AREA OF THE FLOOR ";:F1:936::: "FOLLOWING ARE TYPICAL 'R' VALUES" "FOR FLOORS." "CARPET W/PAD"2 CONTAIN A CATHEDRAL"1 6"CEILING? (Y/N) ";:C$W @936:::"FLOOR HEAT LOSS.":: J"FLOORS WHICH LOSE HEAT WILL HAVE AN" T"UNHEATED SPACE BENEATH THEM. TYPICALLY" ^"A BASEMENT CONCRETE SLAB FLOOR OR A" h"FLOOR WITH AN UNHEATED CRAWL S2 PLYWOOD"20)"1/2 PLYWOOD"@ "9 BATT INS."20)"12 BATT INS."h "1/2 SHEETROCK"20)"1/2 SHEETROCK" "--------------"20)"-------------" 7)"R=31.51"27)"R=39.51" "ENTER THE APPROPRIATE 'R' VALUE. ";:C2 ":::: ,"DOES THE ROOFG, FLOOR, BASEMENT WALL,"9 "AND INFILTRATION LOSSES."X ::"CEILING HEAT LOSS":| "INPUT THE CEILING AREA ";C1: ::: "FOLLOWING ARE TYPICAL 'R' VALUES" "FOR CEILING SECTIONS." "ASPLT SHINGLES"20)"ASPLT SHINGLES" "1/> d"INSIDE DESIGN TEMPERATURE ";T2:"WALL BTUH ";H1:TT2T1V n"SGL GLZ BTUH ";H2 x"DBL GLZ BTUH ";H3:"TPL GLZ BTUH ";H4 "SKYLIGHT BTUH ";H5:"DOOR BTUH ";H6 936::: "THE VALUES NEEDED TO COMPLETE THE PRO-" "GRAM ARE CEILIN* ** HEAT LOSS CALCULATIONS - PART 2A ** DAVID BEAVERSS ** MAY 1981Y(i2936:::<"HEAT LOSS PROGRAM - PART 2"F::"ENTER THE FOLLOWING VALUES FROM PART 1:"P: Z"PROJECT NAME ";N$:"OUTSIDE DESIGN TEMPERATURE ";T1        90 2780# FNUDE"# T1FT12INF(# e# SUB FOR CONVERTING NUMBERS TO FEET, INCHES, & FRACTION# N20:N30:N40:N50:N60:F$"0"# N112N5N1# N1122880# N2N112#" N3(N2)#, N4N312#6 N5N1N4#@ N6(N5)#J N7N5N6$T 13YOUR","< "LANDING SIZE TO CONFORM TO THIS"K"F "RECOMMENDATION, (Y/N) ";S"P L$d"Z L$"Y"2500r"d L$"N"ıx"n "x N(F$)" I1N" K$(F$,I,1)" K$"/"2730" I" N$(F$,1,I1)" D$(F$,I1,N)" NU(N$):DE(D$)# DE0! "FRACTIONS OF AN INCH ";IN,F$:! FT0:F$""F$"0/1"O! F$"0"F$"0/1"Y! 2680b! LT1j! :z! L362670! 936! "IT IS RECOMMENDED THAT A LANDING BE"!( "AT LEAST 36 INCHES IN THE LINE OF""2 "TRAVEL. WOULD YOU LIKE TO CHANGE = ~ "ENTER DEPTH OF UPPER CONSTRUCTION IN":"INCHES AND ";} " ANY FRACTIONAL VALUES.":" SEPARATE WITH COMMAS. ";IN,F$ FT0:F$"0"F$"0/1" F$""F$"0/1" 2680 UT1 ::: "ENTER THE LANDING LENGTH IN INCHES AND"! RU73.5UR:2340$ TDRS1)) :::/. k8 "ENTER THE DESIRED HEADROOM IN FEET,":"INCHES, AND ";B " ANY FRACTIONAL VALUES.":" SEPARATE WITH COMMAS ";FT,IN,F$L F$""F$"0/1"V F$"0"F$"0/1"` 2680j HT1t : y 936:::IONS :936:::a"WHICH STAIR RATIO FORMULA WOULD YOU":"LIKE TO USE? (1/2/3) ";hCp:~C12310C22320C32330"PLEASE RE-ENTER YOUR RESPONSE."::2230 RU17.5UR:2340 RU24.5(2UR):2340>:HA$"A"2160(RA$"B"2170e\"PLEASE RE-ENTER ANSWER TO PREVIOUS":"QUESTION. (A/B)"of2100pRS(T7):2200zP1T8:P2(T8):P1P22190RSP21:2200RSP1URTRS: SUB FOR STAIR RATIO 1/2/3 & HEAD ROOM QUESTR OF RISERS. (METHOD A&B)!:):f "WOULD YOU LIKE TO USE METHOD":"A OR B IN DETERMINING""THE NUMBER OF RISERS (ENTER A OR B) " *"REFER TO DOCUMENTATION FOR EXPLANATION":"OF METHODS A & B"4"ENTER A OR B ";A$9:::971920vF$"25/32":*N7.8281940;F$"13/16":MN7.8591960^F$"27/32":qN7.89061980F$"7/8":N7.9222000F$"29/32":N7.9532020F$"15/16":N71.0F$"31/32" SUB FOR FIGURING NUMBE":N7.5681780%F$"9/16":7N7.6091800HF$"19/32":[N7.64061820jF$"5/8":|N7.6721840&F$"21/32":0N7.7031860:F$"11/16":DN7.7341880NF$"23/32":XN7.76561900bF$"3/4":lN7.7 FINAL VALUES8x936:::"HEAT LOSS SUMMARY FOR ";N$Q"SURFACE"25)"BTUH"f"WALLS "25);H1"SGL GLZ"25);H2:"DBL GLZ"25);H3"TPL GLZ"25);H4:"SKYLIGHT"25);H5"DOORS"25);H6:"CEILING"25);H7H801480"FLOOR-CRAWL"";:F1:"R= ";:F5:1000HF"BSMNT WALL AREA= ";:B1:"R= ";:B5:1000P"SLAB/GRADE PERIMETER= ";:F2:"INSULATION = ";:F3:1000Z"SLAB/BSMT PERIMETER= ";:F2:"INSULATION = ";:F3:1000d"VOLUME/AIR= ";:N1:"AIR CHG/HR= ";:N2:1000 nON"23);N136);N2:H "DO YOU WISH TO CHANGE ANY VALUE (Y/N) ";^W$:W$"Y"1390f:"INPUT THE LINE NUMBER YOU WISH TO CHANGE.":L(L1330,1350,1360,1370,13802"CEILING AREA= ";:C1:"R= ";:C2:1000<"CRAWL SPACE AREA= 20);B130);B5B$"Y"1240D19)"PERIMETER"31)"INSULATION"i3)"4 SLAB/GRADE"23);F236);F3{Q$"Y"127019)"PERIMETER"31)"INSULATION"3)"5 SLAB/BSMT"23);F236);F319)"VOLUME/AIR"30)"AIR CHG/HR"3)"6 INFILTRATI HB=BSMT WAL HC=INFILN~936:::"HERE IS A SUMMARY OF YOUR INPUT DATA.":l"LINE#"20)"AREA"30)"R"~A$"N"ī12003)"1 CEILING"20);C130);C2A$"N"ī12003)"2 CRAWL/SPACE"20);F130);F5A$"Y"1210 3)"3 BSMT WALL"5010:"ESTIMATED WATTAGE FOR THE DRYER ";DA:A5000:5010m"NOTE : PROVISIONS SHOULD BE MADE FOR""AN ELECTRIC RANGE EVEN IF GAS IS USED" ::"ELECTRIC RANGE";20);"43 AMPS":TA436000 RATA230*RA8000ARRA.8:840 4ALUES."1"IF YOU WOULD LIKE TO USE DIFFERENT"["VALUES, SIMPLY REJECT THE STANDARD""VALUES AS THEY ARE LISTED AND ENTER":"YOUR OWN."5000::SA0936:5010"DRYER";20);"22 AMPS":TA22DATA6000DATA2301DITIONING ";AC%HAHW:ACHWHAACS:::"THE VALUE TO BE USED FOR HEATING"w"AND AIR COND. WATTAGE IS ";HA5000:5010"SPECIAL EQUIPMENT CALCULATIONS":"THE FOLLOWING EQUIPMENT IS LISTED WITH""STANDARD POWER CONSUMPTION V]"CENTRAL AIR CONDITIONING (Y/N) ";A$=b(A$,1)"Y"690dl:"ENTER AMPS OR KVA OF UNIT ";ACv:"IS THE VALUE IN AMPS OR KVA (A/K) ";A$(A$,1)"K"660ACAC1000:670ACAC230936:5010"ESTIMATED WATTS FOR":"AIR CON ";A$ (A$,1)"A"5400(A$,1)"K"550HHWHWH1000F:560X&HWHW230F_0I:936::::5010:"ESTIMATED WATTS FOR HEATING= ";HWD5000:5010:AC0N"CENTRAL AIR CONDITIONING CALULATIONS"X::"DOES THE RESIDENCE HAVE"'00.65:570!HWH230.65:570/A3320l:"HOW MANY INDIVIDUAL UNITS ARE":"TO BE INCLUDED ";IU:"ENTER THE AMPS OR KVA FOR EACH UNIT"HW0:F.65:IU4F1.0I1IU:"UNIT ";I;:" AMPS OR KVA ";H"VALUE IN AMPS OR KVALECTRIC HEAT"3^" 3. INDIVIDUAL ELECTRIC HEAT"Fh:"OPTION ";ASrA1300`|A1400qHW1500:570~A2460:"ENTER THE AMPS OR KVA OF":"THE UNIT ";H:"IS THE VALUE IN AMPS OR KVA (A/K) ";A$(A$,1)"K"450 HWH10:"AT 1500 WATTS EACH ";N*SCSCN1500:936:5010n""ESTIMATED WATTS FOR":"SMALL APPLIANCES= ";SC~,5000:50106"HEATING CALCULATIONS":@"SELECT ONE OF THE FOLLOWING OPTIONS:"J:" 1. FUEL FIRED FURNACE" T" 2. CENTRAL EO. OF CIRC.";15);"TYPE"R"2";15);"KITCHEN":"1";15);"DISH WASH/GARBAGE DIS"|"1";15);"LAUNDRY":"1";15);"OTHER"SC7500:"WOULD YOU LIKE TO ADD ANY":"ADDITIONAL CIRCUITS (Y/N) ";A$(A$,1)"Y"290:"NO. OF ADDITIONAL CIRCUITS"L RESULTS:":> "ESTIMATED NO. OF WATTS";29);"=";30);LL:_ "ESTIMATED NO. OF LIGHTING" "CIRCUITS AT 1500 WATTS EACH ";29);"=";30);LC 5000 5010:"SMALL APPLIANCE CIRCUIT CALCULATIONS" "INCLUDED IN NEW CONSTRUCTION: ":"N99):190I "ENTER THE DIMENSIONS FOR THE MAIN":"SECTION OF THE HOUSE"f "LENGTH ";L:"WIDTH ";Wx LLNSLW4.6 :"ENTER THE DIMENSIONS OF THE L":"LENGTH ";L:"WIDTH ";W LLLLNSLW4.6:LC(LL1500.9999) 936::::5010:"PARTIA) :"ENTER THE NUMBER OF STORIES ";NS7 NS1128{ :"IS THE HOUSE RECTANGULAR IN SHAPE OR":"L-SHAPED (R/L) ";S$ S$"R"160 "ENTER THE OUTSIDE DIMENSIONS":"OF THE HOUSE" "LENGTH ";L:"WIDTH ";W LLNSLW4.6:LC(LL1500.99THER DESIGNS WILL"@ t"REQUIRE THAT THE SQ. FT. BE CALCULATED"e v"AND ENTERED BY THE ESTIMATOR." x:"IS THE SQ. FT. TO BE ENTERED":"BY THE ESTIMATOR (Y/N) ";A$ y(A$,1)"Y"128 }:"SQ. FT. IN THE RESIDENCE ";SF ~LLSF4.6:L0:W0:175 U:"RESIDENCE ";R$:"ESTIMATOR ";E$N Z5010:936::::"DIRECTIONS: ": d936::::5010:"LIGHTING CIRCUIT CALCULATIONS" n:"THE PROGRAM WILL CALCULATE THE SQ. FT." p"OF RECTANGULAR OR L-SHAPED HOUSES WITH" r"ONE OR MORE STORIES. O03 ** ELECTRICAL SERVICE ENTRANCE CALCULATIONSH ** KEN BRUMLEYZ ** MAY 1981`(2936::::5010:"ELECTRICAL SERVICE ENTRANCE CALCULATIONS"<5000F5010P"ENTER THE NAME OF THE RESIDENCE AND":"THE NAME OF THE ESTIMATOR"&              E THE RESULTS SENT"3 "TO THE PRINTER (Y/N) ";A$] "YOU MUST CONFIGUE FOR YOUR PRINTER"s (A$,1)"Y"İ600{ :   *REPEAT?*  :::: "WOULD YOU LIKE TO REPEAT THE PROGRAM"&"USING DIFFERENT VALUES FOR THE SAME"S* r* |936:A30:::"PRESS COSTS"Q :"JOB IDENTIFICATION NO.";A);N$W u "MAKEREADY COST"A)"$"PM "PRESS RUN COST"A)"$"PR "WASH UP COST"A)"$"WC "TOTAL COST"A)"$"TC: I1A10:"*";:I: : "WOULD YOU LIK TO CONTINUE..";Z$ =H12:12:"LOADING INDEX"RR(4);"RUNINDEX" * "V @"* DEPARTMENT OF ADULT, VOCATIONAL * " T"* AND * " ^"* TECHNICAL EDUCATION * " r"* * * * * * * * * * * * * * * * * * * *" |::" PRESS $ 6 "* * * * * * * * * * * * * * * * * * * * f "* * " "* FUNDED UNDER AGREEMENT WITH * " ""* * " ,"* ILLINOIS STATE BOARD OF EDUCATION * "& 6"* WAYNE LOCKWOOD-PROGRAM COORDINATOR *"U "* *" "***************************************" : "THIS DISK CONTAINS INDUSTRIAL EDUCATION" " PROGRAMS" :: " PRESS RETURN TO CONTINUE";:" ";Z *"; x"*WILMA JEAN ALEXANDER,PROJECT DIRECTOR*"j }"* *" "* *" "* INDUSTRIAL EDUCATION PACKAGE *" "* *"& "* ********************************"P Z"* *" d"* MICROCOMPUTER SKILLS: CURRICULUM *" i"* *" n"*DEVELOPMENT AND DISSEMINATION PROJECT*" s"* T  D$""; :THIS IS THE INDEX PROGRAM FOR THE DISKi IT IS DESIGNED TO ALLOW THE USER TO ( SIMPLIFY THE LOADING AND RUNNING OF- A PROGRAM.2 THIS DISK CONTAINS SEVER INDUSTRIAL ARTS PROGRAMS8 1982F:! P"*******LATIONS$`WP(LLSCSASPHA)1.25IjWP0ĺ"ERROR IN TOTAL WATTS ":aoWR(WPHA10000).4ttPTHA10000WR~TAPT230936:5010:"IS THE SERVICE ENTRANCE":"UNDER GROUND (Y/N) ";A$(A$,1)"Y"1240 ** OVER HEAD SERVICEER THE WATTAGE ";OC:1050A:"ENTER THE VOLTAGE (115/230) ";VRV1151040fOCAK115:1050tOCAK230SPSPOC$Z.936::::50108"THE REQUIRED WATTAGE FOR ADDITIONAL":"SPECIAL CIRCUITS IS ";SPB5000LV CALCU?" NO. UNITS":" 1. AMPS OR KVA":" 2. WATTS"T:" NO.= ";NOgNO1NO2920xNO960,1000:"ENTER THE NO OF AMPS OR KVA ";AK"IS THE VALUE IN AMPS OR KVA ";A$(A$,1)"K"1010AKAK1000:1010:"ENTGE OR":"THE WATTAGE."&p5000:5010`z"HOW MANY SPECIAL CIRCUITS ARE TO":"BE ADDED ";ZU:tSP0:ZU01100Z1ZU936::::5010:"CIRCUIT ";Z;"POWER REQUIREMENTS":"ENTER THE NO. CORRESPONDING TO":"THE UNITS BEING USED:"RDA::"ESTIMATED WATTAGE FOR"HN"SPECIAL EQUIPMENT IS ";SE:SASASEXR5000:5010\"ADDITIONAL SPECIAL CIRCUITS MAY BE]"NEEDED FOR APPLIANCES OR EQUIPMENT TO"f"BE INSTALLED. YOU WILL NEED TO KNOW"g"THE VOLTAGE AND NAMEPLATE AMPERARA8000RA12000AR8000:840_>RA12000RA27000AR8000((RA12000999)1000)1000.4h?840C:"THE PROGRAM WILL ONLY HANDLE UNITS UP TO"D"27 KVA--RE ENTER THE VALUE";780H936:5010:"THE ESTIMATED RANGE WATTAGE IS ";ARMSEAS":TA22DATA6000*DATA230]5010:"ESTIMATED WATTAGE FOR THE DRYER ";DA:m5000:5010"NOTE : PROVISIONS SHOULD BE MADE FOR""AN ELECTRIC RANGE EVEN IF GAS IS USED" ::"ELECTRIC RANGE";20);"43 AMPS":TA436000TED WITH"3"STANDARD POWER CONSUMPTION VALUES."]"IF YOU WOULD LIKE TO USE DIFFERENT""VALUES, SIMPLY REJECT THE STANDARD""VALUES AS THEY ARE LISTED AND ENTER":"YOUR OWN."5000::SA0936:5010"DRYER";20);"22 AMP50108"ESTIMATED WATTS FOR":"AIR CONDITIONING ";ACOHAHW:ACHWHAAC::::"THE VALUE TO BE USED FOR HEATING""AND AIR COND. WATTAGE IS ";HA5000:5010"SPECIAL EQUIPMENT CALCULATIONS" :"THE FOLLOWING EQUIPMENT IS LISONS"'X::"DOES THE RESIDENCE HAVE"Q]"CENTRAL AIR CONDITIONING (Y/N) ";A$gb(A$,1)"Y"690l:"ENTER AMPS OR KVA OF UNIT ";ACv:"IS THE VALUE IN AMPS OR KVA (A/K) ";A$(A$,1)"K"660ACAC1000:670ACAC230936:"VALUE IN AMPS OR KVA ";A$4 (A$,1)"A"540J(A$,1)"K"550bHWHWH1000F:560r&HWHW230F~+:::0:I:936::::5010:"ESTIMATED WATTS FOR HEATING= ";HWD5000:5010:AC0N"CENTRAL AIR CONDITION ING CALCULATI,1)"K"450#HWH1000.65:5709HWH230.65:570GA3320::"HOW MANY INDIVIDUAL UNITS ARE":"TO BE INCLUDED ";IU:"ENTER THE AMPS OR KVA FOR EACH UNIT"HW0:F.65:IU4F1.0I1IU:"UNIT ";I;:" AMPS OR KVA ";HE"%T" 2. CENTRAL ELECTRIC HEAT"K^" 3. INDIVIDUAL ELECTRIC HEAT"^h:"OPTION ";AkrA1300x|A1400HW1500:570A2460:"ENTER THE AMPS OR KVA OF":"THE UNIT ";H:"IS THE VALUE IN AMPS OR KVA (A/K) ";A$ (A$ OF ADDITIONAL CIRCUITS":"AT 1500 WATTS EACH ";NBSCSCN1500R936:5010""ESTIMATED WATTS FOR":"SMALL APPLIANCES= ";SC,5000:50106"HEATING CALCULATIONS":@"SELECT ONE OF THE FOLLOWING OPTIONS:"J:" 1. FUEL FIRED FURNACRC.";15);"TYPE":V"2";15);"KITCHEN"::"1";15);"DISH WASH/GARBAGE DIS":"1";15);"LAUNDRY"::"1";15);"OTHER"::SC7500:"WOULD YOU LIKE TO ADD ANY":"ADDITIONAL CIRCUITS (Y/N) ";A$::::(A$,1)"Y"2901:"NO.S:":6 "ESTIMATED NO. OF WATTS";29);"=";30);LL:W "ESTIMATED NO. OF LIGHTING" "CIRCUITS AT 1500 WATTS EACH ";29);"=";30);LC 5000 5010:"SMALL APPLIANCE CIRCUIT CALCULATIONS" "INCLUDED IN NEW CONSTRUCTION: ":"NO. OF CIA "ENTER THE DIMENSIONS FOR THE MAIN":"SECTION OF THE HOUSE"^ "LENGTH ";L:"WIDTH ";Wp LLNSLW4.6 :"ENTER THE DIMENSIONS OF THE L":"LENGTH ";L:"WIDTH ";W LLLLNSLW4.6:LC(LL1500.9999) 936::::5010:"PARTIAL RESULT"ENTER THE NUMBER OF STORIES ";NS/ NS1128s :"IS THE HOUSE RECTANGULAR IN SHAPE OR":"L-SHAPED (R/L) ";S$ S$"R"160 "ENTER THE OUTSIDE DIMENSIONS":"OF THE HOUSE" "LENGTH ";L:"WIDTH ";W LLNSLW4.6:LC(LL1500.9999):190L"0 t"REQUIRE THAT THE SQ. FT. BE CALCULATED"U v"AND ENTERED BY THE ESTIMATOR." x:"IS THE SQ. FT. TO BE ENTERED":"BY THE ESTIMATOR (Y/N) ";A$ y::::(A$,1)"Y"128 }:"SQ. FT. IN THE RESIDENCE ";SF ~LLSF4.6:L0:W0:175! : U:"RESIDENCE ";R$:"ESTIMATOR ";E$N Z5010:936::::"DIRECTIONS: ":u d:"LIGHTING CIRCUIT CALCULATIONS" n:"THE PROGRAM WILL CALCULATE THE SQ. FT." p"OF RECTANGULAR OR L-SHAPED HOUSES WITH" r"ONE OR MORE STORIES. OTHER DESIGNS WIL3 ** ELECTRICAL SERVICE ENTRANCE CALCULATIONSH ** KEN BRUMLEYZ ** MAY 1981`(2936::::5010:"ELECTRICAL SERVICE ENTRANCE CALCULATIONS"<5000F5010P"ENTER THE NAME OF THE RESIDENCE AND":"THE NAME OF THE ESTIMATOR"&           AL MASS QUANTITIES,"C "AND PERCENTAGE OF SOLAR CONTRIBUTION.":p "IT IS ASSUMED THAT GOOD PASSIVE SOLAR" "DESIGN PROCEDURES (I.E., ORIENTATION," "SHADING,ETC.) ARE BEING USED." :"PRESS TO CONTINUE ";A$ 936:::"ENTERTIAL PLANS"6 d"FOR A PASSIVE SOLAR HOME. IT USES A"a n"SIMPLIFIED PROCEDURE FOR ESTIMATING" x"THE SIZE OF THE PASSIVE SOLAR SYSTEM" "NEEDED. THE PROGRAM CALCULATES EST-" "IMATED VALUES FOR THE AREA OF SOUTH-" "FACING GLAZING, THERM' ** PASSIVE SOLAR DESIGN PROGRAM> ** DAVID BEAVERSP ** MAY 1981V(2936::::"PASSIVE SOLAR DESIGN":<:::"PRESS TO CONTINUE ";A$F936P"THIS PROGRAM HAS BEEN DESIGNED FOR" Z"USE IN DEVELOPING THE INI! ! ! ! !!!!!!!!!     S$ "0"5000:5010P""PRESS RETURN TO REPEAT PROGRAM, TO EXIT ";A$f"(A$,1)"\ɦS_onZBڪجرBڪرU xpBBBB|ڨĪجػùt1BBBIjoBBBIۈ|ڹTER AND PRESS RETURN ";A$ !1P!:"SUMMARY: SERVICE ENTRANCE CALCULATIONS"k!:"RESIDENCE";12);R$!"ESTIMATOR";12);E$!:"ACTUAL POWER DEMAND (AMPS)";34);(TA)!"MINIMUM SERVICE REQUIRED (AMPS)";34);MS":"MINIMUM WIRE SIZE ";WICE REQUIRED (AMPS)";34);MS< d:"MINIMUM WIRE SIZE ";WS$L n5000:5010 x"IF YOU WOULD LIKE A HARDCOPY, YOU MUST":"CONFIGURE FIRST TO " y"YOUR SYSTEM.":"WOULD YOU LIKE A HARDCOPY (Y/N) ";A$ ::::(A$,1)"Y"1500!:"TURN ON PRIN SERVICE ENTRANCE MUST BE ";MS;"AMPS"C"USE EITHER ";WS$" WIRE"K:[(5000:50102"SUMMARY : SERVICE ENTRANCE CALCULATIONS"<:"RESIDENCE";12);R$F"ESTIMATOR";12);E$P:"ACTUAL POWER DEMAND (AMPS)";34);(TA) Z"MINIMUM SERV0 AL":1300( ** UNDERGROUND SERVICE9TA1001260_MS100:WS$"#6 CI PR #4 AL":1300pTA1501270MS150:WS$"#2 CU OR #1 AL":1300TA2001280MS200:WS$"#1 CI PR #2/0 AL":1300MS400:WS$"#350 CU OR #500 AL"%:"YOUR::::(A$,1)"Y"12409 ** OVER HEAD SERVICEKTA10001210qMS100:WS$"#6 CU OR #4 AL":1300TA1501220MS150:WS$"#2 CU OR #2 AL":1300TA2001230MS200:WS$"#1 CU OR #1/0 AL":1300 MS400:WS$"#350 CU OR #75PECIAL CIRCUITS IS ";SP!B5000'L:V CALCULATIONSW`WP(LLSCSASPHA)1.25|jWP0ĺ"ERROR IN TOTAL WATTS ":oWR(WPHA10000).4tPTHA10000WR~TAPT230936:5010:"IS THE SERVICE ENTRANCE":"UNDER GROUND (Y/N) ";A$(A$,1)"K"1010'AKAK1000:1010L:"ENTER THE WATTAGE ";OC:1050t:"ENTER THE VOLTAGE (115/230) ";VV1151040OCAK115:1050OCAK230SPSPOC$Z.936::::50108"THE REQUIRED WATTAGE FOR ADDITIONAL":"S CORRESPONDING TO":"THE UNITS BEING USED:"j" NO. UNITS":" 1. AMPS OR KVA":" 2. WATTS":" NO.= ";NO::::NO1NO2920NO960,1000:"ENTER THE NO OF AMPS OR KVA ";AK"IS THE VALUE IN AMPS OR KVA ";A$NOW"Ag"THE VOLTAGE AND NAMEPLATE AMPERAGE OR":"THE WATTAGE."Qp5000:5010z"HOW MANY SPECIAL CIRCUITS ARE TO":"BE ADDED ";ZU:SP0:ZU01100Z1ZU936::::5010:"CIRCUIT ";Z;"POWER REQUIREMENTS"+:"ENTER THE NO.HE ESTIMATED RANGE WATTAGE IS ";ARJMSEARDA::"ESTIMATED WATTAGE FOR"sN"SPECIAL EQUIPMENT IS ";SE:SASASER5000:5010\"ADDITIONAL SPECIAL CIRCUITS MAY BE]"NEEDED FOR APPLIANCES OR EQUIPMENT TO"f"BE I