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