%BEGIN
%PROCEDURE FLAGSET(FLAG,VAL);
%VALUE VAL;%BOOLEAN FLAG,VAL;
%EXTERNAL FLAGSET;
%BOOLEAN FLAG;
PRINTSTRING(<CALLING_FLAGSET>);
NEWLINE;
FLAGSET(FLAG,%TRUE);
PRINTSTRING(<FLAG_IS>);
WRITEBOOLEAN(FLAG);NEWLINE;
PRINTSTRING(<DID_IT_WORK>);NEWLINE
%END;