1 DIM I(29,29),P(29,29),B$(3)
2 PRINT "PRINT IN THE MAXIMUM SEGMENT FOR COLUMNS, THE MAXIMUM"
3 PRINT "SEGMENT FOR ROWS, RESISTANCE BETWEEN SEGMENTS, HEAR INPUT"
4 PRINT "PER SEGMENT, OUTDOOR TEMP. (TO), RESISTANCE TO TO, INDOOR"
5 PRINT "TEMP. (T1), RESISTANCE TO T1 AND RESISTANCE TO OUTSIDE EDGE"
6 INPUT M,F3,R1,I,T0,R2,T1,R3,R4
7 J=0
8 IF F3>29 OR M>29 THEN 93
9 N9=8
10 REM: N9 CONTAINS THE NO. OF NUMBERS PER LINE, CHANGE IT IF YOU WISH
11 N7=N9
12 MAT P=CON
13 MAT I=(I)*P
14 PRINT"IS THERE ANY SPECIAL HEAT INPUT";
15 INPUT B$
16 IF B$="YES" THEN 104
17FOR S=1 TO F3
18 FOR N=1 TO M
19 P(S,N)=(I(S,N)+T0/R2+T1/R3)*R2*R3/(R2+R3)
20 NEXT N
21 NEXT S
22 Y=0
23 FOR S=1 TO F3
24 FOR N=1 TO M
25 D=0
26 IF S=1 THEN 29
27 D=D+1
28 F(D)=P(S-1,N)
29 IF S=F3 THEN32
30 D=D+1
31 F(D)=P(S+1,N)
32 IF N=1 THEN 35
33 D=D+1
34 F(D)=P(S,N-1)
35 IF N=M THEN 38
36 D=D+1
37 F(D)=P(S,N+1)
38 ON D GOTO 94,39,82,85
39 D=I(S,N)+(F(1)+F(2))/R1+T0/R2+T1/R3+(T0+T1)/R4
40 D=D*R1*R2*R3*R4/(2*R2*R3*R4+R1*R3*R4+R1*R2*R4+2*R1*R2*R3)
41 IF ABS(P(S,N)-D)<.1 THEN 44
42 Y=1
43 P(S,N)=D
44 NEXT N
45 NEXT S
46 IF Y<>0 THEN 22
47 FOR N=1 TO M
48 FOR S=1 TO F3
49 P(S,N)=INT(P(S,N)*100)/100
50 NEXT S
51 NEXT N
52 Y=1
53 D=M
54 PRINT:PRINT:PRINT
55 IF M <= N7 THEN 57
56 D=N7
57 V=3
58 FOR S=Y TO D
59 V=V+7
60 PRINT TAB (V);S;
61 NEXT S
62 PRINT
63 FOR N=1 TO F3
64 V=4
65 PRINT TAB(3);N;
66 FOR X=Y TO D
67 V=V+7
68 PRINT TAB(V);"*";
69 NEXT X
70 PRINT
71 V=1
72 FOR S=Y TO D
73 V=V+7
74 PRINT TAB (V);P(N,S);
75 NEXT S
76 PRINT
77 NEXT N
78 IF M <= D THEN 88
79 Y=Y+N9
80 N7=N7+N9
81 GOTO 53
82 D=I(S,N)+(F(1)+F(2)+F(3))/R1+T0/R2+T1/R3+(T0+T1)/(2*R4)
83 D=D*R1*R2*R3*R4/(3*R2*R3+R1*R3+R1*R2)
84 GOTO 41
85 D=I(S,N)+(F(1)+F(2)+F(3)+F(4))/R1+T0/R2+T1/R3
86 D=D*R1*R2*R3/(4*R2*R3+R1*R3+R1*R2)
87 GOTO 41
88 PRINT"IS THERE ANY MORE DATA TO BE INPUTED";:PRINTCHR$(7);FORX=1TO6
89 INPUT B$
90 IF B$="YES" THEN 2
91 PRINT:PRINT:PRINT:PRINT:PRINT
92 GOTO136
93 IF J=1 THEN 96
94 PRINT"THE MAXIMUM MUST BE BETWEEN (AND INCLUDING)2 AND 29"
95 J=1
96 PRINT"INPUT A NEW MAXIMUM FOR ";
97 IF F3>M THEN 101
98 PRINT"COLUMNS";
99 INPUT M
100 GOTO8
101 PRINT"ROWS";
102 INPUT F3
103 GOTO 8
104 PRINT"IS THERE A PATTERN IN ROWS OR COLUMNS";
105 INPUT B$
106 IF B$="YES" THEN 122
107 PRINT"HOW MANY ITEMS ARE TO BE INPUTED";
108 INPUT V
109 IF V<1 THEN17
110 PRINT"INPUT THE HEAT AS FOLLOWS: ROW, COLUMN, HEAT"
111 PRINT"PUSH RETURN AFTER EACH HEAT"
112 FOR S=1 TO V
113 INPUT D,Y,J
114 IF D>F3 THEN 134
115 IF Y>M THEN 119
116 I(D,Y)=J
117 NEXT S
118 GOTO 130
119PRINTY;"IS GREATER THEN";M;"WHICH IS YOUR MAXIMUM FOR COLUMNS"
120 PRINT"INPUT THOSE FIGURES AGAIN!!!!"
121 GOTO 113
122 PRINT"LIST THE STARTING AND ENDING POINTS FOR ROWS AND COLUMNS"
123 PRINT"AND THE HEAT INPUT"
124 INPUTD,Y,J,V,H6
125 FOR S=DTO Y
126 FOR N= J TO V
127 I(S,N)=H6
128 NEXT N
129 NEXT S
1 30 PRINT"IS THERE ANY MORE DATA TO BE INPUTED";
131  INPUT B$
132 IF B$="YES" THEN 104
133 GOTO17
134 PRINT D; "IS GREATER THAN"; F3;"WHICH IS YOUR MAXIMUM FOR ROWS"
135 GOTO 120
136 END