unix/boot/spp/rpp/ratlibr/prompt.r


1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19

include	defs

# prompt - write to/read from teletype

   subroutine prompt (str, buf, fd)
   character str(ARB), buf(ARB)
   filedes fd

   integer isatty

   if (isatty(fd) == YES)
	 {
	 call putlin (str, fd)
	 call flush (fd)
	 }
   call getlin (buf, fd)

   return
   end