%BEGIN
%INTEGER I
%RECORDFORMAT F(%INTEGER X,Y)
%RECORDFORMAT G(%BYTEINTEGERARRAY B(0:7))
%RECORD R1(F)
%RECORD R2(G)
R1=0
%CYCLE I = 0,1,7
  R2_B(I)=I
%REPEAT
RECORD(ADDR(R1))=REC
WRITE(R1_X,10); WRITE(R1_Y,10)
NEWLINE
%ENDOFPROGRAM