@includeonce "io.prn"
@includeonce "utility.prn"
@includeonce "blocks.prn"

0 "i" store
i b_nblocks < while
	io_clearscreen
	io_windowbox
	0 0 i b_drawblock
	1000000 sleep
	i 1 + "i" store
i b_nblocks < end
io_pos_after io_goto