Sub main() 
Dim ruote(2) 
Dim nr(4) 
casi=0

Scrivi 
ColoreTesto 2 
Scrivi String(40," ")&"------ RICERCA AMBO RIPETUTO ------ ",1 
ColoreTesto 0 

For es= EstrazioneFin-150 To EstrazioneFin 
AvanzamentoElab EstrazioneFin-150, EstrazioneFin, es 

For r= 1 To 10 
For p= 1 To 4 
For pp= p+1 To 5 
a1=Estratto(es,r,p) 
a2=Estratto(es,r,pp) 

For r1=r+1 To 12 
If r1<>11 Then 
For q=1 To 4 
For qq=q+1 To 5 
b1=Estratto(es,r1,q) 
b2=Estratto(es,r1,qq) 
If a1=b1 And a2=b2 Or a2=b1 And a1=b2 Then 
Erase nr 

Scrivi DataEstrazione(es)&" "& NomeRuota(r)& "- "& NomeRuota(r1)&" " & Format2(a1)&"-"& Format2(a2),1 
casi=casi+1
End If 
Next 
Next 
End If 
Next 
Next 
Next
Next 
Scrivi "_______________________________________________"
 
Next 
Scrivi " Numero casi Totali: "& casi
End Sub