%BEGIN
%RECORDFORMAT F1(%INTEGER I,J,K,L)
%RECORDFORMAT F2(%INTEGER P,%RECORD(F1)%ARRAY A(0:8))
%RECORD(F2) R,RP
%RECORD(F2)%NAME RR
%RECORD(F1)%NAME RN
%INTEGER I,J,K,L
RR==RP
I=ADDR(R_A(0))
RN==R_A(0)
J=ADDR(R_A(0)_K)
K=ADDR(RR_A(0))
L=ADDR(RR_A(0)_K)
RN==RR_A(0)
%IF I+8=J %AND ADDR(R)+4=I %AND K+8=L %C
      %AND ADDR(RR)+4=K=ADDR(RN) %THEN PRINTSTRING("
TEST OK    (BYTE ADDRESS ANSWERS)
") %AND %STOP
%IF I+4=J %AND ADDR(R)+2=I %AND K+4=L %C
      %AND ADDR(RR)+2=K=ADDR(RN) %THEN PRINTSTRING("
TEST OK (WORD ADDRESS ANSWERS)
")  %AND %STOP
PRINTSTRING("
WRONG ANSWERS
")
%ENDOFPROGRAM
