home *** CD-ROM | disk | FTP | other *** search
/ ProfitPress Mega CDROM2 …eeware (MSDOS)(1992)(Eng) / ProfitPress-MegaCDROM2.B6I / PROG / MISC / FORTHCMP.ZIP / BYTEBNCH.4TH < prev    next >
Encoding:
Text File  |  1992-03-30  |  543 b   |  17 lines
  1. ( BYTE MAGAZINE BENCHMARK )
  2. DECIMAL 256 MSDOS
  3. 8190 CONSTANT SIZE  10000 CONSTANT FLAGS ( STARTS AT 10000 )
  4. 0 0 IN/OUT : DO-PRIME  FLAGS SIZE 1 FILL
  5.             0 SIZE 0
  6.             DO  FLAGS  I + C@
  7.                 IF I 2*  3 + DUP I +  FLAGS +
  8.                         BEGIN  DUP SIZE FLAGS + U<
  9.                         WHILE  DUP 0 C<- OVER + REPEAT
  10.                         DROP DROP 1+
  11.                 THEN
  12.             LOOP
  13.       U. ." PRIMES"  CR   ;
  14. : MAIN ." 10 ITERATIONS" CR 10 0 DO DO-PRIME LOOP ;
  15. INCLUDE FORTHLIB
  16. END
  17.