06-10-2003, 12:55 AM
Code:
CLS
WIDTH , 50
p = 2
t = TIMER
DO
FOR i = 2 TO SQR(p)
IF p = 2 THEN EXIT FOR
IF p MOD i = 0 THEN np = 1: EXIT FOR
NEXT i
IF np = 1 THEN
np = 0
ELSE
'IF c = 1 THEN c = 0: PRINT USING "Time: ####.##"; TIMER - t: PRINT : LOCATE 1, 1
PRINT p, : PRINT USING "Time: ####.##"; TIMER - t: PRINT : LOCATE 1, 1
'c = c + 1
pn = pn + 1
END IF
IF p = 2 THEN p = 3 ELSE p = p + 2
LOOP UNTIL p >= 100000'LEN(INKEY$) = 1
PRINT
PRINT
PRINT pn; " primes found"
PRINT USING "In ####.## sec"; TIMER - t
Print and counts number 2