character*8 c8
      write (10,10)
  10  format(1h1,'hello')
      stop
      end