+// stdio.asm: WORD p_read_word,'READ-WORD',fasm
+
anchor:p_read_word[]
-Word: READ-WORD
----------------
+=== Word: READ-WORD
+....
+Data stack: ( stream -- char* n )
+....
-----
-stdio.asm: WORD p_read_word,'READ-WORD',fasm
-----
+"READ-WORD" is a function word that "reads" the next whitespace
+separated word from the given stream and returns the [n:char*] duoble
+cell pointer for it. The characters of the word are copied to
+<<p_pad,PAD>>, and there is a limit of 1024 characters.
+At the end of the stream READ-WORD returns 0 length.