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