1 '*BLOCK DEMO*
2 CLV:A=#700:POKEA,0:POKEA+7,0:FORI=1TO6:POKEA+I,127:POKEA+8+I,254:NEXT:POKEA+8,0:POKEA+15,0
3 CLS:X=6:Y=9:D=1:E=1:C=#E9:GOSUB14:P=2
4 LC1,23:?"SCORE ";S;
5 FORJ=0TO21:LC1,J:?CHR$(1):LC30,J:?CHR$(1):NEXT:GOSUB15
6 WAIT0:U=X+D:V=Y+E:IFV>-1ELSEV=RND(2):E=1:R=0
7 IFPEEK(#900+U+V*32)<>1GOTO12
8 IFU<2BEEP20:D=1:GOTO6
9 IFU>29BEEP20:D=-1:GOTO6
10 BEEP10:E=-1:D=RND(2)*2-1:R=0:IF!LGOSUB15
11 GOTO6
12 GOSUB18:GOSUB14:IF2<VANDV<7AND!RGOSUB16
13 X=U:Y=V:GOSUB14:GOTO6
14 A=#900+X+Y*32:POKEA,C^PEEK(A):RETURN
15 L=56:FORJ=0TO3:LC2,J+3:FORI=0TO13:A=I+J*14:[A]=0:?CHR$(#E0,#E1);:NEXT:NEXT:T=ANA(2)/2:FORI=0TOT:Z=RND(10):NEXT:RETURN
16 I=(U-2)/2:J=V-3:A=I+J*14:IF[A]RETURN
17 BEEP30:[A]=1:LCI*2+2,V:?CHR$(0,0);:R=1:E=-E:S=S+1:LC7,23:?S;:L=L-1:RETURN
18 P=X-2:IFP<1THENP=1ELSEIFP>25THENP=25
19 LCP-1,22:?CHR$(0,1,1,1,1,1,1,0);:RETURN