 01 LBL "FWVSW"
 02 "FW VS %SW"
 03 51
 04 XROM 16,11
 05 FC?C 25
 06 PROMPT
 07 SF 27
 08 "DAY"
 09 ASTO 03
 10 CLA
 11 ASTO 04
 12 "FIT"
 13 4
 14 XROM 16,13
 15 FS? 04
 16 GTO 00
 17 46
 18 STO 00
 19 "a"
 20 XROM 15,15
 21 "b"
 22 XROM 15,15
 23 GTO 01
 24 LBL 00
 25 40
 26 STO 00
 27 "1ST%SW"
 28 XROM 15,15
 29 "KO/KW1"
 30 XROM 15,15
 31 "2ND%SW"
 32 XROM 15,15
 33 "KO/KW2"
 34 XROM 15,15
 35 RCL 42
 36 /
 37 LN
 38 RCL 43
 39 RCL 41
 40 -
 41 /
 42 100
 43 X<>Y
 44 *
 45 STO 48
 46 LASTX
 47 RCL 43
 48 *
 49 E^X
 50 RCL 44
 51 X<>Y
 52 /
 53 STO 47
 54 "a"
 55 XROM 16,39
 56 RCL 48
 57 "b"
 58 XROM 16,39
 59 LBL 01
 60 ADV
 61 19
 62 STO 00
 63 "%SOc"
 64 XROM 15,15
 65 "%SWC"
 66 XROM 15,15
 67 31
 68 STO 00
 69 "CP"
 70 ASTO 01
 71 CLA
 72 ASTO 02
 73 ASTO Z
 74 "PA*S"
 75 ASTO Y
 76 "UO"
 77 XROM 16,41
 78 STO 06
 79 "PA*S"
 80 ASTO Y
 81 CLA
 82 ASTO Z
 83 "UW"
 84 XROM 16,41
 85 ST/ 06
 86 XEQ 12
 87 ADV
 88 RCL 38
 89 STO 30
 90 "%SWSZ"
 91 XROM 16,39
 92 RCL 46
 93 "FW"
 94 XROM 16,39
 95 RCL 39
 96 "%SWBT"
 97 XROM 16,39
 98 100
 99 RCL 20
100 -
101 STO 49
102 GTO 02
103 LBL 14
104 RCL 30
105 "%SW2"
106 XROM 16,39
107 XEQ 08
108 STO 45
109 "FW2"
110 XROM 16,39
111 X^2
112 LASTX
113 -
114 RCL 48
115 *
116 1/X
117 "QI"
118 XROM 16,39
119 RCL 30
120 XEQ 09
121 LBL 02
122 ADV
123 RCL 49
124 RND
125 RCL 30
126 2.5
127 +
128 RND
129 X<Y?
130 GTO 03
131 X<>Y
132 RCL 30
133 RND
134 X=Y?
135 GTO 15
136 RCL 49
137 RND
138 LBL 03
139 LASTX
140 STO 30
141 GTO 14
142 LBL 15
143 "RCVRY    ADV"
144 PROMPT
145 GTO 15
146 LBL A
147 LBL B
148 44
149 STO 00
150 "FW MAX"
151 XROM 15,15
152 FC? 22
153 GTO 15
154 1/X
155 1
156 -
157 RCL 06
158 *
159 RCL 47
160 /
161 LN
162 RCL 48
163 /
164 100
165 *
166 "%SW2"
167 XROM 16,39
168 XEQ 09
169 34
170 STO 00
171 "KO/KW"
172 XROM 15,15
173 49
174 STO 00
175 "V"
176 XROM 15,15
177 26
178 STO 00
179 "BOI"
180 XROM 15,15
181 25
182 STO 00
183 "BOWF"
184 XROM 15,15
185 28
186 STO 00
187 "%OILRF"
188 XROM 15,15
189 ADV
190 RCL 06
191 RCL 35
192 /
193 "M"
194 XROM 16,39
195 1
196 RCL 50
197 X^2
198 -
199 X<>Y
200 /
201 100
202 *
203 "%EV"
204 XROM 16,39
205 STO 49
206 100
207 STO 00
208 -
209 RCL 00
210 RCL 40
211 -
212 RCL 00
213 RCL 21
214 -
215 /
216 RCL 49
217 *
218 -
219 RCL 27
220 *
221 RCL 26
222 /
223 RCL 00
224 +
225 "%RF"
226 XROM 16,39
227 RCL 29
228 -
229 "%RFWF"
230 XROM 16,39
231 ADV
232 GTO 15
233 LBL 09
234 1
235 RCL 45
236 -
237 LASTX
238 X^2
239 LASTX
240 -
241 RCL 48
242 *
243 /
244 100
245 *
246 +
247 STO 40
248 "%SWAVG"
249 XROM 16,39
250 RTN
251 LBL D
252 LBL E
253 XROM 16,24
254 27
255 STO 00
256 "FT"
257 ASTO 01
258 CLA
259 ASTO 02
260 ASTO Z
261 "M"
262 ASTO Y
263 "H"
264 XROM 16,41
265 6
266 STO 00
267 "M"
268 ASTO Y
269 CLA
270 ASTO Z
271 "WIDTH"
272 XROM 16,41
273 "BBL/DAY"
274 ASTO 01
275 ASHF
276 ASTO 02
277 "M3/DAY"
278 ASTO Y
279 CLA
280 ASTO Z
281 "IW"
282 XROM 16,41
283 RCL 46
284 X^2
285 LASTX
286 -
287 RCL 48
288 *
289 *
290 RCL 18
291 100
292 /
293 /
294 RCL 28
295 /
296 RCL 07
297 /
298 "BBL-FT3"
299 XROM 16,44
300 STO 49
301 LBL 13
302 ADV
303 "DAY"
304 ASTO 01
305 CLA
306 ASTO 02
307 RCL 04
308 RCL 03
309 8
310 STO 00
311 "T"
312 XROM 16,40
313 RDN
314 STO 03
315 X<>Y
316 STO 04
317 R^
318 CF 08
319 FS? 22
320 GTO 04
321 FC? 23
322 GTO 15
323 LBL 04
324 RCL 49
325 *
326 "FT"
327 ASTO 01
328 CLA
329 ASTO 02
330 ASTO Z
331 "M"
332 ASTO Y
333 "X"
334 XROM 16,38
335 GTO 13
336 LBL 12
337 35
338 STO 00
339 "%SWMIN"
340 XROM 15,15
341 CLA
342 ARCL 05
343 "<=%SWC"
344 RCL 21
345 X<>Y
346 X<=Y?
347 GTO 05
348 "%SWMAX"
349 XROM 15,15
350 STO 02
351 XEQ 07
352 STO 05
353 RCL 36
354 STO 30
355 XEQ 07
356 STO 01
357 RCL 05
358 *
359 X<=0?
360 GTO 11
361 "NO ROOT"
362 LBL 05
363 TONE 03
364 PROMPT
365 GTO 12
366 LBL 11
367 TONE 05
368 RCL 30
369 RCL 05
370 *
371 RCL 02
372 RCL 01
373 *
374 -
375 RCL 05
376 RCL 01
377 -
378 /
379 STO 38
380 XEQ 07
381 STO 39
382 ABS
383 1 E-4
384 X<=Y?
385 GTO 05
386 RCL 38
387 RCL 21
388 -
389 RCL 46
390 /
391 RCL 21
392 +
393 STO 39
394 TONE 09
395 RTN
396 LBL 05
397 RCL 05
398 RCL 39
399 *
400 X>0?
401 GTO 06
402 RCL 39
403 STO 01
404 RCL 38
405 STO 30
406 GTO 11
407 LBL 06
408 RCL 39
409 STO 05
410 RCL 38
411 STO 02
412 GTO 11
413 LBL 07
414 STO 38
415 XEQ 08
416 STO 46
417 X^2
418 LASTX
419 -
420 RCL 48
421 *
422 RCL 46
423 RCL 38
424 RCL 21
425 -
426 ST/ Z
427 X^2
428 /
429 100
430 *
431 -
432 RTN
433 LBL 08
434 1
435 %
436 RCL 48
437 *
438 E^X
439 RCL 47
440 *
441 RCL 06
442 /
443 1
444 +
445 1/X
446 END
