 01 LBL "SUMWF"
 02 "WF LAYERS"
 03 61
 04 XROM 16,11
 05 FC?C 25
 06 PROMPT
 07 "DAY"
 08 ASTO 03
 09 "M3/DAY"
 10 ASTO 06
 11 CLA
 12 ASTO 04
 13 ASTO 07
 14 CF 03
 15 1.1
 16 STO 08
 17 LBL 14
 18 29
 19 STO 00
 20 LBL 13
 21 FC? 03
 22 ADV
 23 XEQ 02
 24 FC? 03
 25 FS? 22
 26 GTO 00
 27 FC? 23
 28 GTO 01
 29 LBL 00
 30 XEQ 03
 31 "%POR"
 32 XEQ 18
 33 XROM 15,15
 34 ISG 08
 35 GTO 13
 36 LBL 01
 37 RCL 08
 38 INT
 39 1
 40 -
 41 1 E3
 42 +
 43 LASTX
 44 /
 45 STO 08
 46 STO 09
 47 "EDIT"
 48 3
 49 XROM 16,13
 50 FS? 03
 51 GTO 14
 52 LBL 12
 53 RCL 09
 54 STO 08
 55 26
 56 STO 00
 57 ADV
 58 XEQ 05
 59 XEQ 08
 60 CF 08
 61 XEQ 15
 62 ISG 08
 63 LBL 11
 64 ADV
 65 RCL 08
 66 INT
 67 3
 68 *
 69 27
 70 +
 71 RCL 27
 72 RCL IND Y
 73 RCL 30
 74 /
 75 STO 26
 76 ISG Z
 77 CLD
 78 RCL IND Z
 79 *
 80 RCL 31
 81 /
 82 ISG Z
 83 CLD
 84 X<> 26
 85 RCL IND Z
 86 /
 87 RCL 32
 88 *
 89 /
 90 XEQ 06
 91 RCL 28
 92 RCL 26
 93 *
 94 XEQ 09
 95 RCL 29
 96 RCL 26
 97 *
 98 XEQ 16
 99 ISG 08
100 GTO 11
101 GTO 12
102 LBL 02
103 "K"
104 XEQ 18
105 ASTO T
106 "MD"
107 ASTO 01
108 GTO 04
109 LBL 03
110 "H"
111 XEQ 18
112 ASTO T
113 "FT"
114 ASTO 01
115 "M"
116 LBL 04
117 ASTO Y
118 CLA
119 ASTO 02
120 ASTO Z
121 ARCL T
122 XROM 16,41
123 RTN
124 LBL 05
125 "T1"
126 XEQ 07
127 XROM 16,40
128 RDN
129 STO 03
130 X<>Y
131 STO 04
132 R^
133 RTN
134 LBL 06
135 "T"
136 XEQ 18
137 XEQ 07
138 XROM 16,37
139 RDN
140 STO 03
141 X<>Y
142 STO 04
143 R^
144 RTN
145 LBL 07
146 ASTO T
147 "DAY"
148 ASTO 01
149 CLA
150 ASTO 02
151 ARCL T
152 RCL 04
153 RCL 03
154 RCL Z
155 RTN
156 LBL 08
157 "QO1"
158 XEQ 17
159 XROM 16,40
160 GTO 10
161 LBL 09
162 "QO"
163 XEQ 18
164 XEQ 17
165 XROM 16,37
166 GTO 10
167 LBL 15
168 "IW1"
169 XEQ 17
170 XROM 16,40
171 GTO 10
172 LBL 16
173 "IW"
174 XEQ 18
175 XEQ 17
176 XROM 16,37
177 LBL 10
178 RDN
179 STO 06
180 X<>Y
181 STO 07
182 R^
183 RTN
184 LBL 17
185 ASTO T
186 "BBL/DAY"
187 ASTO 01
188 ASHF
189 ASTO 02
190 CLA
191 ARCL T
192 RCL 07
193 RCL 06
194 RCL Z
195 RTN
196 LBL 18
197 STO 05
198 CLST
199 FS? 41
200 1
201 +
202 FS? 40
203 2
204 +
205 5
206 /
207 FS? 39
208 1
209 +
210 FS? 38
211 2
212 +
213 FS? 37
214 4
215 +
216 FS? 36
217 8
218 +
219 FS? 29
220 CHS
221 RCL 08
222 FIX 00
223 CF 29
224 ARCL X
225 X<>Y
226 X<0?
227 SF 29
228 ENTER
229 FRC
230 5
231 *
232 FIX IND Y
233 X=0?
234 SCI IND Y
235 1
236 X=Y?
237 ENG IND Z
238 RCL 05
239 END
