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