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