gforth/ekey.fs - diff

Return to ekey.fs CVS log

Up to [gforth] / gforth

version 1.12, 2005/10/02 11:30:32	version 1.14, 2006/04/02 09:18:56
Line 1	Line 1
\ ekey etc.	\ ekey etc.

\ Copyright (C) 1999,2002,2003,2004 Free Software Foundation, Inc.	\ Copyright (C) 1999,2002,2003,2004,2005 Free Software Foundation, Inc.

\ This file is part of Gforth.	\ This file is part of Gforth.

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=