g,q,l=rnd,0,1s=g()cls()::_::srand(s)k=0?"◆",62,12,8
for i=0,13do for j=0,i*2do a,b,t="*",3,time()%1<.5
if(g()<.3)k+=1a=("ox80")[g(4)\1+1]b=(k/10\1==q\1and t and{8,10,11,12,14,9}or{2,9,3,1,13,15})[g(6)\1+1]
?a,4*(15.5-i+j),6*(i+3),b
if(t!=l)q=(q+.5)%7 l=t end end for i=17,19do?"▮",62,6*i,4
end goto _