PROGRAM PROCTEST(OUTPUT);
VAR NUM,I:INTEGER;
PROCEDURE ADDINT(VAR I:INTEGER;VAR NO:INTEGER);EXTERN;
BEGIN
WRITELN('CALLING ADDINT');
I:=20;
ADDINT(I,NUM);
WRITELN('NUM=',NUM);
WRITELN('DID IT WORK');
END.