KEY? KEY L>NAME
KEY?
* KEY? ( -- flag )

if a character is available from the keyboard, return true.
The KEY word will retrieve the actual character.

facility ordinary primitive