Home Energy Analysis

Using your heating costs, the amount of fuel you use, and daily temperature can help you figure how to efficiently heat your home in the winter or keep it cool in the summer. This program takes into account the effectiveness of both heating and cooling systems and other factors affecting energy usage in your home (i.e. location of thermostat, amount of insulation). This program does not use DOE standards.

Run Home Energy Analysis on either a 4K ZX80 with 1K RAM or an 8K machine with greater than 1K RAM. To use, type the listing and insert numbers in line 250 and 260 calculated from your recent utility bills (we entered 500 in these lines as an example–Ed). Line 250 should be the average electric usage from several recent non-air conditioning months and line 260 should be fuel usage from the most recent non-heating months averaged. Update these numbers to broaden your information base and keep it current. If you use a 4K ROM, enter dollars as cents. For example, enter $1.00 as 100.

  10 LET L$=""
  20 CLS
  30 PRINT
  40 PRINT "***** HOME ENERGY ANALYSIS*****"
  50 PRINT
  60 IF L$="A" OR L$="H" THEN GOTO 100
  70 PRINT "CHOOSE ONE; A-AIR COND. H-HEAT"
  80 INPUT L$
  90 GOTO 20
 100 PRINT "MONTH? (ABBREVIATE) ";
 110 INPUT K$
 120 PRINT K$
 130 PRINT "COST? ";
 140 INPUT X
 150 PRINT X
 160 PRINT "UNITS USED? ";
 170 INPUT Y
 180 PRINT Y
 190 PRINT "DEGREES DAYS? ";
 200 INPUT Z
 210 PRINT Z
 220 PRINT
 230 LET A=X/Y
 240 PRINT "COST PER UNIT ";A
 250 IF L$="A" THEN LET Y=Y-500
 260 IF L$="H" THEN LET Y=Y-500
 270 LET D=A*Y
 280 PRINT K$;" COMFORT ENERGY COST ";D
 290 LET B=D/Z
 300 PRINT "COST PER DEGREE DAY ";B
 310 LET C=Y/Z
 320 PRINT "EFFICIENCY RATING ";C
 330 PRINT
 340 PRINT "ENTER 1 TO CONTINUE, 2 TO STOP"
 350 INPUT K
 360 IF K=1 THEN RUN
SYNTACTIC SUM: 33087, 8K/1K