Return to ekey.fs CVS log | Up to [gforth] / gforth |
version 1.13, 2005/12/31 15:46:08 | version 1.14, 2006/04/02 09:18:56 |
---|---|
Line 222 set-current | Line 222 set-current |
dup 256 u< ; | dup 256 u< ; |
' key? alias ekey? ( -- flag ) \ facility-ext e-key-question | ' key? alias ekey? ( -- flag ) \ facility-ext e-key-question |
\G True if a keyboard even is available. | \G True if a keyboard event is available. |
\ : esc? ( -- flag ) recursive | \ : esc? ( -- flag ) recursive |
\ key? 0= | \ key? 0= |