 01 LBL "DECLINE"
 02 "DECLINE"
 03 49
 04 XROM 16,11
 05 FC?C 25
 06 PROMPT
 07 CF 00
 08 SF 01
 09 SF 02
 10 SF 03
 11 SF 27
 12 "OIL"
 13 7
 14 XROM 16,13
 15 "M3"
 16 FC? 07
 17 "SCM"
 18 ASTO 08
 19 "/DAY"
 20 ASTO 03
 21 ASHF
 22 ASTO 04
 23 CLA
 24 ASTO 09
 25 ASTO 07
 26 "YR"
 27 ASTO 06
 28 LBL 15
 29 "EXP  HAR HYP"
 30 PROMPT
 31 GTO 17
 32 LBL B
 33 LBL D
 34 GTO 15
 35 LBL A
 36 CF 05
 37 SF 06
 38 "EXPONENTIAL"
 39 GTO 08
 40 LBL C
 41 CF 05
 42 CF 06
 43 "HARMONIC"
 44 GTO 08
 45 LBL E
 46 SF 05
 47 "HYPERBOLIC"
 48 LBL 08
 49 ADV
 50 FS? 55
 51 XROM 29,08
 52 ADV
 53 GTO A
 54 LBL 00
 55 RCL 11
 56 STO 20
 57 RCL 15
 58 STO 21
 59 18
 60 "NEW Q"
 61 FS? 07
 62 "O"
 63 FC? 07
 64 "G"
 65 XEQ 35
 66 RCL 10
 67 /
 68 FS? 05
 69 RCL 22
 70 FS? 05
 71 Y^X
 72 ST* 15
 73 XEQ 32
 74 RCL 21
 75 STO 15
 76 RCL 20
 77 STO 11
 78 LBL 16
 79 ADV
 80 LBL 17
 81 "QI N "
 82 FC? 05
 83 "QI AI"
 84 " Q T "
 85 FS? 07
 86 "NP"
 87 FC? 07
 88 "GP"
 89 PROMPT
 90 GTO 17
 91 LBL e
 92 GTO 15
 93 LBL a
 94 GTO 00
 95 LBL H
 96 GTO 22
 97 LBL I
 98 GTO 23
 99 LBL J
100 GTO 24
101 LBL 18
102 "      Q T "
103 FS? 07
104 "NP"
105 FC? 07
106 "GP"
107 PROMPT
108 GTO 18
109 LBL E
110 XEQ 41
111 XEQ 26
112 XEQ 36
113 XEQ 27
114 XEQ 40
115 GTO 16
116 LBL D
117 XEQ 38
118 XEQ 25
119 XEQ 36
120 XEQ 29
121 XEQ 43
122 GTO 16
123 LBL C
124 XEQ 34
125 XEQ 27
126 XEQ 40
127 XEQ 29
128 XEQ 43
129 GTO 16
130 LBL A
131 9
132 "QOI"
133 FC? 07
134 "QGI"
135 XEQ 35
136 LBL 01
137 FS? 05
138 "   N  Q"
139 FC? 05
140 "   AI Q"
141 PROMPT
142 GTO 01
143 LBL B
144 FS? 05
145 XEQ 46
146 10
147 STO 00
148 "%AI"
149 XROM 15,15
150 XEQ 31
151 FC? 05
152 GTO 18
153 GTO 16
154 LBL C
155 FS? 05
156 GTO 21
157 XEQ 34
158 LBL 02
159 "        T "
160 FS? 07
161 "NP"
162 FC? 07
163 "GP"
164 PROMPT
165 GTO 02
166 LBL D
167 XEQ 38
168 XEQ 28
169 XEQ 32
170 XEQ 29
171 XEQ 43
172 GTO 16
173 LBL E
174 XEQ 41
175 XEQ 30
176 XEQ 32
177 XEQ 27
178 XEQ 40
179 GTO 16
180 LBL 21
181 11
182 "QO1"
183 FC? 07
184 "QG1"
185 XEQ 35
186 "T1"
187 XEQ 39
188 LBL 03
189 "   N  Q   "
190 FS? 07
191 "NP"
192 FC? 07
193 "GP"
194 PROMPT
195 GTO 03
196 LBL B
197 XEQ 46
198 GTO 10
199 LBL C
200 SF 06
201 15
202 "QO2"
203 FC? 07
204 "QG2"
205 XEQ 35
206 "T2"
207 XEQ 39
208 GTO 09
209 LBL E
210 CF 06
211 XEQ 41
212 LBL 09
213 XEQ 12
214 CLD
215 TONE 09
216 RCL 22
217 "N"
218 XROM 16,39
219 LBL 10
220 XEQ 28
221 XEQ 32
222 GTO 16
223 LBL 12
224 CLX
225 STO 00
226 1
227 STO 01
228 RCL 10
229 RCL 12
230 /
231 STO 19
232 FS? 06
233 GTO 13
234 1/X
235 -
236 RCL 19
237 LN
238 STO Z
239 /
240 RCL 14
241 RCL 10
242 /
243 RCL 13
244 /
245 365
246 /
247 STO 20
248 -
249 STO 02
250 "N < 0"
251 X<=0?
252 GTO 20
253 X<>Y
254 RCL 19
255 1
256 -
257 /
258 RCL 20
259 GTO 14
260 LBL 13
261 LN
262 RCL 13
263 /
264 RCL 10
265 RCL 16
266 /
267 STO 20
268 LN
269 RCL 17
270 /
271 -
272 STO 02
273 "N < 0"
274 X<=0?
275 GTO 20
276 RCL 19
277 1
278 -
279 RCL 13
280 /
281 RCL 20
282 1
283 -
284 RCL 17
285 /
286 LBL 14
287 -
288 STO 15
289 "N > 1"
290 X>0?
291 GTO 20
292 4
293 STO 18
294 LBL 19
295 DSE 18
296 GTO 08
297 RCL 00
298 RCL 15
299 *
300 RCL 01
301 RCL 02
302 *
303 -
304 RCL 15
305 RCL 02
306 -
307 GTO 09
308 LBL 08
309 RCL 00
310 RCL 01
311 +
312 2
313 LBL 09
314 /
315 STO 22
316 TONE 05
317 FS? 06
318 GTO 10
319 1
320 RCL 19
321 RCL 22
322 Y^X
323 -
324 LASTX
325 RCL 19
326 /
327 1
328 -
329 X<>Y
330 /
331 RCL 22
332 *
333 1
334 RCL 22
335 -
336 /
337 RCL 20
338 -
339 GTO 11
340 LBL 10
341 RCL 19
342 RCL 22
343 Y^X
344 1
345 -
346 RCL 13
347 /
348 RCL 20
349 RCL 22
350 Y^X
351 1
352 -
353 RCL 17
354 /
355 -
356 RCL 22
357 /
358 LBL 11
359 ENTER
360 ABS
361 1 E-4
362 X>Y?
363 RTN
364 RCL 02
365 R^
366 *
367 X>0?
368 GTO 12
369 LASTX
370 STO 15
371 RCL 22
372 STO 01
373 GTO 19
374 LBL 12
375 LASTX
376 STO 02
377 RCL 22
378 STO 00
379 GTO 19
380 LBL 22
381 1
382 STO 16
383 STO 17
384 "SINGLE WELL"
385 ADV
386 FS? 55
387 XROM 29,08
388 ADV
389 CLX
390 STO 19
391 STO 21
392 RCL 13
393 STO 18
394 15
395 STO 00
396 "DTI"
397 XEQ 39
398 "DTS"
399 XEQ 39
400 "TF"
401 XEQ 39
402 "NPI"
403 FC? 07
404 "GPI"
405 XEQ 42
406 XEQ 45
407 ADV
408 RCL 10
409 "QOI"
410 FC? 07
411 "QGI"
412 XEQ 37
413 RCL 19
414 "NPI"
415 FC? 07
416 "GPI"
417 X>0?
418 XEQ 44
419 CLX
420 LBL 04
421 ADV
422 ST+ 16
423 RCL 16
424 RCL 18
425 X<=Y?
426 X<>Y
427 X<>Y
428 STO 13
429 XEQ 40
430 XEQ 25
431 XEQ 36
432 RCL 20
433 1
434 X=Y?
435 CLX
436 *
437 *
438 "X"
439 ARCL 05
440 X>0?
441 XEQ 37
442 XEQ 29
443 RCL 19
444 ST+ 14
445 RCL 14
446 XEQ 43
447 X<> 21
448 RCL 21
449 X<>Y
450 -
451 "D"
452 ARCL 05
453 XEQ 44
454 RCL 20
455 1
456 X=Y?
457 CLX
458 *
459 *
460 "X"
461 ARCL 05
462 X>0?
463 XEQ 44
464 RCL 13
465 RCL 18
466 X=Y?
467 GTO 16
468 RCL 17
469 GTO 04
470 LBL 25
471 RCL 10
472 RCL 13
473 RCL 15
474 *
475 E^X
476 FC? 05
477 FC? 06
478 XEQ 08
479 /
480 STO 12
481 RTN
482 LBL 08
483 X<>Y
484 LASTX
485 1
486 +
487 FC? 05
488 RTN
489 1
490 -
491 RCL 22
492 *
493 1
494 +
495 RCL 22
496 1/X
497 Y^X
498 RTN
499 LBL 26
500 RCL 14
501 RCL 15
502 *
503 365
504 /
505 CHS
506 RCL 10
507 FC? 05
508 FS? 06
509 GTO 09
510 /
511 E^X
512 RCL 10
513 *
514 GTO 10
515 LBL 09
516 FC? 05
517 +
518 FC? 05
519 GTO 10
520 /
521 1
522 RCL 22
523 -
524 STO T
525 *
526 1
527 +
528 R^
529 1/X
530 Y^X
531 RCL 10
532 *
533 LBL 10
534 X>0?
535 STO 12
536 X>0?
537 RTN
538 "N"
539 FC? 07
540 "G"
541 "P BAD"
542 LBL 20
543 TONE 03
544 PROMPT
545 GTO 20
546 LBL 27
547 XEQ 11
548 RCL 15
549 /
550 STO 13
551 RTN
552 LBL 28
553 XEQ 11
554 RCL 13
555 /
556 STO 15
557 RTN
558 LBL 11
559 RCL 10
560 RCL 12
561 /
562 LN
563 FC? 05
564 FC? 06
565 GTO 12
566 RTN
567 LBL 12
568 LASTX
569 1
570 -
571 FC? 05
572 RTN
573 1
574 +
575 RCL 22
576 Y^X
577 1
578 -
579 RCL 22
580 /
581 RTN
582 LBL 29
583 RCL 15
584 XEQ 13
585 *
586 STO 14
587 RTN
588 LBL 30
589 RCL 14
590 XEQ 13
591 *
592 STO 15
593 RTN
594 LBL 13
595 365
596 X<>Y
597 /
598 FS? 05
599 GTO 14
600 RCL 10
601 RCL 12
602 FS? 06
603 -
604 FS? 06
605 RTN
606 /
607 LN
608 *
609 RCL 10
610 RTN
611 LBL 14
612 1
613 RCL 22
614 -
615 /
616 RCL 12
617 LASTX
618 Y^X
619 RCL 10
620 RCL 22
621 Y^X
622 *
623 RCL 10
624 X<>Y
625 -
626 RTN
627 LBL 31
628 1
629 RCL 11
630 100
631 /
632 -
633 FC? 00
634 GTO 08
635 FC? 05
636 FS? 06
637 GTO 08
638 LASTX
639 X<>Y
640 /
641 STO 15
642 RTN
643 LBL 08
644 1/X
645 LN
646 STO 15
647 FS? 00
648 FC? 05
649 RTN
650 LASTX
651 RCL 22
652 Y^X
653 1
654 -
655 RCL 22
656 /
657 STO 15
658 RTN
659 LBL 32
660 100
661 ENTER
662 1
663 RCL 15
664 FC? 00
665 GTO 10
666 FS? 05
667 GTO 09
668 FS? 06
669 GTO 10
670 +
671 /
672 RCL 15
673 GTO 14
674 LBL 09
675 RCL 22
676 *
677 1
678 +
679 RCL 22
680 CHS
681 1/X
682 Y^X
683 -
684 GTO 14
685 LBL 10
686 CHS
687 E^X
688 -
689 LBL 14
690 *
691 STO 11
692 "%AI"
693 XROM 16,39
694 RTN
695 LBL 34
696 11
697 "QO"
698 FC? 07
699 "QG"
700 LBL 35
701 STO 00
702 XEQ 11
703 XROM 16,40
704 GTO 10
705 LBL 36
706 "QO"
707 FC? 07
708 "QG"
709 LBL 37
710 XEQ 11
711 XROM 16,37
712 LBL 10
713 RDN
714 STO 03
715 X<>Y
716 STO 04
717 R^
718 CF 08
719 RTN
720 LBL 11
721 FS?C 01
722 SF 08
723 ASTO T
724 "BBL"
725 FC? 07
726 "MCF"
727 "/DAY"
728 ASTO 01
729 ASHF
730 ASTO 02
731 CLA
732 ARCL T
733 RCL 04
734 RCL 03
735 RCL Z
736 RTN
737 LBL 38
738 12
739 STO 00
740 "T"
741 LBL 39
742 XEQ 12
743 XROM 16,40
744 GTO 10
745 LBL 40
746 "T"
747 XEQ 12
748 XROM 16,37
749 LBL 10
750 RDN
751 STO 06
752 X<>Y
753 STO 07
754 R^
755 CF 08
756 RTN
757 LBL 12
758 FS?C 02
759 SF 08
760 ASTO T
761 "YR"
762 ASTO 01
763 CLA
764 ASTO 02
765 ARCL T
766 RCL 07
767 RCL 06
768 RCL Z
769 RTN
770 LBL 41
771 13
772 STO 00
773 "NP"
774 FC? 07
775 "GP"
776 LBL 42
777 XEQ 13
778 XROM 16,40
779 GTO 10
780 LBL 43
781 "NP"
782 FC? 07
783 "GP"
784 LBL 44
785 XEQ 13
786 XROM 16,37
787 LBL 10
788 RDN
789 STO 08
790 X<>Y
791 STO 09
792 R^
793 CF 08
794 RTN
795 LBL 13
796 FS?C 03
797 SF 08
798 ASTO T
799 "BBL"
800 FC? 07
801 "MCF"
802 ASTO 01
803 CLA
804 ASTO 02
805 ARCL T
806 RCL 09
807 RCL 08
808 RCL Z
809 RTN
810 LBL 45
811 1
812 STO 20
813 19
814 STO 00
815 "X"
816 XROM 15,15
817 RTN
818 LBL 46
819 21
820 STO 00
821 "N"
822 XROM 15,15
823 RTN
824 LBL 23
825 "CLEAR"
826 4
827 XROM 16,13
828 23.048
829 FC? 04
830 GTO 13
831 0
832 LBL 05
833 STO IND Y
834 ISG Y
835 GTO 05
836 LBL 13
837 CLX
838 STO 18
839 RCL 13
840 STO 16
841 RCL 10
842 STO 21
843 17
844 STO 00
845 "BEG T"
846 XEQ 39
847 "NWELL"
848 XROM 15,15
849 ST+ 23
850 XEQ 45
851 RCL 18
852 INT
853 23
854 +
855 STO 00
856 RCL 16
857 RCL 18
858 +
859 23
860 +
861 STO 17
862 LBL 06
863 TONE 05
864 ISG 00
865 CLD
866 RCL 00
867 48
868 X<=Y?
869 SF 02
870 X<Y?
871 STO 00
872 X<>Y
873 RCL 17
874 X>Y?
875 X<>Y
876 FS? 02
877 X<>Y
878 RCL 18
879 -
880 23
881 -
882 STO 13
883 XEQ 25
884 RCL 10
885 X<> 21
886 STO 10
887 XEQ 29
888 RCL 19
889 *
890 RCL 20
891 *
892 ST+ IND 00
893 RCL 12
894 X<> 21
895 STO 10
896 FS?C 02
897 GTO 14
898 RCL 17
899 RCL 00
900 X<Y?
901 GTO 06
902 LBL 14
903 RCL 16
904 STO 13
905 TONE 09
906 GTO 16
907 LBL 24
908 "MULTIWELL"
909 ADV
910 FS? 55
911 XROM 29,08
912 ADV
913 XEQ 45
914 CLX
915 STO 19
916 24.048
917 STO 18
918 LBL 07
919 RCL IND 18
920 X=0?
921 GTO 14
922 ADV
923 RCL 18
924 INT
925 23
926 -
927 XEQ 40
928 RCL IND 18
929 ST+ 19
930 "PROD"
931 XEQ 44
932 RCL 20
933 1
934 X=Y?
935 CLX
936 *
937 *
938 "X"
939 ARCL 05
940 X>0?
941 XEQ 44
942 LBL 14
943 ISG 18
944 GTO 07
945 ADV
946 RCL 23
947 "~WELL"
948 XROM 16,39
949 RCL 19
950 "~PROD"
951 XEQ 44
952 RCL 20
953 1
954 X=Y?
955 CLX
956 *
957 *
958 "~XPROD"
959 X>0?
960 XEQ 44
961 GTO 16
962 END
