FoxPro/Visual FoxPro - codigo para suma de primos

Hola amigos necesitu urgentemente un codigo para la suma de numeros primos desde un valor 1 hasta n. numeros..estare agradecido por su colaboración

HOLA

FOR I = 1 TO N STEP 2
BLA,BLA,BLA
ENDFOR

acaso el 9 15 y demas son primos ?

Clear
Numero = 0
@10,10 Say 'Introduzca el Rango desde 2 hasta Numero:' Get Numero
Read
for i = 2 to Numero
Primo = .T.
for x = 2 To i-1
modo = mod(i,x)
IF Modo = 0
Primo = .F.
Endif
next x
If Primo = .T.
? i
?? ' es primo'
Endif
next i

Espero que te sirva y un gran abrazo desde las lejanas tierras de CHILE

Roberto

PD.: Hay teorias que el 1 no es primo, por eso que comence desde el 2 hacia adelante.