subroutine dirnam (prompt, defalt, direct, lendir)

      character*(*) prompt, defalt, direct
      integer*2 lendir

c get directory name
c        called by GETROT

      character*80 mesage
      character*1 seprate
      parameter (seprate='\')

      if (lendir .eq. 0) then
        lenmes = 0
        call append (' ', mesage, lenmes)
        call append (prompt, mesage, lenmes)
        call append (' [', mesage, lenmes)
        call append (defalt, mesage, lenmes)
        call append ('] : ', mesage, lenmes)
        call caryon (mesage(:lenmes), direct)
        if (len_trim(direct) .eq. 0) direct = defalt
        lendir = len_trim(direct)
      end if
      intlen = lendir
      if (intlen .eq. 1) then
        call append (':'//seprate, direct, intlen)
      else if (direct(intlen:intlen) .ne. seprate) then
        call append (seprate, direct, intlen)
      end if
      lendir = intlen
      return
      end