11 lines
452 B
Text
11 lines
452 B
Text
100 DEF FN MOD(NUM) = NUM - INT (NUM / DIV) * DIV: REM NUM MOD DIV
|
|
110 FOR I = 1 TO 99
|
|
120 V = I: GOSUB 200"ISPRIME
|
|
130 IF ISPRIME THEN PRINT " "I;
|
|
140 NEXT I
|
|
150 END
|
|
|
|
200 ISPRIME = FALSE: IF V < 2 THEN RETURN
|
|
210 DIV = 2:ISPRIME = FN MOD(V): IF NOT ISPRIME THEN ISPRIME = V = 2: RETURN
|
|
220 LIMIT = SQR (V): IF LIMIT > = 3 THEN FOR DIV = 3 TO LIMIT STEP 2:ISPRIME = FN MOD(V): IF ISPRIME THEN NEXT DIV
|
|
230 RETURN
|