sub swap( byref x, byref y )
	dim temp
	temp = x
	x = y
	y = temp
end sub