1 '*K.Block
2 CLV:B=3:POKE#700,0,127,127,127,127,127,127,0,0,254,254,254,254,254,254,0
3 CLS:X=5:Y=10:D=1:E=1:C=#E9:GSB15:P=15:W=5:GSB20
4 LC1,23:?"SCORE ";S;:LC20,23:IFB>1FORI=1TOB-1:?CHR$(C);:NEXT
5 FORJ=0TO21:LC1,J:?CHR$(1):LC30,J:?CHR$(1):NEXT:GSB16
6 U=X+D:V=Y+E:IFV>-1ELSEE=1:R=0:IFW=5W=3:P=P+1:GSB20:GOTO6 ELSEGOTO6
7 WAIT2:IFSCR(U,V)<>1GOTO12
8 IFU<2BEEP20:D=1:GOTO6
9 IFU>29BEEP20:D=-1:GOTO6
10 BEEP30:E=-1:D=(U-P>W/2)*2-1:R=0:IF!LO=0:GSB16
11 GOTO6
12 GSB19:GSB15:IF2<VANDV<7AND!RGSB17
13 X=U:Y=V:GSB15:GSB19:IFY<22GOTO6
14 BEEP30,60:WAIT60:B=B-1:IFB>0O=1:GOTO3 ELSELC0,0:END
15 A=#900+X+Y*32:POKEA,C^PEEK(A):RTN
16 L=0:FORJ=0TO3:LC2,J+3:FORI=0TO13:A=I+J*14:[A]=[A]*O:?CHR$(#E0*![A],#E1*![A]);:L=L+![A]:NEXT:NEXT:RTN
17 I=(U-2)/2:J=V-3:A=I+J*14:IF[A]RTN
18 BEEP10:[A]=1:LCI*2+2,V:?CHR$(0,0);:R=1:E=-E:S=S+1:LC7,23:?S;:L=L-1:RTN
19 Q=P-BTN(LEFT)*(P>1)+BTN(RIGHT)*(P<30-W):IFQ=PWAIT1:RTNELSEP=Q
20 LCP-1,22:?CHR$(0);:FORI=0TOW:?CHR$(1);:NEXT:?CHR$(0);:RTN