18.6.1.2488.30 XKEY x-key XCHAR
( -- xchar )
Reads an xchar from the terminal. This will discard all input events up to the completion of the xchar.
See:
Implementation:
: XKEY ( -- xchar )
KEY DUP $80 U< IF EXIT THEN \ special case ASCII
$7F AND $40 >R
BEGIN DUP R@ AND WHILE R@ XOR
6 LSHIFT R> 5 LSHIFT >R >R KEY
$3F AND R> OR
REPEAT R> DROP ;
KEY DUP $80 U< IF EXIT THEN \ special case ASCII
$7F AND $40 >R
BEGIN DUP R@ AND WHILE R@ XOR
6 LSHIFT R> 5 LSHIFT >R >R KEY
$3F AND R> OR
REPEAT R> DROP ;