%N prompt %F $MIR/src/subs/txtio.for
%D Read input from the user
%P rjs
%: terminal-i/o
%B
        subroutine prompt(string,length,prmpt)

        implicit none
        integer length
        character string*(*),prmpt*(*)

  Read input from the standard input (usually the users terminal).

  Input:
    prmpt      Prompt string.
  Output :
    string     The string read from the terminal.
    length     The length of the string read from the terminal.
