Asteroids

Gallery

Source Code

  10 REM "ASTEROIDS"
 100 LET A$="\##"
 105 LET N=0
 110 LET A=0
 115 LET B=0
 120 LET C=0
 125 LET D=0
 130 LET T=1
 135 LET X=12
 160 LET R=INT (RND*27)
 170 PRINT AT 21,R;A$
 180 SCROLL 
 190 SCROLL 
 200 LET N=N+T
 205 IF N=100 THEN LET A$="\.'\. "
 210 IF N=104 THEN LET T=2
 215 LET E=D
 220 LET D=C
 230 LET C=B
 240 LET B=A
 250 LET A=R
 255 PRINT AT 9,X-2;"      "
 260 PRINT AT 11,X;"\'.\.'"
 270 IF X>=E-2 AND X<=E+T THEN GOTO 500
 280 IF INKEY$="5" THEN LET X=X-T
 290 IF INKEY$="8" THEN LET X=X+T
 300 GOTO 160
 500 PRINT AT 11,X-1;"CRASH"
 510 PRINT AT 0,0;"SCORE= ";N
 520 STOP 
 530 SAVE "1017%9"
 540 RUN