%EXTERNALROUTINE FLAGSET(%INTEGERNAME FLAG,%INTEGER VAL)
PRINTSTRING('ENTERING IMP FLAGSET');NEWLINE
FLAG=VAL
PRINTSTRING('FLAG IS ')
WRITE(FLAG,4);NEWLINE
%END
%ENDOFFILE