%BEGIN
%EXTERNALROUTINESPEC ADDINT(%INTEGER I,%INTEGERNAME NO)
%INTEGER NUM
PRINTSTRING('CALLING ADDINT')
NEWLINE
ADDINT(20,NUM)
PRINTSTRING('NUM=')
PRINT(NUM,4,0)
NEWLINE
PRINTSTRING('DID IT WORK')
NEWLINE
%ENDOFPROGRAM