 01 LBL "INFCOEF"
 02 "H2O INF COEF"
 03 130
 04 XROM 16,11
 05 FC?C 25
 06 PROMPT
 07 CF 00
 08 SF 04
 09 SF 07
 10 SF 27
 11 XEQ 15
 12 LBL 00
 13 "H,      T,P,We"  ;"H,\0D      T,P,We"
 14 PROMPT
 15 GTO 00
 16 LBL D
 17 LBL E
 18 XEQ 16
 19 XEQ 17
 20 GTO 00
 21 LBL A
 22 27
 23 STO 00
 24 "FT"
 25 ASTO 01
 26 CLA
 27 ASTO 02
 28 ASTO Z
 29 "M"
 30 ASTO Y
 31 "H"
 32 XROM 16,41
 33 26
 34 STO 00
 35 ""  ;"\0D"
 36 XROM 15,15
 37 RCL 32
 38 RCL 33
 39 +
 40 *
 41 RCL 18
 42 *
 43 RCL 31
 44 X^2
 45 *
 46 RCL 28
 47 *
 48 373
 49 *
 50 12 E6
 51 /
 52 STO 42
 53 FS? 08
 54 ADV
 55 "B"
 56 XEQ 28
 57 CF 08
 58 GTO 00
 59 LBL "INFLUX"
 60 "H2O INFLUX"
 61 130
 62 XROM 16,11
 63 FC?C 25
 64 PROMPT
 65 SF 00
 66 CF 04
 67 CF 07
 68 XEQ 15
 69 XEQ 16
 70 ADV
 71 SF 08
 72 LBL 01
 73 41
 74 STO 00
 75 "B"
 76 XEQ 26
 77 XEQ 17
 78 GTO 01
 79 LBL 15
 80 SF 06
 81 "M3"
 82 ASTO 03
 83 "/KPA"
 84 ASTO 43
 85 "YR"
 86 ASTO 06
 87 "KPA"
 88 ASTO 08
 89 CLA
 90 ASTO 04
 91 ASTO 07
 92 ASTO 09
 93 ASTO 44
 94 "CORR"
 95 1
 96 XROM 16,13
 97 FS? 01
 98 GTO 09
 99 31
100 STO 00
101 "1/PSI"
102 ASTO 01
103 CLA
104 ASTO 02
105 ASTO Z
106 "1/KPA"
107 ASTO Y
108 "CW"
109 XROM 16,41
110 "1/KPA"
111 ASTO Y
112 CLA
113 ASTO Z
114 "CFR"
115 XROM 16,41
116 25
117 STO 00
118 "CP"
119 ASTO 01
120 CLA
121 ASTO 02
122 ASTO Z
123 "PA*S"
124 ASTO Y
125 "UWI"
126 XROM 16,41
127 XROM 16,24
128 GTO 10
129 LBL 09
130 "SKIP"
131 2
132 XROM 16,13
133 FS? 02
134 GTO 10
135 XROM 16,17
136 XROM 16,23
137 XROM 16,24
138 LBL 10
139 30
140 STO 00
141 "FT"
142 ASTO 01
143 CLA
144 ASTO 02
145 ASTO Z
146 "M"
147 ASTO Y
148 "RW"
149 XROM 16,41
150 28
151 STO 00
152 "MD"
153 ASTO 01
154 ASTO Y
155 CLA
156 ASTO 02
157 ASTO Z
158 "K"
159 XROM 16,41
160 34
161 STO 00
162 "PI"
163 XEQ 20
164 STO 17
165 FC? 01
166 RTN
167 XROM 15,38
168 STO 32
169 XROM 15,45
170 STO 33
171 XROM 15,42
172 STO 26
173 RTN
174 LBL 16
175 CF 03
176 1.1
177 STO 45
178 LBL 02
179 48
180 STO 00
181 LBL 03
182 FC? 03
183 ADV
184 FS? 07
185 SF 08
186 XEQ 18
187 FC? 03
188 FS? 22
189 GTO 04
190 FC? 23
191 GTO 12
192 LBL 04
193 CF 08
194 XEQ 19
195 RCL 35
196 X<>Y
197 X<=Y?
198 GTO 11
199 TONE 03
200 "P > PI"
201 PROMPT
202 1
203 ST- 00
204 GTO 04
205 LBL 11
206 FS?C 07
207 SF 08
208 FC? 00
209 XEQ 21
210 CF 08
211 2
212 FC? 00
213 1
214 ST+ 00
215 ISG 45
216 GTO 03
217 LBL 12
218 RCL 45
219 INT
220 1
221 -
222 1 E3
223 +
224 LASTX
225 /
226 STO 48
227 STO 45
228 "EDIT"
229 3
230 XROM 16,13
231 FS? 03
232 GTO 02
233 RCL 29
234 RCL 18
235 /
236 RCL 26
237 /
238 RCL 32
239 RCL 33
240 +
241 /
242 RCL 31
243 X^2
244 /
245 "PSI*MD/CP*FT2-1"
246 "/YR"
247 XROM 16,44
248 100
249 *
250 STO 34
251 RCL 35
252 STO 46
253 X<> 42
254 STO 45
255 RCL 48
256 FRC
257 4 E3
258 *
259 46.04604
260 +
261 STO 47
262 LBL 05
263 TONE 05
264 RCL 47
265 8
266 -
267 RCL IND X
268 RCL IND 47
269 -
270 2
271 /
272 STO IND 47
273 DSE 47
274 GTO 05
275 RCL 45
276 STO 42
277 TONE 09
278 RTN
279 LBL 17
280 ADV
281 29
282 STO 00
283 "Re/RW"
284 XROM 15,15
285 FC? 22
286 RTN
287 49
288 STO 47
289 RCL 48
290 STO 45
291 LBL 06
292 ADV
293 RCL 34
294 RCL IND 47
295 *
296 XEQ 23
297 2
298 ST+ 47
299 RCL 47
300 STO 00
301 XEQ 24
302 XEQ 30
303 FS? 00
304 GTO 13
305 /
306 STO 42
307 XEQ 27
308 GTO 14
309 LBL 13
310 RCL 42
311 *
312 STO 41
313 XEQ 22
314 LBL 14
315 CF 08
316 2
317 ST+ 47
318 ISG 45
319 GTO 06
320 GTO 17
321 LBL 18
322 "TIME"
323 XEQ 29
324 ASTO T
325 "YR"
326 ASTO 01
327 CLA
328 ASTO 02
329 ARCL T
330 RCL 07
331 RCL 06
332 RCL Z
333 XROM 16,40
334 RDN
335 STO 06
336 X<>Y
337 STO 07
338 R^
339 RTN
340 LBL 19
341 "P"
342 XEQ 29
343 LBL 20
344 ASTO T
345 "PSI"
346 ASTO 01
347 CLA
348 ASTO 02
349 ARCL T
350 RCL 09
351 RCL 08
352 RCL Z
353 XROM 16,40
354 RDN
355 STO 08
356 X<>Y
357 STO 09
358 R^
359 RTN
360 LBL 21
361 XEQ 09
362 XROM 16,40
363 RDN
364 STO 03
365 X<>Y
366 STO 04
367 R^
368 RTN
369 LBL 22
370 XEQ 09
371 XROM 16,37
372 RDN
373 STO 03
374 X<>Y
375 STO 04
376 R^
377 RTN
378 LBL 09
379 "We"
380 XEQ 29
381 ASTO T
382 "BBL"
383 ASTO 01
384 CLA
385 ASTO 02
386 ARCL T
387 RCL 04
388 RCL 03
389 RCL Z
390 RTN
391 LBL 23
392 "Td"
393 XEQ 29
394 XROM 16,39
395 RTN
396 LBL 24
397 "QTd"
398 XEQ 29
399 XROM 15,15
400 RTN
401 LBL 25
402 "B"
403 XEQ 29
404 LBL 26
405 XEQ 10
406 XROM 16,40
407 RDN
408 STO 43
409 X<>Y
410 STO 44
411 R^
412 RTN
413 LBL 27
414 "B"
415 XEQ 29
416 LBL 28
417 FS?C 04
418 SF 08
419 XEQ 10
420 XROM 16,37
421 RDN
422 STO 43
423 X<>Y
424 STO 44
425 R^
426 RTN
427 LBL 10
428 ASTO T
429 "BBL/PSI"
430 ASTO 01
431 ASHF
432 ASTO 02
433 CLA
434 ARCL T
435 RCL 44
436 RCL 43
437 RCL Z
438 RTN
439 LBL 29
440 STO 05
441 CLST
442 FS? 41
443 1
444 +
445 FS? 40
446 2
447 +
448 5
449 /
450 FS? 39
451 1
452 +
453 FS? 38
454 2
455 +
456 FS? 37
457 4
458 +
459 FS? 36
460 8
461 +
462 FS? 29
463 CHS
464 RCL 45
465 FIX 00
466 CF 29
467 ARCL X
468 X<>Y
469 X<0?
470 SF 29
471 ENTER
472 FRC
473 5
474 *
475 FIX IND Y
476 X=0?
477 SCI IND Y
478 1
479 X=Y?
480 ENG IND Z
481 RCL 05
482 RTN
483 LBL 30
484 RCL 47
485 1.04804
486 +
487 STO 46
488 50
489 STO 00
490 CLX
491 LBL 07
492 TONE 05
493 RCL IND 46
494 RCL IND 00
495 *
496 +
497 4
498 ST+ 00
499 X<>Y
500 DSE 46
501 GTO 07
502 RCL IND 47
503 X<>Y
504 TONE 09
505 END
