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