 01 LBL "H2OPVT"
 02 "H2O PVT"
 03 20
 04 XROM 16,11
 05 FC?C 25
 06 PROMPT
 07 "KPA"
 08 ASTO 03
 09 CLA
 10 ASTO 04
 11 "SKIP"
 12 2
 13 XROM 16,13
 14 FS? 02
 15 GTO 15
 16 "RSW>0"
 17 6
 18 XROM 16,13
 19 XROM 16,23
 20 XROM 16,17
 21 LBL 15
 22 "PSI"
 23 ASTO 01
 24 CLA
 25 ASTO 02
 26 RCL 04
 27 RCL 03
 28 16
 29 STO 00
 30 "BEG P"
 31 XROM 16,40
 32 RDN
 33 STO 03
 34 X<>Y
 35 STO 04
 36 X<>Y
 37 CF 08
 38 7
 39 STO 00
 40 "END P"
 41 XROM 16,40
 42 RDN
 43 STO 03
 44 X<>Y
 45 STO 04
 46 X<>Y
 47 R^
 48 "P INC"
 49 XROM 16,40
 50 RDN
 51 STO 03
 52 RDN
 53 STO 04
 54 ADV
 55 LBL 16
 56 "PSI"
 57 ASTO 01
 58 CLA
 59 ASTO 02
 60 RCL 04
 61 RCL 03
 62 RCL 17
 63 "P"
 64 XROM 16,37
 65 RDN
 66 STO 03
 67 RDN
 68 STO 04
 69 XROM 15,38
 70 "1/PSI"
 71 ASTO 01
 72 CLA
 73 ASTO 02
 74 ASTO Z
 75 "1/KPA"
 76 ASTO Y
 77 "CW"
 78 XROM 16,38
 79 XROM 15,40
 80 "BW"
 81 XROM 16,39
 82 XROM 15,42
 83 "CP"
 84 ASTO 01
 85 CLA
 86 ASTO 02
 87 ASTO Z
 88 "PA*S"
 89 ASTO Y
 90 "UW"
 91 FS? 06
 92 " MAX"
 93 XROM 16,38
 94 FC? 06
 95 GTO 00
 96 XROM 16,07
 97 "SCF/BBL"
 98 ASTO 01
 99 ASHF
100 ASTO 02
101 "M3/SCM"
102 ASTO Y
103 CLA
104 ASTO Z
105 "RSW"
106 XROM 16,38
107 LBL 00
108 ADV
109 RCL 08
110 RND
111 RCL 17
112 RCL 09
113 +
114 RND
115 X<Y?
116 GTO 01
117 X<>Y
118 RCL 17
119 RND
120 X=Y?
121 GTO 02
122 RCL 08
123 RND
124 LBL 01
125 LASTX
126 STO 17
127 GTO 16
128 LBL 02
129 RCL 09
130 ST+ 17
131 GTO 15
132 END
