 01 LBL "GOR"
 02 "GOR FORECAST"
 03 29
 04 XROM 16,11
 05 FC?C 25
 06 PROMPT
 07 SF 27
 08 "KPA"
 09 ASTO 03
 10 "SCM/M3"
 11 ASTO 06
 12 CLA
 13 ASTO 04
 14 ASTO 07
 15 12
 16 "Rd"
 17 XEQ 11
 18 13
 19 "Pd"
 20 XEQ 08
 21 CF 08
 22 XROM 16,17
 23 XROM 16,20
 24 LBL 14
 25 "GASG   WELLG"
 26 PROMPT
 27 GTO 14
 28 LBL D
 29 LBL E
 30 27
 31 STO 00
 32 "WELL G"
 33 XROM 15,15
 34 GTO 00
 35 LBL A
 36 LBL B
 37 XROM 16,19
 38 4.6
 39 RCL 13
 40 /
 41 RCL 12
 42 "API-SPGR"
 43 XROM 16,44
 44 *
 45 +
 46 -.006
 47 RCL 12
 48 *
 49 9.75
 50 +
 51 RCL 12
 52 *
 53 251
 54 +
 55 RCL 13
 56 /
 57 1 E3
 58 /
 59 1
 60 +
 61 /
 62 STO 28
 63 "WELL G"
 64 XROM 16,39
 65 LBL 00
 66 ADV
 67 25.52
 68 *
 69 RCL 13
 70 .02633
 71 *
 72 +
 73 30.38
 74 RCL 13
 75 /
 76 +
 77 RCL 12
 78 "API-SPGR"
 79 XROM 16,44
 80 30.3
 81 *
 82 -
 83 RCL 16
 84 .00417
 85 *
 86 -
 87 6.547
 88 +
 89 STO 26
 90 "%C4+"
 91 XROM 16,39
 92 25
 93 STO 00
 94 "%C4+"
 95 XROM 15,15
 96 RCL 28
 97 7.83
 98 *
 99 56.26
100 RCL 13
101 /
102 +
103 RCL 13
104 .0109
105 *
106 +
107 RCL 12
108 .07286
109 *
110 +
111 RCL 16
112 .00424
113 *
114 -
115 8.53
116 -
117 STO 27
118 "%C5+"
119 XROM 16,39
120 26
121 STO 00
122 "%C5+"
123 XROM 15,15
124 110.8
125 *
126 RCL 26
127 92.03
128 *
129 -
130 RCL 16
131 /
132 LASTX
133 .0215
134 *
135 +
136 RCL 28
137 6.833
138 *
139 +
140 26.98
141 RCL 13
142 /
143 -
144 RCL 16
145 LN
146 6.632
147 *
148 -
149 RCL 14
150 1085 E-7
151 *
152 -
153 31.49
154 +
155 E^X
156 STO 26
157 "R50%"
158 XEQ 12
159 ADV
160 LBL 01
161 " P     TABLE"
162 PROMPT
163 GTO 01
164 LBL A
165 16
166 "P"
167 XEQ 08
168 XEQ 06
169 XEQ 05
170 GTO 01
171 LBL D
172 LBL E
173 16
174 "BEG P"
175 XEQ 08
176 7
177 "END P"
178 XEQ 08
179 8
180 "P INC"
181 XEQ 08
182 ADV
183 RCL 17
184 LBL 02
185 XEQ 06
186 STO 17
187 "P"
188 XEQ 09
189 XEQ 05
190 RCL 17
191 RND
192 RCL 14
193 RND
194 X=Y?
195 GTO 01
196 RCL 08
197 RND
198 RCL 17
199 RCL 09
200 +
201 RND
202 X<Y?
203 GTO 03
204 RCL 17
205 RND
206 X=Y?
207 GTO 04
208 RCL 08
209 RND
210 LBL 03
211 LASTX
212 STO 17
213 GTO 02
214 LBL 04
215 RCL 09
216 ST+ 17
217 GTO 01
218 LBL 05
219 RCL 13
220 RCL 27
221 "R"
222 X=Y?
223 "Rd"
224 XEQ 12
225 ADV
226 RTN
227 LBL 06
228 RCL 14
229 /
230 ENTER
231 RND
232 1
233 X<=Y?
234 GTO 07
235 .3
236 *
237 X<=Y?
238 RCL Z
239 CHS
240 1
241 +
242 2
243 *
244 RCL 26
245 RCL 13
246 /
247 LOG
248 *
249 RCL 13
250 LOG
251 +
252 10^X
253 STO 27
254 RCL 17
255 RTN
256 LBL 07
257 RCL 13
258 STO 27
259 RCL 14
260 RTN
261 LBL 08
262 STO 00
263 XEQ 10
264 XROM 16,40
265 RDN
266 STO 03
267 X<>Y
268 STO 04
269 R^
270 RTN
271 LBL 09
272 "P"
273 XEQ 10
274 XROM 16,37
275 RDN
276 STO 03
277 X<>Y
278 STO 04
279 R^
280 RTN
281 LBL 10
282 ASTO T
283 "PSI"
284 ASTO 01
285 CLA
286 ASTO 02
287 CLA
288 ARCL T
289 RCL 04
290 RCL 03
291 RCL Z
292 RTN
293 LBL 11
294 STO 00
295 XEQ 13
296 XROM 16,40
297 RDN
298 STO 06
299 X<>Y
300 STO 07
301 R^
302 RTN
303 LBL 12
304 XEQ 13
305 XROM 16,37
306 RDN
307 STO 06
308 X<>Y
309 STO 07
310 R^
311 RTN
312 LBL 13
313 ASTO T
314 "MCF/BBL"
315 ASTO 01
316 ASHF
317 ASTO 02
318 CLA
319 ARCL T
320 RCL 07
321 RCL 06
322 RCL Z
323 END
