%BEGIN
%INTEGER I,J,K
      I=3; J=4; K=5
%INTEGERARRAY A(0:3,2:4,1:5)
%INTEGERARRAY B(0:I,2:J,1:K)
      %FOR I=0,1,3 %CYCLE
         %FOR J=2,1,4 %CYCLE
            %FOR K=1,1,5 %CYCLE
               A(I,J,K)=M'A'<<24!I<<16!J<<8!K
               B(I,J,K)=M'B'<<24!I<<16!J<<8!K
            %REPEAT
         %REPEAT
      %REPEAT
      %FOR I=0,1,3 %CYCLE
         %FOR J=2,1,4 %CYCLE
            %FOR K=1,1,5 %CYCLE
               %IF A(I,J,K)&X'FFFFFF'#B(I,J,K)&X'FFFFFF' %START
                  PRINTSTRING("ERROR")
                  %MONITOR
                  %STOP
               %FINISH
            %REPEAT
         %REPEAT
      %REPEAT
      PRINTSTRING("TEST OK")
%ENDOFPROGRAM
