NAME

getwrd - get non-blank word from in(i) into out, increment i


SYNOPSIS


size = getwrd(in, i, out)

character in(ARB), out(ARB)
integer i               # i is incremented
integer size is returned as the length of the word found



DESCRIPTION

Starting at position 'i' in array 'in', skips any leading blanks
and tabs and returns the next word and its length.
A word is any series of characters terminated by a BLANK,
TAB, or NEWLINE.
The terminator is not returned as part of the word.
'i' is incremented to the position just past the end of the
word.
The word is returned in array 'out'.

Both 'in' and 'out' are ascii character arrays terminated with an
EOS marker.


SEE ALSO

skipbl


DIAGNOSTICS

None