Diff for /gforth/sieve.fs between versions 1.2 and 1.3

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
   

Removed from v.1.2  
changed lines
  Added in v.1.3


FreeBSD-CVSweb <freebsd-cvsweb@FreeBSD.org>