%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