1 CLV:OUT1,-1:OUT2,-1:OUT5,-1:OUT6,-1:CLS:FORJ=0TO6:[J]=513:Q=[J]:GSB21:?:NEXT:[7]=513:Q=[7]:GSB21:[8]=1023:LC10,0:?"SCORE":LC11,1:?"0":T=60
2 G=0:A=RND(15)+1:B=(A&3)*16:C=(A&12)*4:Y=-1:IF!CGSB22
3 GSB18:IFC&[0]GOTO15
4 FORK=0TOT:IFANA(6)>991K=T
5 IFIN(11)GOTO7
6 GSB22:GSB17
7 J=(ANA(5)-512)/480:IF!JORY<0GOTO10
8 D=B<<J:E=C<<J:IF(D&[Y])OR(E&[Y+1])GOTO10
9 GSB19:B=D:C=E:GSB17
10 NEXT:V=Y+1:IF(B&[V])OR(C&[V+1])GSB24
11 IF!GGOTO14
12 IFG=2GOTO15
13 IFG=1GOTO2
14 GSB19:Y=V:GSB17:GOTO4
15 BEEP30,30:LC3,4:?"GAME OVER!"
16 IFIN(10)GOTO16 ELSERUN
17 LC0,Y:Q=[Y]|B:GSB21:?
18 LC0,Y+1:Q=[Y+1]|C:GSB21:RTN
19 IFY>-1LC0,Y:Q=[Y]:GSB21:?
20 LC0,Y+1: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 IFY<0&&B>0G=2:RTN
25 BEEP30,5:[Y]=[Y]|B:W=Y+1:[W]=[W]|C:P=1:IF[W]=1023&&W<8GSB28 ELSEW=Y
26 IF[W]=1023GSB28
27 G=1:RTN
28 BEEP:[W]=513:Q=[W]:LC0,W:GSB21:S=S+P:LC11,1:?S:T=T-2*(T>0):P=P+2:FORZ=WTO1STEP-1:[Z]=[Z-1]:Q=[Z]:LC0,Z:GSB21:NEXT:LC0,0:Q=513:GSB21:RTN