%EXTERNALROUTINE SETARR(%INTEGERARRAYNAME ARR,%INTEGER BND)
%INTEGER I
PRINTSTRING('ENTERING IMP SETARR')
NEWLINE
%CYCLE I=1,1,BND
  ARR(I)=I+10
%REPEAT
%END
%ENDOFFILE