 01 LBL "GASPVT"
 02 "GAS PVT"
 03 45
 04 XROM 16,11
 05 FC?C 25
 06 PROMPT
 07 CF 05
 08 SF 27
 09 "KPA"
 10 ASTO 03
 11 CLA
 12 ASTO 04
 13 "SKIP"
 14 2
 15 XROM 16,13
 16 FS? 02
 17 GTO 15
 18 LBL 00
 19 "GASG    COMP"
 20 PROMPT
 21 XROM 16,14
 22 GTO 03
 23 LBL D
 24 LBL E
 25 "CLEAR"
 26 7
 27 XROM 16,13
 28 26.044
 29 FC? 07
 30 GTO 02
 31 0
 32 LBL 01
 33 STO IND Y
 34 ISG Y
 35 GTO 01
 36 LBL 02
 37 "X9"
 38 XROM 15,13
 39 LBL "X9"
 40 ADV
 41 "%TOT"
 42 XROM 16,39
 43 XROM 15,16
 44 STO 15
 45 "GAS G"
 46 XROM 16,39
 47 XROM 15,17
 48 XROM 16,28
 49 GTO 03
 50 LBL A
 51 LBL B
 52 XROM 16,19
 53 XROM 15,14
 54 XROM 15,09
 55 XROM 16,28
 56 LBL 03
 57 XROM 16,15
 58 XROM 16,17
 59 LBL 15
 60 RCL 16
 61 "F-R"
 62 XROM 16,44
 63 RCL 10
 64 /
 65 STO 06
 66 "PSI"
 67 ASTO 01
 68 CLA
 69 ASTO 02
 70 RCL 04
 71 RCL 03
 72 16
 73 STO 00
 74 "BEG P"
 75 XROM 16,40
 76 RDN
 77 STO 03
 78 X<>Y
 79 STO 04
 80 X<>Y
 81 CF 08
 82 7
 83 STO 00
 84 "END P"
 85 XROM 16,40
 86 RDN
 87 STO 03
 88 X<>Y
 89 STO 04
 90 X<>Y
 91 R^
 92 "P INC"
 93 XROM 16,40
 94 RDN
 95 STO 03
 96 RDN
 97 STO 04
 98 ADV
 99 LBL 16
100 "PSI"
101 ASTO 01
102 CLA
103 ASTO 02
104 RCL 04
105 RCL 03
106 RCL 17
107 "P"
108 XROM 16,37
109 RDN
110 STO 03
111 RDN
112 STO 04
113 RCL 06
114 RCL 17
115 RCL 11
116 /
117 STO 07
118 XROM 16,42
119 "Z"
120 XROM 16,39
121 RCL 06
122 RCL 07
123 XROM 15,03
124 "1/PSI"
125 ASTO 01
126 CLA
127 ASTO 02
128 ASTO Z
129 "1/KPA"
130 ASTO Y
131 "CG"
132 XROM 16,38
133 RCL 06
134 RCL 07
135 XROM 15,05
136 "FT3/SCF"
137 ASTO 01
138 ASHF
139 ASTO 02
140 "M3/SCM"
141 ASTO Y
142 CLA
143 ASTO Z
144 "BG"
145 XROM 16,38
146 RCL 06
147 RCL 07
148 XROM 15,07
149 "CP"
150 ASTO 01
151 CLA
152 ASTO 02
153 ASTO Z
154 "PA*S"
155 ASTO Y
156 "UG"
157 XROM 16,38
158 ADV
159 RCL 08
160 RND
161 RCL 17
162 RCL 09
163 +
164 RND
165 X<Y?
166 GTO 04
167 X<>Y
168 RCL 17
169 RND
170 X=Y?
171 GTO 05
172 RCL 08
173 RND
174 LBL 04
175 LASTX
176 STO 17
177 GTO 16
178 LBL 05
179 RCL 09
180 ST+ 17
181 GTO 15
182 END
