1 2 3 4 5 6 7 8 9 10 11 12 13
@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