![[BACK]](/cvsweb/icons/back.gif){kind=icon}
Return to sieve.fs CVS log ![[TXT]](/cvsweb/icons/text.gif){kind=icon}
![[DIR]](/cvsweb/icons/dir.gif){kind=icon}
Up to [gforth] / gforth|
Return to sieve.fs CVS log | Up to [gforth] / gforth |
| version 1.2, 1994/08/31 19:42:52 | version 1.3, 1994/10/18 15:51:22 |
|---|---|
| Line 1 | Line 1 |
| #! /usr/stud/paysan/bin/forth | #! /usr/stud/paysan/bin/forth |
| DECIMAL | DECIMAL |
| : SECS TIME&DATE SWAP 60 * + SWAP 3600 * + NIP NIP NIP ; | : SECS TIME&DATE 2DROP DROP 60 * + 60 * + ; |
| CREATE FLAGS 8190 ALLOT | CREATE FLAGS 8190 ALLOT |
| FLAGS 8190 + CONSTANT EFLAG | FLAGS 8190 + CONSTANT EFLAG |