1 '*Fall
2 CLV:CLS:FORJ=0TO13:[J]=513:Q=[J]:GSB21:NEXT
3 [14]=1023:Q=[14]:GSB21
4 LC0,16:?"SCORE 0":T=50
5 G=0:A=RND(15)+1:B=(A&3)*16:C=(A&12)*4:Y=0:IF!CGSB22
6 GSB19:IF(B&[0])OR(C&[1])GOTO18
7 FORK=0TOT:IF!BTN(SPACE)GOTO9
8 GSB22:GSB19:GOTO13
9 L=BTN(LEFT):R=BTN(RIGHT):IF!(L|R)GOTO13
10 D=(B>>L)<<R:E=(C>>L)<<R
11 IF(D&[Y])OR(E&[Y+1])GOTO13
12 GSB20:B=D:C=E:GSB19
13 NEXT:V=Y+1:IF(B&[V])OR(C&[V+1])GSB24
14 IF!GGOTO17
15 IFG=2GOTO18
16 IFG=1GOTO5
17 GSB20:Y=V:GSB19:GOTO7
18 BEEP30,30:LC0,0:END
19 LC0,Y:Q=[Y]|B:GSB21:Q=[Y+1]|C:GSB21:RTN
20 LC0,Y:Q=[Y]:GSB21:Q=[Y+1]:GSB21:RTN
21 FORI=0TO9:?CHR$(Q&1);:Q=Q>>1:NEXT:?:RTN
22 IF!BRTN
23 A=B:B=C:C=A:RTN
24 BEEP30,5:[Y]=[Y]|B:W=Y+1:[W]=[W]|C:P=1
25 IF[W]=1023&&W<14GSB29 ELSEW=Y
26 IF[W]=1023GSB29
27 G=1:IFY<2G=2
28 RTN
29 BEEP:[W]=513:Q=[W]:LC0,W:GSB21
30 S=S+P:LC6,16:?S:T=T-P*2:P=P+2:IFT<0T=0
31 FORZ=WTO1STEP-1:[Z]=[Z-1]:Q=[Z]:LC0,Z:GSB21:NEXT
32 LC0,0:Q=513:GSB21:RTN