How many characters of code did you use?
560

Include your code here, if you'd like to show it off!
t={{7,5,4},{3,2,1},{6},{8},{}}r={{{13,5,1},{15,11,3},{14,12,4},{},{}},{{54,22,20,16},{45,44,36,4},{63,47,15,12},{},{}}}g={9,24,123}s=1c=7m=0l=0n=1v=btnp::q::flip()
if(v(1))s+=1
if(v(0))s-=1
s=mid(1,s,5)
if(not v(4))goto k
if(l==0or#t[l]==0)l=s goto k
if(l==s)l=0 goto k
a=t[l][#t[l]]
if(#t[s]==0or(a&t[s][#t[s]]==a))add(t[s],a)del(t[l],a)l=0m+=1
::k::cls(1)for i=1,5do p=0c=6if(i==l)c=2
if(i==s)c=3
x=8+(i-1)*18
?'---',x,64,c
for j=1,#t[i]do y=64-j*8p+=t[i][j]
?t[i][j],x,y,c
end
?g[n],80,80,8
?p,x,72,14
?"m:"..m,9,9,6
end if(n<3and g[n]==p)t=r[n]n+=1
goto q