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

RECORD_CLASS FOO (INTEGER X,Y,Z;REAL XX);

RECORD_POINTER (FOO) F1,F2;

IF F1=F2 THEN ;

F1←NEW_RECORD(FOO);
F2←F1;

IF F1=F2 THEN ;

FOO:X[F1]←1;
FOO:Y[F1]←FOO:X[F1]+1;

END