06-03-2003, 01:56 AM
I like my program that finds primes up to the number specified
Code:
CLS
INPUT n
FOR i = 1 TO n
a = i * 6 - 1
b = i * 6 + 1
IF a <= n THEN
z = 1
DO
z = z + 1
IF z = a THEN PRINT a: EXIT DO
IF a / z = INT(a / z) THEN EXIT DO
LOOP
END IF
IF b <= n THEN
z = 1
DO
z = z + 1
IF z = b THEN PRINT b: EXIT DO
IF b / z = INT(b / z) THEN EXIT DO
LOOP
END IF
NEXT