Appears on
Assembled by Tim Ward from many sources. Contains programs 10252 – 10293.
Source Code
100 PRINT 110 PRINT TAB (8);"% %S%P%A%C%E%-%B%O%Y% " 120 PRINT 130 PRINT 140 PRINT "IN THIS GAME, YOU HAVE TO" 150 PRINT "MANIPULATE THE FLOATING" 160 PRINT "SPACE-BOY TO ERASE ALL THE" 170 PRINT "OBJECTS FLOATING AT THE TOP" 180 PRINT TAB (8);"OF THE CAPSULE" 190 PRINT 200 PRINT 210 PRINT "KEY X MOVES YOU TO THE LEFT," 220 PRINT "KEY M TO THE RIGHT" 230 PRINT 235 PRINT "YOU KEEP THE SPACE-BOY IN" 237 PRINT "FLIGHT BY BOUNCING HIM OFF" 238 PRINT TAB (4);"THE MOVING PLATFORM" 240 PRINT 250 PRINT "PRESS ENTER WHEN YOU ARE" 260 PRINT TAB (4);"READY TO PLAY" 264 INPUT A$ 270 CLS 5010 FOR A=1 TO 100 5020 LET B=PI*A/50 5030 PRINT AT 9*COS (B)+12,14*SIN (B)+17;"% " 5050 NEXT A 5060 CLEAR 5062 PRINT AT 5,11;"\..\..\''% \''% \''% \''% \''\..\.." 5065 PRINT AT 6,11;"% \''% \''% \''% \''% \''% \''% " 5070 PRINT AT 7,10;"% \''% \''% \''% \''% \''% \''% \''% " 5075 PRINT AT 8,11;"% \''% \''% \''% \''% \''% \''% " 5451 LET C=10 5452 LET D=10 5453 LET SCORE=0 5455 LET A=19 5456 LET B=21 5457 LET E=1 5459 LET K=5 5510 LET B=B-RND*5+RND*5 5520 IF INKEY$="X" THEN LET D=D-1 5525 IF D<8 THEN LET D=8 5530 IF INKEY$="M" THEN LET D=D+1 5535 IF D>23 THEN LET D=23 5540 IF B>21 THEN LET B=21 5550 IF B<9 THEN LET B=9 5555 LET C=C+E 5600 PRINT AT A,B;"\:.\..\.:" 5710 PRINT AT C,D+1;" ";K 5720 PRINT AT C+1,D+1;"\:'\''\':" 5721 IF K=0 THEN GOTO 6010 5740 PRINT AT A,B;" " 5750 PRINT AT C,D+2;" " 5760 PRINT AT C+1,D+1;" " 5770 IF C=18 AND ABS (D-B)>2 THEN LET K=K-1 5775 IF C+1=19 THEN LET E=-1 5785 IF C=5 THEN LET E=1 5800 LET SCORE=SCORE+1 6000 GOTO 5510 6010 PRINT AT 10,8;"% % YOU SCORED ";SCORE;"% % " 6015 PAUSE 400 6020 CLS 6030 RUN 240 6040 CLEAR 6050 SAVE "1027%4" 6060 RUN