Fix auto.term in history

[pforth] / fth / siev.fth

\ #! /usr/stud/paysan/bin/forth\r
\r
DECIMAL\r
\ : SECS TIME&DATE  SWAP 60 * + SWAP 3600 * +  NIP NIP NIP ;\r
CREATE FLAGS 8190 ALLOT\r
variable eflag\r
\ FLAGS 8190 + CONSTANT EFLAG\r
\r
\ use secondary fill like pForth   !!!\r
: FILL { caddr num charval -- }\r
	num 0\r
	?DO\r
		charval caddr i + c!\r
	LOOP\r
;\r
\r
: PRIMES  ( -- n )  FLAGS 8190 1 FILL  0 3  EFLAG @ FLAGS\r
  DO   I C@\r
       IF  DUP I + DUP EFLAG @ <\r
           IF    EFLAG @ SWAP\r
                 DO  0 I C! DUP  +LOOP\r
           ELSE  DROP  THEN  SWAP 1+ SWAP\r
           THEN  2 +\r
       LOOP  DROP ;\r
\r
: BENCHMARK  0 100 0 DO  PRIMES NIP  LOOP ;			  \ !!! ONLY 100\r
\ SECS BENCHMARK . SECS SWAP - CR . .( secs)\r
: main \r
	flags 8190 + eflag !\r
	benchmark ( . ) drop\r
;\r