%EXTERNALROUTINE ADDINT(%INTEGER I,%INTEGERNAME NO)
PRINTSTRING('ENTERING IMP ADDINT')
NEWLINE
NO=20+I
%END
%ENDOFFILE