character xx(2),c
      logical ovr
      xx(1)=char(13)
      do 10 j=1,2
      if (xx(j).eq.char(13)) then
        print *,'ok'
      endif
      if (ovr) then
        c=xx(j)
      endif
  10  continue
      end