Sub Main()
Ini = EstrazioneFin -9
fin = EstrazioneFin
For es = ini To fin
For r = 1 To 10
If r = 10 Then r = 10
For p = 1 To 4
For p1 = p + 1 To 5
a = Estratto(es,r,p)
b = Estratto(es,r,p1)
'-----------------------------
If b = DiametraleD(a) Then
'If b = Diametrale (a) Then
'If b = Figura (a) Then
'------------------------------------
Scrivi"" & DataEstrazione(es,1) & "",True
Scrivi" " & Left(NomeRuota(r),2) & " " & " " & StringaEstratti(es,r) & " > " & _
Format2(a) & "-" & Format2(b)
Scrivi String(85,"-")
End If
Next
Next
Next
Next
End Sub