COMMENT ⊗   VALID 00002 PAGES
C REC  PAGE   DESCRIPTION
C00001 00001
C00002 00002	BEGIN "RECTST"
C00003 ENDMK
C⊗;
BEGIN "RECTST"
RECORD!CLASS FOO(STRING NAME; INTEGER J; REAL ITEMVAR X);
RECORD!POINTER(FOO) R1,R2,R3;

R1←NEW!RECORD(FOO);
R2←NEW!RECORD(FOO);
R3←NEW!RECORD(FOO);

FOO:NAME[R1]←"HI";
FOO:NAME[R2]←"JOE";
OUTSTR(FOO:NAME[R2]);

OUTSTR(CVS(LENGTH(FOO:NAME[R1])));

END "RECTST";