%BEGIN
%INTEGER I
%RECORDFORMAT F(%BYTEINTEGER B1,(%BYTEINTEGER B2,B3,B4,B5,B6,B7,B8 %C
      %OR %STRING(6)S) %OR %INTEGER I1,I2 %OR %LONGREAL L1)
%RECORD(F) R
      WRITE(ADDR(R_B1),9); NEWLINE
      WRITE(ADDR(R_I1),9); NEWLINE
      WRITE(ADDR(R_L1),9); NEWLINE
      WRITE(ADDR(R_B8),9)
%ENDOFPROGRAM