screen 0,106,196
randomize
dim f,6,12

*start
cls 4

repeat 32
	rnd x,6
	rnd y,12
	rnd c,5
	c++
	palcolor c
	boxf x*16,y*16,x*16+15,y*16+15
	f.x.y=c
loop

repeat 1
	stick a,0
	await 1
	if a=0 : continue 0
	break
loop

repeat 6
	i=cnt
	y=11
	repeat 11
		redraw 2
		if f.i.y>0 : y--:continue
		repeat y
			w=y-cnt
			j=w-1
			color 0,0,0
			boxf i*16,w*16,i*16+15,w*16+15
			f.i.w=f.i.j
			a=f.i.w
			palcolor a
			boxf i*16,w*16,i*16+15,w*16+15
		loop
		f.i.0=0
		color 0,0,0
		boxf i*16,0,i*16+15,15
		redraw 1
		await 16
	loop
	await 1
loop

repeat 1
	stick a,0
	await 1
	if a=0 : continue 0
	break
loop

repeat 12
	i=cnt
	repeat 6
		j=cnt
		f.j.i=0
	loop
loop
goto *start