HEATING COST.C

00000000: 01 08 1C 08 32 00 97 35  33 32 38 30 2C 31 3A 97  |....2..53280,1:.|
00000010: 35 33 32 38 31 2C 31 3A  99 22 90 22 00 3A 08 64  |53281,1:.".".:.d|
00000020: 00 52 56 24 B2 22 52 45  56 23 31 30 2F 31 35 2F  |.RV$."REV#10/15/|
00000030: 37 39 2D 31 22 3A 89 31  35 30 00 51 08 6E 00 99  |79-1":.150.Q.n..|
00000040: 4C 24 22 20 20 20 20 59  4F 55 52 20 20 4E 41 4D  |L$"    YOUR  NAM|
00000050: 45 00 7A 08 78 00 99 4D  24 22 20 20 20 20 20 20  |E.z.x..M$"      |
00000060: 20 20 41 4E 59 54 4F 57  4E 2C 20 4E 2E 4A 2E 20  |  ANYTOWN, N.J. |
00000070: 30 5A 49 50 30 20 20 20  20 22 00 9D 08 82 00 99  |0ZIP0    "......|
00000080: 22 54 45 4C 2E 23 28 32  30 31 29 37 37 37 2D 37  |"TEL.#(201)777-7|
00000090: 37 37 37 20 20 20 20 20  20 22 52 56 24 00 A3 08  |777      "RV$...|
000000A0: 8C 00 8E 00 EC 08 96 00  83 22 43 45 49 4C 49 4E  |........."CEILIN|
000000B0: 47 22 2C 36 2C 22 57 41  4C 4C 53 22 2C 38 2C 22  |G",6,"WALLS",8,"|
000000C0: 46 4C 4F 4F 52 53 22 2C  37 2C 22 4D 49 53 43 2E  |FLOORS",7,"MISC.|
000000D0: 31 22 2C 37 2C 22 57 4E  44 57 53 2D 31 22 2C 36  |1",7,"WNDWS-1",6|
000000E0: 2C 22 57 4E 44 57 53 2D  32 22 2C 36 00 38 09 A0  |,"WNDWS-2",6.8..|
000000F0: 00 83 22 44 4F 4F 52 53  2D 31 22 2C 36 2C 22 44  |.."DOORS-1",6,"D|
00000100: 4F 4F 52 53 2D 32 22 2C  36 2C 22 42 47 20 57 41  |OORS-2",6,"BG WA|
00000110: 4C 4C 53 22 2C 35 2C 22  42 47 20 46 4C 4F 4F 52  |LLS",5,"BG FLOOR|
00000120: 53 22 2C 34 2C 22 4D 49  53 43 2E 31 20 42 47 22  |S",4,"MISC.1 BG"|
00000130: 2C 34 2C 22 39 39 39 22  00 41 09 AA 00 4E B2 31  |,4,"999".A...N.1|
00000140: 35 00 60 09 B4 00 86 41  28 4E 29 2C 42 28 4E 29  |5.`....A(N),B(N)|
00000150: 2C 52 28 4E 29 2C 52 4E  28 4E 29 2C 4A 28 4E 29  |,R(N),RN(N),J(N)|
00000160: 00 82 09 BE 00 99 22 93  22 A3 39 29 22 48 45 41  |......".".9)"HEA|
00000170: 54 20 46 4C 4F 57 20 41  4E 41 4C 59 53 49 53 22  |T FLOW ANALYSIS"|
00000180: 3A 99 00 90 09 C8 00 9F  33 2C 33 3A 9F 34 2C 34  |:.......3,3:.4,4|
00000190: 00 C1 09 D2 00 53 24 B2  C7 28 32 39 29 3A 4D 24  |.....S$..(29):M$|
000001A0: B2 C7 28 33 30 29 3A 4C  24 B2 C7 28 33 31 29 3A  |..(30):L$..(31):|
000001B0: 55 24 B2 C7 28 31 35 29  3A 46 24 B2 C7 28 31 34  |U$..(15):F$..(14|
000001C0: 29 00 D6 09 DC 00 85 22  4E 41 4D 45 2D 44 41 54  |)......"NAME-DAT|
000001D0: 45 22 3B 4E 44 24 00 F2  09 E6 00 99 3A 85 22 44  |E";ND$......:."D|
000001E0: 45 53 49 47 4E 20 54 45  4D 50 20 44 49 46 46 22  |ESIGN TEMP DIFF"|
000001F0: 3B 54 00 0A 0A F0 00 99  3A 85 22 44 45 47 52 45  |;T......:."DEGRE|
00000200: 45 20 44 41 59 53 22 3B  44 44 00 2E 0A FA 00 99  |E DAYS";DD......|
00000210: 3A 85 22 57 49 4E 54 45  52 20 55 4E 44 45 52 47  |:."WINTER UNDERG|
00000220: 52 4F 55 4E 44 20 54 45  4D 50 22 3B 47 54 00 5B  |ROUND TEMP";GT.[|
00000230: 0A 04 01 99 3A 20 99 22  45 4E 54 45 52 20 12 4F  |....: ."ENTER .O|
00000240: 92 20 46 4F 52 20 4F 49  4C 2C 12 45 92 20 46 4F  |. FOR OIL,.E. FO|
00000250: 52 20 45 4C 45 43 54 52  49 43 22 00 73 0A 0E 01  |R ELECTRIC".s...|
00000260: 99 3A 99 22 4F 52 20 12  47 92 20 46 4F 52 20 47  |.:."OR .G. FOR G|
00000270: 41 53 22 00 86 0A 18 01  A1 54 24 3A 8B 54 24 B2  |AS"......T$:.T$.|
00000280: 22 22 A7 32 38 30 00 A4  0A 22 01 8B 54 24 B2 22  |"".280..."..T$."|
00000290: 4F 22 B0 54 24 B2 22 45  22 B0 54 24 B2 22 47 22  |O".T$."E".T$."G"|
000002A0: A7 33 31 30 00 AD 0A 2C  01 89 32 36 30 00 CD 0A  |.310...,..260...|
000002B0: 36 01 8B 54 24 B2 22 4F  22 A7 20 54 24 B2 22 4F  |6..T$."O". T$."O|
000002C0: 49 4C 22 3A 51 24 B2 22  2F 47 41 4C 22 00 F2 0A  |IL":Q$."/GAL"...|
000002D0: 40 01 8B 54 24 B2 22 45  22 A7 20 54 24 B2 22 45  |@..T$."E". T$."E|
000002E0: 4C 45 43 54 52 49 43 22  3A 51 24 B2 22 2F 4B 57  |LECTRIC":Q$."/KW|
000002F0: 48 22 00 18 0B 4A 01 8B  54 24 B2 22 47 22 A7 20  |H"...J..T$."G". |
00000300: 54 24 B2 22 47 41 53 22  3A 51 24 B2 22 2F 31 30  |T$."GAS":Q$."/10|
00000310: 30 20 43 55 20 46 54 22  00 38 0B 54 01 99 3A 99  |0 CU FT".8.T..:.|
00000320: 22 45 4E 54 45 52 20 54  48 45 20 43 4F 53 54 20  |"ENTER THE COST |
00000330: 4F 46 20 22 54 24 51 24  00 3F 0B 5E 01 85 4D 00  |OF "T$Q$.?.^..M.|
00000340: 6A 0B 63 01 99 3A 85 22  53 45 41 53 4F 4E 41 4C  |j.c..:."SEASONAL|
00000350: 20 48 45 41 54 49 4E 47  20 45 46 46 49 43 49 45  | HEATING EFFICIE|
00000360: 4E 43 59 28 25 29 22 3B  45 46 00 8A 0B 68 01 8B  |NCY(%)";EF...h..|
00000370: 54 24 B2 22 4F 49 4C 22  A7 20 46 B2 4D AD 28 31  |T$."OIL". F.M.(1|
00000380: 34 30 AC 45 46 AD 31 30  30 29 00 AF 0B 72 01 8B  |40.EF.100)...r..|
00000390: 54 24 B2 22 45 4C 45 43  54 52 49 43 22 A7 20 46  |T$."ELECTRIC". F|
000003A0: B2 4D AD 28 33 2E 34 AC  45 46 AD 31 30 30 29 00  |.M.(3.4.EF.100).|
000003B0: CF 0B 7C 01 8B 54 24 B2  22 47 41 53 22 A7 20 46  |..|..T$."GAS". F|
000003C0: B2 4D AD 28 31 30 30 AC  45 46 AD 31 30 30 29 00  |.M.(100.EF.100).|
000003D0: FE 0B 86 01 99 3A 81 49  B2 31 A4 34 3A 87 48 46  |.....:.I.1.4:.HF|
000003E0: 24 2C 4A 28 49 29 3A 99  22 41 52 45 41 20 4F 46  |$,J(I):."AREA OF|
000003F0: 20 22 48 46 24 3B 3A 85  41 28 49 29 3A 99 00 0E  | "HF$;:.A(I):...|
00000400: 0C 90 01 8B 41 28 49 29  B2 30 A7 34 32 30 00 2D  |....A(I).0.420.-|
00000410: 0C 9A 01 99 22 52 20 56  41 4C 55 45 20 4F 46 20  |...."R VALUE OF |
00000420: 22 48 46 24 3B 3A 85 52  28 49 29 3A 99 00 34 0C  |"HF$;:.R(I):..4.|
00000430: A4 01 82 49 00 6D 0C AE  01 81 49 B2 35 A4 38 3A  |...I.m....I.5.8:|
00000440: 87 48 46 24 2C 4A 28 49  29 3A 99 22 45 4E 54 45  |.HF$,J(I):."ENTE|
00000450: 52 20 54 4F 54 41 4C 20  41 52 45 41 20 4F 46 20  |R TOTAL AREA OF |
00000460: 22 48 46 24 3B 3A 85 41  28 49 29 3A 99 00 7D 0C  |"HF$;:.A(I):..}.|
00000470: B8 01 8B 41 28 49 29 B2  30 A7 34 38 30 00 A8 0C  |...A(I).0.480...|
00000480: C2 01 99 22 45 4E 54 45  52 20 31 20 46 4F 52 20  |..."ENTER 1 FOR |
00000490: 53 49 4E 47 4C 45 20 2C  20 32 20 46 4F 52 20 53  |SINGLE , 2 FOR S|
000004A0: 54 4F 52 4D 20 22 3A 99  00 C5 0C CC 01 99 22 4F  |TORM ":......."O|
000004B0: 52 20 4B 4E 4F 57 4E 20  52 20 56 41 4C 55 45 20  |R KNOWN R VALUE |
000004C0: 4F 46 20 22 3B 00 D7 0C  D6 01 99 48 46 24 3B 3A  |OF ";......HF$;:|
000004D0: 85 52 28 49 29 3A 99 00  DE 0C E0 01 82 49 00 13  |.R(I):.......I..|
000004E0: 0D EA 01 81 49 B2 31 31  A4 31 33 3A 87 48 46 24  |....I.11.13:.HF$|
000004F0: 2C 4A 28 49 29 3A 99 22  54 4F 54 41 4C 20 41 52  |,J(I):."TOTAL AR|
00000500: 45 41 20 4F 46 20 22 48  46 24 3B 3A 85 41 28 49  |EA OF "HF$;:.A(I|
00000510: 29 3A 99 00 23 0D F4 01  8B 41 28 49 29 B2 30 A7  |):..#....A(I).0.|
00000520: 35 32 30 00 42 0D FE 01  99 22 52 20 56 41 4C 55  |520.B...."R VALU|
00000530: 45 20 4F 46 20 22 48 46  24 3B 3A 85 52 28 49 29  |E OF "HF$;:.R(I)|
00000540: 3A 99 00 49 0D 08 02 82  49 00 52 0D 12 02 99 22  |:..I....I.R...."|
00000550: 93 22 00 7B 0D 1C 02 99  22 57 49 4E 44 4F 57 20  |.".{...."WINDOW |
00000560: 41 4E 44 20 44 4F 4F 52  20 49 4E 46 49 4C 54 52  |AND DOOR INFILTR|
00000570: 41 54 49 4F 4E 20 4C 4F  53 53 22 00 98 0D 26 02  |ATION LOSS"...&.|
00000580: 99 22 49 4E 43 4C 55 44  45 44 20 49 4E 20 52 20  |."INCLUDED IN R |
00000590: 46 41 43 54 4F 52 22 3B  00 B2 0D 30 02 8B 52 28  |FACTOR";...0..R(|
000005A0: 35 29 B3 B1 31 AF 52 28  35 29 B3 B1 32 20 A7 35  |5)..1.R(5)..2 .5|
000005B0: 39 30 00 C7 0D 3A 02 8B  52 28 35 29 B2 31 A7 52  |90...:..R(5).1.R|
000005C0: 28 35 29 B2 2E 33 39 00  DC 0D 44 02 8B 52 28 35  |(5)..39...D..R(5|
000005D0: 29 B2 32 A7 52 28 35 29  B2 2E 38 36 00 F6 0D 4E  |).2.R(5)..86...N|
000005E0: 02 8B 52 28 36 29 B3 B1  31 AF 52 28 36 29 B3 B1  |..R(6)..1.R(6)..|
000005F0: 32 20 A7 36 32 30 00 0B  0E 58 02 8B 52 28 36 29  |2 .620...X..R(6)|
00000600: B2 31 A7 52 28 36 29 B2  2E 33 39 00 20 0E 62 02  |.1.R(6)..39. .b.|
00000610: 8B 52 28 36 29 B2 32 A7  52 28 36 29 B2 2E 38 36  |.R(6).2.R(6)..86|
00000620: 00 3A 0E 6C 02 8B 52 28  37 29 B3 B1 31 AF 52 28  |.:.l..R(7)..1.R(|
00000630: 37 29 B3 B1 32 20 A7 36  35 30 00 4F 0E 76 02 8B  |7)..2 .650.O.v..|
00000640: 52 28 37 29 B2 31 A7 52  28 37 29 B2 2E 32 32 00  |R(7).1.R(7)..22.|
00000650: 64 0E 80 02 8B 52 28 37  29 B2 32 A7 52 28 37 29  |d....R(7).2.R(7)|
00000660: B2 2E 37 35 00 7E 0E 8A  02 8B 52 28 38 29 B3 B1  |..75.~....R(8)..|
00000670: 31 AF 52 28 38 29 B3 B1  32 20 A7 36 38 30 00 93  |1.R(8)..2 .680..|
00000680: 0E 94 02 8B 52 28 38 29  B2 31 A7 52 28 38 29 B2  |....R(8).1.R(8).|
00000690: 2E 32 32 00 A8 0E 9E 02  8B 52 28 38 29 B2 32 A7  |.22......R(8).2.|
000006A0: 52 28 38 29 B2 2E 37 35  00 C2 0E A8 02 81 49 B2  |R(8)..75......I.|
000006B0: 31 A4 38 3A 8B 52 28 49  29 B2 30 A7 52 28 49 29  |1.8:.R(I).0.R(I)|
000006C0: B2 31 00 DD 0E B2 02 42  28 49 29 B2 B5 28 54 AC  |.1.....B(I)..(T.|
000006D0: 41 28 49 29 AD 52 28 49  29 29 3A 82 49 00 F9 0E  |A(I).R(I)):.I...|
000006E0: BC 02 81 49 B2 31 31 A4  31 33 3A 8B 52 28 49 29  |...I.11.13:.R(I)|
000006F0: B2 30 A7 52 28 49 29 B2  31 00 1A 0F C6 02 42 28  |.0.R(I).1.....B(|
00000700: 49 29 B2 B5 28 28 36 35  AB 47 54 29 AC 41 28 49  |I)..((65.GT).A(I|
00000710: 29 AD 52 28 49 29 29 3A  82 49 00 25 0F D0 02 99  |).R(I)):.I.%....|
00000720: 3A 89 37 34 30 00 2C 0F  DA 02 9D 34 00 43 0F E4  |:.740.,....4.C..|
00000730: 02 99 4C 24 22 20 20 20  20 48 45 41 54 20 4C 4F  |..L$"    HEAT LO|
00000740: 53 53 22 00 76 0F EE 02  99 C7 28 33 30 29 22 20  |SS".v.....(30)" |
00000750: 20 20 20 20 20 20 20 20  20 20 20 52 20 20 20 41  |           R   A|
00000760: 52 45 41 20 20 20 20 20  48 54 4D 20 20 20 20 20  |REA     HTM     |
00000770: 20 42 54 55 48 22 00 7C  0F F8 02 8C 00 9D 0F 02  | BTUH".|........|
00000780: 03 81 49 B2 31 A4 38 3A  87 48 46 24 2C 4A 28 49  |..I.1.8:.HF$,J(I|
00000790: 29 3A 8B 41 28 49 29 B2  30 A7 38 33 30 00 A9 0F  |):.A(I).0.830...|
000007A0: 0C 03 99 4D 24 48 46 24  3B 00 CA 0F 16 03 49 24  |...M$HF$;.....I$|
000007B0: B2 C4 28 52 28 49 29 29  3A 4A B2 4A 28 49 29 3A  |..(R(I)):J.J(I):|
000007C0: 8D 31 33 38 30 3A 99 49  24 3B 00 E8 0F 20 03 49  |.1380:.I$;... .I|
000007D0: 24 B2 C4 28 41 28 49 29  29 3A 4A B2 37 3A 8D 31  |$..(A(I)):J.7:.1|
000007E0: 33 38 30 3A 99 49 24 3B  00 14 10 2A 03 49 24 B2  |380:.I$;...*.I$.|
000007F0: C4 28 2E 31 AC B5 28 31  30 AC 54 AD 52 28 49 29  |.(.1..(10.T.R(I)|
00000800: AA 2E 35 29 29 3A 4A B2  38 3A 8D 31 33 38 30 3A  |..5)):J.8:.1380:|
00000810: 99 49 24 3B 00 32 10 34  03 49 24 B2 C4 28 42 28  |.I$;.2.4.I$..(B(|
00000820: 49 29 29 3A 4A B2 31 30  3A 8D 31 33 38 30 3A 99  |I)):J.10:.1380:.|
00000830: 49 24 00 39 10 3E 03 82  49 00 5C 10 48 03 81 49  |I$.9.>..I.\.H..I|
00000840: B2 31 31 A4 31 33 3A 87  48 46 24 2C 4A 28 49 29  |.11.13:.HF$,J(I)|
00000850: 3A 8B 41 28 49 29 B2 30  A7 39 32 30 00 68 10 52  |:.A(I).0.920.h.R|
00000860: 03 99 4D 24 48 46 24 3B  00 89 10 5C 03 49 24 B2  |..M$HF$;...\.I$.|
00000870: C4 28 52 28 49 29 29 3A  4A B2 4A 28 49 29 3A 8D  |.(R(I)):J.J(I):.|
00000880: 31 33 38 30 3A 99 49 24  3B 00 B6 10 66 03 8B 49  |1380:.I$;...f..I|
00000890: B2 31 33 A7 49 24 B2 C4  28 41 28 49 29 29 3A 4A  |.13.I$..(A(I)):J|
000008A0: B2 37 3A 8D 31 33 38 30  3A 99 55 24 49 24 46 24  |.7:.1380:.U$I$F$|
000008B0: 3B 3A 89 38 39 30 00 D4  10 70 03 49 24 B2 C4 28  |;:.890...p.I$..(|
000008C0: 41 28 49 29 29 3A 4A B2  37 3A 8D 31 33 38 30 3A  |A(I)):J.7:.1380:|
000008D0: 99 49 24 3B 00 06 11 7A  03 49 24 B2 C4 28 2E 31  |.I$;...z.I$..(.1|
000008E0: AC B5 28 31 30 AC 28 36  35 AB 47 54 29 AD 52 28  |..(10.(65.GT).R(|
000008F0: 49 29 AA 2E 35 29 29 3A  4A B2 38 3A 8D 31 33 38  |I)..5)):J.8:.138|
00000900: 30 3A 99 49 24 3B 00 33  11 84 03 8B 49 B2 31 33  |0:.I$;.3....I.13|
00000910: A7 49 24 B2 C4 28 42 28  49 29 29 3A 4A B2 31 30  |.I$..(B(I)):J.10|
00000920: 3A 8D 31 33 38 30 3A 99  55 24 49 24 46 24 3A 89  |:.1380:.U$I$F$:.|
00000930: 39 32 30 00 51 11 8E 03  49 24 B2 C4 28 42 28 49  |920.Q...I$..(B(I|
00000940: 29 29 3A 4A B2 31 30 3A  8D 31 33 38 30 3A 99 49  |)):J.10:.1380:.I|
00000950: 24 00 58 11 98 03 82 49  00 67 11 A2 03 99 22 54  |$.X....I.g...."T|
00000960: 4F 54 41 4C 53 22 3B 00  8F 11 AC 03 41 B2 30 3A  |OTALS";.....A.0:|
00000970: 81 49 B2 31 A4 4E 3A 41  B2 41 AA 41 28 49 29 3A  |.I.1.N:A.A.A(I):|
00000980: 82 49 3A 49 24 B2 C4 28  41 29 3A 4A B2 31 34 00  |.I:I$..(A):J.14.|
00000990: 9E 11 B6 03 8D 31 33 38  30 3A 99 49 24 3B 00 C6  |.....1380:.I$;..|
000009A0: 11 C0 03 42 B2 30 3A 81  49 B2 31 A4 4E 3A 42 B2  |...B.0:.I.1.N:B.|
000009B0: 42 AA 42 28 49 29 3A 82  49 3A 49 24 B2 C4 28 42  |B.B(I):.I:I$..(B|
000009C0: 29 3A 4A B2 31 38 00 D4  11 CA 03 8D 31 33 38 30  |):J.18......1380|
000009D0: 3A 99 49 24 00 F6 11 D4  03 59 B2 30 3A 81 49 B2  |:.I$.....Y.0:.I.|
000009E0: 31 A4 38 3A 59 B2 59 AA  28 41 28 49 29 AD 52 28  |1.8:Y.Y.(A(I).R(|
000009F0: 49 29 29 3A 82 49 00 09  12 DE 03 59 B2 59 AC 32  |I)):.I.....Y.Y.2|
00000A00: 34 AC 44 44 AD 31 30 30  30 00 2E 12 E8 03 59 31  |4.DD.1000.....Y1|
00000A10: B2 30 3A 81 49 B2 31 31  A4 31 32 3A 59 31 B2 59  |.0:.I.11.12:Y1.Y|
00000A20: 31 AA 41 28 49 29 AD 52  28 49 29 3A 82 49 00 4D  |1.A(I).R(I):.I.M|
00000A30: 12 F2 03 59 B2 59 AA 32  34 AC 31 38 30 AC 28 36  |...Y.Y.24.180.(6|
00000A40: 35 AB 47 54 29 AC 59 31  AD 31 30 30 30 00 66 12  |5.GT).Y1.1000.f.|
00000A50: FC 03 48 4C B2 2E 31 AC  B5 28 2E 32 34 AC C5 28  |..HL..1..(.24..(|
00000A60: 49 24 29 AD 54 29 00 88  12 06 04 99 22 48 45 41  |I$).T)......"HEA|
00000A70: 54 20 4C 4F 41 44 3D 22  3B 48 4C 3B 4D 24 22 20  |T LOAD=";HL;M$" |
00000A80: 4B 42 54 55 2F 44 44 22  00 BA 12 10 04 99 22 54  |KBTU/DD"......"T|
00000A90: 4F 54 41 4C 20 42 54 55  2F 59 45 41 52 20 55 53  |OTAL BTU/YEAR US|
00000AA0: 45 44 3D 22 3B B5 28 2E  31 AC 59 29 AC 2E 30 31  |ED=";.(.1.Y)..01|
00000AB0: 3B 4D 24 22 20 4D 42 54  55 22 00 E4 12 1A 04 8B  |;M$" MBTU"......|
00000AC0: 50 52 24 B2 22 22 A7 20  47 55 B2 B5 28 59 AD 39  |PR$."". GU..(Y.9|
00000AD0: 30 29 3A 54 43 B2 B5 28  31 30 30 AC 46 AC 59 29  |0):TC..(100.F.Y)|
00000AE0: AC 2E 30 31 00 FA 12 24  04 48 43 B2 B5 28 31 30  |..01...$.HC..(10|
00000AF0: 30 AC 46 AC 59 29 AC 2E  30 31 00 19 13 2E 04 99  |0.F.Y)..01......|
00000B00: 4D 24 22 59 45 41 52 4C  59 20 48 45 41 54 20 43  |M$"YEARLY HEAT C|
00000B10: 4F 53 54 3D 24 22 3B 48  43 00 59 13 38 04 8B 54  |OST=$";HC.Y.8..T|
00000B20: 24 B2 22 4F 49 4C 22 B0  54 24 B2 22 47 41 53 22  |$."OIL".T$."GAS"|
00000B30: A7 99 4D 24 22 46 4F 52  22 55 24 45 46 3B 46 24  |..M$"FOR"U$EF;F$|
00000B40: 4D 24 22 25 20 53 45 41  53 4F 4E 41 4C 20 45 46  |M$"% SEASONAL EF|
00000B50: 46 49 43 49 45 4E 43 59  22 00 88 13 42 04 8B 54  |FICIENCY"...B..T|
00000B60: 24 B2 22 4F 49 4C 22 A7  99 4D 24 B5 28 59 AD 39  |$."OIL"..M$.(Y.9|
00000B70: 30 29 4D 24 22 20 47 41  4C 53 20 4F 46 20 4F 49  |0)M$" GALS OF OI|
00000B80: 4C 20 55 53 45 44 2E 22  00 95 13 4C 04 53 41 B2  |L USED."...L.SA.|
00000B90: 54 43 AB 48 43 00 A7 13  56 04 8B B5 28 53 41 29  |TC.HC...V...(SA)|
00000BA0: B2 30 A7 31 31 39 30 00  DE 13 60 04 8B 54 24 B2  |.0.1190...`..T$.|
00000BB0: 22 4F 49 4C 22 AF 50 52  24 B3 B1 22 22 A7 99 4D  |"OIL".PR$..""..M|
00000BC0: 24 B5 28 47 55 AB 59 AD  39 30 29 3B 4D 24 22 20  |$.(GU.Y.90);M$" |
00000BD0: 47 41 4C 4C 4F 4E 53 20  53 41 56 45 44 22 00 04  |GALLONS SAVED"..|
00000BE0: 14 6A 04 99 4D 24 22 53  41 56 49 4E 47 53 20 43  |.j..M$"SAVINGS C|
00000BF0: 4F 4D 50 41 52 45 44 20  54 4F 20 4F 52 49 47 49  |OMPARED TO ORIGI|
00000C00: 4E 41 4C 22 00 1E 14 74  04 99 22 43 4F 4E 44 49  |NAL"...t.."CONDI|
00000C10: 54 49 4F 4E 53 3D 24 22  3B B5 28 53 41 29 00 28  |TIONS=$";.(SA).(|
00000C20: 14 7E 04 8D 32 30 36 30  00 3A 14 88 04 8B 50 52  |.~..2060.:....PR|
00000C30: 24 B2 22 4E 22 A7 31 34  38 30 00 4B 14 92 04 8B  |$."N".1480.K....|
00000C40: 50 52 24 B2 22 59 22 A7  37 33 30 00 55 14 9C 04  |PR$."Y".730.U...|
00000C50: 89 31 34 38 30 00 5F 14  A6 04 8D 32 30 36 30 00  |.1480._....2060.|
00000C60: 71 14 B0 04 8B 50 52 24  B2 22 4E 22 A7 31 32 34  |q....PR$."N".124|
00000C70: 30 00 83 14 BA 04 8B 50  52 24 B2 22 59 22 A7 31  |0......PR$."Y".1|
00000C80: 32 32 30 00 93 14 C4 04  8B 50 52 B3 B2 31 A7 31  |220......PR..1.1|
00000C90: 34 30 30 00 A5 14 CE 04  8B 50 52 B1 31 A7 9D 34  |400......PR.1..4|
00000CA0: 3A 89 37 34 30 00 E3 14  D8 04 9D 33 2C 22 54 4F  |:.740......3,"TO|
00000CB0: 20 43 48 41 4E 47 45 20  52 20 56 41 4C 55 45 53  | CHANGE R VALUES|
00000CC0: 20 54 59 50 45 20 12 43  92 2C 20 12 53 92 20 54  | TYPE .C., .S. T|
00000CD0: 4F 20 53 54 4F 50 2C 20  12 52 92 20 54 4F 20 52  |O STOP, .R. TO R|
00000CE0: 55 4E 22 00 F7 14 E2 04  A1 43 24 3A 8B 43 24 B2  |UN"......C$:.C$.|
00000CF0: 22 22 A7 31 32 35 30 00  19 15 EC 04 8B 43 24 B3  |"".1250......C$.|
00000D00: B1 22 53 22 AF 43 24 B3  B1 22 43 22 AF 43 24 B3  |."S".C$.."C".C$.|
00000D10: B1 22 52 22 A7 31 32 34  30 00 2F 15 F6 04 8B 43  |."R".1240./....C|
00000D20: 24 B2 22 53 22 A7 9D 34  3A 99 3A 9D 33 3A 80 00  |$."S"..4:.:.3:..|
00000D30: 3F 15 00 05 8B 43 24 B2  22 52 22 A7 99 3A 8A 00  |?....C$."R"..:..|
00000D40: 57 15 0A 05 99 22 20 20  20 20 4E 45 57 20 52 20  |W...."    NEW R |
00000D50: 56 41 4C 55 45 53 22 00  5D 15 14 05 8C 00 7F 15  |VALUES".].......|
00000D60: 1E 05 81 49 B2 31 A4 38  3A 87 48 46 24 2C 4A 28  |...I.1.8:.HF$,J(|
00000D70: 49 29 3A 8B 41 28 49 29  B2 30 A7 31 33 33 30 00  |I):.A(I).0.1330.|
00000D80: AD 15 28 05 99 22 4E 45  57 20 52 3A 20 22 48 46  |..(.."NEW R: "HF|
00000D90: 24 3A 85 52 4E 28 49 29  3A 8B 52 4E 28 49 29 B3  |$:.RN(I):.RN(I).|
00000DA0: B1 30 A7 52 28 49 29 B2  52 4E 28 49 29 00 B4 15  |.0.R(I).RN(I)...|
00000DB0: 32 05 82 49 00 D8 15 3C  05 81 49 B2 31 31 A4 31  |2..I...<..I.11.1|
00000DC0: 33 3A 87 48 46 24 2C 4A  28 49 29 3A 8B 41 28 49  |3:.HF$,J(I):.A(I|
00000DD0: 29 B2 30 A7 31 33 36 30  00 06 16 46 05 99 22 4E  |).0.1360...F.."N|
00000DE0: 45 57 20 52 3A 20 22 48  46 24 3A 85 52 4E 28 49  |EW R: "HF$:.RN(I|
00000DF0: 29 3A 8B 52 4E 28 49 29  B3 B1 30 A7 52 28 49 29  |):.RN(I)..0.R(I)|
00000E00: B2 52 4E 28 49 29 00 0D  16 50 05 82 49 00 16 16  |.RN(I)...P..I...|
00000E10: 5A 05 89 35 36 30 00 38  16 64 05 81 4C B2 31 A4  |Z..560.8.d..L.1.|
00000E20: 4A AB C3 28 49 24 29 3A  99 C7 28 33 30 29 3B 22  |J..(I$):..(30);"|
00000E30: 20 22 3B 3A 82 4C 3A 8E  00 58 16 6E 05 99 C7 28  | ";:.L:..X.n...(|
00000E40: 33 31 29 22 48 45 41 54  20 46 4C 4F 57 20 41 4E  |31)"HEAT FLOW AN|
00000E50: 41 4C 59 53 49 53 22 3B  00 5F 16 78 05 9D 34 00  |ALYSIS";._.x..4.|
00000E60: 68 16 82 05 8D 31 31 30  00 84 16 8C 05 99 4C 24  |h....110......L$|
00000E70: 22 48 45 41 54 20 46 4C  4F 57 20 41 4E 41 4C 59  |"HEAT FLOW ANALY|
00000E80: 53 49 53 22 00 93 16 96  05 99 4D 24 55 24 4E 44  |SIS"......M$U$ND|
00000E90: 24 46 24 00 BF 16 A0 05  99 22 44 45 53 49 47 4E  |$F$......"DESIGN|
00000EA0: 20 54 45 4D 50 20 44 49  46 46 2C 44 45 47 20 44  | TEMP DIFF,DEG D|
00000EB0: 41 59 53 22 55 24 54 3B  4D 24 44 44 3B 46 24 00  |AYS"U$T;M$DD;F$.|
00000EC0: F2 16 AA 05 99 4D 24 22  42 45 4C 4F 57 20 47 52  |.....M$"BELOW GR|
00000ED0: 41 44 45 28 42 47 29 20  47 52 4F 55 4E 44 20 54  |ADE(BG) GROUND T|
00000EE0: 45 4D 50 45 52 41 54 55  52 45 22 55 24 47 54 3B  |EMPERATURE"U$GT;|
00000EF0: 46 24 00 1A 17 B4 05 99  4D 24 22 41 4E 41 4C 59  |F$......M$"ANALY|
00000F00: 53 49 53 20 46 4F 52 20  22 55 24 54 24 22 20 41  |SIS FOR "U$T$" A|
00000F10: 54 22 4D 3B 4D 24 51 24  46 24 00 23 17 BE 05 89  |T"M;M$Q$F$.#....|
00000F20: 35 34 30 00 48 17 C8 05  99 3A 85 22 43 4F 53 54  |540.H....:."COST|
00000F30: 20 4F 46 20 41 44 44 45  44 20 49 4E 53 55 4C 41  | OF ADDED INSULA|
00000F40: 54 49 4F 4E 22 3B 53 43  00 60 17 D2 05 99 3A 85  |TION";SC.`....:.|
00000F50: 22 25 20 44 4F 57 4E 20  50 59 4D 54 22 3B 44 50  |"% DOWN PYMT";DP|
00000F60: 00 77 17 DC 05 8B 44 50  B2 31 30 30 A7 54 4D B2  |.w....DP.100.TM.|
00000F70: 30 3A 89 31 35 33 30 00  94 17 E6 05 99 3A 85 22  |0:.1530......:."|
00000F80: 4C 4F 41 4E 20 49 4E 54  45 52 45 53 54 28 25 29  |LOAN INTEREST(%)|
00000F90: 22 3B 4C 49 00 AD 17 F0  05 99 3A 85 22 54 45 52  |";LI......:."TER|
00000FA0: 4D 20 4F 46 20 4C 4F 41  4E 22 3B 54 4D 00 CB 17  |M OF LOAN";TM...|
00000FB0: FA 05 99 3A 85 22 46 55  45 4C 20 49 4E 46 4C 41  |...:."FUEL INFLA|
00000FC0: 54 49 4F 4E 28 25 29 22  3B 46 49 00 F2 17 04 06  |TION(%)";FI.....|
00000FD0: 99 3A 85 22 41 4E 41 4C  59 5A 45 20 46 4F 52 20  |.:."ANALYZE FOR |
00000FE0: 48 4F 57 20 4D 41 4E 59  20 59 45 41 52 53 22 3B  |HOW MANY YEARS";|
00000FF0: 59 52 00 F8 17 0E 06 99  00 10 18 18 06 4C 49 B2  |YR...........LI.|
00001000: 4C 49 AD 31 30 30 3A 46  49 B2 46 49 AD 31 30 30  |LI.100:FI.FI.100|
00001010: 00 21 18 22 06 44 50 B2  53 43 AC 44 50 AD 31 30  |.!.".DP.SC.DP.10|
00001020: 30 00 2E 18 2C 06 41 4D  B2 53 43 AB 44 50 00 5C  |0...,.AM.SC.DP.\|
00001030: 18 36 06 8F 3A 50 41 59  42 41 43 4B 20 43 41 4C  |.6..:PAYBACK CAL|
00001040: 43 55 4C 41 54 45 44 20  49 4E 20 46 4F 4C 4C 4F  |CULATED IN FOLLO|
00001050: 57 49 4E 47 20 33 20 4C  49 4E 45 53 00 71 18 40  |WING 3 LINES.q.@|
00001060: 06 45 31 B2 28 31 AA 46  49 29 AD 28 31 AA 4C 49  |.E1.(1.FI).(1.LI|
00001070: 29 00 85 18 4A 06 46 31  B2 53 43 AC 28 45 31 AB  |)...J.F1.SC.(E1.|
00001080: 31 29 AD 53 41 00 9A 18  54 06 4E 31 B2 BC 28 46  |1).SA...T.N1..(F|
00001090: 31 AA 31 29 AD BC 28 45  31 29 00 B0 18 5E 06 50  |1.1)..(E1)...^.P|
000010A0: 42 B2 2E 31 AC B5 28 31  30 AC 4E 31 AA 2E 35 29  |B..1..(10.N1..5)|
000010B0: 00 D5 18 68 06 8F 3A 50  42 3D 4C 4F 47 28 28 53  |...h..:PB=LOG((S|
000010C0: 43 2A 46 49 2F 53 41 29  2B 31 29 2F 4C 4F 47 28  |C*FI/SA)+1)/LOG(|
000010D0: 31 2B 46 49 29 00 E4 18  72 06 8B 54 4D B2 30 A7  |1+FI)...r..TM.0.|
000010E0: 31 37 32 30 00 0B 19 7C  06 59 50 B2 41 4D AC 28  |1720...|.YP.AM.(|
000010F0: 4C 49 AC 28 31 AA 4C 49  29 AE 54 4D 29 AD 28 28  |LI.(1.LI).TM).((|
00001100: 31 AA 4C 49 29 AE 54 4D  AB 31 29 00 25 19 86 06  |1.LI).TM.1).%...|
00001110: 8F 20 59 50 3D 59 52 4C  59 20 4D 4F 52 54 47 20  |. YP=YRLY MORTG |
00001120: 50 59 4D 54 53 00 3A 19  90 06 59 50 B2 2E 30 31  |PYMTS.:...YP..01|
00001130: AC B5 28 31 30 30 AC 59  50 29 00 56 19 9A 06 4E  |..(100.YP).V...N|
00001140: 35 B2 28 BC 28 59 50 AD  53 41 29 AD BC 28 31 AA  |5.(.(YP.SA)..(1.|
00001150: 46 49 29 29 AA 31 00 66  19 A4 06 4E 36 B2 B5 28  |FI)).1.f...N6..(|
00001160: 31 30 AC 4E 35 29 00 78  19 AE 06 8B 4E 36 AD 31  |10.N5).x....N6.1|
00001170: 30 B3 30 A7 4E 36 B2 30  00 93 19 B8 06 53 34 B2  |0.0.N6.0.....S4.|
00001180: 53 41 AC 28 28 31 AA 46  49 29 AE 59 52 AB 31 29  |SA.((1.FI).YR.1)|
00001190: AD 46 49 00 A5 19 C2 06  8B 59 52 B1 59 35 A7 20  |.FI......YR.Y5. |
000011A0: 59 36 B2 54 4D 00 B8 19  CC 06 8B 59 52 B3 B2 54  |Y6.TM......YR..T|
000011B0: 4D A7 20 59 36 B2 59 52  00 CA 19 D6 06 53 36 B2  |M. Y6.YR.....S6.|
000011C0: 53 34 AB 28 59 50 AC 59  36 29 00 E0 19 E0 06 8F  |S4.(YP.Y6)......|
000011D0: 3A 49 3D 28 53 2F 50 29  5E 28 31 2F 4E 29 2D 31  |:I=(S/P)^(1/N)-1|
000011E0: 00 FF 19 EA 06 52 36 B2  28 28 53 36 AD 28 53 43  |.....R6.((S6.(SC|
000011F0: AB 41 4D 29 29 AE 28 31  AD 59 52 29 29 AB 31 00  |.AM)).(1.YR)).1.|
00001200: 09 1A F4 06 89 31 38 31  30 00 10 1A FE 06 9D 34  |.....1810......4|
00001210: 00 36 1A 08 07 99 4D 24  22 46 55 45 4C 20 49 4E  |.6....M$"FUEL IN|
00001220: 46 4C 3D 22 55 24 46 49  AC 31 30 30 3B 4D 24 22  |FL="U$FI.100;M$"|
00001230: 25 3A 22 46 24 3B 00 54  1A 12 07 99 4D 24 22 20  |%:"F$;.T....M$" |
00001240: 50 41 59 42 41 43 4B 3D  22 50 42 3B 4D 24 22 20  |PAYBACK="PB;M$" |
00001250: 59 52 53 22 00 8B 1A 1C  07 99 4D 24 22 54 48 45  |YRS"......M$"THE|
00001260: 20 52 41 54 45 20 4F 46  20 52 45 54 55 52 4E 20  | RATE OF RETURN |
00001270: 49 53 22 3B 2E 31 AC B5  28 31 30 30 30 AC 52 36  |IS";.1..(1000.R6|
00001280: 29 3B 4D 24 22 25 20 46  4F 52 22 00 C0 1A 26 07  |);M$"% FOR"...&.|
00001290: 99 22 24 22 55 24 44 50  3B 46 24 4D 24 22 20 44  |."$"U$DP;F$M$" D|
000012A0: 4F 57 4E 20 50 41 59 4D  45 4E 54 20 4F 4E 20 24  |OWN PAYMENT ON $|
000012B0: 22 3B 55 24 53 43 3B 46  24 4D 24 22 20 4F 46 22  |";U$SC;F$M$" OF"|
000012C0: 00 EE 1A 30 07 99 22 49  4E 53 55 4C 41 54 49 4F  |...0.."INSULATIO|
000012D0: 4E 20 4F 56 45 52 20 41  22 55 24 59 52 3B 46 24  |N OVER A"U$YR;F$|
000012E0: 4D 24 22 20 59 52 20 50  45 52 49 4F 44 22 00 FD  |M$" YR PERIOD"..|
000012F0: 1A 3A 07 8B 54 4D B2 30  A7 31 38 37 30 00 39 1B  |.:..TM.0.1870.9.|
00001300: 44 07 99 22 41 53 53 55  4D 49 4E 47 20 41 22 55  |D.."ASSUMING A"U|
00001310: 24 4C 49 AC 31 30 30 3B  46 24 4D 24 22 25 20 4C  |$LI.100;F$M$"% L|
00001320: 4F 41 4E 20 46 4F 52 22  55 24 54 4D 3B 46 24 4D  |OAN FOR"U$TM;F$M|
00001330: 24 22 20 59 45 41 52 53  22 00 7A 1B 4E 07 99 4D  |$" YEARS".z.N..M|
00001340: 24 22 54 4F 54 41 4C 20  53 41 56 49 4E 47 53 20  |$"TOTAL SAVINGS |
00001350: 41 46 54 45 52 22 3B 59  52 3B 4D 24 22 20 59 45  |AFTER";YR;M$" YE|
00001360: 41 52 53 20 24 22 3B B5  28 53 34 AA 2E 35 29 3A  |ARS $";.(S4..5):|
00001370: 8B 54 4D B2 30 A7 31 39  30 30 00 B4 1B 58 07 99  |.TM.0.1900...X..|
00001380: 4D 24 22 54 4F 54 41 4C  20 4C 4F 41 4E 20 50 59  |M$"TOTAL LOAN PY|
00001390: 4D 54 53 20 41 46 54 45  52 22 3B 59 52 3B 4D 24  |MTS AFTER";YR;M$|
000013A0: 22 20 59 52 53 20 24 22  3B B5 28 59 50 AC 59 36  |" YRS $";.(YP.Y6|
000013B0: AA 2E 35 29 00 F0 1B 62  07 99 4D 24 22 4E 45 54  |..5)...b..M$"NET|
000013C0: 20 53 41 56 49 4E 47 53  20 41 46 54 45 52 22 3B  | SAVINGS AFTER";|
000013D0: 59 52 3B 4D 24 22 20 59  45 41 52 53 20 24 22 3B  |YR;M$" YEARS $";|
000013E0: B5 28 28 53 34 AB 59 50  AC 59 36 29 AA 2E 35 29  |.((S4.YP.Y6)..5)|
000013F0: 00 1D 1C 6C 07 99 4D 24  22 20 20 20 20 20 20 20  |...l..M$"       |
00001400: 20 41 4D 54 20 20 20 20  20 20 20 20 4C 4F 41 4E  | AMT        LOAN|
00001410: 20 20 20 20 20 20 20 20  20 4E 45 54 22 00 49 1C  |         NET".I.|
00001420: 76 07 99 22 20 59 52 20  20 20 20 53 41 56 45 44  |v.." YR    SAVED|
00001430: 20 20 20 20 20 20 20 50  59 4D 54 53 20 20 20 20  |       PYMTS    |
00001440: 20 20 20 53 41 56 45 44  22 00 6A 1C 80 07 81 41  |   SAVED".j....A|
00001450: B2 31 A4 59 52 3A 53 31  B2 53 41 AC 28 28 31 AA  |.1.YR:S1.SA.((1.|
00001460: 46 49 29 AE 28 41 AB 31  29 29 00 7B 1C 8A 07 8B  |FI).(A.1)).{....|
00001470: 41 B3 31 30 A7 99 22 20  22 41 3B 00 8A 1C 94 07  |A.10.." "A;.....|
00001480: 8B 41 B1 B2 31 30 A7 99  41 3B 00 A2 1C 9E 07 8B  |.A..10..A;......|
00001490: 41 B3 B2 59 36 A7 20 4E  39 B2 B5 28 53 31 AB 59  |A..Y6. N9..(S1.Y|
000014A0: 50 29 00 B6 1C A8 07 8B  41 B1 59 36 A7 20 4E 39  |P)......A.Y6. N9|
000014B0: B2 B5 28 53 31 29 00 D5  1C B2 07 49 24 B2 C4 28  |..(S1).....I$..(|
000014C0: B5 28 53 31 29 29 3A 4A  B2 38 3A 8D 31 33 38 30  |.(S1)):J.8:.1380|
000014D0: 3A 99 49 24 3B 00 EF 1C  BC 07 8B 41 B3 B2 59 36  |:.I$;......A..Y6|
000014E0: A7 49 24 B2 C4 28 B5 28  59 50 AA 2E 35 29 29 00  |.I$..(.(YP..5)).|
000014F0: 01 1D C6 07 8B 41 B1 59  36 A7 49 24 B2 C4 28 30  |.....A.Y6.I$..(0|
00001500: 29 00 15 1D D0 07 4A B2  31 32 3A 8D 31 33 38 30  |).....J.12:.1380|
00001510: 3A 99 49 24 3B 00 31 1D  DA 07 49 24 B2 C4 28 4E  |:.I$;.1...I$..(N|
00001520: 39 29 3A 4A B2 31 31 3A  8D 31 33 38 30 3A 99 49  |9):J.11:.1380:.I|
00001530: 24 00 3A 1D E4 07 82 41  3A 99 00 44 1D EE 07 8D  |$.:....A:..D....|
00001540: 32 30 36 30 00 56 1D F8  07 8B 50 52 24 B2 22 4E  |2060.V....PR$."N|
00001550: 22 A7 31 32 34 30 00 68  1D 02 08 8B 50 52 24 B2  |".1240.h....PR$.|
00001560: 22 59 22 A7 31 37 39 30  00 82 1D 0C 08 8B 50 52  |"Y".1790......PR|
00001570: 24 B2 22 59 22 A7 9D 33  3A 50 52 24 B2 22 4E 22  |$."Y"..3:PR$."N"|
00001580: 3A 8E 00 A5 1D 16 08 99  22 54 4F 20 54 48 45 20  |:......."TO THE |
00001590: 50 52 49 4E 54 45 52 3F  20 28 12 59 92 20 4F 52  |PRINTER? (.Y. OR|
000015A0: 20 12 4E 92 29 00 BB 1D  20 08 A1 50 52 24 3A 8B  | .N.)... ..PR$:.|
000015B0: 50 52 24 B2 22 22 A7 32  30 38 30 00 D2 1D 2A 08  |PR$."".2080...*.|
000015C0: 8B 50 52 24 B2 22 4E 22  B0 50 52 24 B2 22 59 22  |.PR$."N".PR$."Y"|
000015D0: A7 8E 00 DC 1D 34 08 89  32 30 37 30 00 00 00     |.....4..2070... |

....2..53280,1:.53281,1:.".".:.D.RV$."RE
V#10/15/79-1":.150.Q.N..L$"    YOUR  NAM
E.Z.X..M$"        ANYTOWN, N.J. 0ZIP0   
 "......"TEL.#(201)777-7777      "RV$...
........."CEILING",6,"WALLS",8,"FLOORS",
7,"MISC.1",7,"WNDWS-1",6,"WNDWS-2",6.8. 
.."DOORS-1",6,"DOORS-2",6,"BG WALLS",5,"
BG FLOORS",4,"MISC.1 BG",4,"999".A...N.1
5.`....A(N),B(N),R(N),RN(N),J(N)......".
".9)"HEAT FLOW ANALYSIS":....H..3,3:.4,4
.A.R.S$.G(29):M$.G(30):L$.G(31):U$.G(15)
:F$.G(14).V...."NAME-DATE";ND$......:."D
ESIGN TEMP DIFF";T......:."DEGREE DAYS";
DD......:."WINTER UNDERGROUND TEMP";GT.[
....: ."ENTER .O. FOR OIL,.E. FOR ELECTR
IC".S....:."OR .G. FOR GAS"......T$:.T$.
"".280..."..T$."O".T$."E".T$."G".310...,
..260.M.6..T$."O". T$."OIL":Q$."/GAL"...
@..T$."E". T$."ELECTRIC":Q$."/KWH"...J..
T$."G". T$."GAS":Q$."/100 CU FT".8.T..:.
"ENTER THE COST OF "T$Q$.?.^..M.J.C..:."
SEASONAL HEATING EFFICIENCY(%)";EF...H..
T$."OIL". F.M.(140.EF.100)...R..T$."ELEC
TRIC". F.M.(3.4.EF.100).O.|..T$."GAS". F
.M.(100.EF.100)......:.I.1.4:.HF$,J(I):.
"AREA OF "HF$;:.A(I):.......A(I).0.420.-
...."R VALUE OF "HF$;:.R(I):..4....I.M..
..I.5.8:.HF$,J(I):."ENTER TOTAL AREA OF 
"HF$;:.A(I):..}....A(I).0.480...B.."ENTE
R 1 FOR SINGLE , 2 FOR STORM ":..E.L.."O
R KNOWN R VALUE OF ";.W.V..HF$;:.R(I):..
.....I......I.11.13:.HF$,J(I):."TOTAL AR
EA OF "HF$;:.A(I):..#....A(I).0.520.B...
."R VALUE OF "HF$;:.R(I):..I....I.R...."
.".{...."WINDOW AND DOOR INFILTRATION LO
SS"...&.."INCLUDED IN R FACTOR";...0..R(
5)..1.R(5)..2 .590.G.:..R(5).1.R(5)..39.
..D..R(5).2.R(5)..86...N..R(6)..1.R(6)..
2 .620...X..R(6).1.R(6)..39. .B..R(6).2.
R(6)..86.:.L..R(7)..1.R(7)..2 .650.O.V..
R(7).1.R(7)..22.D....R(7).2.R(7)..75.~..
..R(8)..1.R(8)..2 .680......R(8).1.R(8).
.22......R(8).2.R(8)..75.B....I.1.8:.R(I
).0.R(I).1.....B(I)..(T.A(I).R(I)):.I...
...I.11.13:.R(I).0.R(I).1...F.B(I)..((65
.GT).A(I).R(I)):.I.%.P..:.740.,.Z..4.C..
..L$"    HEAT LOSS".V....G(30)"         
   R   AREA     HTM      BTUH".|........
..I.1.8:.HF$,J(I):.A(I).0.830......M$HF$
;.J...I$.D(R(I)):J.J(I):.1380:.I$;... .I
$.D(A(I)):J.7:.1380:.I$;...*.I$.D(.1..(1
0.T.R(I)..5)):J.8:.1380:.I$;.2.4.I$.D(B(
I)):J.10:.1380:.I$.9.>..I.\.H..I.11.13:.
HF$,J(I):.A(I).0.920.H.R..M$HF$;...\.I$.
D(R(I)):J.J(I):.1380:.I$;...F..I.13.I$.D
(A(I)):J.7:.1380:.U$I$F$;:.890.T.P.I$.D(
A(I)):J.7:.1380:.I$;...Z.I$.D(.1..(10.(6
5.GT).R(I)..5)):J.8:.1380:.I$;.3....I.13
.I$.D(B(I)):J.10:.1380:.U$I$F$:.920.Q...
I$.D(B(I)):J.10:.1380:.I$.X....I.G...."T
OTALS";.....A.0:.I.1.N:A.A.A(I):.I:I$.D(
A):J.14......1380:.I$;.F...B.0:.I.1.N:B.
B.B(I):.I:I$.D(B):J.18.T.J..1380:.I$...T
.Y.0:.I.1.8:Y.Y.(A(I).R(I)):.I.....Y.Y.2
4.DD.1000.....Y1.0:.I.11.12:Y1.Y1.A(I).R
(I):.I.M...Y.Y.24.180.(65.GT).Y1.1000.F.
..HL..1..(.24.E(I$).T)......"HEAT LOAD="
;HL;M$" KBTU/DD"......"TOTAL BTU/YEAR US
ED=";.(.1.Y)..01;M$" MBTU"......PR$."". 
GU..(Y.90):TC..(100.F.Y)..01...$.HC..(10
0.F.Y)..01......M$"YEARLY HEAT COST=$";H
C.Y.8..T$."OIL".T$."GAS"..M$"FOR"U$EF;F$
M$"% SEASONAL EFFICIENCY"...B..T$."OIL".
.M$.(Y.90)M$" GALS OF OIL USED."...L.SA.
TC.HC...V...(SA).0.1190...`..T$."OIL".PR
$..""..M$.(GU.Y.90);M$" GALLONS SAVED"..
.J..M$"SAVINGS COMPARED TO ORIGINAL"...T
.."CONDITIONS=$";.(SA).(.~..2060.:....PR
$."N".1480.K....PR$."Y".730.U....1480._.
...2060.Q....PR$."N".1240......PR$."Y".1
220...D..PR..1.1400...N..PR.1..4:.740...
X..3,"TO CHANGE R VALUES TYPE .C., .S. T
O STOP, .R. TO RUN"......C$:.C$."".1250.
.....C$.."S".C$.."C".C$.."R".1240./....C
$."S"..4:.:.3:..?....C$."R"..:..W...."  
  NEW R VALUES".].........I.1.8:.HF$,J(
I):.A(I).0.1330...(.."NEW R: "HF$:.RN(I)
:.RN(I)..0.R(I).RN(I)...2..I.X.<..I.11.1
3:.HF$,J(I):.A(I).0.1360...F.."NEW R: "H
F$:.RN(I):.RN(I)..0.R(I).RN(I)...P..I...
Z..560.8.D..L.1.J.C(I$):.G(30);" ";:.L:.
.X.N..G(31)"HEAT FLOW ANALYSIS";._.X..4.
H....110......L$"HEAT FLOW ANALYSIS"....
..M$U$ND$F$... .."DESIGN TEMP DIFF,DEG D
AYS"U$T;M$DD;F$......M$"BELOW GRADE(BG) 
GROUND TEMPERATURE"U$GT;F$......M$"ANALY
SIS FOR "U$T$" AT"M;M$Q$F$.#....540.H.H.
.:."COST OF ADDED INSULATION";SC.`.R..:.
"% DOWN PYMT";DP.W....DP.100.TM.0:.1530.
.....:."LOAN INTEREST(%)";LI......:."TER
M OF LOAN";TM.K....:."FUEL INFLATION(%)"
;FI......:."ANALYZE FOR HOW MANY YEARS";
YR...........LI.LI.100:FI.FI.100.!.".DP.
SC.DP.100...,.AM.SC.DP.\.6..:PAYBACK CAL
CULATED IN FOLLOWING 3 LINES.Q.@.E1.(1.F
I).(1.LI)...J.F1.SC.(E1.1).SA...T.N1..(F
1.1)..(E1)...^.PB..1..(10.N1..5).U.H..:P
B=LOG((SC*FI/SA)+1)/LOG(1+FI)...R..TM.0.
1720...|.YP.AM.(LI.(1.LI).TM).((1.LI).TM
.1).%.... YP=YRLY MORTG PYMTS.:...YP..01
..(100.YP).V...N5.(.(YP.SA)..(1.FI)).1.F
...N6..(10.N5).X....N6.10.0.N6.0.....S4.
SA.((1.FI).YR.1).FI...B..YR.Y5. Y6.TM...
L..YR..TM. Y6.YR.J.V.S6.S4.(YP.Y6)......
:I=(S/P)^(1/N)-1.....R6.((S6.(SC.AM)).(1
.YR)).1......1810......4.6....M$"FUEL IN
FL="U$FI.100;M$"%:"F$;.T....M$" PAYBACK=
"PB;M$" YRS"......M$"THE RATE OF RETURN 
IS";.1..(1000.R6);M$"% FOR"...&.."$"U$DP
;F$M$" DOWN PAYMENT ON $";U$SC;F$M$" OF"
...0.."INSULATION OVER A"U$YR;F$M$" YR P
ERIOD"...:..TM.0.1870.9.D.."ASSUMING A"U
$LI.100;F$M$"% LOAN FOR"U$TM;F$M$" YEARS
".Z.N..M$"TOTAL SAVINGS AFTER";YR;M$" YE
ARS $";.(S4..5):.TM.0.1900...X..M$"TOTAL
 LOAN PYMTS AFTER";YR;M$" YRS $";.(YP.Y6
..5)...B..M$"NET SAVINGS AFTER";YR;M$" Y
EARS $";.((S4.YP.Y6)..5)...L..M$"       
 AMT        LOAN         NET".I.V.." YR 
   SAVED       PYMTS       SAVED".J....A
.1.YR:S1.SA.((1.FI).(A.1)).{....A.10.." 
"A;......A..10..A;......A..Y6. N9..(S1.Y
P)......A.Y6. N9..(S1).U...I$.D(.(S1)):J
.8:.1380:.I$;......A..Y6.I$.D(.(YP..5)).
..F..A.Y6.I$.D(0)...P.J.12:.1380:.I$;.1.
Z.I$.D(N9):J.11:.1380:.I$.:....A:..D....
2060.V....PR$."N".1240.H....PR$."Y".1790
......PR$."Y"..3:PR$."N":......."TO THE 
PRINTER? (.Y. OR .N.)... ..PR$:.PR$."".2
080.R.*..PR$."N".PR$."Y".....4..2070...

×

C64 Image

> CLICK IMAGE PREVIEW FOR FULL MODAL