PROGRAM BOOLDEF;
(*# E+ *)
PROCEDURE FLAGSET(VAR FLAG:BOOLEAN;VAR VAL:BOOLEAN);
BEGIN
FLAG:=VAL;
END;
BEGIN END.