%BEGIN
%EXTERNALROUTINESPEC FLAGSET(%INTEGERNAME FLAG,%INTEGER VAL)
%INTEGER FLAG
PRINTSTRING('CALLING FLAGSET');NEWLINE
FLAGSET(FLAG,-1)
PRINTSTRING('FLAG IS')
WRITE(FLAG,4);NEWLINE
PRINTSTRING('DID IT WORK');NEWLINE
%ENDOFPROGRAM