%BEGIN
%RECORDFORMAT F(%INTEGER I,J,K,L)
%OWNRECORDARRAY A(-1:1)(F)
%RECORDARRAY B(-1:1)(F)
%RECORD R(F)
%INTEGER I
      R=0
      %CYCLE I=-1,1,1
         A(I)=R
         B(I)=R
      %REPEAT
      PRINTSTRING("WORKED OK")
%ENDOFPROGRAM