--- gforth/sieve.fs	1994/02/11 16:30:47	1.1
+++ gforth/sieve.fs	1994/10/18 15:51:22	1.3
@@ -1,20 +1,20 @@
 #! /usr/stud/paysan/bin/forth
 
-$1FFE Constant 8190
-Create flags 8190 allot
-flags 8190 + AConstant eflag
+DECIMAL
+: SECS TIME&DATE  2DROP DROP  60 * + 60 * + ;
+CREATE FLAGS 8190 ALLOT
+FLAGS 8190 + CONSTANT EFLAG
 
 : PRIMES  ( -- n )  FLAGS 8190 1 FILL  0 3  EFLAG FLAGS
   DO   I C@
        IF  DUP I + DUP EFLAG <
            IF    EFLAG SWAP
                  DO  0 I C! DUP  +LOOP
-           ELSE  DROP  THEN  >R 1+ R>
+           ELSE  DROP  THEN  SWAP 1+ SWAP
            THEN  2 +
        LOOP  DROP ;
 
-: BENCHMARK  0 &100 0 DO  PRIMES NIP  LOOP ;
-&10 BASE !
-BENCHMARK .
-BYE
+: BENCHMARK  0 100 0 DO  PRIMES NIP  LOOP ;
+SECS BENCHMARK . SECS SWAP - CR . .( secs)
+
 \ HPPA/720, 50 MHz: user 3.90s