Page 1 of 1

HP-41C Advanced Star Treck (Game)

PostPosted: Tue May 30, 2017 6:52 am
by jotne
HP-41C Advanced Star Trek
by James P. Patterson

Manual:

If you have Printer and 3 memory modules (or a CV,CX)

Code: Select all
 01 LBL "SD"
 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"
 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 PRX
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"
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"
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"
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 PRX
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 PRX
313 RTN
314 LBL 14
315 CF 04
316 FIX 06
317 RCL 01
318 ENTER
319 ABS
320 /
321 RCL 05
322 *
323 PRX
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 PRX
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 PRX
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"
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 PRX
544 PSE
545 PSE
546 PSE
547 DSE 25
548 GTO 31
549 GTO 29
550 LBL "PHT"
551 SF 01
552 LBL "PHS"
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 PRX
596 RCL 17
597 PRX
598 RCL 10
599 RCL 19
600 *
601 SF 00
602 SF 04
603 PRX
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"
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 PRX
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 PRX
748 GTO "SNS"
749 LBL "TTB"
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"
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 ACA
815 FIX 00
816 RCL 06
817 ACX
818 PRBUF
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 PRX
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 PRA
883 CLA
884 RTN
885 LBL 50
886 CF 04
887 "YOU BLEW IT"
888 PRA
889 STOP
890 END

 01 LBL "PFR"
 02 FIX 06
 03 CLRG
 04 STO 00
 05 -50.05005
 06 STO 20
 07 LBL 00
 08 CF 22
 09 6
 10 STO 25
 11 LBL 01
 12 RCL 00
 13 PI
 14 +
 15 5
 16 Y^X
 17 FRC
 18 STO 00
 19 41
 20 *
 21 30
 22 +
 23 INT
 24 STO IND 25
 25 DSE 25
 26 50
 27 -
 28 STO IND 25
 29 DSE 25
 30 GTO 01
 31 RCL 03
 32 RCL 01
 33 R-P
 34 RDN
 35 STO 07
 36 RCL 05
 37 RCL 05
 38 X^2
 39 RCL 03
 40 X^2
 41 RCL 01
 42 X^2
 43 +
 44 +
 45 SQRT
 46 STO 21
 47 "DISTANCE"
 48 XEQ 05
 49 PSE
 50 /
 51 ASIN
 52 STO 08
 53 6
 54 STO 25
 55 0
 56 LBL 02
 57 RCL IND 25
 58 RCL 25
 59 1.5
 60 *
 61 3
 62 -
 63 10^X
 64 /
 65 +
 66 DSE 25
 67 DSE 25
 68 GTO 02
 69 STO 09
 70 LBL 03
 71 RCL 20
 72 "ENTERPRISE"
 73 XEQ 05
 74 PSE
 75 PSE
 76 PSE
 77 FS? 22
 78 GTO 04
 79 RCL 09
 80 "ALIEN"
 81 XEQ 05
 82 PSE
 83 PSE
 84 PSE
 85 FS? 22
 86 GTO 04
 87 RCL 21
 88 "DISTANCE"
 89 XEQ 05
 90 PSE
 91 FS? 22
 92 GTO 04
 93 GTO 03
 94 LBL 04
 95 X<>Y
 96 RCL 07
 97 "THETA"
 98 XEQ 05
 99 PSE
100 -
101 "ERROR"
102 XEQ 05
103 PSE
104 ABS
105 X<>Y
106 RCL 08
107 XEQ "PHI"
108 XEQ 05
109 PSE
110 -
111 "ERROR"
112 XEQ 05
113 PSE
114 ABS
115 +
116 "TOTAL ERROR"
117 XEQ 05
118 PSE
119 GTO 00
120 LBL 05
121 BEEP
122 AVIEW
123 PSE
124 CLD
125 RTN
126 END


If you do not have printer, but 4 memory modules (or CV, CX)
Code: Select all
 01 LBL "SD"
 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"
 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"
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"
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"
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"
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"
561 SF 01
562 LBL "PHS"
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"
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"
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"
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 END


 01 LBL "CCS"
 02 1 E2
 03 /
 04 INT
 05 STO 29
 06 XEQ 02
 07 STO 30
 08 XEQ 02
 09 STO 31
 10 XEQ 03
 11 STO 31
 12 RCL 30
 13 XEQ 03
 14 STO 30
 15 RCL 29
 16 XEQ 03
 17 STO 29
 18 XEQ 00
 19 GTO 07
 20 LBL "CCP"
 21 INT
 22 STO 29
 23 XEQ 01
 24 STO 30
 25 XEQ 01
 26 STO 31
 27 XEQ 00
 28 GTO 07
 29 LBL "CCW"
 30 XEQ 00
 31 RCL 15
 32 INT
 33 STO 29
 34 XEQ 01
 35 STO 30
 36 XEQ 01
 37 STO 31
 38 XEQ 00
 39 GTO 07
 40 LBL 00
 41 RCL 05
 42 X<0?
 43 CHS
 44 INT
 45 STO 26
 46 XEQ 01
 47 STO 27
 48 XEQ 01
 49 STO 28
 50 RTN
 51 LBL 01
 52 LASTX
 53 FRC
 54 1 E3
 55 *
 56 INT
 57 RTN
 58 LBL 02
 59 LASTX
 60 FRC
 61 1 E1
 62 *
 63 INT
 64 RTN
 65 LBL 03
 66 1
 67 X=Y?
 68 GTO 04
 69 X<>Y
 70 2
 71 X=Y?
 72 GTO 05
 73 X<>Y
 74 3
 75 X=Y?
 76 GTO 06
 77 87
 78 RTN
 79 LBL 04
 80 12
 81 RTN
 82 LBL 05
 83 37
 84 RTN
 85 LBL 06
 86 62
 87 RTN
 88 LBL 07
 89 FIX 02
 90 RCL 26
 91 RCL 29
 92 -
 93 X^2
 94 RCL 27
 95 RCL 30
 96 -
 97 X^2
 98 RCL 28
 99 RCL 31
100 -
101 X^2
102 +
103 +
104 SQRT
105 "DISTANCE"
106 XEQ 16
107 PSE
108 PSE
109 STO 32
110 LBL 08
111 RCL 29
112 RCL 26
113 X=Y?
114 GTO 09
115 -
116 RCL 30
117 RCL 27
118 -
119 X<>Y
120 X=0?
121 GTO 11
122 /
123 ATAN
124 STO 33
125 RCL 29
126 RCL 26
127 X>Y?
128 GTO 10
129 GTO 15
130 LBL 09
131 RCL 30
132 RCL 27
133 X>Y?
134 GTO 12
135 GTO 11
136 LBL 10
137 RCL 30
138 RCL 27
139 X>Y?
140 GTO 13
141 GTO 14
142 LBL 11
143 90
144 STO 33
145 GTO 15
146 LBL 12
147 -90
148 STO 33
149 GTO 15
150 LBL 13
151 180
152 ST- 33
153 GTO 15
154 LBL 14
155 180
156 ST+ 33
157 LBL 15
158 "THETA"
159 XEQ 16
160 RCL 33
161 PSE
162 PSE
163 RCL 31
164 RCL 28
165 -
166 RCL 32
167 /
168 ASIN
169 "PHI"
170 XEQ 16
171 STOP
172 LBL 16
173 BEEP
174 AVIEW
175 PSE
176 CLD
177 RTN
178 END