%BEGIN
%PROCEDURE ARRTIM4(ARR1,ARR2);
%VALUE ARR1;
%INTEGERARRAY ARR1,ARR2;
%EXTERNAL ARRTIM4;
%INTEGER I;
%INTEGERARRAY ARR1[1:4],ARR2[1:4];
PRINTSTRING(<CALLING_ARRTIM4>);
NEWLINE;
%FOR I:=1 %STEP 1 %UNTIL 4 %DO ARR1[I]:=I;
ARRTIM4(ARR1,ARR2);
%FOR I:=1 %STEP 1 %UNTIL 4 %DO
  %BEGIN
  PRINTSTRING(<ARR2(>);
  PRINT(I,1,0);
PRINTSTRING(<)=>);
  PRINT(ARR2[I],4,0);
NEWLINE;
  %END;
PRINTSTRING(<DID_IT_WORK>);
NEWLINE;
%END;