perm filename R1.SAI[S,AIL] blob sn#177665 filedate 1975-09-19 generic text, type C, neo UTF8
COMMENT ⊗   VALID 00002 PAGES
C REC  PAGE   DESCRIPTION
C00001 00001
C00002 00002	BEGIN "R1"
C00003 ENDMK
C⊗;
BEGIN "R1"
DEFINE RCLASS="RECORD_CLASS",RPTR="RECORD_POINTER";
EXTERNAL RPTR(ANY_CLASS) PROCEDURE $REC$(INTEGER OP;RPTR(ANY_CLASS) R);

RCLASS XXX(INTEGER X,Y,Z);
RPTR(XXX) ARRAY A[1:200];

INTEGER I,N;
LABEL L1,L2,L3,L4,L5,L6;

N←50;
L1:FOR I←1 STEP 1 UNTIL N DO
	L2:A[I]←NEW_RECORD(XXX);
L3:A[N+1]←NEW_RECORD(XXX);
L4:$REC$(5,A[1]);
L5:$REC$(5,A[N+1]);
L6:A[1]←NEW_RECORD(XXX);
   A[1]←NEW_RECORD(XXX);
   A[1]←NEW_RECORD(XXX);

END "R1"