begin
comment record RPoint object allocation and fields setting;
	record RPoint (real x, y);
	reference(RPoint) pt;	
	pt := RPoint( 0.0, 0.0);

	x(pt) := 1.0; 	y(pt) := 2.0;
end.