\ Copyright (C) 2008 Stephan Becher
\
\ This file is part of StrongForth.f.
\
\ StrongForth.f is free software; you can redistribute it and/or modify
\ it under the terms of the GNU General Public License as published by
\ the Free Software Foundation; either version 2 of the License, or
\ (at your option) any later version.
\
\ StrongForth.f is distributed in the hope that it will be useful,
\ but WITHOUT ANY WARRANTY; without even the implied warranty of
\ MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
\ GNU General Public License for more details.
\
\ You should have received a copy of the GNU General Public License
\ along with StrongForth.f; if not, write to the Free Software
\ Foundation, Inc., 51 Franklin St, Fifth Floor, Boston, MA  02110-1301  USA
\
\ Contact: stephan.becher@vr-web.de

\ Required ANS word sets:
\ FACILITY
\ Note: Some ANS Forth host systems do not provide the complete Facility
\ word set.  If including this file fails because of a missing word in 
\ the host system, the source line that accesses thiw word (with 'HOST) 
\ has to be removed or commented out. The corresponding StrongForth word 
\ will then be unavailable as well.

\ Implemented word sets:
\ FACILITY

'HOST AT-XY IMPORT AT-XY ( UNSIGNED UNSIGNED -- )
'HOST KEY? IMPORT KEY? ( -- FLAG )
'HOST PAGE IMPORT PAGE ( -- )
'HOST EKEY IMPORT EKEY ( -- UNSIGNED )
'HOST EKEY>CHAR IMPORT EKEY>CHAR  ( UNSIGNED -- 1ST FLAG )
\ Note: The stack diagram differs from the one specified by ANS, because 
\ EKEY>CHAR always returns an item of data type UNSIGNED as its first
\ output parameter. In ANS Forth, this parameter is a character if the 
\ flag is true. Therefore, EKEY>CHAR should be used together with a 
\ type cast: ... EKEY>CHAR IF CAST CHARACTER ... ELSE ... THEN ...
'HOST EKEY? IMPORT EKEY? ( -- FLAG )
'HOST EMIT? IMPORT EMIT? ( -- FLAG )
'HOST MS IMPORT MS ( UNSIGNED -- )
'HOST TIME&DATE IMPORT TIME&DATE 
   ( -- UNSIGNED UNSIGNED UNSIGNED UNSIGNED UNSIGNED UNSIGNED )

GET-CURRENT ENVIRONMENT-WORDLIST SET-CURRENT
CREATE FACILITY TRUE ,
CREATE FACILITY-EXT TRUE ,
SET-CURRENT

\ EOF