'#sec:Main
const z=200
dim primes(z)
primes(1)=2
cand=3
i=2
treq=ticks
repeat
  testcand
  if prime then primes(i)=cand : i=i+1 : if not (i%5) then ? ".";
  cand=cand+2
until i>z
cls
? z;" primes in ";(ticks-treq)/tickspersec;" secs"
pause
cls
for i=1 to z step 5
  ? primes(i),primes(i+1),primes(i+2),primes(i+3),primes(i+4)
if !((i+4)%50) then ? ""+chr$(10)+"Primes "+str$(i+4-49)+" - "+str$(i+4) : pause : cls
next
end

sub testcand
s=sqr(cand)
n=1
prime=false
while primes(n)<=s
  t=cand/primes(n)
  if t=int(t) then exit sub
  n=n+1
wend
prime=true
end '