%BEGIN
%EXTERNALROUTINESPEC SET2(%INTEGERNAME I1,I2)
%INTEGER INT1,INT2
PRINTSTRING('CALLING SET2')
NEWLINE
SET2(INT1,INT2)
PRINTSTRING('INT1 =')
WRITE(INT1,4)
PRINTSTRING('  INT2 =')
WRITE(INT2,4)
NEWLINE
PRINTSTRING('DID IT WORK')
NEWLINE
%ENDOFPROGRAM