(EMIT) (DROP-$FRAME) (EXPECT)
(EMIT)
* (EMIT) ( val -- )

like EMIT and always to screen
- the routine to be put into *EMIT*

FORTH/BASE misc ordinary primitive