BEGIN
RECORDFORMAT F(INTEGER I,J,K,INTEGERARRAY A,B,C(1:5))
RECORD(F) R
INTEGERARRAYNAME B
INTEGER I
      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
         WRITE(B(I),5)
      REPEAT
ENDOFPROGRAM