• MasterMind.JAR: le fichier exécutable
• MasterMind.JAD: le fichier d'installation
• MasterMind.ZIP: le projet avec sources

sub main
CLS
FOR I = 1 TO 50
X = INT(RND * width)
Y = INT(RND * height)
R = INT(RND * 50)
if R < 17 then
   	FILLON
else
	FILLOFF
end if
color(rnd*256,rnd*256,rnd*256)
CIRCLE (X, Y, R)
NEXT I
end sub

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=1
      while p=1
         if r(q)<8 then p=0
         else q=q-1
            if q=0 then p=0 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)
   color(200,200,200) : fillon : 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