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