git.gag.com Git - debian/yforth/blob - facility.c

   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
   9  */
  10
  11 #include "yforth.h"
  12 #include "udio.h"
  13 #include "facility.h"
  14
  15 /**************************************************************************/
  16 /* WORDS ******************************************************************/
  17 /**************************************************************************/
  18
  19 void _at_x_y() {
  20         register Cell y = *sp++;
  21         d_gotoxy(*sp++, y);
  22 }
  23
  24 void _key_question() {
  25         *--sp = FFLAG(d_kbhit());
  26 }
  27
  28 void _page() {
  29         d_clrscr();
  30 }
  31