subroutine dphead
      include 'maincomo.for'
      ipage=ipage+1
      write(iolp,'(a,3x,a,i3)')
     1 '1Biotelemetry data analysis system for IBM-PC  Version 1.00',
     2 'Page ',ipage
      line=1
      if (sfdic(idic).ne.' ') then
         write(iolp,'(1x,a,a)') 'Analysis for animal ',sfdic(idic)
         line=2
      endif
      return
      end