BEGIN
RECORDFORMAT F(INTEGER I,J,K,INTEGERARRAY A(1:5))
RECORD(F) R
INTEGERARRAYNAME B
INTEGER I,Fail
      Fail=0
      R_I='I'
      R_J='J'
      CYCLE I=1,1,5
      R_A(I)=I
      REPEAT
      R_K=255
      B==R_A
      CYCLE I=1,1,5
         if b(i)#i then fail=1 and WRITE(B(I),5)
      REPEAT
if fail=0 then printstring("Test OK")
ENDOFPROGRAM