%BEGIN
%INTEGER I,J,K,L
%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
      I=ADDR(R_B1)
      J=ADDR(R_I1)
         K=ADDR(R_L1)
      L=ADDR(R_B8)
      %if I=j %and i=k %and l=I+7 %then printstring("Test OK") %and %stop

      WRITE(I,9); NEWLINE
      WRITE(j,9); NEWLINE
      WRITE(K,9); NEWLINE
      WRITE(L,9)
%ENDOFPROGRAM