lflag=.f.
ntime=0
nadd=0
for i=100 to 200
for j=2 to i
if int(i/j)=i/j
ntime=ntime+1
endif
endfor
if ntime=1
nadd=nadd+1
endif
ntime=0
endfor
nadd