tetris/utility.prn


1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22

@defun "diff2" {
	"y2" store
	"x2" store
	"y1" store
	"x1" store
	x1 x2 -
	y1 y2 -
}

@defun "dup2" {
	"b" store
	"a" store
	a b a b
}

@defun "swap2" {
	"b2" store
	"b1" store
	"a2" store
	"a1" store
	b1 b2 a1 a2
}