\\ The ANS Forth Facility word set                              uho18Feb95


   $Logfile:   C:/SRC/FPC/FPC-ANS/VCS/FACILITY.SEV  $
   $Revision: 1.4 $
   $Date: 1999/04/10 13:56:16 $
   $Author: uho $

 /--------------------------------------------------------uh 29Mai93
 | This file contains the definition of an ANS-Forth compatible    |
 | Facility word set for F-PC. If you do not use F-PC this file    |
 | is useless for you. This is NOT an ANS-Forth program but is     |
 | highly F-PC specific. It is a system extension to F-PC in order |
 | to make F-PC supply the ANS-Forth File Access word set.         |
 |                                                                 |
 | This file is a companion to the F-PC ANS-Forth CORE and CORE EXT|
 | extensions as provided in the file ANSI.SEQ. ANSI.SEQ is needed |
 | to load this file.                                              |
 |                                                                 |
 | To support strict ANS-Forth code, a separate vocabulary ANSI    |
 | FACILITY is defined. By this the F-PC vocabulary search         |
 | mechanism can be used to restrict the visibility of specific    |
 | word sets.                                                      |
 | To activate the Facilty word set include the phrase             |
 | ANSI FACILTY ALSO in your program.                              |
 |                                                                 |
 | This Code is public domain software.                            |
 |                                                                 |
 | Remarks and comments are welcome.                               |
 |                                                                 |
 |               Ulrich Hoffmann                                   |
 |               Sehestedter Strasse 26                            |
 |               24340 Eckernfoerde                                |
 |               Germany                                           |
 |               +49 431 712 217                                   |
 |               +49 431 712 216  (FAX)                            |
 |               Ulrich.E.Hoffmann@gmx.de                          |
 |                                                                 |
 \-----------------------------------------------------------------/

{

needs ansi.seq

Only Forth also ANSI also definitions warning off

Vocabulary FACILITY  FACILITY definitions

' at Alias AT-XY ( u1 u2 -- )

' key? Alias KEY? ( -- flag )

' dark Alias PAGE ( -- )

}

 Facility extensions

EKEY
EKEY>CHAR
EKEY?
EMIT?

{

' ms Alias MS ( u -- )

: TIME&DATE ( -- +n1 +n2 +n3 +n4 +n5 +n6 )
    \ both time and date are guaranteed to refer to the same point in time!
    getdate ( Y MD )
    gettime ( Y MD HM Sh )  2>R  ( Y MD )
    getdate ( Y MD Y' MD' )  2OVER 2OVER D= not
    IF ( date change, time invalid )
       2SWAP 2DROP  2R> 2DROP
       gettime  ( Y' MD' HM' Sh' )
    ELSE ( time valid ) 2DROP  2R> THEN  ( Y MD HM Sh )
    2SWAP 2>R  ( HM Sh )
    split nip swap split  ( S M H )
    2R> ( S M H Y MD ) split rot ( S M H D M Y ) ;


CR .( Parts of the ANS Forth Facility word set loaded. )

}


------------------------------------------------------------

Revision history:
$Log: facility.seq,v $
Revision 1.4  1999/04/10 13:56:16  uho
Update Version Number

Revision 1.3  1999/04/10 11:41:43  uho
Changed Email Address

Revision 1.2  1997/08/28 10:03:36  uho
Changed email address

Revision 1.1  1997/08/28 09:59:13  uho
Initial revision

   
      Rev 1.3   18 Nov 1995 13:53:48
   TIME&DATE enhanced so that the values returned are now guaranteed to refer
   to the same point in time.
   
      Rev 1.2   17 Nov 1995  1:21:46
   Clean up for release.
   
   
      Rev 1.1   26 Apr 1995  9:51:04
   Translated ß-text to english
   
   
      Rev 1.0   21 Feb 1995 23:55:48
   Initial revision.