c
c   program presentation page
c
      subroutine ttlpag
      include 'screen.inc'
      call cls
      call beepit
      line='TRANSECT II'
      nchar=11
      icol=-1
      do 10 i=1,15
      irow=i+1
      icol=icol+2
      call putcur(irow,icol,ivpage,ierror)
      call wchars(ivpage,line,nchar,i,ibckgd,0,ierror)
      call putcur(irow,70-icol,ivpage,ierror)
      call wchars(ivpage,line,nchar,i,ibckgd,0,ierror)
 10   continue
      line='TRANSECT II developed for IBM PC''s/clones from the'
     1 //' original TRANSECT program'
      icol=2
      irow=irow+2
      call scrlin
      irow=irow+1
      icol=39
      line='by'
      call scrlin
      irow=irow+1
      icol=34
      line='Gary C. White'
      call scrlin
      irow=irow+1
      icol=23
      line='Dept. of Fishery and Wildlife Biology'
      call scrlin
      irow=irow+1
      icol=28
      line='Colorado State University'
      call scrlin
      irow=irow+1
      icol=30
      line='Fort Collins, CO 80523'
      call scrlin
      irow=irow+1
      icol=34
      line='(303)491-6678'
      call scrlin
      line='Press any key to proceed'
      irow=25
      icol=55
      iblink=1
      call scrlin
      iblink=0
 11   call inkey(line,keycde,nchar)
      if (keycde.eq.0) go to 11
      return
      end