tetris/tetris.prn


1
2
3
4
5
6
7
8
9
10
11
12
13
14

@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