home *** CD-ROM | disk | FTP | other *** search
/ Programmer 7500 / MAX_PROGRAMMERS.iso / INFO / BASIC / MISBASIC.ZIP / HEATLOSS.BAS < prev    next >
Encoding:
BASIC Source File  |  1988-09-26  |  3.1 KB  |  137 lines
  1. 100 CLS
  2. 110 PRINT  "HOME HEAT LOSS CALCULATION"
  3. 120 PRINT "YEARS TOTAL FUEL USE (IN GALLONS, KILOWATT HOURS, OR CUBIC FEET)?
  4. 130 INPUT YR
  5. 140 PRINT
  6. 150 PRINT "YEAR'S TOTAL FUEL BILLS? "
  7. 155 INPUT DL
  8. 160 PRINT
  9. 170 PRINT "DO YOU USE THE SAME FUEL FOR HEAT AS YOU DO FOR HOT WATER? 1=YES 2=NO
  10. 180 PRINT
  11. 190 INPUT F
  12. 191 IF F < 1 OR F > 2 THEN 170
  13. 200 ON F GOTO 210,245
  14. 210 PRINT "JUNE FUEL USE ?"
  15. 215 INPUT JN
  16. 220 PRINT "JULY FUEL USE ?"
  17. 225 INPUT JL
  18. 230 PRINT "AUGUST FUEL USE ?"
  19. 235 INPUT AU
  20. 240 PRINT
  21. 245 PRINT "TOTAL AREA OF CEILING ?"
  22. 250 INPUT AC
  23. 255 PRINT "        PRESENT R-VALUE ?"
  24. 260 INPUT RC
  25. 265 PRINT
  26. 270 IF RC >0 THEN 290
  27. 275 REM
  28. 280 RC=1
  29. 285 REM
  30. 290 PRINT "        PROPOSED R-VALUE ?"
  31. 295 INPUT NC
  32. 300 PRINT
  33. 305 REM
  34. 310 PRINT "TOTAL AREA OF OUTSIDE WALLS ?"
  35. 315 INPUT AW
  36. 320 PRINT "         PRESENT R-VALUE ?"
  37. 325 INPUT RW
  38. 330 IF RW >0 THEN 350
  39. 335 REM
  40. 340 RW=1
  41. 345 REM
  42. 350 PRINT "         PROPOSED R-VALUE ?"
  43. 355 INPUT NW
  44. 360 PRINT
  45. 370 PRINT "TOTAL AREA OF WINDOWS AND OUTSIDE DOORS ?"
  46. 375 INPUT WIN
  47. 380 REM
  48. 385 REM
  49. 390 PRINT "          PRESENT GLAZING ?  1=SINGLE   2=DOUBLE  3=TRIPLE"
  50. 395 INPUT GL
  51. 400 IF GL < 1 OR GL > 3 THEN 390
  52. 405 REM
  53. 410 PRINT "          PROPOSED GLAZING ?"
  54. 415 INPUT NG
  55. 420 PRINT
  56. 425 REM
  57. 430 PRINT "TOTAL AREA OF FLOORS OVER UNHEATED SPACES ?"
  58. 435 INPUT FL
  59. 440 REM
  60. 445 REM
  61. 450 IF FL = 0 THEN 520
  62. 455 REM
  63. 460 PRINT "           PRESENT R-VALUE ?"
  64. 465 INPUT RF
  65. 470 IF RF > 0 THEN 490
  66. 475 REM
  67. 480 RF=1
  68. 485 REM
  69. 490 PRINT "           PROPOSED R-VALUE ?"
  70. 495 INPUT NF
  71. 500 IF NF > 0 THEN 520
  72. 505 REM
  73. 510 NF = 1
  74. 515 REM
  75. 520 PRINT
  76. 525 REM
  77. 530 PRINT "TOTAL VOLUME OF HEATED SPACE ?"
  78. 535 INPUT VOL
  79. 540 REM
  80. 545 REM
  81. 550 CLS
  82. 555 REM
  83. 560 PRINT "AIRTIGHTNESS OF HOUSE: "
  84. 565 PRINT "(.3)VERY TIGHT  (.6)TIGHT - NEW HOUSE  "
  85. 570 PRINT "(1)OLDER HOUSE, WEATHERSTRIPPED AND CAULKED"
  86. 575 PRINT "(2)OLD HOUSE, FAIRLY LOOSE  (4)LOOSE, DRAFTY  (6)VERY LOOSE VERY DRAFTY"
  87. 580 PRINT
  88. 585 PRINT
  89. 590 REM
  90. 595 REM
  91. 600 REM
  92. 605 REM
  93. 610 PRINT "          PRESENT AIRTIGHTNESS ? "
  94. 615 INPUT TR
  95. 620 PRINT "          PROPOSED AIRTIGHTNESS ? "
  96. 625 INPUT NR
  97. 630 CLS
  98. 640 UCT = DL/YR
  99. 650 H = YR-((JN+JL+AU)/3*12)
  100. 660 LA=AC/RC
  101. 670 LW=(AW-WIN)/RW
  102. 680 LT=WIN/GL
  103. 690 IF FL = 0 THEN 710
  104. 700 LF=FL/RF
  105. 710 LV=VOL*TR/50
  106. 720 NA=AC/NC
  107. 730 NL=(AW-WIN)/NW
  108. 740 NT=WIN/NG
  109. 750 IF FL = 0 THEN 770
  110. 760 FN=FL/NF
  111. 770 NV=VOL*NR/50
  112. 780 TOT=LA+LW+LT+LF+LV
  113. 790 LPU=TOT/H
  114. 800 PRINT "COST OF HEAT LOSS"
  115. 805 PRINT "PRESENT";TAB(20);"PROPOSED";TAB(40);"SAVINGS"
  116. 810 PRE=INT(LA/LPU*UCT)
  117. 820 PRO=INT(NA/LPU*UCT)
  118. 830 PRINT "CEILING"
  119. 835 PRINT "$";PRE;TAB(20);"$";PRO;TAB(40);"$";PRE-PRO
  120. 840 PRE=INT(LW/LPU*UCT)
  121. 850 PRO=INT(NL/LPU*UCT)
  122. 860 PRINT "WALLS"
  123. 865 PRINT "$";PRE;TAB(20);"$";PRO;TAB(40);"$";PRE-PRO
  124. 870 PRE=INT(LT/LPU*UCT)
  125. 880 PRO=INT(NT/LPU*UCT)
  126. 890 PRINT "WINDOWS AND DOORS"
  127. 895 PRINT "$";PRE;TAB(20);"$";PRO;TAB(40);"$";PRE-PRO
  128. 900 IF FL = 0 THEN 940
  129. 910 PRE=INT(LF/LPU*UCT)
  130. 920 PRO=INT(FN/LPU*UCT)
  131. 930 PRINT "FLOORS"
  132. 935 PRINT "$";PRE;TAB(20);"$";PRO;TAB(40);"$";PRE-PRO
  133. 940 PRE=INT(LV/LPU*UCT)
  134. 950 PRO=INT(NV/LPU*UCT)
  135. 960 PRINT "AIR EXCHANGE"
  136. 965 PRINT "$";PRE;TAB(20);"$";PRO;TAB(40);"$";PRE-PRO
  137.