%BEGIN
%PROCEDURE ADDINT(I,NO);
%VALUE I;%INTEGER I,NO;
%EXTERNAL ADDINT;
%INTEGER NUM;
PRINTSTRING(<CALLING_ADDINT>);
NEWLINE;
ADDINT(20,NUM);
PRINTSTRING(<NUM=>);
PRINT(NUM,4,0);
NEWLINE;
PRINTSTRING(<DID_IT_WORK>);
NEWLINE;
%END;