%BEGIN %RECORDFORMAT F1(%INTEGER I,J,K,L) %RECORDFORMAT F2(%INTEGER P,%RECORDARRAY A(0:8)(F1)) %RECORD R,RP(F2) %RECORDNAME RR(F2) %RECORDNAME RN(F1) %INTEGER I,J,K,L RR==RP %CONTROL X'1FFFFFFF' 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) %CONTROL X'0FFFFFFF' %UNLESS I+8=J %AND ADDR(R)+4=I %AND K+8=L %C %AND ADDR(RR)+4=K=ADDR(RN) %THEN PRINTSTRING(" WRONG ANSWERS ") %ENDOFPROGRAM