Dim x,y as Integer y=-2 x=y=-1