COMMENT ⊗   VALID 00002 PAGES
C REC  PAGE   DESCRIPTION
C00001 00001
C00002 00002	BEGIN "R7"
C00003 ENDMK
C⊗;
BEGIN "R7"
REQUIRE "ABBREV.SAI[S,RHT]" SOURCE_FILE;
REQUIRE "MACROS.SAI[S,RHT]" SOURCE_FILE;
REQUIRE "RECAUX.HDR[S,RHT]" SOURCE_FILE;
REQUIRE "PRINTF.HDR[S,RHT]" SOURCE_FILE;

EXTERNAL PROCEDURE $RECGC;

RCLASS IVR(ITEMVAR VAL);

RPTR (IVR) PROCEDURE NEW_IVR(ITEMVAR V);
	BEGIN
	RANY VV;
	VV←NEW_RECORD(IVR);
	IVR:VAL[VV]←V;
	RETURN(VV);
	END;

RPTR (ANY_CLASS) R1,R2,R3,R4,R5,R6;

RPTR(ANY_CLASS) ITEM A,B,C,D,E,F,G,H,I,J;

DEFINE Q="NEW_IVR";

R1←Q(A);
R2←CONS(R1,Q(B));
R3←CONS(R2,Q(B));

∂(A)←R1;

$RECGC;

R1←R2;
R3←R2;

$RECGC;

END