%BEGIN
%EXTERNALROUTINESPEC SETARR(%INTEGERARRAYNAME ARR,%INTEGER BND)
%INTEGER I
%INTEGERARRAY ARR(1:5)
PRINTSTRING('CALLING SETARR')
NEWLINE
SETARR(ARR,5)
%CYCLE I=1,1,5
 PRINTSTRING('ARR(')
  WRITE(I,1)
  PRINTSTRING(')=')
WRITE(ARR(I),4)
  NEWLINE
%REPEAT
PRINTSTRING('DID IT WORK')
NEWLINE
%ENDOFPROGRAM