COMMENT ⊗   VALID 00002 PAGES
C REC  PAGE   DESCRIPTION
C00001 00001
C00002 00002	BEGIN "PROPS"
C00003 ENDMK
C⊗;
BEGIN "PROPS"
BOOLEAN SAFE ARRAY KS!AORD[0:10];
BOOLEAN SAFE ARRAY PRE!AORD[0:10];

RECURSIVE PROCEDURE SCHEDULER;
BEGIN "SCH"
ITEMVAR A,B,C;

BOOLEAN PROCEDURE FOO;
BEGIN
INTEGER DUM;
COMMENT DUM←PROPS(C); COMMENT IF THIS LINE IS IN, THEN IT COMPILES OK;
RETURN(IF A XOR B EQV C THEN KS!AORD[PROPS(C)] ELSE PRE!AORD[PROPS(C)]);
END;
END "SCH";

END "PROPS";