CLS
DIM prim(1000)
prim(1) = 2
k = 3
n = 1
primjelolt:
FOR j = 1 TO n  ' a beleprobalando prim sorszama
IF INT(k / prim(j)) = k / prim(j) THEN k = k + 1: GOTO primjelolt
IF prim(j) > SQR(k) THEN GOTO ujprim
NEXT j
ujprim:
prim(n + 1) = k
PRINT n + 1, k
n = n + 1
k = k + 1
IF INT(n / 22) = n / 22 THEN INPUT "Tovabb"; f$
IF f$ <> "" THEN END
IF n < 1000 THEN GOTO primjelolt

