Sub Main
Dim nu(4),ru(1),nn(1),rd(4),num(4)
Ini = EstrazioneFin - 1000
fin = EstrazioneFin
For es = Ini To fin
For r = 1 To 12
If r = 11 Then r = 12
a = NumeroPosRit(es,r,1)
For p1 = 1 To 4
For p2 = p1 + 1 To 5
aa = Estratto(es,r,p1)
bb = Estratto(es,r,p2)
If Decina(aa) = Decina(bb) Then
diff = Differenza(aa,bb)
rd(1) = diff
rd(2) = Vert(diff)
rd(3) = Gemello(diff)
rd(4) = Fuori90(rd(2) + 9)
If diff < 10 And Vert(diff) = a Or diff < 10 And Gemello(diff) = a Or diff < 10 And(Vert(diff) + 9) = a Then
If EstrattoRitardo(r,a,Ini,es) > 100 Then
nn(1) = a
nu(1) = aa
nu(2) = bb
ru(1) = r
If SerieRitardo(Ini,es,rd,ru,1) < 10 Then
rit = SerieRitardo(Ini,es,nn,ru,1)
If rit > 100 Then
Call VerificaEsito(nn,ru,es + 1,1,100,,esito,clp,estratti,id)
Call VerificaEsito(rd,ru,es+1,2,100,,esitoA,clpA,estrattiA,idA)
Scrivi GetInfoEstrazione(es) & vbTab,0,0
Scrivi SiglaRuota(r) & vbTab,0,0
Scrivi StringaNumeri(nu,,1) & vbTab & diff & vbTab & "Pos..." & p1 & p2 & vbTab,0,0
Scrivi StringaNumeri(nn,,1) & vbTab & " Rit..." & FormatSpace(rit,3) & vbTab,1,0
If esito = "Estratto" And esitoA = "Ambo" Then
ColoreTesto 2
Scrivi estratti & " al colpo " & clp & vbTab & StringaEstratti(id,r) & vbTab & estrattiA & " Clp " & clpA
Else
ColoreTesto 0
Scrivi estratti & " al colpo " & clp
End If
End If
End If
End If
End If
End If
Next
Next
Next
Next
End Sub