%BEGIN
%RECORDFORMAT F(%INTEGER I,J,K)
%OWNRECORD(F) R=277
      WRITE(R_J,10)
%ENDOFPROGRAM