subroutine linect(inc)
      include 'maincomo.for'
      line=line+inc
      if (line.gt.linemx) then
         call dphead
      endif
      return
      end