Previous: prskey Up: ../plot79_p.html Next: prsluk

PRSLEN

       INTEGER FUNCTION  PRSLEN (COLNOW,STRING,LENGTH)
 C$    (Parse Internal - Length)
 C$    Return as a function value the new effective output  length
 C$    of a string possibly containing  tabs, where the length  is
 C$    measured from  column  number  0.  Non-tabs  in  the  input
 C$    buffer count as one character,  and tabs are equivalent  to
 C$    blank padding up to and including the next column which  is
 C$    a multiple of the constant TABMLT (normally 8) defined in a
 C$    DATA statement.  The arguments are:
 C$
 C$    COLNOW.........Current output column number (0 at beginning
 C$                   of line).
 C$    STRING(*)......Unpacked A1-format Hollerith data.
 C$    LENGTH.........Number of characters in STRING(*).
 C$
 C$    (19-NOV-82)