 01 LBL "GIP"
 02 "GAS IN PLACE"
 03 40
 04 XROM 16,11
 05 FC?C 25
 06 PROMPT
 07 "SCM"
 08 ASTO 06
 09 CLA
 10 ASTO 07
 11 "CORR"
 12 1
 13 XROM 16,13
 14 FC? 01
 15 GTO 00
 16 "SKIP"
 17 2
 18 XROM 16,13
 19 FS? 02
 20 GTO 01
 21 XROM 16,14
 22 LBL 00
 23 XROM 16,15
 24 XROM 16,17
 25 XROM 16,24
 26 LBL 01
 27 20
 28 STO 00
 29 "%SW"
 30 XROM 15,15
 31 26
 32 STO 00
 33 "ACRE"
 34 ASTO 01
 35 CLA
 36 ASTO 02
 37 ASTO Z
 38 "M2"
 39 ASTO Y
 40 "AREA"
 41 XROM 16,41
 42 "FT"
 43 ASTO 01
 44 CLA
 45 ASTO 02
 46 ASTO Z
 47 "M"
 48 ASTO Y
 49 "H"
 50 XROM 16,41
 51 16
 52 "PI"
 53 XEQ 07
 54 STO 35
 55 FC? 01
 56 GTO 02
 57 XEQ 09
 58 XROM 16,42
 59 STO 08
 60 GTO 03
 61 LBL 02
 62 7
 63 STO 00
 64 "ZI"
 65 XROM 15,15
 66 LBL 03
 67 RCL 17
 68 /
 69 RCL 23
 70 *
 71 RCL 22
 72 "F-R"
 73 XROM 16,44
 74 /
 75 RCL 16
 76 XROM 16,44
 77 *
 78 RCL 18
 79 X<>Y
 80 /
 81 1
 82 RCL 21
 83 100
 84 ST/ T
 85 /
 86 -
 87 STO 04
 88 *
 89 RCL 27
 90 *
 91 RCL 28
 92 *
 93 43.56
 94 *
 95 STO 39
 96 "G"
 97 XEQ 08
 98 CF 08
 99 LBL 15
100 ADV
101 37
102 "P ABAN"
103 XEQ 07
104 FC? 01
105 GTO 04
106 RCL 38
107 XEQ 09
108 XROM 16,42
109 GTO 05
110 LBL 04
111 8
112 STO 00
113 "Z ABAN"
114 XROM 15,15
115 LBL 05
116 RCL 08
117 X<>Y
118 /
119 RCL 38
120 *
121 RCL 17
122 /
123 1
124 X<>Y
125 -
126 STO 03
127 RCL 39
128 *
129 STO 36
130 "GPGD"
131 XEQ 08
132 RCL 03
133 100
134 *
135 "%GASRF"
136 XROM 16,39
137 ADV
138 62.5
139 RCL 18
140 1.3125
141 *
142 -
143 STO 26
144 "%SGR"
145 XROM 16,39
146 25
147 STO 00
148 "%SGR"
149 XROM 15,15
150 100
151 /
152 1
153 RCL 03
154 -
155 *
156 RCL 04
157 /
158 1
159 X<>Y
160 -
161 STO 03
162 RCL 39
163 *
164 "GPWD"
165 XEQ 08
166 RCL 03
167 100
168 *
169 "%GASRF"
170 XROM 16,39
171 GTO 15
172 LBL 07
173 STO 00
174 ASTO T
175 "PSI"
176 ASTO 01
177 "KPA"
178 ASTO 02
179 CLA
180 ASTO 02
181 ASTO Z
182 ARCL T
183 XROM 16,41
184 RTN
185 LBL 08
186 ADV
187 ASTO T
188 "MCF"
189 ASTO 01
190 CLA
191 ASTO 02
192 ARCL T
193 RCL 07
194 RCL 06
195 RCL Z
196 XROM 16,37
197 RDN
198 STO 06
199 X<>Y
200 STO 07
201 R^
202 RTN
203 LBL 09
204 RCL 16
205 "F-R"
206 XROM 16,44
207 RCL 10
208 /
209 X<>Y
210 RCL 11
211 /
212 END
