1 /* yForth? - Written by Luca Padovani (C) 1996/97
2 * ------------------------------------------------------------------------
3 * This software is FreeWare as long as it comes with this header in each
4 * source file, anyway you can use it or any part of it whatever
5 * you want. It comes without any warranty, so use it at your own risk.
6 * ------------------------------------------------------------------------
7 * Module name: facility.c
8 * Abstract: facility word set
15 /**************************************************************************/
16 /* WORDS ******************************************************************/
17 /**************************************************************************/
20 register Cell y = *sp++;
24 void _key_question() {
25 *--sp = FFLAG(d_kbhit());