begin
comment record RRect for rectangle description with sides parallel to OX and OY axes;
	record RRect (integer x0, y0, width, height);
	
	procedure RectShift(reference(RRect) value result rr; integer shiftX, shiftY);
	begin
		x0(rr) := x0(rr) + shiftX;
		y0(rr) := y0(rr) + shiftY;
	end;
	
	reference (RRect) pr;
	pr := RRect(0,0,10,10);

end.