[gforth] / gforth / sieve.fs  

gforth: gforth/sieve.fs

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

version 1.2, Wed Aug 31 19:42:52 1994 UTC version 1.3, Tue Oct 18 15:51:22 1994 UTC
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
   

Generate output suitable for use with a patch program
Legend:
Removed from v.1.2  
changed lines
  Added in v.1.3
CVS Admin

Powered by ViewCVS 1.0-dev 		(Powered by ViewCVS)

ViewCVS and CVS Help