write(6,10)
  10  format(1h ,'this is format statement 1')
      stop
  10  format(1h ,'this is format statement 2')
      end