PROGRAM BOOLTEST(OUTPUT);
VAR FLAG,VAL:BOOLEAN;
PROCEDURE FLAGSET(VAR FLAG:BOOLEAN;VAL :BOOLEAN);
EXTERN;
BEGIN
WRITELN('CALLING FLAGSET');
VAL:=TRUE;
FLAGSET(FLAG,VAL);
WRITELN('FLAG IS ',FLAG);
WRITELN('DID IT WORK');
END.