EMIT?
* EMIT? ( -- flag )

if EMIT can safely output characters without
blocking the forth by waiting for an indefinite time.

facility ordinary primitive