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