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

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