Source Code
1 REM Y% \.'\. :%KNOT $TAB \@@RND\: TAB \'.RNDTAN
2 FAST
3 RAND USR 16514
4 SLOW
5 LET G=0
6 LET G=INT (RND*350)
7 GOSUB 650
10 LET A=PI/PI
20 LET B=PI-PI
21 PRINT AT 20,15;"\':\.:% \:.\:'"
22 PRINT AT 21,14;"\.:% % % % % \:."
30 LET R=B
40 LET V=600
50 LET S=18
60 LET T=15
65 LET Y=15
80 PRINT AT 0,0;"% % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % "
81 PRINT AT 1,0;"% % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % "
82 GOSUB 650
90 LET X=INT (RND*25)
100 PRINT AT Y,X;"% %<%O%>% "
110 PRINT AT S,T;"% %<\..%>% "
112 PRINT AT 19,15;"% % \''% % "
120 PRINT AT S+A,T+A;"% % % % % "
130 LET V=V-A
140 IF INKEY$="Z" THEN LET T=T-A
150 IF INKEY$="M" THEN LET T=T+A
160 IF INKEY$="A" THEN LET S=S-A
170 IF T<B THEN LET T=B
180 IF T>25 THEN LET T=25
190 IF V=B THEN GOTO 500
200 IF S=B THEN GOTO 350
210 IF T=X AND S=Y-A THEN GOTO 300
220 IF S=Y-A AND T<>X THEN GOTO 50
230 GOTO 110
300 LET Y=Y-5
310 GOTO 80
350 LET R=R+A
351 PRINT AT 0,0;"% % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % "
352 PRINT AT 1,0;"% % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % "
355 LET G=G+110+100
356 PRINT AT 20,1;"%P%O%I%N%T%S% ";G
357 GOSUB 702
361 GOTO 50
500 CLS
510 PRINT AT 10,11;"%G%A%M%E% %O%V%E%R"
520 PRINT AT 12,5;"**YOU SAVED ";R;" SHIPS**"
530 PRINT AT 14,8;"TOTAL POINTS ";G
550 FOR P=1 TO 100
575 NEXT P
642 CLS
645 GOTO 1
650 PRINT AT RND*15,RND*31;"%."
651 PRINT AT RND*15,RND*31;"%."
652 PRINT AT RND*15,RND*31;"%."
653 PRINT AT RND*15,RND*31;"%."
654 POKE 16418,0
655 PRINT AT 22,0;"% SPACE DOCKING---INST.GOTO 9000% "
656 PRINT AT 23,0;"% % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % "
701 RETURN
702 PRINT AT 3,13;"%S%A%V%E%D"
704 LET P=0
706 GOSUB 724
708 PRINT AT 3,13;"%S%A%V%E%D"
710 GOSUB 724
712 PRINT AT 3,13;"% % % % % "
714 GOSUB 724
716 LET P=P+1
718 IF P=3 THEN RETURN
720 GOTO 708
724 LET T=0
726 LET T=T+1
728 IF T=3 THEN RETURN
730 GOTO 726
\n9000 PRINT AT 2,0;"PRESS(A)TO MAKE YOUR SHIP GO UP"
\n9002 PRINT AT 4,0;"PRESS(Z)TO GO LEFT"
\n9004 PRINT AT 6,0;"PRESS(M)TO GO RIGHT"
\n9006 PRINT AT 8,0;"YOU MUST BE DIRECTLY UNDER THE"
\n9008 PRINT AT 9,0;"FUEL SATELLITE TO CONTINUE."
\n9010 STOP
\n9100 CLEAR
\n9110 SAVE "1025%8"
\n9120 RUN
