(� > <BasicSave$Dir>.House Insulation
� The Safe Scientist
� (c) The Micro User
(�1
2�23,1,0;0;0;0;0;
<�options
F�bground
P
�setup
Z�run
d�
n��setup
x@%=&02010A
�� OT%(12),T$(12)
�!DE%=0:LI%=0:DG%=0:CW%=0:DY%=0
�+�N%=1�12:� OT%(N%):OT%(N%)=OT%(N%)+S%:�
��0,2,4,6,8,10,10,8,6,4,2,0
��N%=1�12:� T$(N%):�
�=� 6am,8am,10am,noon,2pm,4pm,6pm,8pm,10pm,midnight,2am,4am
�	IT=20
�E%=4
��
�	��run
��0
��
�+DY%=DY%+1:DY$=�(DY%):�30,8);"DAY ";DY$

�N%=1�12

2�6,4);�(3)�30,4);�(8)�4,4);�(13)�14,14);�(12)

�30,2)"TIME"�30,4);T$(N%)

"7�1,2)"OUTSIDE TEMPERATURE"�4,4);OT%(N%);" DEGREES"

,5�11,12)"INSIDE TEMPERATURE"�14,14);IT;" DEGREES"

6D%=IT-OT%(N%)

@IT=IT-D%/E%

J	�=0:�

TB� �-17 � DE%=0 DE%=1:E%=E%+2:�2,24)"DRAUGHT EXCLUDERS FITTED"

^C� �-66 � DE%=1 DE%=0:E%=E%-2:�2,24)"NO DRAUGHT EXCLUDERS     "

h@� �-34 � LI%=0 LI%=1:E%=E%+2:�2,26)"LOFT INSULATION FITTED"

rC� �-82 � LI%=1 LI%=0:E%=E%-2:�2,26)"NO LOFT INSULATION       "

|?� �-35 � DG%=0 DG%=1:E%=E%+1:�2,28)"DOUBLE GLAZING FITTED"

�?� �-51 � DG%=1 DG%=0:E%=E%-1:�2,28)"SINGLE GLAZING FITTED"

�@� �-52 � CW%=0 CW%=1:E%=E%+1:�2,30)"CAVITY WALLS INSULATED"

�@� �-68 � CW%=1 CW%=0:E%=E%-1:�2,30)"CAVITY WALLS EMPTY    "

�
��>200

��

��0

��

�
��bground

��19,2,2;0;19,3,6;0;

�
�131:�

�,�0,2:�0,0:�1279,0:�85,0,400:�85,1279,400

�G�0,1:�340,300:�940,300:�85,340,700:�85,940,700:�640,900:�85,340,700

�8�0:�30,24)"Q/A"�30,26)"W/S"�30,28)"E/D"�30,30)"R/F"
r�2,24)"NO DRAUGHT EXCLUDERS"�2,26)"NO LOFT INSULATION"�2,28)"SINGLE GLAZING FITTED"�2,30)"CAVITY WALLS EMPTY"
�

��options
&�2,2)"SELECT A SEASON"
0[�4,4)"A ..... WINTER"�6,6)"B ..... SPRING"�8,8)"C ..... SUMMER"�10,10)"D ..... AUTUMN"
:�:G=�:�G>64 � G<69
DN� G=65 S%=-4-�(6) � � G=66 S%=2-�(4) � � G=67 S%=8+�(8) � � G=68 S%=3+�(4)
N�
�

00000000  0d 00 0a 28 f4 20 3e 20  3c 42 61 73 69 63 53 61  |...(. > <BasicSa|
00000010  76 65 24 44 69 72 3e 2e  48 6f 75 73 65 20 49 6e  |ve$Dir>.House In|
00000020  73 75 6c 61 74 69 6f 6e  0d 00 14 18 f4 20 54 68  |sulation..... Th|
00000030  65 20 53 61 66 65 20 53  63 69 65 6e 74 69 73 74  |e Safe Scientist|
00000040  0d 00 1e 18 f4 20 28 63  29 20 54 68 65 20 4d 69  |..... (c) The Mi|
00000050  63 72 6f 20 55 73 65 72  0d 00 28 06 eb 31 0d 00  |cro User..(..1..|
00000060  32 14 ef 32 33 2c 31 2c  30 3b 30 3b 30 3b 30 3b  |2..23,1,0;0;0;0;|
00000070  30 3b 0d 00 3c 0c f2 6f  70 74 69 6f 6e 73 0d 00  |0;..<..options..|
00000080  46 0c f2 62 67 72 6f 75  6e 64 0d 00 50 0a f2 73  |F..bground..P..s|
00000090  65 74 75 70 0d 00 5a 08  f2 72 75 6e 0d 00 64 05  |etup..Z..run..d.|
000000a0  e0 0d 00 6e 0b dd f2 73  65 74 75 70 0d 00 78 0e  |...n...setup..x.|
000000b0  40 25 3d 26 30 32 30 31  30 41 0d 00 82 14 de 20  |@%=&02010A..... |
000000c0  4f 54 25 28 31 32 29 2c  54 24 28 31 32 29 0d 00  |OT%(12),T$(12)..|
000000d0  8c 21 44 45 25 3d 30 3a  4c 49 25 3d 30 3a 44 47  |.!DE%=0:LI%=0:DG|
000000e0  25 3d 30 3a 43 57 25 3d  30 3a 44 59 25 3d 30 0d  |%=0:CW%=0:DY%=0.|
000000f0  00 96 2b e3 4e 25 3d 31  b8 31 32 3a f3 20 4f 54  |..+.N%=1.12:. OT|
00000100  25 28 4e 25 29 3a 4f 54  25 28 4e 25 29 3d 4f 54  |%(N%):OT%(N%)=OT|
00000110  25 28 4e 25 29 2b 53 25  3a ed 0d 00 a0 1e dc 30  |%(N%)+S%:......0|
00000120  2c 32 2c 34 2c 36 2c 38  2c 31 30 2c 31 30 2c 38  |,2,4,6,8,10,10,8|
00000130  2c 36 2c 34 2c 32 2c 30  0d 00 aa 17 e3 4e 25 3d  |,6,4,2,0.....N%=|
00000140  31 b8 31 32 3a f3 20 54  24 28 4e 25 29 3a ed 0d  |1.12:. T$(N%):..|
00000150  00 b4 3d dc 20 36 61 6d  2c 38 61 6d 2c 31 30 61  |..=. 6am,8am,10a|
00000160  6d 2c 6e 6f 6f 6e 2c 32  70 6d 2c 34 70 6d 2c 36  |m,noon,2pm,4pm,6|
00000170  70 6d 2c 38 70 6d 2c 31  30 70 6d 2c 6d 69 64 6e  |pm,8pm,10pm,midn|
00000180  69 67 68 74 2c 32 61 6d  2c 34 61 6d 0d 00 be 09  |ight,2am,4am....|
00000190  49 54 3d 32 30 0d 00 c8  08 45 25 3d 34 0d 00 d2  |IT=20....E%=4...|
000001a0  05 e1 0d 00 dc 09 dd f2  72 75 6e 0d 00 e6 06 fb  |........run.....|
000001b0  30 0d 00 f0 05 f5 0d 00  fa 2b 44 59 25 3d 44 59  |0........+DY%=DY|
000001c0  25 2b 31 3a 44 59 24 3d  c3 28 44 59 25 29 3a f1  |%+1:DY$=.(DY%):.|
000001d0  8a 33 30 2c 38 29 3b 22  44 41 59 20 22 3b 44 59  |.30,8);"DAY ";DY|
000001e0  24 0d 01 04 0c e3 4e 25  3d 31 b8 31 32 0d 01 0e  |$.....N%=1.12...|
000001f0  32 f1 8a 36 2c 34 29 3b  89 28 33 29 8a 33 30 2c  |2..6,4);.(3).30,|
00000200  34 29 3b 89 28 38 29 8a  34 2c 34 29 3b 89 28 31  |4);.(8).4,4);.(1|
00000210  33 29 8a 31 34 2c 31 34  29 3b 89 28 31 32 29 0d  |3).14,14);.(12).|
00000220  01 18 1e f1 8a 33 30 2c  32 29 22 54 49 4d 45 22  |.....30,2)"TIME"|
00000230  8a 33 30 2c 34 29 3b 54  24 28 4e 25 29 0d 01 22  |.30,4);T$(N%).."|
00000240  37 f1 8a 31 2c 32 29 22  4f 55 54 53 49 44 45 20  |7..1,2)"OUTSIDE |
00000250  54 45 4d 50 45 52 41 54  55 52 45 22 8a 34 2c 34  |TEMPERATURE".4,4|
00000260  29 3b 4f 54 25 28 4e 25  29 3b 22 20 44 45 47 52  |);OT%(N%);" DEGR|
00000270  45 45 53 22 0d 01 2c 35  f1 8a 31 31 2c 31 32 29  |EES"..,5..11,12)|
00000280  22 49 4e 53 49 44 45 20  54 45 4d 50 45 52 41 54  |"INSIDE TEMPERAT|
00000290  55 52 45 22 8a 31 34 2c  31 34 29 3b 49 54 3b 22  |URE".14,14);IT;"|
000002a0  20 44 45 47 52 45 45 53  22 0d 01 36 11 44 25 3d  | DEGREES"..6.D%=|
000002b0  49 54 2d 4f 54 25 28 4e  25 29 0d 01 40 0f 49 54  |IT-OT%(N%)..@.IT|
000002c0  3d 49 54 2d 44 25 2f 45  25 0d 01 4a 09 d1 3d 30  |=IT-D%/E%..J..=0|
000002d0  3a f5 0d 01 54 42 e7 20  a6 2d 31 37 20 80 20 44  |:...TB. .-17 . D|
000002e0  45 25 3d 30 20 44 45 25  3d 31 3a 45 25 3d 45 25  |E%=0 DE%=1:E%=E%|
000002f0  2b 32 3a f1 8a 32 2c 32  34 29 22 44 52 41 55 47  |+2:..2,24)"DRAUG|
00000300  48 54 20 45 58 43 4c 55  44 45 52 53 20 46 49 54  |HT EXCLUDERS FIT|
00000310  54 45 44 22 0d 01 5e 43  e7 20 a6 2d 36 36 20 80  |TED"..^C. .-66 .|
00000320  20 44 45 25 3d 31 20 44  45 25 3d 30 3a 45 25 3d  | DE%=1 DE%=0:E%=|
00000330  45 25 2d 32 3a f1 8a 32  2c 32 34 29 22 4e 4f 20  |E%-2:..2,24)"NO |
00000340  44 52 41 55 47 48 54 20  45 58 43 4c 55 44 45 52  |DRAUGHT EXCLUDER|
00000350  53 20 20 20 20 20 22 0d  01 68 40 e7 20 a6 2d 33  |S     "..h@. .-3|
00000360  34 20 80 20 4c 49 25 3d  30 20 4c 49 25 3d 31 3a  |4 . LI%=0 LI%=1:|
00000370  45 25 3d 45 25 2b 32 3a  f1 8a 32 2c 32 36 29 22  |E%=E%+2:..2,26)"|
00000380  4c 4f 46 54 20 49 4e 53  55 4c 41 54 49 4f 4e 20  |LOFT INSULATION |
00000390  46 49 54 54 45 44 22 0d  01 72 43 e7 20 a6 2d 38  |FITTED"..rC. .-8|
000003a0  32 20 80 20 4c 49 25 3d  31 20 4c 49 25 3d 30 3a  |2 . LI%=1 LI%=0:|
000003b0  45 25 3d 45 25 2d 32 3a  f1 8a 32 2c 32 36 29 22  |E%=E%-2:..2,26)"|
000003c0  4e 4f 20 4c 4f 46 54 20  49 4e 53 55 4c 41 54 49  |NO LOFT INSULATI|
000003d0  4f 4e 20 20 20 20 20 20  20 22 0d 01 7c 3f e7 20  |ON       "..|?. |
000003e0  a6 2d 33 35 20 80 20 44  47 25 3d 30 20 44 47 25  |.-35 . DG%=0 DG%|
000003f0  3d 31 3a 45 25 3d 45 25  2b 31 3a f1 8a 32 2c 32  |=1:E%=E%+1:..2,2|
00000400  38 29 22 44 4f 55 42 4c  45 20 47 4c 41 5a 49 4e  |8)"DOUBLE GLAZIN|
00000410  47 20 46 49 54 54 45 44  22 0d 01 86 3f e7 20 a6  |G FITTED"...?. .|
00000420  2d 35 31 20 80 20 44 47  25 3d 31 20 44 47 25 3d  |-51 . DG%=1 DG%=|
00000430  30 3a 45 25 3d 45 25 2d  31 3a f1 8a 32 2c 32 38  |0:E%=E%-1:..2,28|
00000440  29 22 53 49 4e 47 4c 45  20 47 4c 41 5a 49 4e 47  |)"SINGLE GLAZING|
00000450  20 46 49 54 54 45 44 22  0d 01 90 40 e7 20 a6 2d  | FITTED"...@. .-|
00000460  35 32 20 80 20 43 57 25  3d 30 20 43 57 25 3d 31  |52 . CW%=0 CW%=1|
00000470  3a 45 25 3d 45 25 2b 31  3a f1 8a 32 2c 33 30 29  |:E%=E%+1:..2,30)|
00000480  22 43 41 56 49 54 59 20  57 41 4c 4c 53 20 49 4e  |"CAVITY WALLS IN|
00000490  53 55 4c 41 54 45 44 22  0d 01 9a 40 e7 20 a6 2d  |SULATED"...@. .-|
000004a0  36 38 20 80 20 43 57 25  3d 31 20 43 57 25 3d 30  |68 . CW%=1 CW%=0|
000004b0  3a 45 25 3d 45 25 2d 31  3a f1 8a 32 2c 33 30 29  |:E%=E%-1:..2,30)|
000004c0  22 43 41 56 49 54 59 20  57 41 4c 4c 53 20 45 4d  |"CAVITY WALLS EM|
000004d0  50 54 59 20 20 20 20 22  0d 01 a4 0a fd 91 3e 32  |PTY    "......>2|
000004e0  30 30 0d 01 ae 05 ed 0d  01 b8 06 fd 30 0d 01 c2  |00..........0...|
000004f0  05 e1 0d 01 cc 0d dd f2  62 67 72 6f 75 6e 64 0d  |........bground.|
00000500  01 d6 17 ef 31 39 2c 32  2c 32 3b 30 3b 31 39 2c  |....19,2,2;0;19,|
00000510  33 2c 36 3b 30 3b 0d 01  e0 0a fb 31 33 31 3a db  |3,6;0;.....131:.|
00000520  0d 01 ea 2c e6 30 2c 32  3a ec 30 2c 30 3a ec 31  |...,.0,2:.0,0:.1|
00000530  32 37 39 2c 30 3a f0 38  35 2c 30 2c 34 30 30 3a  |279,0:.85,0,400:|
00000540  f0 38 35 2c 31 32 37 39  2c 34 30 30 0d 01 f4 47  |.85,1279,400...G|
00000550  e6 30 2c 31 3a ec 33 34  30 2c 33 30 30 3a ec 39  |.0,1:.340,300:.9|
00000560  34 30 2c 33 30 30 3a f0  38 35 2c 33 34 30 2c 37  |40,300:.85,340,7|
00000570  30 30 3a f0 38 35 2c 39  34 30 2c 37 30 30 3a ec  |00:.85,940,700:.|
00000580  36 34 30 2c 39 30 30 3a  f0 38 35 2c 33 34 30 2c  |640,900:.85,340,|
00000590  37 30 30 0d 01 fe 38 fb  30 3a f1 8a 33 30 2c 32  |700...8.0:..30,2|
000005a0  34 29 22 51 2f 41 22 8a  33 30 2c 32 36 29 22 57  |4)"Q/A".30,26)"W|
000005b0  2f 53 22 8a 33 30 2c 32  38 29 22 45 2f 44 22 8a  |/S".30,28)"E/D".|
000005c0  33 30 2c 33 30 29 22 52  2f 46 22 0d 02 08 72 f1  |30,30)"R/F"...r.|
000005d0  8a 32 2c 32 34 29 22 4e  4f 20 44 52 41 55 47 48  |.2,24)"NO DRAUGH|
000005e0  54 20 45 58 43 4c 55 44  45 52 53 22 8a 32 2c 32  |T EXCLUDERS".2,2|
000005f0  36 29 22 4e 4f 20 4c 4f  46 54 20 49 4e 53 55 4c  |6)"NO LOFT INSUL|
00000600  41 54 49 4f 4e 22 8a 32  2c 32 38 29 22 53 49 4e  |ATION".2,28)"SIN|
00000610  47 4c 45 20 47 4c 41 5a  49 4e 47 20 46 49 54 54  |GLE GLAZING FITT|
00000620  45 44 22 8a 32 2c 33 30  29 22 43 41 56 49 54 59  |ED".2,30)"CAVITY|
00000630  20 57 41 4c 4c 53 20 45  4d 50 54 59 22 0d 02 12  | WALLS EMPTY"...|
00000640  05 e1 0d 02 1c 0d dd f2  6f 70 74 69 6f 6e 73 0d  |........options.|
00000650  02 26 1b f1 8a 32 2c 32  29 22 53 45 4c 45 43 54  |.&...2,2)"SELECT|
00000660  20 41 20 53 45 41 53 4f  4e 22 0d 02 30 5b f1 8a  | A SEASON"..0[..|
00000670  34 2c 34 29 22 41 20 2e  2e 2e 2e 2e 20 57 49 4e  |4,4)"A ..... WIN|
00000680  54 45 52 22 8a 36 2c 36  29 22 42 20 2e 2e 2e 2e  |TER".6,6)"B ....|
00000690  2e 20 53 50 52 49 4e 47  22 8a 38 2c 38 29 22 43  |. SPRING".8,8)"C|
000006a0  20 2e 2e 2e 2e 2e 20 53  55 4d 4d 45 52 22 8a 31  | ..... SUMMER".1|
000006b0  30 2c 31 30 29 22 44 20  2e 2e 2e 2e 2e 20 41 55  |0,10)"D ..... AU|
000006c0  54 55 4d 4e 22 0d 02 3a  16 f5 3a 47 3d a5 3a fd  |TUMN"..:..:G=.:.|
000006d0  47 3e 36 34 20 80 20 47  3c 36 39 0d 02 44 4e e7  |G>64 . G<69..DN.|
000006e0  20 47 3d 36 35 20 53 25  3d 2d 34 2d b3 28 36 29  | G=65 S%=-4-.(6)|
000006f0  20 8b 20 e7 20 47 3d 36  36 20 53 25 3d 32 2d b3  | . . G=66 S%=2-.|
00000700  28 34 29 20 8b 20 e7 20  47 3d 36 37 20 53 25 3d  |(4) . . G=67 S%=|
00000710  38 2b b3 28 38 29 20 8b  20 e7 20 47 3d 36 38 20  |8+.(8) . . G=68 |
00000720  53 25 3d 33 2b b3 28 34  29 0d 02 4e 05 e1 0d ff  |S%=3+.(4)..N....|
00000730