COMMENT ⊗   VALID 00002 PAGES
C REC  PAGE   DESCRIPTION
C00001 00001
C00002 00002	BEGIN "R5"
C00003 ENDMK
C⊗;
BEGIN "R5"
INTEGER I,J;

RECORD_CLASS FOO(REAL A,B,C);

RECORD_POINTER (FOO) ARRAY BAZ[1:10];


BEGIN "R5.1"

BAZ[1]←NEW_RECORD(FOO);

FOO:A[BAZ[1]]←1.0;
I←1;
FOO:B[BAZ[1]]←2*FOO:A[BAZ[I]];

END;

BEGIN "R5.2"
RECORD_CLASS FOO2(INTEGER ARRAY AA);
RECORD_POINTER(FOO2) XX;
INTEGER ARRAY AAA[1:4];
LABEL L1,L2;
INTEGER I;

MEMORY[LOCATION(FOO2:AA[XX←NEW_RECORD(FOO2)])]←MEMORY[LOCATION(AAA)];
L1:FOO2:AA[XX][3]←3;
FOR I←1 STEP 1 UNTIL 4 DO AAA[I]←I;
MEMORY[LOCATION(AAA)]←0;
FOR I←1 STEP 1 UNTIL 4 DO OUTSTR(CVS(FOO2:AA[XX][I])&" ");
L2:
END;

END;