18.6.1.2488.10
XEMIT
x-emit
XCHAR
 
( xchar -- )

Prints an xchar on the terminal.

Implementation:
: XEMIT ( xchar -- )
   DUP $80 U< IF EMIT EXIT THEN \ special case ASCII
   0 SWAP $3F
   BEGIN 2DUP U> WHILE
     2/ >R DUP $3F AND $80 OR SWAP 6 RSHIFT R>
   REPEAT $7F XOR 2* OR
   BEGIN DUP $80 U< 0= WHILE EMIT REPEAT DROP
;