PROGRAM PROCTEST(OUTPUT);
VAR INT1,INT2:INTEGER;
PROCEDURE SET2(VAR I1,I2:INTEGER);EXTERN;
BEGIN
WRITELN('CALLING SET2');
SET2(INT1,INT2);
WRITELN('INT1= ',INT1,'  INT2= ',INT2);
WRITELN('DID IT WORK');
END.