home *** CD-ROM | disk | FTP | other *** search
/ Nibble Magazine / nib33b.dsk / WORKSHEETER.bas < prev   
BASIC Source File  |  2023-02-26  |  7KB  |  151 lines
  1. 1  REM  ***********************
  2. 2  REM  * WORKSHEETER         *
  3. 3  REM  * ENERGY SQUEEZER     *
  4. 4  REM  * BY VERN L. MASTEL   *
  5. 5  REM  * COPYRIGHT (C) 1988  *
  6. 6  REM  * MICROSPARC, INC     *
  7. 7  REM  * CONCORD, MA 01742   *
  8. 8  REM  ***********************
  9. 20  FOR X = 1 TO 6:LA$ = LA$ + CHR$(95): NEXT 
  10. 30  FOR X = 1 TO 34:LB$ = LB$ + CHR$(95): NEXT 
  11. 40 HD$ = "HOME ENERGY ANALYSIS WORKSHEET":S$ = "SECTION"
  12. 50  TEXT : HOME : HTAB 15: PRINT "**********": VTAB 3: PRINT "THIS PROGRAM CREATES DATA ENTRY SHEETS"
  13. 60  PRINT : PRINT "FOR RECORDING ALL OF THE PHYSICAL DATA": PRINT 
  14. 70  PRINT "NEEDED BY HOME ENERGY ANALYSIS PROGRAM"
  15. 80  POKE 32,4: PRINT : PRINT : PRINT "WHICH SLOT IS YOUR PRINTER IN ?": PRINT : PRINT "PRESS RETURN IF IN SLOT #1": PRINT : PRINT "ENTER SLOT NUMBER ====>";
  16. 90  GET A$: IF A$ =  CHR$(13)  THEN A$ = "1"
  17. 100  IF A$ <"1"  OR A$ >"7"  THEN  PRINT  CHR$(7);: GOTO 90
  18. 110 SL$ = "PR#" +A$
  19. 120  PRINT : PRINT  CHR$(4);SL$: PRINT  CHR$(9)"80N"
  20. 130  REM  SINGLE AND DOUBLE PANE WINDOWS
  21. 140  FOR L = 1 TO 2
  22. 150  VTAB 2: POKE 36,25: PRINT HD$
  23. 160  PRINT : FOR X = 1 TO 3: READ PG,PG$,N
  24. 170  POKE 36,35: PRINT S$;" ";PG
  25. 180  PRINT : POKE 36,40 - INT( LEN(PG$)/2): PRINT PG$
  26. 190  PRINT : GOSUB 1440
  27. 200  POKE 36,8: PRINT "#";: POKE 36,16: PRINT "WINDOW";: POKE 36,26: PRINT "WINDOW";: POKE 36,48: PRINT "WINDOW LOCATION"
  28. 210  POKE 36,16: PRINT "HEIGHT";: POKE 36,26: PRINT "WIDTH";: POKE 36,48: PRINT "  OR COMMENTS  "
  29. 220  GOSUB 1440: PRINT : FOR X = 1 TO N
  30. 230  POKE 36,8: PRINT X;: POKE 36,16: PRINT LA$;: POKE 36,26: PRINT LA$;: POKE 36,38: PRINT LB$
  31. 240  NEXT : PRINT  CHR$(12): NEXT L
  32. 250  REM  RECT AND TRI WALL AREAS
  33. 260  FOR L = 1 TO 2
  34. 270  VTAB 2: POKE 36,25: PRINT HD$
  35. 280  PRINT : FOR X = 1 TO 3: READ PG,PG$,N
  36. 290  POKE 36,35: PRINT S$;" ";PG
  37. 300  PRINT : POKE 36,40 - INT( LEN(PG$)/2): PRINT PG$
  38. 310  PRINT : GOSUB 1440
  39. 320  POKE 36,8: PRINT "#";: POKE 36,16: PRINT " WALL ";: POKE 36,26: PRINT " WALL ";: POKE 36,48: PRINT " WALL LOCATION"
  40. 330  POKE 36,16: PRINT "HEIGHT";: POKE 36,26: PRINT "WIDTH ";: POKE 36,48: PRINT "  OR COMMENTS  "
  41. 340  GOSUB 1440: PRINT : FOR X = 1 TO N
  42. 350  POKE 36,8: PRINT X;: POKE 36,16: PRINT LA$;: POKE 36,26: PRINT LA$;: POKE 36,38: PRINT LB$
  43. 360  NEXT : PRINT  CHR$(12): NEXT L
  44. 370  REM  TRAPZ WALL AREAS
  45. 380  VTAB 2: POKE 36,25: PRINT HD$
  46. 390  PRINT : FOR X = 1 TO 3: READ PG,PG$,N
  47. 400  POKE 36,35: PRINT S$;" ";PG
  48. 410  PRINT : POKE 36,40 - INT( LEN(PG$)/2): PRINT PG$
  49. 420  PRINT : GOSUB 1440
  50. 430  POKE 36,8: PRINT "#";: POKE 36,16: PRINT "BASE#1";: POKE 36,26: PRINT "BASE#2";: POKE 36,36: PRINT " AREA ";: POKE 36,54: PRINT " AREA LOCATION"
  51. 440  POKE 36,16: PRINT "LENGTH";: POKE 36,26: PRINT "LENGTH";: POKE 36,36: PRINT "HEIGHT";: POKE 36,54: PRINT "  OR COMMENTS  "
  52. 450  GOSUB 1440: PRINT 
  53. 460  FOR X = 1 TO N
  54. 470  POKE 36,8: PRINT X;: POKE 36,16: PRINT LA$;: POKE 36,26: PRINT LA$;: POKE 36,36: PRINT LA$;: POKE 36,48: PRINT  LEFT$(LB$,30)
  55. 480  NEXT 
  56. 490  REM  RECT CEILING AREAS
  57. 500  PRINT : PRINT 
  58. 510  PRINT : FOR X = 1 TO 3: READ PG,PG$,N
  59. 520  POKE 36,35: PRINT S$;" ";PG
  60. 530  PRINT : POKE 36,40 - INT( LEN(PG$)/2): PRINT PG$
  61. 540  PRINT : GOSUB 1440
  62. 550  POKE 36,8: PRINT "#";: POKE 36,16: PRINT " AREA ";: POKE 36,26: PRINT " AREA ";: POKE 36,48: PRINT " AREA LOCATION"
  63. 560  POKE 36,16: PRINT "LENGTH";: POKE 36,26: PRINT "WIDTH";: POKE 36,48: PRINT "  OR COMMENTS  "
  64. 570  GOSUB 1440: PRINT : FOR X = 1 TO N
  65. 580  POKE 36,8: PRINT X;: POKE 36,16: PRINT LA$;: POKE 36,26: PRINT LA$;: POKE 36,38: PRINT LB$
  66. 590  NEXT : PRINT  CHR$(12)
  67. 600  REM  DOOR AREA
  68. 610  VTAB 2: POKE 36,25: PRINT HD$
  69. 620  PRINT : FOR X = 1 TO 3: READ PG,PG$,N
  70. 630  POKE 36,35: PRINT S$;" ";PG
  71. 640  PRINT : POKE 36,40 - INT( LEN(PG$)/2): PRINT PG$
  72. 650  PRINT : GOSUB 1440
  73. 660  POKE 36,8: PRINT "#";: POKE 36,16: PRINT " DOOR ";: POKE 36,26: PRINT " DOOR ";: POKE 36,48: PRINT " DOOR LOCATION"
  74. 670  POKE 36,16: PRINT "HEIGHT";: POKE 36,26: PRINT "WIDTH ";: POKE 36,48: PRINT "  OR COMMENTS  "
  75. 680  GOSUB 1440: PRINT 
  76. 690  FOR X = 1 TO N
  77. 700  POKE 36,8: PRINT X;: POKE 36,16: PRINT LA$;: POKE 36,26: PRINT LA$;: POKE 36,38: PRINT LB$
  78. 710  NEXT 
  79. 720  REM   OTHER WALL AREAS
  80. 730  PRINT 
  81. 740  PRINT : FOR X = 1 TO 3: READ PG,PG$,N
  82. 750  POKE 36,35: PRINT S$;" ";PG
  83. 760  PRINT : POKE 36,40 - INT( LEN(PG$)/2): PRINT PG$
  84. 770  PRINT : GOSUB 1440
  85. 780  POKE 36,8: PRINT "#";: POKE 36,16: PRINT " AREA ";: POKE 36,26: PRINT " AREA ";: POKE 36,48: PRINT " AREA LOCATION"
  86. 790  POKE 36,16: PRINT "WIDTH ";: POKE 36,26: PRINT "HEIGHT";: POKE 36,48: PRINT "  OR COMMENTS  "
  87. 800  GOSUB 1440: PRINT : PRINT 
  88. 810  REM   OTHER CEILING AREAS
  89. 820  PRINT 
  90. 830  PRINT : FOR X = 1 TO 3: READ PG,PG$,N
  91. 840  POKE 36,35: PRINT S$;" ";PG
  92. 850  PRINT : POKE 36,40 - INT( LEN(PG$)/2): PRINT PG$
  93. 860  PRINT : GOSUB 1440
  94. 870  POKE 36,8: PRINT "#";: POKE 36,16: PRINT " AREA ";: POKE 36,26: PRINT " AREA ";: POKE 36,48: PRINT " AREA LOCATION"
  95. 880  POKE 36,16: PRINT "WIDTH";: POKE 36,26: PRINT "LENGTH";: POKE 36,48: PRINT "  OR COMMENTS  "
  96. 890  GOSUB 1440: PRINT  CHR$(12)
  97. 900  REM  INSULATION TABLE
  98. 910  VTAB 2: POKE 36,25: PRINT HD$
  99. 920  PRINT : POKE 36,34: PRINT S$;" 10"
  100. 930  PRINT : POKE 36,26: PRINT "BATT/BLANKET INSULATION"
  101. 940  PRINT : GOSUB 1440
  102. 950  POKE 36,12: PRINT "THICKNESS IN INCHES";: POKE 36,63: PRINT "USED IN": PRINT 
  103. 960  PRINT "FIBREGLASS";: POKE 36,15: PRINT "ROCK WOOL";: POKE 36,30: PRINT "CELLULOSE";: POKE 36,45: PRINT " R VALUE";: POKE 36,60: PRINT "WALL";: POKE 36,68: PRINT "CEILING"
  104. 970  GOSUB 1440: FOR Z = 1 TO 12: READ R,A$,B$,C$
  105. 980  POKE 36,3: PRINT A$;: POKE 36,18: PRINT B$;: POKE 36,33: PRINT C$;: POKE 36,50: PRINT R;: POKE 36,60: PRINT  LEFT$(LA$,5);: POKE 36,69: PRINT  LEFT$(LA$,5)
  106. 990  NEXT : PRINT : GOSUB 1440: GOSUB 1440
  107. 1000  PRINT : POKE 36,28: PRINT "LOOSE FILL INSULATION"
  108. 1010  PRINT : GOSUB 1440
  109. 1020  POKE 36,12: PRINT "THICKNESS IN INCHES";: POKE 36,62: PRINT "USED IN": PRINT 
  110. 1030  PRINT "FIBREGLASS";: POKE 36,15: PRINT "ROCK WOOL";: POKE 36,30: PRINT "CELLULOSE";: POKE 36,45: PRINT " R VALUE";: POKE 36,60: PRINT "WALL";: POKE 36,68: PRINT "CEILING"
  111. 1040  GOSUB 1440
  112. 1050  FOR Z = 1 TO 12: READ R,A$,B$,C$
  113. 1060  POKE 36,3: PRINT A$;: POKE 36,18: PRINT B$;: POKE 36,33: PRINT C$;: POKE 36,50: PRINT R;: POKE 36,60: PRINT  LEFT$(LA$,5);: POKE 36,69: PRINT  LEFT$(LA$,5)
  114. 1070  NEXT : GOSUB 1440
  115. 1080  PRINT : PRINT : PRINT "ANNUAL HEATING COST =======>";: PRINT LB$
  116. 1090  PRINT : PRINT : GOSUB 1440: PRINT  CHR$(12)
  117. 1100  PRINT  CHR$(4)"PR#0": END 
  118. 1110  DATA    1,DOUBLE-PANE WINDOWS,36
  119. 1120  DATA   2,SINGLE-PANE WINDOWS,36
  120. 1130  DATA  3,RECTANGULAR WALL AREAS,24
  121. 1140  DATA  4,TRIANGULAR WALL AREAS,24
  122. 1150  DATA  5,TRAPEZOIDAL WALL AREAS,12
  123. 1160  DATA  6,RECTANGULAR CEILING AREAS,24
  124. 1170  DATA  7,DOORS,12
  125. 1180  DATA  8,OTHER CEILING AREAS,1
  126. 1190  DATA  9,OTHER WALL AREAS,1
  127. 1200  DATA  4,NO,WALL,INSULATION
  128. 1210  DATA  6,NO,CEILING,INSULATION
  129. 1220  DATA  9,2,1.5-2,N/A
  130. 1230  DATA  11,3.5-4,3,N/A
  131. 1240  DATA  13,4,4.5,N/A
  132. 1250  DATA  19,5.5-6,5.5,N/A
  133. 1260  DATA  22,6.5,6,N/A
  134. 1270  DATA  26,8,8.5,N/A
  135. 1280  DATA  30,9.5-10,9,N/A
  136. 1290  DATA  33,11,10,N/A
  137. 1300  DATA  38,12-13,10.5,N/A
  138. 1310  DATA  44,14,11.5,N/A
  139. 1320  DATA  4,NO,WALL,INSULATION
  140. 1330  DATA  6,NO,CEILING,INSULATION
  141. 1340  DATA  9,3,2-2.5,1.5-2
  142. 1350  DATA  11,5,4,3
  143. 1360  DATA  13,6,4.5,3.5
  144. 1370  DATA  19,8-9,6-7,5
  145. 1380  DATA  22,10,7-8,6
  146. 1390  DATA  26,12,9,7-7.5
  147. 1400  DATA  30,13-14,10-11,8
  148. 1410  DATA  33,15,11-12,9
  149. 1420  DATA  38,17-18,13-14,10-11
  150. 1430  DATA  44,19-24,14-16,11-13
  151. 1440  FOR X = 1 TO 79: PRINT "-";: NEXT : PRINT : RETURN