+=== Word: READ-WORD
+....
+Data stack: ( stream -- char* n )
+....
+
+"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.