 01 LBL "OILPVT"
 02 "OIL PVT"
 03 28
 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 FC? 02
 15 XROM 16,25
 16 XROM 15,30
 17 STO 26
 18 ADV
 19 "BOBP"
 20 XROM 16,39
 21 XROM 15,34
 22 STO 06
 23 "UOd"
 24 XEQ 05
 25 RCL 13
 26 X<>Y
 27 XROM 15,35
 28 STO 07
 29 "UOBP"
 30 XEQ 05
 31 ADV
 32 LBL 15
 33 "PSI"
 34 ASTO 01
 35 CLA
 36 ASTO 02
 37 RCL 04
 38 RCL 03
 39 16
 40 STO 00
 41 "BEG P"
 42 XROM 16,40
 43 RDN
 44 STO 03
 45 X<>Y
 46 STO 04
 47 X<>Y
 48 CF 08
 49 7
 50 STO 00
 51 "END P"
 52 XROM 16,40
 53 RDN
 54 STO 03
 55 X<>Y
 56 STO 04
 57 X<>Y
 58 R^
 59 "P INC"
 60 XROM 16,40
 61 RDN
 62 STO 03
 63 RDN
 64 STO 04
 65 ADV
 66 LBL 16
 67 "PSI"
 68 ASTO 01
 69 CLA
 70 ASTO 02
 71 RCL 04
 72 RCL 03
 73 RCL 17
 74 "P"
 75 XROM 16,37
 76 RDN
 77 STO 03
 78 X<>Y
 79 STO 04
 80 R^
 81 RCL 14
 82 X<Y?
 83 GTO 00
 84 RDN
 85 XROM 16,01
 86 STO 27
 87 XROM 16,36
 88 RCL 16
 89 "F-R"
 90 XROM 16,44
 91 RCL 10
 92 /
 93 RCL 17
 94 RCL 11
 95 /
 96 RCL 17
 97 XROM 15,24
 98 "COb"
 99 XEQ 04
100 RCL 17
101 XROM 15,30
102 "BOb"
103 XROM 16,39
104 RCL 27
105 RCL 06
106 XROM 15,35
107 "UOb"
108 XEQ 05
109 RCL 17
110 XROM 16,05
111 "BTb"
112 XROM 16,39
113 GTO 01
114 LBL 00
115 XROM 15,25
116 "CO"
117 XEQ 04
118 RCL 26
119 XROM 15,31
120 "BO"
121 XROM 16,39
122 RCL 07
123 XROM 15,36
124 "UO"
125 XEQ 05
126 LBL 01
127 ADV
128 RCL 08
129 RND
130 RCL 17
131 RCL 09
132 +
133 RND
134 X<Y?
135 GTO 02
136 X<>Y
137 RCL 17
138 RND
139 X=Y?
140 GTO 03
141 RCL 08
142 RND
143 LBL 02
144 LASTX
145 STO 17
146 GTO 16
147 LBL 03
148 RCL 09
149 ST+ 17
150 GTO 15
151 LBL 04
152 ASTO T
153 "1/PSI"
154 ASTO 01
155 CLA
156 ASTO 02
157 ASTO Z
158 "1/KPA"
159 GTO 06
160 LBL 05
161 ASTO T
162 "CP"
163 ASTO 01
164 CLA
165 ASTO 02
166 ASTO Z
167 "PA*S"
168 LBL 06
169 ASTO Y
170 CLA
171 ARCL T
172 XROM 16,38
173 END
