%BEGIN
%PROCEDURE SET2(I1,I2);
%INTEGER I1,I2;
%EXTERNAL SET2;
%INTEGER INT1,INT2;
PRINTSTRING(<CALLING_SET2>);
NEWLINE;
SET2(INT1,INT2);
PRINTSTRING(<INT1 =>);
PRINT(INT1,4,0);
PRINTSTRING(<__INT2=>);
PRINT(INT2,4,0);
NEWLINE;
PRINTSTRING(<DID_IT_WORK>);
NEWLINE
%END;