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