Sub main()
Dim n,t,r1,r2,n1,n2,n3,n4
Dim am(4)
Dim am1(10)
Dim ruote(10)
Dim ruota(1)
Dim posta(3)
Dim poste(2)
poste(1)=1
poste(2)=1
posta(2)=1
posta(3)=1

For n=8790 To EstrazioneFin
Messaggio DataEstrazione (n)
t=1
Do While DISAMBO(n,t,r1,n1,n2,r2,n3,n4)=True
ruota(1)=11
ruote(1)=r1
ruote(2)=r2
ruote(3)=12
s1=Fuori90(n1+n2)
s2=Abs(n1-n3)
s3=Abs(n2-n4)
s4=Abs(s2-s3)
s5=Fuori90(s1+s4)
Scrivi "----------------------------------------------------------"
Scrivi NomeRuota(r1)&" "&Cint(n1)&" + "&Cint(n2)&" ="&Cint(s1)&"  "& NomeRuota(r2)&" "&Cint(n3)&" + "&Cint(n4)&" ="&Cint(s1)
am(1)=s5
am(2)=Vert(s5)
ImpostaGiocata 1,am,ruote,poste,12,0
am1(1)=s5
am1(2)=Vert(s5)
am1(3)=Abs(90-s1)
am1(4)=Vert(am1(2))
'am1(5)=Fuori90(n2+n3)
ImpostaGiocata 2,am1,ruote,posta,12,0
ImpostaGiocata 3,am1,ruota,posta,12,0

Gioca n
t=t+1
Loop
Next 
'ScriviResoconto
End Sub


Function DISAMBO(estrazione, tentativo, byref ruota1, byref numero1, byref numero2, byref ruota2, byref numero3, byref numero4)
Dim trovati,r,rr,i,ii,j,jj
trovati=0
For r= 1 To 9
  For i= 1 To 4
    j=i+1
      a=Estratto (estrazione,r,i)
      b=Estratto(estrazione,r,j)
		c=Fuori90(a+b)
		For rr=r+1 To 10
			aa=Estratto(estrazione,rr,i)
			bb=Estratto(estrazione,rr,j)
			cc=Fuori90(aa+bb)
			If c=cc Then
				trovati=trovati+1
    			If trovati=tentativo Then
        			numero1=a
        			numero2=b
		 		numero3=aa
          			numero4=bb
					ruota1=r
					ruota2=rr
					DISAMBO=True
          			Exit Function 
	  			End If 
			End If 
      	Next
	Next
Next
DISAMBO=False
End Function