Space Boy

Date: 198x
Type: Program
Platform(s): TS 1000

Appears on

Assembled by Tim Ward from many sources. Contains programs 10252 – 10293.

Gallery

Space Boy

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 

People

No people associated with this content.

Scroll to Top