COMMENT ⊗   VALID 00002 PAGES
C REC  PAGE   DESCRIPTION
C00001 00001
C00002 00002	BEGIN "R2"
C00003 ENDMK
C⊗;
BEGIN "R2"

INTEGER X,Y,Z;

RECORD_CLASS FOO(INTEGER X;INTEGER ITEMVAR Y;REAL Z);

RECORD_POINTER (FOO) PROCEDURE FOOBAR(INTEGER X;RECORD_POINTER(FOO) R);
	BEGIN
	FOO:X[R]←X;
	RETURN(R);
	END;

RECORD_POINTER (FOO) F1,F2;

F1←FOOBAR(1,NEW_RECORD(FOO));
F2←FOOBAR(2,F1);

END;