COMMENT ⊗   VALID 00002 PAGES
C REC  PAGE   DESCRIPTION
C00001 00001
C00002 00002	BEGIN "RQI"
C00003 ENDMK
C⊗;
BEGIN "RQI"
INTEGER X;
SIMPLE PROCEDURE ZEROX;X←0;
SIMPLE PROCEDURE PH1;
	BEGIN
	X←X LOR 1;
	OUTSTR("
PH1: X="&CVOS(X));
	END;

SIMPLE PROCEDURE PH2;
	BEGIN
	X←X LOR 2;
	OUTSTR("
PH2: X="&CVOS(X));
	END;

REQUIRE PH1 INITIALIZATION;
REQUIRE ZEROX INITIALIZATION [0];
REQUIRE PH2 INITIALIZATION [2];

	OUTSTR(
"MAIN PROGRAM");
END;