programado en visual fox "números primos aleatorios hasta 1000"

CLEAR
STORE 1 TO n
y=0
x=0

num=INT(RAND()*10000+1)

?num

num=ABS(num)
   c=num/2
   FOR i=1 TO c
       IF (MOD(num,i))=0 then
           y=y+1
       ENDIF
   ENDFOR
   IF y<=2 then
      ? "primo"
   ELSE
      ? "no primo"
   endif