%N grgcom %F $MIR/opt/local/var/macports/build/_opt_PPCSnowLeopardPorts_science_miriad/miriad/work/miriad-4.3.8/borrow/pgplot/sys/grgcom.f
%D Read with prompt from user's terminal (Sun/Convex-UNIX)
%B
      INTEGER FUNCTION GRGCOM(STRING, PROMPT, L)
      CHARACTER*(*) STRING, PROMPT
      INTEGER L

 Issue prompt and read a line from the user's terminal; in VMS,
 this is equivalent to LIB$GET_COMMAND.

 Arguments:
  STRING : (output) receives the string read from the terminal.
  PROMPT : (input) prompt string.
  L      : (output) length of STRING.

 Returns:
  GRGCOM : 1 if successful, 0 if an error occurs (e.g., end of file).
