Ž.(.ÁA1¤A2¤DDN¤M¤K¤KPD¤PRNT¤R¤MINCÄMINHÄFCTÒNÒÙUNITÓDAYÓNEÔGUNITÓGNEÔHÄCÄLOYÒHIYÒÂÃÚÔØUÐDÄKPÄCL±CL²CL³CL´ANEÔAVÇYÒUSÅCOSÔDDÔDIÖDDAVÇTIMÅSEÔHÌLINÅ@H  A` A A A @% @AB@(@(…@X@S7AE@y@@e@x@&AB@ @!"#@(…$?I%&'()*+,-.  (}@‚( THERMOWATTS""( GAS & ELECTRICITY($!( ANALYSIS PROGRAM$(2"( BY JOE HARB"(<e(e(ZDURING OPERATION OF THIS PROGRAM, DO NOTDEPRESS RETURN KEY AFTER TYPING ANSWERS TO PROMPTSFo#@@K:oOPEN KEYBOARD TO GET INPUTS WHEN GET STATEMENT IS USED THROUGHOUT PROGRAM›P:('(DEPRESS ANY KEY TO CONTINUE.4)@€:(}d]];@ ,‚;@,ƒ;@,„;@,…;@,†;@,‡;@e,ˆ;@,n]6‰-A6Š-A'6‹-A]MINCD=MINIMUM COOLING DAYS NECESSARY FORCOMPUTATION›xllA1$ & A2$ ARE USED TO PRINT VARIATIONS OF THE WORDS KWATTS OR THERMS SO ONE SUBROUTINE CAN BE USED FOR›‚$$ELECTRICITY OR GAS COMPUTATION›ÈaaCALCULATE: TOTAL MONTHS OF DATA (NR); LOW YEAR OF DATA (LOYR); AND HIGH YEAR OF DATA (HIYR)›Ò6Œ-Ü"„Ž‘’“”æVVM$=MONTH, Y=YEAR, UNITS=KILOWATTS USED & GUNITS=GAS THERM USED IN BILLING PERIOD›ð((DAYS=NR. OF DAYS IN BILLING PERIOD›úSSNET=COST OF ELECTRICITY WHEN BILL PAID ON TIME, GNET=COST OF GAS PAID ON TIME›iiCALCULATE NR. OF MONTHS OF INFO IN DATA BASE(NR), HIGH YEAR OF DATA(HIYR), & LOW YEAR OF DATA(LOYR)› 6•- #"„Ž‘’“”" „4END# A ,6Œ-Œ%@6–-6 A€òjjSUBROUTINE TO GET INPUT FOR MENU OPTIONS A, B, E, F; THEN CLEAR INPUT QUESTIONS FROM SCREEN TO ALLOW›ó DISPLAY OF ADDITIONAL DATA›ô\5(-TYPE FIRST THREE LETTERS OF MONTH YOU WANT.B)@€O)@—\)@˜þDDNEXT LINE CONVERTS ATASCI VALUES TYPED ON KEYBOARD TO A STRING›G 6….>:€,#6…7B:…,%@,.>:—,:6…7B:…,%@,.>:˜,D A0G$p @„F:@„,&@4™-@`(' d ™p39 SPACES›# @„F:@„,&@#$è((JAN,79,624,16,26.20,51,36.18,984,0›é))FEB,79,602,31,25.98,60,42.40,1100,0›ê))MAR,79,536,29,21.65,55,40.61,520,15›ë((APR,79,454,30,19.80,49,35.20,354,4›ì((MAY,79,527,32,27.91,40,31.55,75,72›í((JUN,79,768,29,38.46,33,22.75,6,183›î((JUL,79,1281,30,55.65,10,9.04,2,348›ï&&AUG,79,691,29,36.45,8,8.50,3,341›ð**SEP,79,1242,32,52.16,12,14.26,22,145›ñ))OCT,79,571,30,24.43,20,20.11,311,28›ò((NOV,79,686,32,27.92,32,25.67,425,1›ó((DEC,79,688,31,26.75,49,40.03,757,0›ô((JAN,80,619,28,24.45,53,38.88,962,0›õ((FEB,80,527,32,20.97,57,45.98,967,0›ö((MAR,80,520,29,21.41,50,41.09,723,0›÷((APR,80,521,30,24.64,39,23.05,273,0›ø((MAY,80,591,32,34.82,22,18.97,74,97›ù((JUN,80,739,29,37.98,16,10.49,6,203›ú((JUL,80,1603,30,98.70,11,7.43,0,415›û&&AUG,80,838,29,53.52,8,6.66,0,431›ü**SEP,80,1530,32,74.26,15,10.77,20,245›ý))OCT,80,589,30,30.45,28,22.84,311,17›þ((NOV,80,690,33,30.21,33,27.64,620,0›ÿ((DEC,80,770,31,33.04,41,34.49,908,0›))JAN,81,642,28,28.85,58,53.37,1145,0›kEND,999,0,0,0,0,0,0,0›ÏMENU SUBROUTINE›Ð>;(3THIS PROGRAM ALLOWS THE FOLLOWING SELECTIONS:>(Ú<<(4 A. TOTAL MONTHLY AND AVERAGE DAILY KILOWATT USEä==(5 B. TOTAL MONTHLY AND AVERAGE DAILY KILOWATT COSTî44(, C. TOTAL ANNUAL KILOWATT USE AND COSTø44(, D. PRINTOUT OF ALL ELECTRICAL USE DATA==(5 E. TOTAL MONTHLY AND AVERAGE DAILY GAS THERM USE ::(2 F. TOTAL MONTHLY AND AVERAGE DAILY THERM COST//(' G. TOTAL ANNUAL THERM USE AND COST ,,($ H. PRINTOUT OF ALL GAS USE DATA*''( I. DATA INPUT INSTRUCTIONS4( J. EXIT PROGRAM>XXGET IS USED TO DETERMINE LETTER TYPED ON KEY BOARD; A=ATASCI VALUE OF LETTER TYPED›H9&(TYPE LETTER OF OPTION YOU WANT3)@€9(}Rw6š-#€"@eA0wT IS FLAG TO TELL LATER SUBROUTINES WHETHER GAS OR ELECTRICITY ANALYSIS REQUESTED›\€"@fA@f€"@gAPpS€"@h/@@P:9 A`SOPEN CHANNEL TO PRINTER›z#6š-@#€"@iA0„€"@pA@Ž€"@qAP˜9€"@r/@@P:9 A`¢€"@sAp¬$€"@t!@‚@$· ''SUBROUTINE FOR MENU OPTIONS A & E›¸ A &š"6ƒ.COOL&6.KWU Ì &š"@6ƒ.HEAT&6.THERMÖ C,(" AVG TOTAL AVG C15 SPACES BEFORE AVG›à **( TOTAL DAILY ƒ USEê ,,(   DGREE PER ƒô //('MONTH USE USE DAYS DGREE DAYþ ™-@Œ "„Ž‘’“” „0…A2  6›-Žš"@6›-‘& Y6œ-P:A$›','AYCOMPUTE UNITS PER DAY AND LIMIT DECIMAL PLACES DISPLAYED›0 #š"6-”#”!‰A1P: 1š"@6-““!Š'6‹-1 A1PD ! ”‰)“Š6†.N/A! A1pN X06ž-P:A$+›&‹,'++'@0,$,,'A96†.=:ž,XCOMPUTE UNITS PER DEGREE DAY›X 66LINES 3170-3190 ALIGN AND PRINT SCREEN DISPLAY›b \6Ÿ-@&B:=:P:›,,,16 -@&B:=:P:œ,,,E6¡-@'&B:=:,,\6¢-@2&B:=:P:ž,,,l O(„  "-ŸF:@„,'(›6- F:@„,;(œJ-¡F:@„,O(v -¢F:@„,(†€  ™ #Š L(?(4DO YOU WANT TO LOOK AT ANOTHER MONTH? TYPE Y OR N.L)@€” -€"@‰ A0# A- A0pž  (} A Ÿ''SUBROUTINE FOR MENU OPTIONS B & F›  Aª%%(MONTH TOTAL TOTAL UNIT´'6.KWU š"@'6.THERM¾;%(  COST COST;9 SPACES BEFORE A1$›È™-@ŒÒ"„Ž‘’“”Ü„0…AAæ' 6›-Ž6£-š"@!6›-‘'6£-’ð: 6¤-P:B$+£'›,,'B:CALCULATE COST PER UNIT›ú.6Ÿ-@&B:=:›,,.6 -@&B:=:P:£,,,U(„ -ŸF:@„,((› 7- F:@„,<(£Q-@%F:@„,U(¤  ™ # (L(?(4DO YOU WANT TO LOOK AT ANOTHER MONTH? TYPE Y OR N.L)@€"-€"@‰ A0# A- A@@, (} A ‡''SUBROUTINE FOR MENU OPTIONS C & G›ˆ'š"6ƒ.COOL'6.KWATTS’3š"@6ƒ.HEAT'6.THERMS36‹-œ 6¥-•¦D,( ƒ AVG D22 SPACES BEFORE DDN$›°E-(  DGREE PER DGREEE9 SPACES BEFORE DGREE›º((( YEAR USED COST DAYS DAYÄ36¦-6§-'6¨-36©-Ι-@ŒØ"„Ž‘’“”â' 6›-Ž6£-š"@!6›-‘'6£-’ì¥AQPö1š"6-””‰'6-1 AQ@1š"@6-““Š'6-1 AQ@  6¨-¨%6©-©%›&‹ 6¦-¦%›6§-§%£  ™ #(66ª-¨!66ª-P:A$©'¨,'A2Y6Ÿ-@&B:=:¦,,.6 -@&B:=:P:§,,,B6¡-@&&B:=:¨,,Y6¢-@0&B:=:P:ª,,,<8(¥%A-ŸF:@„,$(¦3- F:@„,8(§F*-¡F:@„,(¨&-¢F:@„,*(ªP'6¥-¥%@'¥ –%@AP`Z7*("DEPRESS ANY KEY TO RETURN TO MENU.7)@€d (} A o::SUBROUTINE FOR MENU OPTIONS D & H FOR (LINE PRINTER)›p6«-6¬-O(/TYPE NUMBER OF LINES PER PAGE TO BE PRINTED\)@€i)@—6­-++€&@H,$@,%+—&@H,zK3>:@',>:@V,KDISABLE EPSON PRINTER "END OF PAPER" FUNCTION›„K6.KWATTS6ƒ.COOL'š"@46.THERMS?6ƒ.HEATK6‹-ŽP7(@& TOTAL AVGP26 SPACES BEFORE TOTAL›˜O7(@ ƒ O26 SPACES BEFORE DDN$›¢L6(@  TOTAL DEGREE PERL9 SPACES BEFORE A1$›¬>;(@*YEAR USED COST DAYS DGR DAY>3¶6«-«%@6¥-•À36¦-6§-'6¨-36©-ÊWK6‡.A W65 SPACES›Ô9™-@Œ9CALCULATE ANNUAL CONSUMPTION AND COST›Þ"„Ž‘’“”è' 6›-Ž6£-š"@!6›-‘'6£-’ò¥Aa€ü1š"6-””‰'6-1 Aap1š"@6-““Š'6-1 Aap 6¨-¨%6©-©%›&‹ 6¦-¦%›6§-§%£$  ™ #.66ª-¨!66ª-P:A$©'¨,'A8%%6‡7@&B:=:¦,,<@,.=:¦,B((6‡7@&B:=:P:§,,,<@!,.=:§,L%%6‡7@(&B:=:¨,,<@0,.=:¨,V((6‡7@3&B:=:P:ª,,,<@6,.=:ª,`((@¥%A‡(6«-«%@j'6¥-¥%@'¥ –%@A`€t36«-«%@ÿggCALCULATE AND PRINT MONTHLY DATA. SUBROUTINE 6410 PRINTS COLUMN HEADINS ON EACH SHEET OF PAPER› Ad Adp =6.KWATT6ƒ.COOL&š"@26.THERM=6ƒ.HEAT]F @3 ]51 SPACES BEFORE A1$›HH @+MONTH DAILY MONTHLY TOTAL COST ƒ PER(`J @  # MONTHLY PER DEGREE DEGREE`9 SPACES BEFORE A1$›2kG @# USE USE COST  DAYS DAYU6«-«%@k9 SPACES BEFORE USE›<$F 6ˆ.JAN AfP 6ˆ.FEB AfZ 6ˆ.MAR Afd 6ˆ.APR Afn 6ˆ.MAY Afx 6ˆ.JUN Af‚ 6ˆ.JUL AfŒ 6ˆ.AUG Af– 6ˆ.SEP Af  6ˆ.OCT Afª 6ˆ.NOV Af´ 6ˆ.DEC Af¾@(} A È™-@ŒÒJJ6‡.@ Ü"„Ž‘’“”æ„0ˆAhð' 6›-Ž6£-š"@!6›-‘'6£-ú 6œ-P:A$+›',,'A 6¤-P:A$+£'›,,'A#š"6-”#”‰Ag#š"@6-“#“ŠAg"# ” ‰)“ Š6ž-# Ag,906ž-P:A$+›&‹,'++'@0,$,,'A96†.=:ž,6((6‡7@&B:=:P:œ,,,<@,.=:œ,@%%6‡7@&B:=:›,,<@,.=:›,J((6‡7@%&B:=:P:£,,,<@',.=:£,T((6‡7@1&B:=:P:¤,,,<@4,.=:¤,^%%6‡7@A&B:=:,,<@@,.=:,h4ž"*6‡7@I<@Q,.N/A4 Ag€r((6‡7@H&B:=:P:ž,,,<@Q,.=:ž,| @„ ‡†#6«-«%@«"­#6¬-@  ™ #š¬"AhP¤ˆ4DECAh`®M@(8INSERT ANOTHER SHEET OF PAPER; THEN DEPRESS ANY KEY.M)@€¸%6«-6¬-% AdÂ"36«-«%@"«"­Ah Ì$W++INSTRUCTIONS FOR PREPARING DATA LINES›X (}6®-Œ%A ™bKH(@FOR EACH MONTH OF DATA YOU HAVE, YOU MUST TYPE ONE DATA LINE.K(l11()THE FIRST DATA LINE MUST BE NUMBERED 1000vVV(NAFTER THAT, EACH DATA LINE MUST BE NUMBERED ONE HIGHER THAN THE LAST, FOR€IF(>EXAMPLE 1000 MUST BE FOLLOWED BY 1001, 1002, 1003, 1004, ETC.I(ŠJ=(5DEPRESS ANY KEY WHEN READY FOR NEXT INSTRUCTIONS.J)@€”&&(REQUIRED FORMAT FOR DATA LINE:ž55(-1000 DATA OCT,82,1350,30,79.25,40,35.20,675,0¨(DATA ITEMS ARE:²))(!1. MONTH; MUST BE 3 LETTERS LONG.¼((( 2. YEAR; MUST BE 2 NUMBERS LONG.Æ00((3. NUMBER OF KILOWATTS USED DURING MONTHÐ++(#4. NUMBER OF DAYS IN BILLING PERIODÚSS(K5. NET COST OF ELECTRICITY IN BILLING PERIOD. DO NOT USE '$' BEFORE COST.ä77(/6. NUMBER OF THERMS USED DURING BILLING PERIOD.î..(&7. NET GAS COST DURING BILLING PERIOD.ø11()8. HEATING DEGREE DAYS IN BILLING PERIOD.11()9. COOLING DEGREE DAYS IN BILLING PERIOD. 22((THE LAST LINE OF DATA YOU ENTERED WAS: ®((( NOW BEGIN TYPING NEW DATA LINES.€D:THERMOWT.BAS