(EMIT)
* (EMIT) ( val -- )

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

misc ordinary primitive