Previous: prstcl Up: ../plot79_p.html Next: prstpr

PRSTOK

       INTEGER FUNCTION  PRSTOK (STATUS, STDHMS, HLPSTR,LENHLP, DEFSTR,
      X     LENDEF, STRING, LENGTH)
 C$    (Parse - Token String)
 C$    Parse a token string, leaving it in COMMON.  The  arguments
 C$    are:
 C$
 C$    STATUS.........Parsing status  value (and  function  value)
 C$                   returned; one  of  NOPABT,  NOPHLP,  NOPIFL,
 C$                   NOPNMT, NOPUNK, OKAY, OVRFLO, or REPARS.  If
 C$                   the returned value  is not  OKAY, the  input
 C$                   pointer is backed up to its value at  entry,
 C$                   allowing a  retry with  another field  type.
 C$                   The help return, NOPHLP, is only given if an
 C$                   alternative   parse    is    in    progress.
 C$                   Otherwise, this routine loops until the user
 C$                   completes the  input  field  with  something
 C$                   other than the help character.
 C$    STDHMS......... .TRUE. - issue standard help message.
 C$                   .FALSE. - suppress standard help message.
 C$    HLPSTR(*)......Packed Hollerith help string.
 C$    LENHLP.........Length of HLPSTR(*).
 C$    DEFSTR(*)......Packed Hollerith default value string.
 C$    LENDEF.........Length of DEFSTR(*).
 C$    STRING(*)......Packed Hollerith token string.
 C$    LENGTH.........Length of STRING(*).
 C$    (25-APR-84)