5 CLS:A$="*ASTEROIDS*":FORI=1TO11:PRINT@406-I,RIGHT$(A$,I):NEXT
10 POKE30777,1:FORA=28672TO29184:POKEA,128:NEXT:X=46:S=0:B=0
20 N=RND(26)  :A$=INKEY$:IFA$="M",X=X-1ELSEIFA$=",",X=X+1
30 PRINT@28,"    ";:PRINT@59,S :IFX<32,X=32ELSEIFX>56,X=56
40 Z=PEEK(28672+X+33):Y=PEEK(28672+X+34):GOSUB90:COLOR6
50 PRINT@X,"";:IFZ=172ORY=172,S=S+10:GOTO80
60 IFZ=188ORY=188,S=S+50:GOTO80ELSEIFZ=204ORY=204,B=1
70 IFB=1,PRINT@267,"YOU CRASHED":SOUND16,3;14,5:GOTO10
80 PRINT@X+32,"";:COLORRND(8):PRINT@480+N,"":GOSUB90:GOTO20
90 PRINT@480,"";:RETURN
