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
\n5010 FOR A=1 TO 100
\n5020 LET B=PI*A/50
\n5030 PRINT AT 9*COS (B)+12,14*SIN (B)+17;"% "
\n5050 NEXT A
\n5060 CLEAR
\n5062 PRINT AT 5,11;"\..\..\''% \''% \''% \''% \''\..\.."
\n5065 PRINT AT 6,11;"% \''% \''% \''% \''% \''% \''% "
\n5070 PRINT AT 7,10;"% \''% \''% \''% \''% \''% \''% \''% "
\n5075 PRINT AT 8,11;"% \''% \''% \''% \''% \''% \''% "
\n5451 LET C=10
\n5452 LET D=10
\n5453 LET SCORE=0
\n5455 LET A=19
\n5456 LET B=21
\n5457 LET E=1
\n5459 LET K=5
\n5510 LET B=B-RND*5+RND*5
\n5520 IF INKEY$="X" THEN LET D=D-1
\n5525 IF D<8 THEN LET D=8
\n5530 IF INKEY$="M" THEN LET D=D+1
\n5535 IF D>23 THEN LET D=23
\n5540 IF B>21 THEN LET B=21
\n5550 IF B<9 THEN LET B=9
\n5555 LET C=C+E
\n5600 PRINT AT A,B;"\:.\..\.:"
\n5710 PRINT AT C,D+1;" ";K
\n5720 PRINT AT C+1,D+1;"\:'\''\':"
\n5721 IF K=0 THEN GOTO 6010
\n5740 PRINT AT A,B;" "
\n5750 PRINT AT C,D+2;" "
\n5760 PRINT AT C+1,D+1;" "
\n5770 IF C=18 AND ABS (D-B)>2 THEN LET K=K-1
\n5775 IF C+1=19 THEN LET E=-1
\n5785 IF C=5 THEN LET E=1
\n5800 LET SCORE=SCORE+1
\n6000 GOTO 5510
\n6010 PRINT AT 10,8;"% % YOU SCORED ";SCORE;"% % "
\n6015 PAUSE 400
\n6020 CLS
\n6030 RUN 240
\n6040 CLEAR
\n6050 SAVE "1027%4"
\n6060 RUN
