Sub main()
Dim n,t,r1,r2,n1,n2,n3,n4,n5,n6
Dim am(10)
Dim ab(10)
Dim at(10)
Dim ruota(10)
Dim posta(5)
Dim poste(5)
Dim posto(5)
posto(2)=1.6
posto(3)=0.4
posta(1)=1
posta(2)=1
ini= 10000
For n=ini To EstrazioneFin
Messaggio DataEstrazione (n)
t=1
Do While RAD30(n,t,r1,r2,n1,n2,n3,n4,n5,n6)=True

Scrivi "**************************************************************"
ColoreTesto 2
Scrivi DataEstrazione(n)& " "& Left(NomeRuota(r1),2)&" "& StringaEstratti(n,r1)
Scrivi DataEstrazione(n)& " "& Left(NomeRuota(r2),2)&" "& StringaEstratti(n,r2)
Scrivi
ColoreTesto 0
ruota(1)=r1
ruota(2)=r2
ruota(3)=12

am(1)=n4
am(2)=Diametrale(am(1))
ImpostaGiocata 1,am,ruota,posta,12,0
ab(1)=n1
'ab(2)=Diametrale(ab(1))
'ImpostaGiocata 2,ab,ruota,posta,9,2
at(1)=n2
'at(2)=Diametrale(at(1))
'at(3)=n1
'ImpostaGiocata 3,at,ruota,posta,9,2
at(1)=n4
'at(2)=Diametrale(at(1))
'at(3)=n2
'ImpostaGiocata 4,at,ruota,posta,9,2
at(1)=n5
at(2)=ab(2)
'at(3)=n3
' ImpostaGiocata 5,at,ruota,posta,9,2
For x=2 To 5
For xx=2 To 5
Next
Next
Gioca n
t=t+1

Loop
Next
'ScriviResoconto
End Sub
Function RAD30(estrazione,tentativo,byref ruota1,byref ruota2,byref numero1,byref numero2,byref numero3,byref numero4,byref numero5,byref numero6)
Dim trovati,r,i,j
trovati=0
For r= 1 To 10
       For i= 1 To 3
           j=i+2
             a=Estratto (estrazione,r,i)
             b=Estratto(estrazione,r,j)
             If Distanza(a,b)=30 Then
                       For rr=1 To 10
                               c=Estratto(estrazione,rr,i+1)
                               If c=(Fuori90(a+30) And c<>b) Or c=(Fuori90(a+60) And c<>b) Then
                               trovati=trovati+1
                               If trovati=tentativo Then
                                         numero1=Estratto(estrazione,r,i)
                                         numero2=Estratto(estrazione,r,j)
                                               numero3=Estratto(estrazione,rr,i+1)
                                               numero4=Estratto(estrazione,r,i+1)
                                   numero5=Estratto(estrazione,rr,j)
                                   numero6=Estratto(estrazione,rr,j-2)
                                               ruota1=r
                                               ruota2=rr
                                       RAD30=True
                                       Exit Function
                                       End If
                               End If
                       Next
               End If    
       Next
Next
RAD30=False
End Function