%PROCEDURE FLAGSET(FLAG,VAL);
%VALUE VAL;%BOOLEAN FLAG,VAL;
%BEGIN
PRINTSTRING(<ENTERING_ALGOL_FLAGSET>);NEWLINE;
FLAG:=VAL;
%END;