STANDARD-I/O
* STANDARD-I/O ( -- )

initialize *TYPE* , *EMIT* , *EXPECT* and *KEY*
to point directly to the screen I/O routines,

namely >(TYPE) , >(EMIT) , >(EXPECT) , >(KEY)

misc ordinary primitive