Space Shuttle

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

Appears on

Assembled by Tim Ward from many sources. Contains programs 10051 – 10121.

Gallery

Space Shuttle

Source Code

   1 REM SPACE SHUTTLE
   9 RAND 
  10 FOR I=1 TO 31
  20 PRINT AT 0,I;"% "
  30 PRINT AT 13,I;"% "
  40 PRINT AT I/2.5,31;"%  % "
  50 NEXT I
  60 LET P=35+256*PEEK 16397+PEEK 16396
  70 POKE P+392,184
  80 POKE P+1,23
  90 LET C=CODE INKEY$
 100 IF C<33 OR C>36 THEN GOTO 90
 110 LET D=(33 AND C=34)-(1 AND C=33)-(33 AND C=35)+(1 AND C=36)
 120 POKE P,0
 130 LET P=P+D
 140 IF PEEK P>127 THEN STOP 
 150 POKE P,23
 160 IF RND>0.5 THEN POKE P+D,128
 170 IF INKEY$<>"" THEN GOTO 170
 180 GOTO 90
 190 SAVE "1011%0"
 200 RUN 

People

No people associated with this content.

Scroll to Top