%BEGIN
%INTEGER I
%RECORDFORMAT F(%BYTE A,B,C,D)
%RECORD(F) R
      I=RECORD(1)
      RECORD(1)=1
      RECORD(3)
      I=R_C+R
      I=R+R_B
%ENDOFPROGRAM