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

RPTR(CELL) C1,C2;

WHILE C1≠NULL_RECORD DO C1←NULL_RECORD;
IF C1=C2 THEN C1←C2;

END;