unix/boot/spp/rpp/ratlibf/prompt.f


1
2
3
4
5
6
7
8
9
10
11

subroutine prompt (str, buf, fd)
      integer str(100), buf(100)
      integer fd
      integer isatty
      if (.not.(isatty(fd) .eq. 1))goto 23000
      call putlin (str, fd)
      call rfflus(fd)
23000 continue
      call getlin (buf, fd)
      return
      end