100 cls
110 print "Primes below 100"+chr$(10)
120 for i = 2 to 100
130  wilsonprime(i)
140 next i
150 end
160 function wilsonprime(n)
170  fct = 1
180  for i = 2 to n-1
190   fct = (fct*i) mod n
200  next i
210  if fct = n-1 then print i;
220 end function