10 SCREEN1,0,0:WIDTH32:KEYOFF:COLOR15,1,1:FORT=0TO39STEP8:FORI=(89+T)*8TO(89+T)*8+7:READA$:VPOKEI,VAL("&h"+A$):NEXTI:NEXTT:SPRITEON:FORI=0TO7:READA$:S$=S$+CHR$(VAL("&h"+A$)):NEXTI:SPRITE$(1)=S$:VPOKE8203,129:VPOKE8204,49:VPOKE8205,49:VPOKE8207,169
20 B=3:VPOKE8223,0:CLS:Y=95:FORI=0TOB:E(I)=0:F(I)=0:G(I)=0:NEXTI:C=0:E$="iaiiaiaiiiaiaaiiiiaiaiiiaiiiaaii":S=50:LOCATE 0,22:PRINT"PUNTOS:";S;"       METEORITOOO!!";:V=0
30 A=INT(RND(1)*100):W=INT(RND(1)*20)+1:IFE(V)=0ANDA>30THENE(V)=1:F(V)=W:G(V)=30
40 K=STICK(0):Y=Y+((((K=5)*8)*(Y<152))-((K=1)*8)*(Y>7)):PUTSPRITE0,(8,Y),11,1:E$=RIGHT$(E$,31)+LEFT$(E$,1):LOCATE0,21:PRINTE$;:IFSTRIG(0)ANDD=0THEND=1:J=0:H=Y\8+1
50 IFD=1ANDJ<29THENJ=J+1:LOCATEJ,H:PRINT" q";:IFJ=29THEND=0:LOCATE30,H:PRINT" ";
60 N=Y\8+1:IFT=1THENS=S+10:T=0:D=0:LOCATEJ-1,H:PRINT"   ";
70 FORI=0TOB:IFE(I)=1THENLOCATEG(I),F(I):PRINT"Y ":IFF(I)=NANDG(I)=1THENPUTSPRITE0,(0,0),0,0:LOCATE1,N:PRINT"y";:C=1:ELSEG(I)=G(I)+(G(I)>0):IFG(I)=0THENLOCATE1,F(I):PRINT" ";:E(I)=0:ELSEIF(G(I)=JORG(I)=J+1)ANDF(I)=HTHENE(I)=0:LOCATEG(I),H:PRINT"yy";:T=1
80 NEXTI
90 IFC=0ANDS>0THENV=V+1:V=VMOD(B+1):S=S-1:LOCATE7,22:PRINTS;:GOTO30ELSELOCATE 12,12:PRINT"GAME OVER":LOCATE10,13:PRINT"OTRA MAS(S/N)":B$=INPUT$(1):IFB$="S"ORB$="s"THENRESTORE:GOTO10:ELSEIFB$="N"ORB$="n"THENSCREEN0:COLOR15,4,4:KEYON:END:ELSEGOTO90
100 DATA 3c,5a,ad,f7,ad,55,6e,38,10,10,38,38,18,10,10,ff,0,0,0,0,0,20,29,ff,0,0,0,db,db,0,0,0,81,10,44,10,18,44,20,89,c0,f8,1f,f4,f4,1f,f8,c0