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