sub main
t=timemilli
q=0
i=0
sol=0
cls
print "Recherche..."
while i<>-2
   q=q+1
   if q=9 then
      call dessin
   else
      r(q)=1
   end if
   i=-1
while i=-1
   if q<9 then
      s(q)=q+r(q)
      d(q)=q-r(q)
      i=1
      p=q
      while i<p
         if r(i)=r(p) or s(i)=s(p) or d(i)=d(p) then
            i=-1
            p=-1
         else
            i=i+1
         end if
      wend
   else
      q=8
   end if
   if i=-1 then
      p=true
      while p
         if r(q)<8 then p=false
         else q=q-1
            if q=0 then p=false end if
         end if
      wend
      if q=0 then
         i=-2
      else
         r(q)=r(q)+1
      end if
   end if
wend
wend
end sub

sub dessin
   cls
   sol=sol+1
   x=(width-160)/2
   y=(height-160)/2
   color(255,0,0)
   filloff
   box(x-1,y-1,162,162)
   fillon
   color(200,200,200)
   box(x,y,160,160)
   color(120,0,0)
   c=0
   for k=x to x+140 step 20
      for j=y to y+140 step 20
      	 if c=0 then
            box(k,j,20,20)
         end if
         c=1-c
      next j
      c=1-c
   next k
   color(0,0,255)
   x=x-10
   y=y-10
   for k=1 to 8
      circle(x+k*20,y+r(k)*20,7)
   next k
   color(255,255,255)
   clt
   print sol
   print int((timemilli-t)/100)/10
end sub