### Appears on

Assembled by Tim Ward from many sources. Contains programs 10176 – 10210.

### 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