CLS
NEW
' ------- 03 Asteroid
10 CLS:CLP:X=14:Y=23:W=100:S=0
20 SCROLL 2
30 C=SCR(X,Y)
40 LOCATE X, Y:PRINT CHR$(240);
50 LOCATE RND(30), 0:PRINT CHR$(233)
60 K=INKEY():X=X-(K=28 AND X>0)+(K=29 AND X<28)
70 S=S+1
80 CLK
90 WAIT W/10
100 W=W-1:IF W<3 THEN W=2
110 IF C<>233 THEN GOTO 20
120 LOCATE X,Y:PRINT CHR$(244);
130 LOCATE 11, 13:PRINT "Game Over"
140 PRINT S;:PRINT " points"