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