Recognize Forth 2012 number syntax

[pforth] / fth / siev.fth

\ #! /usr/stud/paysan/bin/forth

DECIMAL
\ : SECS TIME&DATE  SWAP 60 * + SWAP 3600 * +  NIP NIP NIP ;
CREATE FLAGS 8190 ALLOT
variable eflag
\ FLAGS 8190 + CONSTANT EFLAG

\ use secondary fill like pForth   !!!
: FILL { caddr num charval -- }
   num 0
   ?DO
       charval caddr i + c!
   LOOP
;

: 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  SWAP 1+ SWAP
          THEN  2 +
      LOOP  DROP ;

: BENCHMARK  0 100 0 DO  PRIMES NIP  LOOP ;           \ !!! ONLY 100
\ SECS BENCHMARK . SECS SWAP - CR . .( secs)
: main
   flags 8190 + eflag !
   benchmark ( . ) drop
;