 01 LBL "5SPOT"
 02 "FIVE SPOT"
 03 65
 04 XROM 16,11
 05 FC?C 25
 06 PROMPT
 07 CF 00
 08 CF 01
 09 CF 02
 10 SF 03
 11 SF 04
 12 SF 05
 13 "M3"
 14 ASTO 03
 15 "/DAY"
 16 ASTO 06
 17 "DAY"
 18 ASTO 08
 19 CLA
 20 ASTO 04
 21 ASTO 07
 22 ASTO 09
 23 XROM 16,24
 24 20
 25 STO 00
 26 "%SWC"
 27 XROM 15,15
 28 31
 29 "CP"
 30 ASTO 01
 31 "PA*S"
 32 XEQ 05
 33 "UO"
 34 XROM 16,41
 35 "PA*S"
 36 ASTO Y
 37 CLA
 38 ASTO Z
 39 "UW"
 40 XROM 16,41
 41 25
 42 STO 00
 43 "BOWF"
 44 XROM 15,15
 45 26
 46 "ACRE"
 47 ASTO 01
 48 "M2"
 49 XEQ 05
 50 "AREA"
 51 XROM 16,41
 52 27
 53 XEQ 04
 54 "H"
 55 XROM 16,41
 56 62
 57 XEQ 04
 58 "REI"
 59 XROM 16,41
 60 30
 61 XEQ 04
 62 "RW"
 63 XROM 16,41
 64 16
 65 "PSI"
 66 ASTO 01
 67 "KPA"
 68 XEQ 05
 69 "DP"
 70 XROM 16,41
 71 37
 72 STO 00
 73 "%SWSZ"
 74 XROM 15,15
 75 "%SWBT"
 76 XROM 15,15
 77 STO 40
 78 RCL 21
 79 -
 80 STO 41
 81 XEQ 31
 82 33
 83 STO 00
 84 "KRO"
 85 XROM 15,15
 86 28
 87 STO 00
 88 "MD"
 89 ASTO 01
 90 ASTO Y
 91 CLA
 92 ASTO 02
 93 ASTO Z
 94 "K"
 95 XROM 16,41
 96 RCL 35
 97 RCL 33
 98 /
 99 RCL 32
100 *
101 RCL 34
102 /
103 STO 61
104 ADV
105 "M"
106 XROM 16,39
107 .46836
108 X<>Y
109 /
110 .62
111 +
112 STO 42
113 "C"
114 XROM 16,39
115 41
116 STO 00
117 "C"
118 XROM 15,15
119 LBL 14
120 19
121 STO 00
122 "%SGI"
123 XROM 15,15
124 RCL 41
125 X<>Y
126 -
127 RCL 42
128 *
129 "%SGI*"
130 XROM 16,39
131 RCL 20
132 X<=Y?
133 GTO 00
134 "%SGI > %SGI*"
135 TONE 03
136 PROMPT
137 GTO 14
138 LBL 00
139 RCL 27
140 RCL 28
141 *
142 RCL 18
143 %
144 "ACRE*FT-BBL"
145 XROM 16,44
146 STO 43
147 100
148 RCL 21
149 -
150 RCL 20
151 -
152 %
153 RCL 26
154 /
155 STO 46
156 "OIPWF"
157 XEQ 24
158 .001538
159 RCL 28
160 *
161 RCL 29
162 *
163 RCL 34
164 *
165 RCL 17
166 *
167 2
168 SQRT
169 RCL 63
170 *
171 RCL 31
172 /
173 LOG
174 .2688
175 -
176 RCL 32
177 *
178 /
179 STO 59
180 "IBASE"
181 XEQ 28
182 CF 08
183 ADV
184 ADV
185 "PRIOR TO INTERF"
186 "ERENCE"
187 FS? 55
188 XROM 29,08
189 ADV
190 PI
191 RCL 28
192 *
193 RCL 18
194 %
195 "FT3-BBL"
196 XROM 16,44
197 STO 64
198 RCL 20
199 %
200 RCL 63
201 X^2
202 *
203 STO 50
204 STO 53
205 "WII"
206 XEQ 24
207 LBL 13
208 51
209 "BEG WI"
210 XEQ 22
211 X#0?
212 GTO 01
213 "BEG WI = 0"
214 TONE 03
215 PROMPT
216 GTO 13
217 LBL 01
218 XEQ 20
219 ADV
220 RCL 41
221 RCL 20
222 /
223 LN
224 RCL 32
225 *
226 RCL 34
227 /
228 2
229 /
230 STO 49
231 RCL 28
232 RCL 29
233 *
234 RCL 17
235 *
236 7.07 E-3
237 *
238 STO 55
239 CLX
240 STO 56
241 STO 57
242 RCL 52
243 LBL 15
244 XEQ 23
245 RCL 64
246 /
247 RCL 41
248 /
249 SQRT
250 10
251 *
252 XEQ 04
253 "R"
254 XROM 16,38
255 RCL 31
256 /
257 LN
258 RCL 33
259 *
260 RCL 35
261 /
262 RCL 49
263 +
264 RCL 55
265 X<>Y
266 /
267 FS? 05
268 STO 58
269 XEQ 25
270 CF 08
271 XEQ 12
272 X<Y?
273 GTO 02
274 X<>Y
275 RCL 52
276 RND
277 X=Y?
278 GTO 06
279 RCL 53
280 RND
281 LBL 02
282 LASTX
283 GTO 15
284 LBL 04
285 "FT"
286 ASTO 01
287 "M"
288 LBL 05
289 STO 00
290 ASTO Y
291 CLA
292 ASTO 02
293 ASTO Z
294 RTN
295 LBL 06
296 ADV
297 "INTERFERENCE TO"
298 " FILLUP"
299 FS? 55
300 XROM 29,08
301 ADV
302 RCL 43
303 RCL 20
304 %
305 STO 51
306 STO 52
307 "WIF"
308 XEQ 24
309 RCL 20
310 RCL 41
311 /
312 100
313 *
314 STO 64
315 "%EAF"
316 XROM 16,39
317 "GAMMAF"
318 XEQ 30
319 RCL 59
320 *
321 "IWF"
322 XEQ 28
323 "TF"
324 XEQ 26
325 ADV
326 ADV
327 "FILLUP TO BREAK"
328 "THROUGH"
329 FS? 55
330 XROM 29,08
331 ADV
332 RCL 61
333 -.1736
334 Y^X
335 70.4
336 *
337 STO 44
338 "%EABT"
339 XROM 16,39
340 43
341 STO 00
342 "%EABT"
343 XROM 15,15
344 RCL 43
345 X<>Y
346 %
347 RCL 41
348 %
349 STO 49
350 STO 53
351 "WIBT"
352 XEQ 24
353 RCL 51
354 STO 52
355 XEQ 20
356 XEQ 12
357 GTO 07
358 LBL 16
359 XEQ 23
360 1 E4
361 *
362 RCL 43
363 /
364 RCL 41
365 /
366 STO 64
367 "%EA"
368 XROM 16,39
369 XEQ 29
370 RCL 59
371 *
372 XEQ 25
373 RCL 58
374 RCL 26
375 /
376 "QO"
377 XEQ 28
378 RCL 52
379 RCL 51
380 -
381 RCL 26
382 /
383 XEQ 11
384 LBL 07
385 X<Y?
386 GTO 08
387 X<>Y
388 RCL 52
389 RND
390 X=Y?
391 GTO 09
392 RCL 53
393 RND
394 LBL 08
395 LASTX
396 GTO 16
397 LBL 09
398 ADV
399 "AFTER WATER BRE"
400 "AKTHROUGH"
401 FS? 55
402 XROM 29,08
403 ADV
404 1
405 STO 43
406 STO 60
407 "BEGW/W"
408 XROM 16,39
409 SF 05
410 LBL 17
411 52
412 STO 00
413 "ENDW/W"
414 XROM 15,15
415 "W/WINC"
416 XROM 15,15
417 RCL 43
418 FS? 05
419 ADV
420 FS? 05
421 GTO 18
422 XEQ 12
423 GTO 32
424 LBL 18
425 STO 43
426 "WI/WIB"
427 XROM 16,39
428 RCL 49
429 *
430 XEQ 23
431 RCL 43
432 LN
433 27.49
434 *
435 RCL 44
436 +
437 100
438 X<=Y?
439 GTO 10
440 X<>Y
441 STO 64
442 "%EA"
443 XROM 16,39
444 FS? 05
445 GTO 00
446 59
447 STO 00
448 "QI/QIB"
449 XROM 15,15
450 GTO 01
451 LBL 10
452 STO 64
453 RCL 52
454 RCL 57
455 -
456 RCL 49
457 /
458 RCL 44
459 %
460 ST+ 60
461 LBL 00
462 RCL 60
463 "QI/QIB"
464 XROM 16,39
465 LBL 01
466 RCL 41
467 %
468 STO 55
469 FS? 01
470 GTO 02
471 FC? 03
472 GTO 01
473 46
474 STO 00
475 "a"
476 XROM 15,15
477 "b"
478 XROM 15,15
479 CF 03
480 LBL 01
481 RCL 55
482 ENTER
483 1/X
484 4
485 *
486 RCL 48
487 /
488 1
489 +
490 SQRT
491 1
492 X<>Y
493 -
494 2
495 /
496 STO 55
497 *
498 LASTX
499 1
500 LASTX
501 -
502 /
503 RCL 33
504 *
505 RCL 32
506 /
507 RCL 47
508 /
509 LN
510 RCL 48
511 /
512 100
513 *
514 GTO 03
515 LBL 02
516 1/X
517 "dF/dS"
518 XROM 16,39
519 29
520 STO 00
521 "%SW2"
522 XROM 15,15
523 44
524 STO 00
525 "FW2"
526 XROM 15,15
527 1
528 X<>Y
529 -
530 ENTER
531 X<> 55
532 *
533 RCL 30
534 LBL 03
535 X<>Y
536 100
537 *
538 +
539 STO 40
540 "%SWAVG"
541 XROM 16,39
542 RCL 38
543 RCL 21
544 -
545 RCL 44
546 /
547 RCL 41
548 /
549 RCL 43
550 /
551 27.49
552 *
553 1
554 RCL 55
555 -
556 *
557 RCL 55
558 +
559 LASTX
560 RCL 64
561 100
562 X=Y?
563 R^
564 R^
565 STO 55
566 1/X
567 1
568 -
569 RCL 26
570 *
571 "WOR"
572 XROM 16,39
573 XEQ 31
574 RCL 33
575 /
576 RCL 32
577 *
578 RCL 34
579 /
580 STO 61
581 "M"
582 XROM 16,39
583 XEQ 29
584 RCL 59
585 *
586 XEQ 25
587 RCL 58
588 RCL 26
589 /
590 RCL 55
591 *
592 "QO"
593 XEQ 28
594 RCL 43
595 STO 52
596 RCL 40
597 RCL 21
598 -
599 RCL 64
600 %
601 RCL 20
602 -
603 100
604 LASTX
605 -
606 RCL 21
607 -
608 /
609 RCL 46
610 *
611 XEQ 11
612 LBL 32
613 X<Y?
614 GTO 04
615 X<>Y
616 RCL 52
617 X=Y?
618 GTO 17
619 RCL 53
620 RND
621 LBL 04
622 LASTX
623 GTO 18
624 LBL 11
625 "NP"
626 XEQ 24
627 RCL 46
628 /
629 100
630 *
631 "%OILRF"
632 XROM 16,39
633 LBL 12
634 ADV
635 RCL 53
636 RND
637 RCL 52
638 RCL 54
639 +
640 RND
641 RTN
642 LBL 20
643 RCL 53
644 "END WI"
645 XEQ 24
646 LBL 21
647 53
648 "WI INC"
649 LBL 22
650 STO 00
651 XEQ 05
652 XROM 16,40
653 RDN
654 STO 06
655 X<>Y
656 STO 07
657 R^
658 RTN
659 LBL 23
660 STO 52
661 "WI"
662 LBL 24
663 XEQ 05
664 XROM 16,37
665 RDN
666 STO 06
667 X<>Y
668 STO 07
669 R^
670 RTN
671 LBL 05
672 ASTO T
673 "BBL"
674 ASTO 01
675 CLA
676 ASTO 02
677 ARCL T
678 RCL 07
679 RCL 06
680 RCL Z
681 RTN
682 LBL 25
683 "IW"
684 XEQ 28
685 "T"
686 LBL 26
687 ENTER
688 X<> 58
689 +
690 2
691 /
692 RCL 52
693 ENTER
694 X<> 57
695 -
696 X<>Y
697 /
698 ST+ 56
699 RCL 56
700 FS?C 05
701 SF 08
702 LBL 27
703 ASTO T
704 "DAY"
705 ASTO 01
706 CLA
707 ASTO 02
708 ARCL T
709 RCL 09
710 RCL 08
711 RCL Z
712 XROM 16,37
713 RDN
714 STO 08
715 X<>Y
716 STO 09
717 R^
718 RTN
719 LBL 28
720 ASTO T
721 "BBL/DAY"
722 ASTO 01
723 ASHF
724 ASTO 02
725 CLA
726 ARCL T
727 RCL 04
728 RCL 03
729 RCL Z
730 XROM 16,37
731 RDN
732 STO 03
733 X<>Y
734 STO 04
735 R^
736 RTN
737 LBL 29
738 "GAMMA"
739 LBL 30
740 61
741 STO 00
742 FS? 00
743 XROM 15,15
744 FS? 00
745 RTN
746 RCL 64
747 1
748 %
749 STO 00
750 1
751 RCL 61
752 X<Y?
753 GTO 06
754 RCL 00
755 Y^X
756 XROM 16,39
757 RTN
758 LBL 06
759 1.094353
760 RCL 00
761 .812527
762 *
763 -
764 RCL 61
765 LOG
766 *
767 RCL 00
768 .985715
769 *
770 .40586
771 -
772 RCL 61
773 *
774 +
775 1.412546
776 RCL 00
777 .9881
778 *
779 -
780 +
781 1
782 RCL 00
783 X#0?
784 RDN
785 X<>Y
786 RCL 61
787 RCL 00
788 1
789 X=Y?
790 ENTER
791 R^
792 XROM 16,39
793 RTN
794 LBL 31
795 FC? 02
796 FC? 04
797 GTO 07
798 35
799 STO 00
800 "c"
801 XROM 15,15
802 "d"
803 XROM 15,15
804 CF 04
805 LBL 07
806 34
807 STO 00
808 "KRW"
809 FS? 02
810 XROM 15,15
811 FS? 02
812 RTN
813 RCL 40
814 RCL 21
815 -
816 100
817 LASTX
818 -
819 /
820 RCL 37
821 Y^X
822 RCL 36
823 *
824 STO 35
825 XROM 16,39
826 END
