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

RECORD_POINTER(ANY_CLASS) PROCEDURE HLR(INTEGER OP;RECORD_POINTER(ANY_CLASS)A1,A2);
	BEGIN
	EXTERNAL RECORD_POINTER(ANY_CLASS) PROCEDURE $REC$(INTEGER OP;
					RECORD_POINTER(ANY_CLASS) A1,A2);

	RETURN($REC$(OP,A1,A2));
	END;

INTERNAL RECORD_CLASS FOO (REAL X,Y,Z)[HLR];
EXTERNAL RECORD_CLASS PXF (RECORD_POINTER(PXF)F;REAL PH,TH,OM,X,Y,Z);
RECORD_POINTER(PXF) PP;

RECORD_POINTER(FOO) F1,F2;
RECORD_POINTER(FOO) ITEMVAR I1,I2;

I1←I2←NEW(NEW_RECORD(FOO));
F2←NEW_RECORD(FOO);

I2←NEW(F2);

DATUM(I1)←F1←F2←NEW_RECORD(FOO);

END