01 LBL "SD"  ; Key: -15
 02 CLRG
 03 CLA
 04 CF 00
 05 SF 25
 06 STO 00
 07 4
 08 STO 25
 09 1
 10 STO 07
 11 LBL 00
 12 6
 13 STO 06
 14 STO 20
 15 RCL 25
 16 INT
 17 1
 18 X=Y?
 19 SF 00
 20 LBL 01
 21 XEQ 04
 22 1 E2
 23 *
 24 INT
 25 STO 21
 26 FS? 00
 27 XEQ 05
 28 RCL 21
 29 1 E2
 30 +
 31 RCL 06
 32 10^X
 33 /
 34 ST+ IND 25
 35 3
 36 ST- 06
 37 RCL 06
 38 0
 39 X<=Y?
 40 GTO 01
 41 RCL 25
 42 INT
 43 FS? 00
 44 ST+ 09
 45 1 E7
 46 /
 47 ST+ IND 25
 48 DSE 25
 49 GTO 00
 50 -250
 51 STO 06
 52 LBL "LRTS"  ; Key: -14
 53 LBL 02
 54 XEQ 04
 55 4
 56 *
 57 1
 58 +
 59 INT
 60 STO 25
 61 RCL IND 25
 62 1 E3
 63 X=Y?
 64 GTO 02
 65 RDN
 66 X<0?
 67 GTO 02
 68 STO 20
 69 CLX
 70 STO 21
 71 3
 72 STO 25
 73 LBL 03
 74 RCL 20
 75 INT
 76 1 E2
 77 -
 78 25
 79 /
 80 1
 81 +
 82 INT
 83 RCL 25
 84 1
 85 -
 86 10^X
 87 *
 88 RCL 21
 89 +
 90 STO 21
 91 RCL 20
 92 FRC
 93 1 E3
 94 *
 95 STO 20
 96 DSE 25
 97 GTO 03
 98 250
 99 ST+ 06
100 RCL 21
101 FIX 00
102 XROM 29,20
103 GTO "SNS"
104 LBL 04
105 RCL 00
106 PI
107 +
108 5
109 Y^X
110 FRC
111 STO 00
112 RTN
113 LBL 05
114 RCL 20
115 10^X
116 /
117 ST+ 09
118 RCL 20
119 2
120 -
121 STO 20
122 RDN
123 RTN
124 LBL "CHN"  ; Key: 11
125 STO 16
126 RDN
127 STO 22
128 X<>Y
129 STO 14
130 RCL 16
131 SIN
132 RCL 14
133 *
134 STO 11
135 RCL 16
136 COS
137 RCL 14
138 *
139 STO 16
140 RCL 22
141 SIN
142 RCL 16
143 *
144 STO 12
145 RCL 22
146 COS
147 RCL 16
148 *
149 STO 13
150 LBL "STD"  ; Key: -11
151 XEQ 12
152 13.01
153 STO 25
154 RCL 01
155 0
156 STO 16
157 STO 17
158 X>Y?
159 1
160 ENTER
161 5
162 +
163 RCL 14
164 *
165 INT
166 ST+ 06
167 RCL 05
168 RDN
169 LBL 06
170 R^
171 ENTER
172 FRC
173 1 E3
174 *
175 X<>Y
176 INT
177 RCL IND 25
178 +
179 INT
180 X<0?
181 GTO 14
182 1 E2
183 X<=Y?
184 GTO 14
185 X<>Y
186 RCL 16
187 10^X
188 /
189 ST+ 17
190 3
191 ST+ 16
192 DSE 25
193 GTO 06
194 RCL 17
195 STO 05
196 LBL "SNS"  ; Key: 12
197 CLX
198 STO 08
199 RCL 00
200 PI
201 +
202 5
203 Y^X
204 FRC
205 STO 00
206 RCL 07
207 X=0?
208 XEQ 45
209 FIX 06
210 1 E3
211 STO 18
212 R^
213 4
214 *
215 1
216 +
217 INT
218 STO 10
219 STO 21
220 LBL 07
221 RCL 10
222 STO 25
223 RCL IND 25
224 RCL 05
225 -
226 3
227 STO 25
228 CLX
229 STO 17
230 RDN
231 LBL 08
232 ENTER
233 INT
234 1 E2
235 -
236 X^2
237 ST+ 17
238 RDN
239 FRC
240 1 E3
241 *
242 DSE 25
243 GTO 08
244 STO 23
245 RCL 17
246 SQRT
247 STO 16
248 40
249 X>Y?
250 GTO 09
251 CLX
252 RCL 18
253 X>Y?
254 X<>Y
255 STO 18
256 GTO 11
257 LBL 09
258 CLX
259 35
260 X<=Y?
261 GTO 10
262 RCL 10
263 ENTER
264 10^X
265 /
266 ST+ 08
267 LBL 10
268 XEQ 13
269 LBL 11
270 ISG 10
271 PSE
272 5
273 RCL 10
274 X=Y?
275 1
276 STO 10
277 RCL 21
278 X#Y?
279 GTO 07
280 171
281 RCL 18
282 X>Y?
283 1 E3
284 CHS
285 XROM 29,20
286 XEQ 12
287 GTO 14
288 LBL 12
289 RCL 08
290 X=0?
291 RTN
292 .1
293 X<=Y?
294 XEQ 44
295 .1
296 X=Y?
297 XEQ 48
298 CLX
299 RDN
300 X>0?
301 GTO 14
302 RCL 09
303 STO 23
304 CLX
305 STO 16
306 LBL 13
307 RCL 07
308 X#0?
309 RCL 23
310 RCL 16
311 +
312 XROM 29,20
313 RTN
314 LBL 14
315 CF 04
316 FIX 06
317 RCL 01
318 ENTER
319 ABS
320 /
321 RCL 05
322 *
323 XROM 29,20
324 FS? 03
325 GTO "ALT"
326 RTN
327 LBL "ALT"
328 CF 03
329 SF 00
330 FIX 04
331 RCL 08
332 10
333 *
334 INT
335 X=0?
336 GTO 15
337 XEQ 44
338 CHS
339 LBL 15
340 RCL 07
341 X=0?
342 GTO 21
343 RCL 08
344 XROM 29,20
345 LBL 16
346 PSE
347 FS? 22
348 GTO 17
349 GTO 16
350 LBL 17
351 INT
352 ABS
353 5
354 X<=Y?
355 GTO 15
356 X<>Y
357 1
358 X<>Y
359 X<=Y?
360 GTO 15
361 STO 10
362 STO 25
363 RCL IND 25
364 RCL 05
365 X<>Y
366 STO 15
367 X<>Y
368 -
369 13.01
370 STO 25
371 CLX
372 STO 18
373 RDN
374 LBL 18
375 ENTER
376 INT
377 1 E2
378 -
379 STO IND 25
380 X^2
381 ST+ 18
382 RDN
383 FRC
384 1 E3
385 *
386 DSE 25
387 GTO 18
388 RCL 18
389 SQRT
390 STO 18
391 RCL 12
392 RCL 13
393 R-P
394 RDN
395 STO 16
396 RCL 11
397 RCL 18
398 /
399 ASIN
400 STO 17
401 RCL 15
402 100.1001
403 -
404 STO 15
405 RCL 10
406 ENTER
407 10^X
408 /
409 ST- 08
410 RCL 10
411 STO 11
412 3
413 X#Y?
414 GTO 19
415 "CK"
416 FS? 00
417 XEQ 49
418 CLA
419 XEQ 20
420 ST+ 16
421 ABS
422 XEQ 20
423 ST+ 17
424 ABS
425 +
426 .15
427 *
428 .21
429 -
430 INT
431 ST+ 11
432 LBL 19
433 RCL 18
434 FIX 00
435 RND
436 FIX 04
437 XROM 29,20
438 GTO "SHD"
439 LBL 20
440 RCL 00
441 PI
442 +
443 5
444 Y^X
445 FRC
446 STO 00
447 20
448 *
449 10
450 -
451 INT
452 RTN
453 LBL 21
454 CF 00
455 XEQ 45
456 GTO 17
457 LBL "SHD"
458 CF 00
459 SF 02
460 1 E2
461 STO 24
462 CLX
463 STO 20
464 STO 13
465 STO 14
466 12
467 STO 12
468 LBL 22
469 CF 01
470 RCL 18
471 FIX 00
472 RND
473 FIX 08
474 RCL 13
475 1 E3
476 /
477 +
478 RCL 07
479 STO 19
480 X=0?
481 XEQ 45
482 RCL 14
483 *
484 1 E6
485 /
486 +
487 RCL 20
488 1 E8
489 /
490 +
491 LBL 23
492 FS? 04
493 GTO "PST"
494 4
495 FS? 00
496 10^X
497 STO 25
498 RDN
499 BEEP
500 LBL 24
501 CF 22
502 PSE
503 FS? 22
504 GTO 27
505 DSE 25
506 GTO 24
507 LBL "WPN"  ; Key: -12
508 RCL 18
509 35
510 X>Y?
511 GTO 25
512 XEQ 47
513 GTO "SNS"
514 LBL 25
515 CF 00
516 FIX 06
517 RCL 12
518 2
519 -
520 X#0?
521 STO 12
522 RCL 12
523 STO 25
524 LBL 26
525 RCL 05
526 CHS
527 XEQ 28
528 RCL 15
529 XEQ 28
530 GTO 26
531 LBL 27
532 RCL 24
533 X<=Y?
534 GTO 23
535 X<>Y
536 STO 20
537 FS? 02
538 GTO 29
539 RCL 13
540 RCL 13
541 GTO 30
542 LBL 28
543 XROM 29,20
544 PSE
545 PSE
546 PSE
547 DSE 25
548 GTO 31
549 GTO 29
550 LBL "PHT"  ; Key: 14
551 SF 01
552 LBL "PHS"  ; Key: 13
553 RCL 17
554 -
555 ABS
556 X<>Y
557 RCL 16
558 -
559 ABS
560 +
561 STO 21
562 0
563 FS? 01
564 5
565 ENTER
566 3
567 +
568 RCL 18
569 *
570 ST+ 06
571 2
572 RCL 21
573 LN
574 -.03
575 *
576 .1
577 +
578 RCL 14
579 RCL 13
580 XEQ 32
581 FS? 01
582 *
583 X<0?
584 GTO 29
585 INT
586 ST+ 14
587 RCL 14
588 RCL 24
589 X>Y?
590 GTO 29
591 -1
592 ST* 15
593 FIX 00
594 RCL 16
595 XROM 29,20
596 RCL 17
597 XROM 29,20
598 RCL 10
599 RCL 19
600 *
601 SF 00
602 SF 04
603 XROM 29,20
604 GTO 23
605 LBL 29
606 RCL 01
607 0
608 X>Y?
609 1
610 ENTER
611 2
612 +
613 RCL 20
614 *
615 ST+ 06
616 6
617 RCL 11
618 -
619 1 E4
620 *
621 RCL 13
622 85
623 X<=Y?
624 GTO 50
625 CLX
626 RCL 14
627 XEQ 32
628 RCL 20
629 10
630 *
631 X^2
632 /
633 INT
634 ST+ 13
635 RCL 13
636 RCL 24
637 X<=Y?
638 GTO 50
639 RCL 13
640 70
641 X>Y?
642 GTO 30
643 CLX
644 STO 07
645 LBL 30
646 RCL 13
647 85
648 X>Y?
649 GTO 22
650 CLX
651 STO 20
652 "N/S"
653 XEQ 49
654 GTO 22
655 LBL 31
656 FS? 22
657 GTO 28
658 RTN
659 LBL 32
660 -
661 RCL 24
662 +
663 X^2
664 *
665 RCL 18
666 /
667 RTN
668 LBL "PST"  ; Key: 25
669 SF 00
670 CF 01
671 CF 02
672 CF 04
673 FIX 06
674 RCL 15
675 X<0?
676 GTO 35
677 3
678 STO 25
679 0
680 STO 15
681 RCL 13
682 85
683 X<=Y?
684 GTO 34
685 "DTG"
686 XEQ 49
687 LBL 33
688 RCL 25
689 XROM 29,20
690 DSE 25
691 GTO 33
692 GTO 50
693 LBL 34
694 RCL 00
695 PI
696 +
697 5
698 Y^X
699 FRC
700 STO 00
701 1 E2
702 *
703 LASTX
704 +
705 INT
706 RCL 25
707 1
708 -
709 3
710 *
711 10^X
712 /
713 ST+ 15
714 DSE 25
715 GTO 34
716 RCL 10
717 STO 25
718 1 E7
719 /
720 ST+ 15
721 RCL 15
722 STO IND 25
723 CF 00
724 XEQ 47
725 GTO 36
726 LBL 35
727 RCL 07
728 X#0?
729 GTO 36
730 RCL 13
731 51
732 X<=Y?
733 GTO 36
734 XEQ 46
735 LBL 36
736 RCL 10
737 STO 25
738 1 E3
739 FS? 00
740 STO IND 25
741 RCL 01
742 ENTER
743 ABS
744 /
745 RCL 05
746 *
747 XROM 29,20
748 GTO "SNS"
749 LBL "TTB"  ; Key: 15
750 RCL 01
751 XEQ 40
752 XEQ 42
753 FS? 04
754 GTO 14
755 RCL 01
756 XEQ 44
757 STO 01
758 .1
759 ST- 08
760 "I/T"
761 XEQ 49
762 GTO 43
763 LBL "DOC"  ; Key: -13
764 100.1001
765 XEQ 40
766 XEQ 42
767 FS? 04
768 GTO 14
769 4
770 STO 00
771 LBL 37
772 RCL 00
773 STO 25
774 RCL IND 25
775 XEQ 40
776 40
777 X<=Y?
778 GTO 38
779 "ALIEN"
780 XEQ 49
781 GTO 43
782 LBL 38
783 DSE IND 25
784 1
785 RCL 00
786 X#Y?
787 GTO 37
788 1 E3
789 RCL 01
790 X<0?
791 RDN
792 STO 01
793 "DCKD"
794 XEQ 49
795 CF 00
796 0
797 STO 05
798 4
799 STO 25
800 RCL 07
801 X#0?
802 GTO 39
803 XEQ 46
804 LBL 39
805 RCL IND 25
806 1 E3
807 X#Y?
808 GTO 43
809 DSE 25
810 GTO 39
811 "GAME OVER"
812 XEQ 49
813 "FUEL ="
814 XROM 29,01
815 FIX 00
816 RCL 06
817 XROM 29,05
818 XROM 29,10
819 CF 02
820 STOP
821 LBL 40
822 RCL 05
823 -
824 3
825 STO 25
826 CLX
827 STO 17
828 RDN
829 LBL 41
830 ENTER
831 INT
832 1 E2
833 -
834 X^2
835 ST+ 17
836 RDN
837 FRC
838 1 E3
839 *
840 DSE 25
841 GTO 41
842 RCL 17
843 SQRT
844 RTN
845 LBL 42
846 10
847 X>Y?
848 RTN
849 XEQ 47
850 SF 04
851 RTN
852 LBL 43
853 CF 00
854 FIX 06
855 RCL 01
856 ENTER
857 ABS
858 /
859 RCL 05
860 *
861 XROM 29,20
862 GTO "SNS"
863 LBL 44
864 CHS
865 "NUB"
866 GTO 49
867 LBL 45
868 "SNS U/S"
869 GTO 49
870 LBL 46
871 1
872 STO 07
873 "SNS OK"
874 GTO 49
875 LBL 47
876 "A/T/F"
877 GTO 49
878 LBL 48
879 SF 03
880 "ATK"
881 LBL 49
882 XROM 29,08
883 CLA
884 RTN
885 LBL 50
886 CF 04
887 "YOU BLEW IT"
888 XROM 29,08
889 STOP
890 END