Appears on
Assembled by Tim Ward from many sources. Contains programs 10252 – 10293.
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 9000 PRINT AT 2,0;"PRESS(A)TO MAKE YOUR SHIP GO UP" 9002 PRINT AT 4,0;"PRESS(Z)TO GO LEFT" 9004 PRINT AT 6,0;"PRESS(M)TO GO RIGHT" 9006 PRINT AT 8,0;"YOU MUST BE DIRECTLY UNDER THE" 9008 PRINT AT 9,0;"FUEL SATELLITE TO CONTINUE." 9010 STOP 9100 CLEAR 9110 SAVE "1025%8" 9120 RUN