' +JJJJ ?x\>0='+l>  / X  n e% "+鷎귌췠ᷠ 뷎67Lɯ <= <=` `庠宮    LҦ ³LɆLLҦ  µ)LɥLLѤLҦ :;N:NNH hN ;պ Ժ;L,&Z[\p2Q"(0 P3Q ɿi pLLRͲɊR ^׮p Ѷ8RP˵B̵CpBZ\ @ յյ\BIR -^ ➭\ (p\I Z𐐪L NLA巬 췌`x (`(8`rm`Ժsmaպ`B` ``>J>J>VU)?`8'x0|&HhHh VY)'&Y)xꪽ)' `Hh`V0^*^*>&` aI꽌ɪVɭ&Y&&Y& 꽌ɪ\8`&&꽌ɪɖ'*&%&,E'зЮ꽌ɪФ`+*xS&x'8*3Ixix&& 8  '  & x)*++`,G8`0($ p,&"H hH @D@ Jh  DLꢠ ~LLE έ !"#$%&'(')*+,-./0123456789:;<=>?  / X % "-+LŠ͠ˠҠԠĭӠɮԠĠΠŠ֠ӠӠФbptťܥm2<(-Py0\|mRǿx8ɍL)?GGLiѼټ ` `l8mµLTHIHHHHhHH݌hHhHh݌H6 ˆʎõĵL õ ĵµȌ aµ`` L̦µ_bJLLzH hB@L  ȟ QlXJ̥KlV  ȟ QlV eօ3LɠL4L³ &RL &QL d L4 Ne)n `ꭜiɴ LE f`L . tQLѤ LҦLL¼` OPu d L Ne)noon Rɍ`\õL$D@8 D@LBR \L RNLҦHv 3h`0h8` LQ õ`A@`8. ŵH fh  F 濭0 \  ȟ Q ^\lZl^=vH şh`fhjõĵ@OAP`u@`@&`QR`F Ls  @DAF@u`8` %@ @A@`@`@A`-µ µ L8@AWc@8@-@HAȑ@hHȑ@ȑ@hHȑ@Ȋ@ch8&ȑ@Hȑ@Ah@LHȑ@ȑ@ htphso`hMhL`LծHIDOLOASAVRUCHAIDELETLOCUNLOCCLOSREAEXEWRITPOSITIOOPEAPPENRENAMCATALOMONOMOPRINMAXFILEFINBSAVBLOABRUVERIFٯTLOATLISDUMDISATSAVDATŭApppp p p p p`" t""#x"p0p@p@@@p@!y q q p@p y@@y@y@p!y@p q@p@   DOS LANGUAGE ABSENRANGDISK PROTECTEEND DATFILE NOT FOUNVOLUME NUMBEI/FULL DISFILE LOCKESYNTAOUT OF BUFFERFILE TYPFILE TOO BIINDIRECT COMMANDAVID-DOS II.2 DISK ABSEN ERROR u`X`*2@MPYdjxϠ@跻~!b]*9~~e)rsrs`_ r j ʪHɪH`Lc (L ܫ㵮赎 ɱ^_J QL_Ls贩紎 DǴҵԵƴѵӵµȴ 7 ַ :ŵƴѵǴҵȴµ納贍﵎ٵ്ᵭⳍڵL^ѵ-I `  4 ò-յ! f 8صٵ紭ﵝ 7L (0BC  7LL{Lg0& JJ yõLõ ŤLµ%J y B B Ť L  Jn Ͱ,0 # ̵µ аL (ȴ) ȴ 7L L ( L (ȴL{ƴѵ洩ƴǴҵ e ^* B0 HȱBh ӵԵ 8 `L8 ݲ` ܫ f ; @D B ! , , ƴ0Lȴ ȴ)  紅D贅@ B ɴ  J$ , 0 Ν Ƀ`HD8H@ຐ@hDh h` ŵBѵ-`, ѵB8` Ꝣ u %ﵭ` fm ﳐ 7i볍 8 `ЉLw`H fh ݲL`~ `浍국䵍뵩嵠Jm赍嵊mjnnn浈m浍浭m䵍䵐`"L ŵ8ŵH P(` dƭ֍뷌ᷩz L*# ׳ܳ 䳩鳩곩i$,V6 LLټ%i[ci,,,ټ躥̺غi躭i3مLABCGحɠ іL³ƭȭ֍ 떙L³֠LXZdflpVVxT4=媗߷iȿ@JX ocu!*3X10:100PSH36000:110cX30:301:140l150}B$"1"1490B$"2"1310 B$"3"2390B$"4"1330(4);"RUN HOME.ENERGY"(2SH32000:110:A$"Credits"3X0:Y0:1.A$"2. Operating costs for"-8YY20:100OBA$" electrical appliances"_LYY18:100yVA$"3. How to figure"`YY20:100jA$" operating costs"tYY18:100~A$"4. Stop"YY20:100190A$"*"B$"1"Y50 985"YY10:100%VV12000:-X0@300:140:150RSH32000:110pA$"Select option (1-4):"X30:Y0:1001:0,19279,19:0,20279,19YY200,170279,1700,169279,169A$"1. Introduction"$YY30:100pA$"Montgomery, Alabama"+zYY10:100AA$"Prepared by:"QYY20:100rA$"Johnson Research Center"YY15:100A$"University of Alabama in Huntsville"YY10:100A$"Huntsville, Alabama"YY10:100A$"Copyright 10,175279,175  0,174279,1749 A$"Distributed by:"KX0:Y20:100d A$"Energy Division"t*YY15:1004A$"Department of Economic">YY10:100HA$" and Community Affairs"RYY10:100\A$"State of Alabama"fYY10:100YY20:100!A$"Appliances"1YY20:100CSH36000:110b:(4);"BLOAD ]CHOP,A";SH{A$"Press space bar"X152:Y175:100140:150A$"Energy Education Software Series"X0:Y0:1001:0,16279,16:0,17279,17  SH32000:110 &A$"Home"/ 0X15:Y20:100? :A$"Energy"O DYY20:100e NA$"Conservation"u XYY20:100 ]VV12000: bA$"Operating" lX155:Y80:100 vA$"Costs" YY20:100 A$"For" YY20:100 A$"Electrical" $"$"N$: ,450: -A$"Press space bar":SH36000:110K .Y175:100:^ VV12000::q VV11000::w }  (4);"BLOAD FAST,A$300" SH32000::(4);"BLOAD ]BLOCK,A";SH  768,1,0,0,150,191,0 768,0,10,15,140,80,0 N0225" (N$,1)"."N$"0"N$3 (N$)3225P (N$,(N$)2,1)"."230x (N$,(N$)1,1)"."N$N$"0":230 N$N$".00" (N$)6N$(N$,(N$)6)","(N$,6) (N$)10N$(N$,(N$)10)",+RIGHT$(N$,10) N0N$"("N$")" N68,0! ZZ(16384):ZZ128191/ 16368,0@ B$(ZZ128)P B$"1"200` B$"2"200p B$"3"200 B$"4"200 A$B$: THIS SEGMENT ADDS COMMAS AND () FOR NEG NUMBERS N(N100.5)100 N$(N):N0N$(N$,(N$)1) {::62450:1000 }& 16368,0C ZZ(16384):ZZ128141S 16368,0:j ::62450:1000: 1:0,0:62454: HC2 768,HC,0,0,279,1,0 768,HC,278,0,279,191,0 768,HC,0,190,279,191,0 768,HC,0,0,1,191,0  163]H1000,141:1001,80:1002,192:1003,141:1004,85:1005,192:1006,96R0:1[c500d100X,Y:I1(A$):((A$,I,1))31:99::n232,SH(SH256)256:233,(SH256):x16368,0yZZ(16384):ZZ128121z16368,0:A$(ZZ128)           6 * 6 Hours"&jYY20:100/&tA$"or $0.072"?&~YY20:100R&300:140:150\&1020SY20:100}&300:140:150&1020S150&1020S"Your TV uses 200 watts."*%YY20:1003%450X%$A$"You use the TV for 6 hours."h%.YY18:100q%/450%8A$"Electricity cost $0.06/KWH."%BYY18:100%C450%LA$"The operating cost is:"%VYY20:100%W450 &`A$"200/1000 * $0.0u"$ YY18:100,$ A$"how many dollars"<$ YY18:100N$ A$"per hour"^$ YY18:100v$ A$"your appliance"$ YY18:100$ A$"costs to use."$ YY18:100$ 300:140:150$ 2400$ A$"For example:"$YY25:100$451%A$e results in step 5"$# YY18:100D# A$"by the number of hours"T# YY18:100u# A$"the appliance was used."# YY18:100#4 300:140:150#> 2400#H X0#R A$"Step 7"#\ YY30:100#f A$"Your answer"#p YY20:100$z A$"tells yo step 4""b YY18:100."l A$"by your cost">"v YY18:100V" A$"of electricity"f" YY18:100" A$"per kilowatt hour."" YY18:100" 300:140:150" 2400" A$"Step 6"" X0:YY30:100" A$"Multiply"" YY25:100# A$"th"by 1000"! YY18:1003! A$"to convert watts"C! YY18:100Z! A$"to kilowatts."j! YY18:100}! 300:140:150! 2400! A$"Step 5"!& X0:YY30:100!0 A$"Multiply "!: YY25:100!D A$"the kilowatts"!N YY18:100"X A$"inplying" 6 YY18:1002 @ A$"the voltage times"B J YY18:100X T A$"the current."h ^ YY18:100{ r 300:140:150 | 2400 A$"Step 4" X0:YY30:100 A$"Divide the" YY25:100 A$"appliance wattage" YY18:100 ! A$а100 A$"of the appliance."/ YY18:100B 300:140:150L 2400\ A$"Step 3"p X0:YY30:100 A$"If the wattage" X0:YY25:100 A$"is not listed" YY18:100 A$"you can compute it"" YY18:100 , A$"by multi02 A$"Step 2"%< X0:YY30:100?F A$"Read the wattage"OP YY25:100jZ A$"of the appliance."zd YY18:100f 450n A$"The wattage"x YY18:100 A$"is generally listed" YY18:100 A$"on the back or bottom" YY18: A$"Step 1"% X0:YY30:1007 A$"You need"G YY25:100X A$"to know"h YY18:100z A$"the cost" YY18:100 A$"of electricity" YY18:100 A$"per kilowatt hour (KWH)." YY18:100 300:140:150( 240B 300:140:150L 1020+V 2400:2460=` SH32000:110cj A$"How to figure operating cost"tt X0:Y0:100~ A$"of an electrical appliance" YY18:100 1:0,37279,37 0,38279,38 0,179279,179:0,180279,180 V11000::YY18:100$A$"each appliance"4YY18:100MA$"cost to operate"]YY18:100zA$"you can concentrate"YY18:100A$"your efforts" YY18:100 A$"on saving energy" YY18:100$ A$"and money.". YY18:100 *A$"for estimating the cost"04YY18:100G>A$"of operating "WHYY18:100pRA$"your electrical"\YY18:100fA$"appliances."pYY18:100300:140:1501500A$"When you know"YY25:100A$"how much " "YY18:100+A$"uses electricity";YY18:100QA$"differently."aYY18:100t300:140:150~1500A$"By using the data"YY30:100A$"as guidelines" YY18:100A$"you will have a basis" YY18:100140:150&1500%0A$"The data"5:YY25:100RDA$"shown in the charts"bNYY18:100xXA$"are averages"bYY18:100lA$"and won't be exactly"vYY18:100A$"the same as your costs"YY18:100A$"because everybody40:1501500'A$"This program"7YY30:100NA$"will show you"^YY18:100pA$"how much"YY18:100A$"it costs"YY18:100A$"to operate "YY18:100A$"your home appliances."YY18:100 300:;;.M)M)>;;.M)M)>??----->???VIIIm*m ->??w)-?.5?.??-m-5?;III;*MI5;.MI5;.MI5?-- 5?wI)>--??MII*---5????NI)---->???III ->?.>.>5w5757-5?V 7575757575757575o--?w)>.>5575*-?VIIiI?.-----?????.----5?????.-???7mI->7mI)>7mI-??7m-;.>MIIJ--->???-M 5;.MI5;.mI5??-m575oJ-5??-757575IIJ --->???.>.--???NI5---???VII55757--5??75757?-->?VI*MI5;.MI5;.MI5;.MI5?---5???VII**M-??wmI5wm)>w-5?w5I *M)M)>;;.M)M)>I)>۷III57*>.>.>.>.>V5 57*>.>.>.>.>-?M5757mI57mI7--???.M)57mI5۷II 75757575757575 *-m)???7m)m)57m m 57m m 57m m 5IIII*--???7mI->7mI)>7mI)>7mI)>۷IIIJ--???-M)5;.MI5;.MI5?;w---??VII*--???IIIJ--->???-757?---5???VIIII 575-- 5??-MI57mI 57mI 5;w---->???VII J---5????-MI5?7mI-?;.M-?---->???VII- -5??-757--5??757575IIIJ---5????-MI57mI 5;w--m5??NI)>--??MI?5757---???7mI->7mI)>7mI)>7mwII)>-?-?-?->7----5????III--->?75757575757-->?I 5w5w5w5w5w5w5 --->?w 575757575-->?I J ?--???----;7->7->II----5????oII ->7-w J---5????-MI57mI 57mI 5;w--m5??VIIm5757m--??7mI)57mI 57mI 5?7----mI 57mI 57mI 5;w---->???VIIIm)-??;.MI)>;.MI)>;mI5wm)>w-5?w5IIIm m 57m m 57m m 57m m 57m m 57m m 5;;w----->???VIII--MI->?;?N) ?.5?.5?.5?.-m -5??VIII5mI 57mI 57-M -??--?w57575II-----5????)>;.MI-??7m--;.>.>VIII --???-M ->;.MI)>;.MI)>;.MI)>;.MI)>?---??w 5oI----????.MI->;.MI)>;.MI-??7m--?7mI 57mI 5III ---5????-7?---???NI->.>ۛ----???III----5????wI57575757575IImmI 57mI 57mI 57)>7mI)>۷IIII575757575757---5???II ---M-???7m)m)57m m 57m m 57m m 57m m 57m m 5IIII5---???7mI->7mI)>7mI)>7mI)>7mI)>7mI)>۷III --???-M ->;.MI)>;.MI)>;.MI)>;.MI)>?---??II ----????.MI->;.MI-7?---5???VII --->???-757---5???757575III ---5????-7mII:??7m)-->;.MI)>;.MI)>?---->???VII5mI 57mI 57mI 57----5????7mI 57mI 57mI 5III55757575757575 ?I 57575757575?--??VIImI57mI57mI5?;.--???7mI->7mI?-VI) --???-M ->;.MI)>;.MI)>;.--m5???.MI)>;.MI)>;VIII---????.MI->;.MI);. --??7mI)57mI 5?7m--??III --->???-7575757?---5???VII----????.MI->;.MI)>;.MI)>;.MI)>;.MI)>;. --??III- --->???-7?---5???.MI)>?---??II --???-M ->;.MI)>?--m5??NI)>.>ۛ----???IIIJ:7->J:7->IJ:7->J:7->woJ >-M????----5????->II---5???*--->???JIIJI7-????.----????NI-7I --???-M ->;NII5?-?75*>VI J)5?.5?.m????---??NI ->.>ۛ---->???wII->.>ۛ----???IIIII-?-?-?-7---->???wII575 ----5????757mI???7----?575?----???IIII ---5????-757m--??7mI)57mI 5??---??II I----5????wII)>-?-?-?.>.>VII - --???-M ->;.MI)>?---5???-M ->;w--?----?--w 5IIےJ 575----5????wI575II J:7->wo?-->?JIJ:7->IIII5555555II --???-M ->;.MI)>;.MI)>;.MI)>;.MI)>?---??II --5??wI57575757575 ----????NI ->.>-?-?-?----5????III---???m)>7m)>*---->????Nm)>*---->????Nm)>7m)>߷II II5*--5???7m57---???Nm5---???N)>VI))m 5;?7mm5??- 55m?m-->m)-?;VII II)>--5???-7-M???.--;7?--->??N5o >)?7-5?.RI ->?-757575757?-5?M5-?w)57575757575?-?M MRI7mad0[8FTav(K{IZlE1m'tZ" Q ! 9 J d  & ]   / W h $ M b %Iv```iI575757575*>Vmm)>7m)>߷JI      -M ->;.MI)>?---5???-M ->;.MI)>?---??II --???-M ->;.MI)>?---->??NI)>ۛmI 5??---??II J:7->J:7->IJ:7->J:7->woJ >-M????----5????->II---5???*--->???JIIJI7-????.----????NI-7I --???-M ->;NIIII --???-M ->;NII5?--5??wI->ۛmI 5??---??II III5?-5??- 5;-M)>7----5????wI 575I-----5????757mI???7----?5*MI)>?---??II --???-M ->;.>. --????.mI->;.MI)>?---??II -----5????wII)>-?-?-7575II --???w--?----?--m)M۷IIJ 575----5????wI575II ?7-5?.o -->?JIJ:7->IIII5555555II --???-M ->;.MI)>;.MI)>;.MI)>;.MI)>?---??IIII 5?7-575757575*-->??VII- --???-M ->;.MI)>-?-?-?----5????m)>7m)>*---->????Nm)>*---->????Nm)>7m)>߷II II5*--5???7m57---???Nm5---???N)>VI))m 5;?7mm5??- 55m?m-->m)-?;VII -??7m)>7m-?7->?- m >7mI->?;.-- ->;?VII )?7-5?.RI 575757575w w575757575IRRIm)Ma,d0[8HVcx;f2o +h=`Ha'Z + h  8 f ~  K r / \ l  I v #C{ !!!*I575757575*>Vmm)>7m)>߷JI      W L WXY Z[\ L]WXY W[ZY :Ym]Y\8Y`JwJMJMJJoJJNJnJ1JMJMJMJ6J-JvJMJMJ JJMJJvJJNJJ7@@C?.- ??N -5?*m ->??w- -7mu)->?7m:w)>?7-u ---5??w)>.>.N Mm57m57m5??-NMm57m57m?N Im 57m 57--->?.M)Nm57--?-->7mum)>7m)?w57uI-->?w m:?7--N>-5?757m:?.-Nr?-?-?N.-5?w)>.>?.-NRR?mJ?--->??oIIRJJMJMJ-JJ-.-N-->?7m:?.M:?7--N-->?7m:?.-7uI)->?7m7m5??-uMm57m5??.-57mu ->7->7->7-N6I575m5??-Nm57-5?7m57mu5757m:?.-N m 5??.--57m 57m uM)>7- 5??7m->7m)N3)??. 57m5??-N-??. 5??.-7uI3)??. 57m??w--N-??. 5??.--->?7m:?N)>?7-u )->?7m:?. 5??-N--->?w 57uI3)??. ?m5??-N)??. 5?w)>?7-u 5w:.N5w:.MIwwu-I??.-*-5??VI NwuI.-??N)?.uI3)-n- n- s--N)??. 57-->7mu--7m?7m57-u J)??. 7m5??-N1-??. 57m5??>??wmu ? m:? ?wm??NuIm1w)?-7Mu)->?7M?M??-u57 )>757?u?575?.N ->7-NN I:.??7--;.N 7MRRI:?7-- 7uII ?-?-?NI )??. 57m5??-N1->w57?7-us-??N)?m??.-uN-??N)?N5??.-NI57m??7--7u ad)<CO[l|#2EW`ju&9KYiz"4D]p &,28>DJPV\bhntz" 575w:.Nnm57m ) ???.-----     ---5?????.----????.---???--NI?RII????7----5????7----5????7----5????7----5????7----5????III@@@@15X1,Y:3:X,YX10,Y::1:VIII?m)5w:VII575---??w-IIII:-;.M5??7m)>߷II?I??.M5;.-;.M??VIII?m)757m)?IIߒI??.M5;.M5;.M??VIINI??757--;.M??IIޒI??757--;.>VII5I?m)7m?7m)>?III;.M5;.-->7m)>߷III:?575m??III?m)>-m)?III?-5m)???N 5I-I??757--7??VII?I?m)7--;.M?III??wI75III?m)>w-;.M?IIwI?m)>w-->m)?IIR:R M :u -I>-M???7---?5VI :RI:?wI:?RI -I7-???7---?.??m???m5III*--w--*--޷II:m)w)m) )7m?I 57R6I:75wIw75I Imm??w)??mmIINR7m:??N5I u ?*-RIRIJI I?m)>7m)>7m)?II->.>.?I I?m)>ad(:ISbp7Mgz+D_v5Fg :Rs1IZr '=Si~)>P^owI7575w:V m57mR-I7m?    7  M ?@@@@ MEMORY LANE =========== =I5;.MI5;.MI5;.MI5?;w---5?II*MI)>;mI5wm)>w-5?w5II*MII5;.M)M)>;;.M)M)>;;.M-m)>?????-m)-۷III*MI)>?-M-??w-5?--??-M ->;VIII*MI5;.MI5;.MI5?;w---5?wI)>---???MII*---5????NI)---->???IIII-M)5;.MI5;.MI5;.MI5;VII J--???-M)5;.MI5;.MI5?;w---??VII* -???7-M)5;.MI5;.m -???7m-;.>MIIJ--->???-M 5;.MI5;.m ->???-m57-> * -???.m)757575II --->???.>.--???NI5---???VIIII:.>--->??w)>.>.>.-5?I*M5????-M ->;.MI)>?---->??NI)>---???MII75757m-???7-M)5;.MI5;.MI5;.MI5;VII 55*>.>.>.>.>V 5-5?w)>.>.>.>-o 55757mI7m)7-5?7m;.M)۷II 55757575757575 * - -?????7m m 57m m 57m m 57m m 5IIII* -???7;.MI5;.MI5?;w---5?II55757m--????.mI->;.MI)>;.MI)>?.---??IIIJ--???-M -757mII:?---??II III 575---5????-MI57mI 57mI 5??---->??VIIJ--???-M ->;.---->????.?---->???VIIII)->?-7m???.--757575IIJ---7mII5۷IIIImI 57mI 57-M -??--?w57575II-----5????wII)>-?-?-?->7----5????III--->?75757575757-->?I 5w5w5w5w5w5w5 --->?w 575757575-->?I J ?--???----;7->7->II----5????oII )?7-?RJ--->???-M 5 5??---??II -----5????wI57575757575IImmI 57mI 57mI 57mI 57mI 57mI 5??---??II mmI 57mI 57mI 5wmI5wm)>w-5?w5IImmII)>7mII)>7m m 57m m 57m m 5wm-m5?w-M->IIIImII57mII;m w->mmI)I)>;.MI)>;.MI)>;.MI)>?---??II ----????.MI->;.MI)>;.MI-????.---;.>.>VIII --???-M ->;.MI)>;.MI)>;.MI)>?7m -->?;w---??VII----????.MI->;.MI)>;.MI-????.---?7m -?7mI)5III --???-M ->;.?---???NI->ۛmI757mI5??--?IIImI)>7m -?7m-??.-??. -?7m -?7mI)5III5575757575757---5???II mmII)>7-MI)5?;7-mI-5??7mm) 5;7m)-M5;?7m m 57mII)>۷IIIIM-MI5;7-mI5?7mm 57m)M5;7m m57mI-5?7mI)5?۷III --???-M ->;.MMI)>;.---???III-----5????75757---->???75757----5????III-----5????75757---->???757575III --???-M ->;.>.MI??;.M)-57mI 5;w---->???VIImmI 57mI 57mI 57----5????7mI 57mI 57mI 5III--5?w575757575-5?I I)-->??N57575I5?-?75*>VI J)5?.5?.m????---??-VI)I)?--??-M ->;.MI)>;.---->????.MI)>;.MI)>;VIII----????.MI->;.MI);.---????.MI->;.MI)>;.---???III --???-M ->;.>.>.>.MI)>?---??II ----????.MI->;.MI)>;.MI)>;.MI)>;.0&"alt enrty for calc cost>A0:"null for costMHLF0.0333gHP(2,0)1HLFHLF2HP(0,0)HP(1,0)HLF(HP(3,0)HP(5,0))30CE3413:" Heat Loss = c * HLF * (Thot-Troom) * 30 days * Cost of Elec / BTU per KWH)HP(0,1)HP(0,0):":"no title on column 2>4:"Hot Water Heater:"JH7:"Temperatures:"SR: e\"fetch value{fIBHP(I,IA)::" p"store valuezHP(I,IA)IB:" "calculate cost940:(I3)930HU(0,0)0:I16:1350:HU(0,0)HU(0,0)A::I3:A" Tools ";:;" Lights ";:a"Cost per Kilowatt-Hour..$";CE: "hot water parameters :TI$" HOT WATER PARAMETERS " IE5:"items to listN2:"2 non-item lines NC1:"1 column*C1194UN$""" Hot Water Usage ";:>" Heating/Cooling ";:^" Refrigerator/Freezer";:}" Range/Oven ";:" Laundry (Cleaning) ";:" Misc Kitchen Appliances";:" Grooming ";:" Entertainment ";:ear prev choice IIA% :620:/ &5920? 0500:"loopT :IIEİ4060:210_ DLASTIi N4470 X7686:"dump 21 lines to printer b450 l36,0:(I3) vI640,650,660,670,680,690,700,710,720,730,740,750" Hot Water Parameters";:...................";$ AST:6080T "Original Total.........................";c AGT:6080m 6060 5500:"part A I2600:"wants to run printer ILB :620: 5890 A27İ620:450:"27=escape A13570 620:"clSTA "6080:"format cost% ,I:1 6I = IE@ @620:6060N JI1IE1x T::LASTI:I0:IA0:4350:ILAST:LAST0 ^::A((IB)(ST.0001)100) h::(3I) r::A$((A)):36,(30(A$)):A$;"%" |I 36,0:(IE5) "Grand Total.........LAST1 " summary screen , LBLASTa LAST0:"LAST = 0 to keep out of ON LAST GOSUB'sk :: TITLE$" SUMMARY ":6010 IE12:"12 choices" ST0:"subtotal for % calc I1IE1:620 LASTI:I0:IA0:4350:ILAST:AIB ST printer with CALL 768+6" 26250P <UN$"dogfood":"don't ever let this printZ F4180 P1:(7);"Press any key to continue "; ZA$ dGTSG nI0 xLAST1IL(0) ::IA0 ::4350:"fetch into IB ::IA1 ::4380:"store  D "revised 8/03/85!::n(64435)6Ĺ49162,0:(4);"PR#3":(17): "40 col, //e firmware active ((4);"BRUN UPPER.DUMP":"install printer dump, and map output to lower case for pre //e Apples. Must be un-hooked with CALL 768+3. Dump to                     RI;--;VII?RI;.M5;-->*-NRI??w m??III?5->.?VI5757575I7?N57-7?VI I III:??7--->??7--->??7--->??II @@@@CRE 2 i& PG3100:SC2:310:T$"Pretes5?5757?I ?RI??mm57mm5IIIRI:?7m)>7m)>߷II-RI:?m)>7m)?II?RI:?7m)>7--;.NI?RI??m)>w-->.NNRI:?7m)75IIߒRI??m?w ??VIII:.??w)>.IRI;.M5;.M?IIRI;.M5;-I RII:7mm57mm;VIIIIII:??II wRߒRI??m)>7m)>?II37m??.M5;.M??VIIRRI:?57m?I I75??m)>7m)>?II-RI:?m)>??.M??VI 6I?5-75I MRI??m)>w-->*-N7m??.M5;.M5;VII5w:.>.>V oIw:w575w-N7m)7-5?7m;VII)w-m)?III??w)>.>.>VI3I;.M5;.M5;.M?IIMI;.M5;.M5;-I II7mI57mm57---5??VII I;.M?w?m)>߷IIvI;.M5;-75I uI??wIm??II-I??.>.>.M:?IIwwJI??N)>.>.>?II-I?--???w 5757?I -II:?575m)?II II:;.M7-7m)II 775757m??VI nII7-M->7mm57mI5۷IIINII:;.m)>?7--->?7m)5II I??m 57m 57m ??VIII??.M5;.-75II I??m 57m 57m-??IInI??.M5;.--?7m;VIII?m Clothes Dryer ";:2710=!d " Iron ";:2720_!n " Sewing Machine ";:2720!x " Vacuum Cleaner ";:2720! " Dishwasher ";:2730! " Disposal ";:2730! :36,28:"Loads";:! :36,28:"Hr/Mo";:" :3,1)IB:4180  "calc; ALC(I,0)LC(I,1)CE1000r  I1I2AA2:"figures on a 30 minute load cycle~  I5ı ( AA30: 2 "print line < 36,0:(3I) F I2640,2650,2660,2670,2680,2690,2700 P " Washing Machine ";:2710!Z "0#j "Microwave Oven ";:2420<t :36,28:"Hr/Dy";:U~ :36,28:"Hr/Mo";:e LAUNDRY { :TI$" LAUNDRY " IE7 N0 NC2 C119:C224 UN$"Watts"  IBLC(I,IA)::"fetch LC(I,IA)IB:"save I1IA1HU(336,0 I4Ģ(4I):2350%$ (5I)J. I2360,2370,2380,2390,2400,2410k8 " Baking ";:2430B " Broiling ";:2430L " Self Cleaner ";:2430V " 6 ";(34);" Burner ";:2420` " 8 ";(34);" Burner ";:2420:4:"Oven Attributes:"58:"Range Attributes:";>IE6FN2ONC2_C119:C224oUN$"Watts"uIBRO(I,IA)::"fetchRO(I,IA)IB::"save"calcARO(I,0)RO(I,1)CE1000I4ıAA30: "print line ic Feet ";:21206 " 15 Cubic Feet ";:2120X*" 12-15 Cu Ft (man) ";:2120z4" 12-15 Cu Ft (auto)";:2120>" 15-20 Cu Ft (auto)";H:36,28:"Hr/Dy";R\" RANGE/OVEN f:TI$" RANGE/OVEN "p2:36,20:"Watts"z36,tts" "fetch(IBRF(I,IA):3"saveERF(I,IA)IB:P"calcsARF(I,0)RF(I,1)30CE1000:"see line36,0I3Ģ(4I):2060I6Ģ(5I):2060(6I) I2070,2080,2090,2100,2110,2090,2100,2110" 10 Cub ";":36,28:"Hr/Dy";(E&" REFIGERATOR/FREEZER g0:TI$" REFIGERATOR/FREEZER ":4:36,0:"Refigerator:"D2:36,16:"Avg"N7:"Refrig. + Freezer:"X11:"Freezer:"bIE8lN3vNC2C119:C224UN$"Wa0#" Multiple Rooms ";:1810E" Fan (Gas/Oil unit)";:1810g" Heat Pump ";:1810"Electric Furnace ";:1810"Attic Fan ";:1810"Window Fan ";:1810"Dehumidifier ";:1810 "Humidifier^"savehHC(I,IA)IB:*r"calc costM|AHC(I,0)HC(I,1)30CE1000:]"show liney36,0:I4Ģ(I4):1700(I5)I1710,1720,1730,1740,1750,1760,1770,1780,1790,1800" Bedroom ";:1810" Family/Living Room";:18190:36,28:"/Day";:1:36,28:"/Mo";:J" heating/cooling h:TI$" HEATING/COOLING "36,0:4:"Air Conditioning:"8:"Heating:";IE10N2"NC2,C119:C2246UN$"Watts"@J"fetchTIBHC(I,IA):(I3)-I1430,1440,1450,1460,1470,1480P" Showers ";:1490s" Tub baths ";:149036,2:" of Laundry ";:150036,2:" Dishes (hand) ";:149036,2:" Dishes (auto) ";:1490" Other Uses ";:14tchHU(I,IA)IB:"save-(I3IA1)ıY(4180:"re-calc, let them do the returni2"cost calc<940:"make sure cost per gal is currentFAHU(I,0)HU(I,1)HP(1,1)PI3ıZAA30:d"show linen36,0xI3Ģ(I4):1420 " hot water usage 8:TI$" HOT WATER USAGE "AIE6mN1:"# of lines to skip for extra textNC2:"# of columnsC119:"col 1 starts at 19C225:"col 2 starts at 25UN$"Gals"6:"Loads:" IBHU(I,IA)::"fe ";:1130+B" Insulation ";:1150LL" Hot Water ";:1140mV" Cold Water ";:1140`" H.W. Heater Room ";:1140j:36,25:"Gal";:t:36,25:"Deg F";:~36,25:HP(2,0)1ĺ"Average";:"Extra ";:this is a dirty patch to make things workcHP(1,1)(HP(3,0)HP(4,0))8.33CE3413:"cost per gali|"display line36,0I6Ģ(I6):1070I3Ģ(I5):1070$(I4).I1080,1090,1100,1110,1120,2620,2630 8" Capacity 011(SO)Q1&LAST880,1300,1630,1970,2260,2530,2830,3150,3460,3710,3970W10a1:(CC)1DLAST900,1330,1650,1990,2270,2560,2840,3160,3470,3720,39901N1X(SE)1bLAST1020,1380,1670,2020,2310,2610,2880,3200,3490,3740,40101l2v" )!0::::4410:"get cost into A10::::STSTA:0::Ig0::I0:IA0:IBST:4380:"store new totalv0::SGSGST0LAST0IIC:IAID:LASTIG00 "the big selector 0(FE)1LAST860,1290,1610,1950,2250,2520,2820,3140,3450,3700,3950ı/,(A$).5ı'/621:36,0:958Q/@" --> Re-calculating all data <--"^/JCE(A$){/T" calculate all costs /^ICI:IDIA:IGLAST/hLAST1/r4410/|SGHP(0,0):"this is for heat losses/LAST2IL(0)/::ST00::I1IL(LAST .I4040'." Lights ";@.:36,28:"Hr/Dy";:d." change cost of electricity x.21:36,0:958."-> Change Cost of Electricity <-".23:"Enter New Cost $ 0";.CH(36)1:CE;.36,CH:"";A$.(A$)0ı/"(A$) ";:2720- LIGHTS 0-(:TI$" LIGHTS "9-2IE1A-<N0J-FNC2Z-PC119:C224j-ZUN$"Watts"p-d|-n"fetch-xIBLT(I,IA):-"save-LT(I,IA)IB:-"calc cost-ALT(I,0)LT(I,1)30CE1000:-"print line.36,0:(3I)" 1/4";(34);" Drill ";:2720F," Lawn Edger ";:2720g," Hedge Clippers ";:2720," Jig Saw ";:2720," Lawn Mower ";:2720," Sander ";:2720, " Soldering Iron ";:2720 -" Table Saw +tIBTL(I,IA)::"fetch 4+~TL(I,IA)IB::"save?+"calc_+ATL(I,0)TL(I,1)CE1000:p+"print line+36,0:(3I)+I3770,3780,3790,3800,3810,3820,3830,3840,3850,3860+" Circular Saw ";:2720+" Chain Saw ";:2720%,10$* " Movie Projector ";:3610F* " Video Game ";:3610h*" Video Recorder ";:3610*" Microcomputer ";*:36,28:"Hr/Dy";:*$ TOOLS *.:TI$" TOOLS "*8IE10*BN0*LNC2*VC119:C224*`UN$"Watts"+j:) "print line$) 36,0:(3I)X) I3520,3530,3540,3550,3560,3570,3580,3590,3600z) " Color T.V. ";:3610) " Black & White TV ";:3610) " Radio ";:3610) " Stereo ";:3610* " Slide Projector ";:36:36,28:"Hr/Mo";:-( :36,28:"Hr/Dy";:C(* ENTERTAINMENT _(4 :TI$" ENTERTAINMENT "h(> IE9p(H N0y(R NC2(\ C119:C224(f UN$"Watts"(p (z IBEN(I,IA)::"fetch( EN(I,IA)IB::"save ( "calc) AEN(I,0)EN(I,1)30CE1000 ";:3360/' " Hard bonnet ";:3360Q' " Soft bonnet ";:3360s' " Hair Rollers ";:3360' " Heating Pad ";:3350' " Shaver ";:3360' " Sun Lamp ";:3360' " Elec. Toothbrush ";:3360( AGM(I,0)GM(I,1)CE100030,&l I7AA302&v C& "print lineM& 36,0c& I3Ģ(3I):3240n& (4I)& I3250,3260,3270,3280,3290,3300,3310,3320,3330,3340& " Electric Blanket ";:3360& " Curling Iron ";:3360 ' " Hand held ";!% :36,28:"Hr/Mo";::% :36,28:"Hr/Dy";:K% GROOMING b% :TI$" GROOMING "|% 6:"Hair Dryer (S):"% IE10% N1% NC2%& C119:C224%0 UN$"Watts"%: %D IBGM(I,IA)::"fetch%N GM(I,IA)IB::"save%X "calc&b :3030'$ " Dutch Oven ";:3040H$ " Frying Pan ";:3040i$ " Griddle ";:3030$ " Mixer ";:3030$ " Sandwich Grill ";:3030$ " Slow Cooker ";:3030$ " Toaster ";:3040% " Waffle IronAMK(I,0)MK(I,1)CE1000:.#@ "print line?#J 36,0:(3I)#T I2910,2920,2930,2940,2950,2960,2970,2980,2990,3000,3010,3020#^ " Blender ";:3030#h " Can Opener ";:3030#r " Coffee Maker ";:3040$| " Pressure Cooker ";6,28:"Hr/Dy";:)" " Misc Appliances O" :TI$" MISC KITCHEN APPLIANCES "Y" IE12a" N0j" NC2z" C119:C224" UN$"Watts"" " IBMK(I,IA)::"fetch" MK(I,IA)IB::"save" "calc"" A30", I1I4(I7I10)I12A1#6 A00"$AA0(((A)((A)))10000.5).A6200MA(A).995A$A$"0":6180dAA$A$((A.005))A$A0(((A)((A)))100.5)A.A$A$"."A8A0100A099ABA010A$A$((A0)):6230ALA$A$"0"((A0))AV36,(40(A$)):A$;A`:" 168,0@p: '@z1:36,(20(TI$)2)4@:TI$:G@36,5:"Item";\@36,26:"Usage";q@36,35:"$/Mo.";@I039:"-";::@: @"formatted dollar output@A0ĺ:@A$"$"@(A)1A$A$"-"@(A)0.016160AA$A$"0.36,0:958:"ClrEOSC?"Select item to change, to cancel";M? 5970n?*A8A11IAI1:IA1IAIE?4A10A21IAI1:IAIEIA1?>(A8A10A11A21)IA1?H: ?R49168,0:"clear strobe?\A(49152):A1285980@fAA128:49quit?">I1::5850::5870->IE2:5920<>A275830K>A135820d>5850::IIA:5850:q>5770: >I2ġ:7010>IEIZ>5500: >24:I5860,5870>36,10:" No ";:>36,20:" Yes ";>: >"step thru list? 21:rint Results ";:&=LAST05680F=&" Leave this screen ";:f=0" Quit this program ";:m=: w=DIEIZ=NA27LAST05730=X(LAST0I3)ı=b21:36,0:958=l"At the Beginning/End of this program,">v"Do you really want to "ClrEOS*<"Select Option: (use arrows)"=<I13:5630:E<I1S<:5630:]<5920q<A13A275700<5630:"Clear prev choice<IIA<:5630:<5570: <36,3:21I:I5640,5650,5660<" Change Data ";:=" P(A$)):A$;;6: *;@"print on printerG;J7686:"prints 21 linesd;T4690:"go back for more~;^"return to main menu;hI0:IA0:IBST:4380;r190:"quit this screen ;|"the part (a) stuff;IZIE:IE3:"save old IE<21:36,0:958:60806:"Cost due to Heat Loss..................";a:AIB:6080:"let 36000 do the return u:IA15360,5400:36,C1:5);:"watts:4350:A$(IB):36,(C15(A$)):A$;::36,C15:3);:"useage:"4350 ;,A$(IB):36,(C23:ICI9dI0:IA1:4350'9nIAID:IIC89xLAST15300A9ASTq9"Item Total.............................";{960809"Original Total.........................";9AIB:6080:" 9AHP(1,1)9"Cost per Gal. Hot Water................";:H:"";A$8A(A$)8CV:8((A$)0A$(A))4850L84410:STSTAX8A(A$)g8IBA:4380w85140:51908 4850: 84410:"calc cost8STSTA8(CV(37)1:36,33:868:CV8260808<: 8F36,0:(IE5N)8P7509ZIDIA5350:IANC1:4890:" 47j"change val in xx(i,ia)S7tCV(37)1:21:36,0:958u7~"Enter New Value ";:CH(36)743507IB;723:36,07"Type new value then press , or"7" just press to cancel entry.";:21836,C$;" or Usage"=6:" to Cancel, to Select";G64440U6:5350:r6$5970:"get any keypress6.A134970:"got the one to change 68A27İ5350:47506BNC149006L(A8A10A11A21)49006VIA1İ5350:IA0:48907`4440:4690:"no more changesS5IAI4830:"pressed bad key, ignore, get anotheru54440:"un-invert last choice~5IIA5:4440:"invert current choice55920:4770:"loop 5IA0536,0:21:958 6NC2ĺ:" Use Arrows to Choose ";UNint on printer14fI035470: "quit this screenJ4pA275470: "escapeu4z"elected to change data, lets move!!!4I1:"start at the begining4:444045890:"want this one or another one?4A134840:"want to change this one!5A27Total3I1IE*3::4440:"show entry;3::IA0NC1I3::::5350S3 ::IAx3::5140:"calc cost and keep sum3 I3*36,0:(IEN4)3460603>5190:"print the 'bottom' line3H60603R5500:"select menu (part A)4\I025440:"pr The main screen routine Y2LAST760,1190,1510,1830,2140,2440,2740,3050,3370,3620,3870r21:36,(20(TI$)2)2:TI$:2IEIL(LAST)236,5:"Item";236,20:UN$;236,26:"Usage";236,35:"$/Mo.";260603ST0:"zero the Sub- 堽נײ䍍נ堽 沍堽ⳍ㠽㱠 幵 ң֠Í z ۫ ͮ      LgL67()    ( ɠ (  ()67`STIͳ ST` lSTI`H h)HhlΰLO"C"RUN HELLO",1,120,1K"toolsYK1150,1,1380,1,290,1,480,1,290,1,290,1,1200,4,300,1,120,1,1380,1fK&"LightsqK0300,5K:"Error CheckingKD"EOD"KNHP(1,0),HP(1,1)KXHP(0,0),HP(0,1):7683:Kb7683:"unhook fancy I/O junkKlLv(4);"RUN HEL Data-J385,1,250,.5,1500,.5,1300,2,1300,5cJ1150,.5,1200,2,100,2,1150,2,200,12,1200,2,1200,3wJ"Grooming DataJ175,6,40,.1,1000,.2,1200,.5,400,.5,350,.2,65,4,14,.1,250,.2,7,.2J"entertainmentK200,6,55,6,75,1,110,1,150,2,150,2,30,1,3040,4,175,2!I"Ref/Freezer DataVI 69,0,81,0,127,0,195,24,206,0,132,0,203,0,222,0lI"range/oven dataI3200,20,4000,2,3600,1,1300,.5,2400,.5,1450,1I"Laundry/Cleaning DataI500,20,5000,8,1000,8,75,8,650,4,1200,1,440,.5J"Misc Kitchenlements in parameter arrays=H@11,5,6,10,8,6,7,12,10,9,10,1\HJ"hot water parameter datapHT50,1,140,60,68H^"hot water dataHh5,3,20,2,20,20,5,1,10,1,10,1Hr"Heating/Cooling DataH|900,6,1500,6,3000,6,330,8,0,0 I20000,0,375,6,200,3,2GI1IL(7):MK(I,0),MK(I,1):BGI1IL(8):GM(I,0),GM(I,1):dGI1IL(9):EN(I,0),EN(I,1):GI1IL(10):TL(I,0),TL(I,1):GI1IL(11):LT(I,0),LT(I,1):GA$G"A$"EOD"ĺ"ERROR in Data Statements":7010G,H6"IL = number of e FIL(0):FI1IL(0):IL(I)::" IL is size of paramsTFI1IL(1):HP(I,0):vFI1IL(2):HU(I,0),HU(I,1):FI1IL(3):HC(I,0),HC(I,1):FI1IL(4):RF(I,0),RF(I,1):FI1IL(5):RO(I,0),RO(I,1):FI1IL(6):LC(I,0),LC(I,1): EF"and it will move the other way.=EP24:"Initializing";^EZCE.045:"cost of electrictymEdHLF0.0333En"punch values into arraysExIL(12)EHP(8,2),HU(9,2),HC(10,2),RF(8,2),RO(7,2),LC(8,2)EMK(13,2),GM(11,2),EN(10,2),TL(11,2),LT(2,2)he left arrow will go up or left.ND"The right arrow will go down or right.yD"The actual direction depends on yourD("position on the screen. If you needD2"to move right and the cursor will onlyD<"move up/down, press or "$ress the key to moveKC"into the program. Press the key sC"to return to the previous screen.yCC" To move the cursor, use the arrowC"keys. At any given moment the cursorC"has only 2 directions it can move.!D "TBj"Bo" INSTRUCTIONS"KBt" This program operates much like pB~"a spreadsheet. There is an ";B:"inverse":B"cursor that highlights your currentB"choice. To select this choice, pressB"the key.BC" P 占፠䠣፺፠ײ 􍍍㠢ΰ ΍򠪯䱍䠽ᠣ占 占Ġᵳҍ덠덠Ġײᵳ Ġ򠣤፠ᠣ占𠣤對占Ġ׻׍󍍪 ۫Ġᵳײ占Ġ占Ġһ򠣤ᵍᠨ婬ᠣ ɍ𠣤ᰠ堺 占ᠣ 󍺱 䍍􍍠堻 卍ĠĠ׻׍Ġ卍ᠣ􍍠 󍍠 ፠㍠ ᠣݱݲŠ ұҲٍ֠ݱݲ΍Š ҲƠݱ ұҲ֠ݱݲŠ ұҲ֠ݱݲ΍΍΍捠砤덍ݱݲĠÍ֠ݱݲƠݱ ұٻٍƠݲ ұٻҲٍ֠ݱݲŠ ұٻҲ֠ݱݲ΍ōƠݲ ҲٍٍƠݱ ұҲٍ֠