 01 LBL "STAB"
 02 "STAB FLOW C"
 03 49
 04 XROM 16,11
 05 FC?C 25
 06 PROMPT
 07 SF 27
 08 "HR"
 09 ASTO 03
 10 "SCM/DAY"
 11 ASTO 06
 12 ASHF
 13 ASTO 07
 14 "KPA"
 15 ASTO 08
 16 CLA
 17 ASTO 04
 18 ASTO 09
 19 "CORR"
 20 1
 21 XROM 16,13
 22 FC? 01
 23 GTO 00
 24 "SKIP"
 25 2
 26 XROM 16,13
 27 FS? 02
 28 GTO 01
 29 XROM 16,14
 30 XROM 16,19
 31 XROM 16,17
 32 XROM 16,24
 33 GTO 01
 34 LBL 00
 35 41
 36 STO 00
 37 "1/PSI"
 38 ASTO 01
 39 CLA
 40 ASTO 02
 41 ASTO Z
 42 "1/KPA"
 43 ASTO Y
 44 "CG"
 45 XROM 16,41
 46 47
 47 STO 00
 48 "CP"
 49 ASTO 01
 50 CLA
 51 ASTO 02
 52 ASTO Z
 53 "PA*S"
 54 ASTO Y
 55 "UG"
 56 XROM 16,41
 57 XROM 16,24
 58 LBL 01
 59 20
 60 STO 00
 61 "%SW"
 62 XROM 15,15
 63 28
 64 STO 00
 65 "MD"
 66 ASTO 01
 67 ASTO Y
 68 CLA
 69 ASTO 02
 70 ASTO Z
 71 "KG"
 72 XROM 16,41
 73 45
 74 STO 00
 75 "N"
 76 XROM 15,15
 77 35
 78 "TIME1"
 79 XEQ 18
 80 36
 81 "PWF1"
 82 XEQ 20
 83 37
 84 "QG1"
 85 XEQ 16
 86 CF 08
 87 38
 88 "TIME2"
 89 XEQ 18
 90 39
 91 "PWF2"
 92 XEQ 20
 93 STO 47
 94 40
 95 "QG2"
 96 XEQ 16
 97 25
 98 "SITP"
 99 XEQ 20
100 43
101 "P STAB"
102 XEQ 20
103 FC? 01
104 GTO 02
105 RCL 16
106 "F-R"
107 XROM 16,44
108 RCL 10
109 /
110 STO 01
111 X<>Y
112 X^2
113 RCL 26
114 X^2
115 +
116 2
117 /
118 SQRT
119 STO 17
120 RCL 11
121 /
122 STO 00
123 XROM 15,03
124 STO 42
125 RCL 01
126 RCL 00
127 XROM 15,07
128 STO 48
129 LBL 02
130 RCL 29
131 RCL 42
132 /
133 RCL 48
134 /
135 1
136 RCL 21
137 100
138 /
139 -
140 RCL 18
141 *
142 /
143 SQRT
144 .69688
145 *
146 STO 27
147 RCL 38
148 RCL 37
149 XEQ 06
150 /
151 STO 32
152 ADV
153 "C1"
154 XROM 16,39
155 RCL 41
156 RCL 40
157 XEQ 06
158 /
159 "C2"
160 XROM 16,39
161 ADV
162 RCL 32
163 /
164 RCL 46
165 1/X
166 Y^X
167 ENTER
168 1/X
169 1
170 ST- Z
171 -
172 2
173 ST* Z
174 *
175 RCL 39
176 "HR"
177 XROM 16,44
178 X<>Y
179 1/X
180 Y^X
181 RCL 36
182 XROM 16,44
183 RCL Z
184 1/X
185 Y^X
186 *
187 STO 31
188 RCL 36
189 XROM 16,44
190 SQRT
191 *
192 LN
193 STO 28
194 LBL 15
195 "Re      ENDT"
196 PROMPT
197 GTO 15
198 LBL A
199 29
200 "Re"
201 XEQ 22
202 RCL 27
203 /
204 X^2
205 STO 35
206 "END T"
207 XEQ 19
208 GTO 03
209 LBL D
210 LBL E
211 34
212 "END T"
213 XEQ 18
214 LBL 03
215 33
216 "T INC"
217 XEQ 18
218 CLX
219 STO 33
220 GTO 04
221 LBL 14
222 RCL 33
223 "TIME"
224 XEQ 19
225 "HR"
226 XROM 16,44
227 SQRT
228 RCL 31
229 *
230 LN
231 RCL 28
232 X<>Y
233 /
234 RCL 46
235 Y^X
236 RCL 32
237 *
238 STO 45
239 "C"
240 XROM 16,39
241 RCL 44
242 XEQ 06
243 *
244 STO 43
245 "QG"
246 XEQ 17
247 RCL 33
248 SQRT
249 RCL 27
250 *
251 "RAD"
252 XEQ 23
253 LBL 04
254 ADV
255 RCL 35
256 RND
257 RCL 33
258 RCL 34
259 +
260 RND
261 X<Y?
262 GTO 05
263 X<>Y
264 RCL 33
265 RND
266 X=Y?
267 GTO 15
268 RCL 35
269 RND
270 LBL 05
271 LASTX
272 STO 33
273 GTO 14
274 LBL 06
275 X^2
276 RCL 26
277 X^2
278 -
279 CHS
280 RCL 46
281 Y^X
282 RTN
283 LBL 16
284 STO 00
285 XEQ 07
286 XROM 16,40
287 RDN
288 STO 06
289 X<>Y
290 STO 07
291 R^
292 RTN
293 LBL 17
294 XEQ 07
295 XROM 16,37
296 RDN
297 STO 06
298 X<>Y
299 STO 07
300 R^
301 RTN
302 LBL 07
303 ASTO T
304 "MCF/DAY"
305 ASTO 01
306 ASHF
307 ASTO 02
308 CLA
309 ARCL T
310 RCL 07
311 RCL 06
312 RCL Z
313 RTN
314 LBL 18
315 STO 00
316 XEQ 08
317 XROM 16,40
318 RDN
319 STO 03
320 X<>Y
321 STO 04
322 R^
323 RTN
324 LBL 19
325 XEQ 08
326 XROM 16,37
327 RDN
328 STO 03
329 X<>Y
330 STO 04
331 R^
332 RTN
333 LBL 08
334 ASTO T
335 "HR"
336 ASTO 01
337 CLA
338 ASTO 02
339 ARCL T
340 RCL 04
341 RCL 03
342 RCL Z
343 RTN
344 LBL 20
345 STO 00
346 XEQ 09
347 XROM 16,40
348 RDN
349 STO 08
350 X<>Y
351 STO 09
352 R^
353 RTN
354 LBL 21
355 XEQ 09
356 XROM 16,37
357 RDN
358 STO 08
359 X<>Y
360 STO 09
361 R^
362 RTN
363 LBL 09
364 ASTO T
365 "PSI"
366 ASTO 01
367 CLA
368 ASTO 02
369 ARCL T
370 RCL 09
371 RCL 08
372 RCL Z
373 RTN
374 LBL 22
375 STO 00
376 XEQ 10
377 XROM 16,41
378 RTN
379 LBL 23
380 XEQ 10
381 XROM 16,38
382 RTN
383 LBL 10
384 ASTO T
385 "FT"
386 ASTO 01
387 "M"
388 ASTO Y
389 CLA
390 ASTO 02
391 ASTO Z
392 ARCL T
393 END
