c
c   get title from screen interactively
c
      subroutine getitl
      include 'screen.inc'
      logical yesno
      external yesno
      call cls
      irow=5
      icol=5
      line='Modifications to TRANSECT include:'
      call scrlin
      irow=irow+2
      icol=7
      line='1) 80 column format on output with upper/lower case'
      call scrlin
      irow=irow+2
      line='2) Interactive keyboard input with self-explanatory menus'
      call scrlin
      irow=irow+2
      line='3) Improved numerical procedures'
      call scrlin
      irow=irow+2
      icol=5
      line='Now, begin the input process.  Good Luck.'
      call scrlin
      irow=irow+1
      line='May all your densities have narrow confidence intervals!'
      call scrlin
      irow=irow+3
      icol=17
      line='Enter descriptive title (up to 78 characters).'
      call scrlin
      line='End title with a carriage return ("ENTER key   ").'
      line(46:46)=char(17)
      line(47:47)=char(217)
      irow=irow+1
      icol=17
      call scrlin
      irow=irow+1
      icol=1
      call putcur(irow,icol,ivpage,ierror)
      call getbuf(line,nchar,maxchr,iatt)
      write(unit=iout,fmt='(a1,a,a1)') '*',line(1:nchar),'*'
      irow=irow+3
      line='Do you want to treat the data as point transect data,'
      call scrlin
      irow=irow+1
      line='i.e., square the distances and multiply by PI?'
      if (yesno(1)) then
         pntran=.true.
      else
         pntran=.false.
      endif
      return
      end