character*5 alpha,adat
      data adat/'dummy'/
      read(1,100) alpha
  100 format(a5)
      if (alpha .eq. 5hdummy) write(8,200)
      if (alpha .ne. adat) write(8,300)
      stop
  200 format(5x,'OK')
  300 format(5x,'not ok')
      end