 01 LBL "CUTCUM"
 02 "FW VS NP"
 03 55
 04 XROM 16,11
 05 FC?C 25
 06 PROMPT
 07 CF 00
 08 SF 01
 09 SF 02
 10 CF 03
 11 SF 27
 12 SREG 38
 13 "M3"
 14 ASTO 03
 15 "/DAY"
 16 ASTO 06
 17 "YR"
 18 ASTO 08
 19 CLA
 20 ASTO 04
 21 ASTO 07
 22 ASTO 09
 23 CLX
 24 STO 54
 25 45
 26 "N"
 27 XEQ 24
 28 CF 08
 29 RND
 30 1
 31 X=Y?
 32 SF 03
 33 ADV
 34 LBL 14
 35 "FIT       A,B"
 36 PROMPT
 37 GTO 14
 38 LBL E
 39 25
 40 STO 00
 41 "A"
 42 XROM 15,15
 43 "B"
 44 XROM 15,15
 45 ADV
 46 GTO 15
 47 LBL A
 48 CLS
 49 LBL 13
 50 XEQ 17
 51 FC? 22
 52 GTO 00
 53 "X"
 54 XROM 16,39
 55 XEQ 22
 56 RCL 36
 57 1
 58 %
 59 RCL 35
 60 S+
 61 ADV
 62 GTO 13
 63 LBL 00
 64 RCL 39
 65 RCL 40
 66 *
 67 RCL 38
 68 RCL 42
 69 *
 70 -
 71 RCL 43
 72 RCL 39
 73 *
 74 RCL 38
 75 X^2
 76 -
 77 /
 78 STO 27
 79 RCL 40
 80 RCL 43
 81 RCL Z
 82 *
 83 -
 84 RCL 38
 85 /
 86 STO 26
 87 "A"
 88 XROM 16,39
 89 RCL 27
 90 "B"
 91 XROM 16,39
 92 RCL 27
 93 RCL 40
 94 *
 95 RCL 26
 96 RCL 42
 97 *
 98 +
 99 RCL 40
100 X^2
101 RCL 43
102 /
103 -
104 RCL 41
105 LASTX
106 -
107 /
108 "R^2"
109 XROM 16,39
110 ADV
111 LBL 15
112 "SW FW NP FOR"
113 PROMPT
114 GTO 15
115 LBL D
116 LBL E
117 GTO 16
118 LBL B
119 XEQ 17
120 XEQ 21
121 ADV
122 GTO 15
123 LBL A
124 20
125 STO 00
126 "%SWI"
127 XROM 15,15
128 1
129 %
130 1
131 -
132 1/X
133 RCL 26
134 /
135 STO 48
136 31
137 STO 00
138 "CP"
139 ASTO 01
140 CLA
141 ASTO 02
142 ASTO Z
143 "PA*S"
144 ASTO Y
145 "UO"
146 XROM 16,41
147 "PA*S"
148 ASTO Y
149 CLA
150 ASTO Z
151 "UW"
152 XROM 16,41
153 100
154 RCL 21
155 -
156 RCL 27
157 *
158 RCL 21
159 +
160 RCL 48
161 %
162 CHS
163 E^X
164 RCL 32
165 *
166 RCL 33
167 /
168 STO 47
169 "a"
170 XROM 16,39
171 RCL 48
172 "b"
173 XROM 16,39
174 LBL 12
175 ADV
176 29
177 STO 00
178 "%SW"
179 XROM 15,15
180 FC? 22
181 GTO 15
182 1
183 %
184 RCL 48
185 *
186 E^X
187 RCL 47
188 *
189 "KO/KW"
190 XROM 16,39
191 GTO 12
192 LBL C
193 LBL 11
194 XEQ 22
195 RCL 36
196 1
197 %
198 RCL 27
199 -
200 RCL 26
201 /
202 STO 00
203 .5
204 STO 45
205 XEQ 20
206 RCL 00
207 -
208 .995
209 STO 01
210 STO 45
211 X<>Y
212 XEQ 20
213 RCL 00
214 -
215 *
216 X<0?
217 GTO 10
218 "NO ROOT"
219 TONE 03
220 PROMPT
221 GTO 11
222 LBL 10
223 TONE 05
224 RCL 01
225 1/X
226 RCL 01
227 1/X
228 1
229 -
230 LN
231 -
232 RCL 00
233 -
234 RCL 01
235 X^2
236 *
237 1
238 RCL 01
239 -
240 *
241 1
242 RCL 01
243 2
244 *
245 -
246 /
247 ENTER
248 X<> 01
249 ST+ 01
250 /
251 ABS
252 1 E-4
253 X<=Y?
254 GTO 10
255 RCL 01
256 STO 45
257 TONE 09
258 XEQ 19
259 "X"
260 XROM 16,39
261 ADV
262 GTO 15
263 LBL 16
264 SF 00
265 44
266 "BEG FW"
267 XEQ 18
268 48
269 "END FW"
270 XEQ 18
271 CF 00
272 "FW INC"
273 XROM 15,15
274 FS?C 01
275 SF 08
276 "QO+QW"
277 XEQ 25
278 CF 08
279 1
280 RCL 45
281 -
282 *
283 STO 53
284 XEQ 20
285 XEQ 21
286 STO 52
287 GTO 01
288 LBL 09
289 XEQ 19
290 XEQ 21
291 RCL 52
292 -
293 STO 52
294 "DNP"
295 FC? 03
296 XEQ 23
297 RCL 53
298 1
299 RCL 45
300 -
301 RCL 51
302 *
303 STO 53
304 +
305 2
306 /
307 "QOAVG"
308 XEQ 26
309 365
310 *
311 RCL 37
312 X<> 52
313 X<>Y
314 /
315 ENTER
316 X<> 54
317 +
318 FS?C 02
319 SF 08
320 "T"
321 XEQ 27
322 CF 08
323 X<> 54
324 "DT"
325 XEQ 27
326 RCL 53
327 "QO"
328 XEQ 26
329 LBL 01
330 ADV
331 RCL 49
332 RCL 45
333 RCL 50
334 +
335 RND
336 X<Y?
337 GTO 02
338 X<>Y
339 RCL 45
340 X=Y?
341 GTO 03
342 RCL 49
343 RND
344 LBL 02
345 LASTX
346 STO 45
347 GTO 09
348 LBL 03
349 XEQ 20
350 GTO 15
351 LBL 17
352 44
353 "FW"
354 LBL 18
355 STO 00
356 XROM 15,15
357 FC? 22
358 GTO 05
359 CLA
360 ARCL 05
361 " < .5"
362 .5
363 X>Y?
364 GTO 04
365 CLA
366 ARCL 05
367 " >= 1"
368 X<>Y
369 1
370 X>Y?
371 GTO 20
372 LBL 04
373 TONE 03
374 PROMPT
375 RCL 00
376 1
377 -
378 CLA
379 ARCL 05
380 GTO 18
381 LBL 05
382 FS? 00
383 RTN
384 43
385 STO 00
386 "WOR"
387 XROM 15,15
388 1
389 +
390 1/X
391 1
392 X<>Y
393 -
394 STO 45
395 FC? 22
396 RTN
397 LBL 19
398 RCL 45
399 "FW"
400 XROM 16,39
401 LBL 20
402 1
403 RCL 45
404 -
405 1/X
406 1
407 -
408 LN
409 RCL 45
410 1/X
411 +
412 STO 35
413 RTN
414 LBL 21
415 RCL 26
416 *
417 RCL 27
418 +
419 100
420 *
421 STO 36
422 "%OILRF"
423 XROM 16,39
424 GTO 00
425 LBL 22
426 FS? 03
427 GTO 08
428 36
429 "NP"
430 XEQ 24
431 FC? 22
432 FS? 23
433 GTO 02
434 LBL 08
435 35
436 STO 00
437 "%OILRF"
438 XROM 15,15
439 100
440 X>Y?
441 GTO 00
442 "%OILRF >=100"
443 TONE 03
444 PROMPT
445 GTO 08
446 LBL 00
447 RCL 46
448 %
449 STO 37
450 FS? 03
451 RTN
452 "NP"
453 LBL 23
454 XEQ 01
455 XROM 16,37
456 RDN
457 STO 03
458 X<>Y
459 STO 04
460 R^
461 RTN
462 LBL 24
463 STO 00
464 XEQ 01
465 XROM 16,40
466 RDN
467 STO 03
468 X<>Y
469 STO 04
470 R^
471 RTN
472 LBL 01
473 ASTO T
474 "BBL"
475 ASTO 01
476 CLA
477 ASTO 02
478 ARCL T
479 RCL 04
480 RCL 03
481 RCL Z
482 RTN
483 LBL 02
484 RCL 46
485 /
486 100
487 *
488 STO 36
489 LASTX
490 X<=Y?
491 GTO 03
492 RCL 37
493 RTN
494 LBL 03
495 "NP >= N"
496 TONE 03
497 PROMPT
498 GTO 22
499 LBL 25
500 XEQ 04
501 XROM 16,40
502 RDN
503 STO 06
504 X<>Y
505 STO 07
506 R^
507 RTN
508 LBL 26
509 XEQ 04
510 XROM 16,37
511 RDN
512 STO 06
513 X<>Y
514 STO 07
515 R^
516 RTN
517 LBL 04
518 ASTO T
519 "BBL/DAY"
520 ASTO 01
521 ASHF
522 ASTO 02
523 CLA
524 ARCL T
525 RCL 07
526 RCL 06
527 RCL Z
528 RTN
529 LBL 27
530 ASTO T
531 "YR"
532 ASTO 01
533 CLA
534 ASTO 02
535 ARCL T
536 RCL 09
537 RCL 08
538 RCL Z
539 XROM 16,37
540 RDN
541 STO 08
542 X<>Y
543 STO 09
544 R^
545 END
