Previous: prsflu Up: ../plot79_p.html Next: prsgtc

PRSGET

       INTEGER FUNCTION  PRSGET (A1CHAR)
 C$    (Parse Internal - Get)
 C$    Get the next input character, returning it in A1  Hollerith
 C$    format in  the  argument  A1CHAR,  and  its  ASCII  ordinal
 C$    equivalent as the  function value.  If  the host  character
 C$    has no ASCII  equivalent, then  NEQASC is  returned as  the
 C$    function value.  If end-of-line is reached, then EOLCHR  is
 C$    returned.  A1CHAR  is set  to a  blank in  either of  these
 C$    exceptional cases.  In this way, the function values lie in
 C$    a range  which can  be used  to index  the break  character
 C$    array, BREAK(*).
 C$
 C$    Continuation lines are  automatically joined together  with
 C$    the  intervening   end-of-line   ignored.    However,   the
 C$    continuation character is  retained in the  buffer so  that
 C$    command  retyping  can  preserve  the  appearance  of   the
 C$    original input.
 C$
 C$    This is the  portable version which  uses FORTRAN input  to
 C$    read a line at  a time.  It should  be replaced by a  local
 C$    version which can truly handle  one character at a time  if
 C$    this  is  possible  on  the  host  computer.    Full-duplex
 C$    communication is also DESIRABLE.
 C$    (23-FEB-83)