:COUNTER h :::: )"PROGRAM TO CALCULATE HOT WATER":: )" AND HEATING POTENTIAL SAVINGS BY ADDING":: #)"SOLAR ENERGY DEVICES":: #)"BY: RAY L. HOCKSTAD": #)"1614 SO. 15TH. ST.": #)"ESCANABA, MI 49829"W(:::"Simply follow the prompts and enter the figures requested by the program.":"Please only enter whole numbers and %'s, not decimals.":}2TMSH:TMSW:TTO:TI:ZZ:ZId:"Enter the total cost of the installation ---------------";C
n"Enter your estimated yearly inflation rate --------------";IR:IRIRdP
x"Enter the interest rate you expect to earn on savings --";I
"Enter your State tax savings (c/r if none) -------------";SS
"Enter your Fedral energy tax credits (c/r if none) -----";FS'"Enter your Federal tax bracket -------------------------";TB:TB(dTB)dz::"If you have a printer, turn it on and enter `1', if not enter a `2'.";QU QU : [ )"PROGRAM TO DEMONSTRATE POSSIBLE SOLAR HEAT SAVINGS":" ":" ": $)"Total Cost -----$"C: $)"Tax Savings ----$"FSSS: $)"Savings acct. Int. -"I"%": $)"Inflation Rate -"IRd"%" $)"Tax Bracket ----"d(TBd)"%"TSFSSSACCTS:"Now I will calculate the month by month savings of both the solar heat and, if applicable, the solar hot water.""Enter your previous years (or average of a # of years) total heat costs for the six (6) month period of November through April.";WH:AWHWH"Enter your same total heat costs for the six (6) month period of May through October.";SH:ASHSH}"Enter your total hot water costs for the previous year (or average of a # of years).";HC:AHCHC"Enter your estimated solar heat savings as a % .";S:HSSd"Enter your estimated solar hot water savings as a %.";WS:WSWSdh"Enter the month that your solar energy system will begin working (3,7,10,etc.).";SM:SM2SM"Enter the year it will be starting (1985).";Y:Y2Y* QU , : @=, )"Previous yearly heating costs ---";: "$$#,###.##";WHSH: )"Previous yearly hot water costs -";: "$$#,###.##";HC6" ": )"EST. SOLAR SAVINGS --"HSd"%";: )"EST. HOT WATER SAVINGS --"WSd"%":" ":" "@ J TT T : SM
SM :YY:AWHAWH(AWHIR):ASHASH(ASHIR):AHCAHC(AHCIR)VT SM SM SM SM SM SM AA AWH : AA ASHd^MSHAAHSvhTMSHTMSHMSHrWMSAHCWS|TWMSTWMSWMS:TTTT TT : QU : ZZ2ZZTI: QU ZZ2AC : SM;:"/"Y;: )"HEAT SAVINGS THIS MONTH";: "$$##.##";MSH: )"HOT WATER SAVINGS THIS MONTH";: "$$###.##";WMS: )"TOTAL HEAT SAVINGS FROM"SM2"/"Y2" --";: "$$###0##";TMSHN )"TOTAL HOT WATER SAVINGS --";: "$$###.##";TWMS: )"TOTAL SAVINGS FROM"SM2"/"Y2"(EXCLUDING ANY INTEREST LOST)--";: "$$###.##";TMSHTWMS )"SAVINGS MINUS INTEREST LOST (ON PRINC."P")--";: "$$####.##";TMSHTWMSTI: TT ZZTMSHTWMS TT ZIZZ((Id)):ZIZITB:ZZZZMSHWMSZI TT ZZ2AC "WORKING - ";H TMSHTWMS AC COUNTER Lz QU TT ZZ2 AC : 9 TT QU )"TRUE SAVINGS (SAVINGS MINUS ANY INTEREST POTENTIALLY LOST ON PURCHASE DOLLARS PLUS INTEREST EARNED ON SAVINGS AS ACCUMULATED) --";: "$$#,###.##";ZZTI: " "b ZZTI AC : SMSM: @| QU : X$::: )"In the final analysis, with the figures you have give as shown above, the following results are computed for a pay-back on your solar heat investment:" )"1-Figuring only the cash saved each month and yearly fuel price increases of"IRd;"percent, with no regard as to investing the money otherwise spent on the solar system, the system will pay for itself";/"in"Y1Y2"Years and"SM1SM2"Months !!!! )"2-Figuring the cash saved each month and yearly fuel price increases of"IRd"percent, and considering the interest lost by not investing the money in something else that was spent on the solar heat,";N
"the system will pay for itself in"YY2"Years and"SMSM2"Months !!!"X::: )"In the final analysis, with the figures you have give as shown above, the following results are computed for a pay-back on your solar heat investment:"b )"1-Figuring only the cash saved each month and yearly fuel price increases of"IRd"percent, that is with no regard to investing or putting into savings the money otherwise spent on the solar heat, the system will pay for itself";d"in"Y1Y2"Years and"SM1SM2"Months !!!!l )"2-Figuring the cash saved each month and yearly fuel price increases of"IRd"percent, and considering the interest lost by not investing the money in something else that was spent on the solar heat,";3n"the system will pay for itself in"YY2"Years and"SMSM2"Months !!!"=v ::"If you want to run another analysis, type `Y', if not type`n'.": ANOTHER$: ANOTHER$ "Y" ANOTHER$ "y"
: : COMPOUNDED INTERESTED + PRINC. OVER X MONTHS TT P AC/AI P((Id)):AIAITB<TITIAIGPPAIM]LY1Y:SM1SMmPCOUNTER sVTHS TT P AC/AI P((Id)):AIAITB<TITIAIGPPAIM]