FoxPro/Visual FoxPro - programcion

como llenar una matriz ncon los primeros 30 numero primo

A caso esta es una tarea que te ha dado un profesor, mmm me parece que si, lo que mas me sorprende es que te den foxpro

mas o menos va asi

N=1
k=1
Clear

Dimension m(10,10)
For F=1 To 10
For c=1 To 10
If k<100
If FPRIMO(N)
m(F,c)=N
k=k+1



Endif

@F,c*7 Say m(F,c) Pict("@z 999999")

Endif
N=N+1
Endfor
Endfor