1 M=#FF:CLS:LET[0],M,#84,#B5,#B5,#80,#F5,#84,#BD,#A0,#AF:POKE#700,#3C,#7E,#99,#BD,#99,M,M,#99
2 Q=0:H=0:V=0:S=0:P=0:FORY=0TO9:FORX=0TO7:A=46-([Y]&#80>0)*43:LCX,Y:?CHR$(A):LC15-X,Y:?CHR$(A):
3 LCX,20-Y:?CHR$(A):LC15-X,20-Y:?CHR$(A):[Y]=[Y]<<1
4 NEXT:NEXT:LC1,2:?CHR$(M):LC14,18:?CHR$(M):X=3:Y=10:FORA=0TO3:[A]=7+A:[A+4]=10:[A+12]=0:NEXT
5 @L:K=INKEY():D=H:E=V:IFK>0H=-(K=28)|(K=29):V=-(K=30)|(K=31)
6 A=X:B=Y:IFSCR(X+H,Y+V)=3H=D:V=E
7 X=(X+H)&15:Y=Y+V:Z=SCR(X,Y):IFZ=3X=A:Y=B
8 LCA,B:?CHR$(0):LCX,Y:?CHR$(#E8+C&1):C=C+1:LC20,0:?"SCR ";S:I=(I+1)&3:LC[I],[I+4]:?CHR$([I+12])
9 [I+16]=[I]:[I+20]=[I+4]:[I]=[I]+(X>[I])*2-1:F=SCR([I],[I+4]):IFP>=0||F=3||F=224[I]=[I+16]
10 [I+4]=[I+4]+(Y>[I+4])*2-1:F=SCR([I],[I+4]):IFP>=0||F=3||F=224[I+4]=[I+20]
11 [I+12]=SCR([I],[I+4]):FORG=0TO3:J=0:IFX=[G]&&Y=[G+4]J=1
12 IFJ=1IFP>0S=S+R:R=R+R:[G]=8:[G+4]=10:Q=Q+([G+12]=46):[G+12]=0ELSECLS:?"GAME OVER ";S:END
13 NEXT:LC[I],[I+4]:?CHR$(224+(P>0)*11):IFZ=46S=S+10:Q=Q+1ELSEIFZ=M:P=20:R=200
14 IFQ>145:ENDELSEP=P-1:GOTO@L