QUERY PWD QUIT
QUERY
* QUERY ( -- )

source input: read from terminal using _accept_ with the
returned string to show up in >TIB of /TIB size.

core ordinary primitive