Sincronismo-Isocronismo 2-3-4-5 ambi residui dai 100 iniziali, (Ritardi Storici e Attuali)

Sub main()
Dim a(2),ru(1),ru1(1)
Scrivi "ritardi intere estrazioni (Cinzia)"
ru1(1)=11
For es=7550 To EstrazioneFin
Messaggio(es)
c=0
mx=0
For r=1 To 10
ru(1)=r
For p=1 To 4
For p1=p+1 To 5
a(1)=Estratto(es,r,p)
a(2)=Estratto(es,r,p1)
ex=es+1
If ex>EstrazioneFin Then ex=EstrazioneFin
s=SeriePrima(ex, EstrazioneFin,a,ru1,2)
If s>mx Then mx=s
If s=0 Then
c=c+1
If SerieFreq(EstrazioneFin+1,EstrazioneFin+1,a,ru1,2)>0 Then
ColoreTesto 2
Scrivi FormatSpace(c,4)&")"&FormatSpace(es,4)&" "&dataestrazione(es)&" "& _
FormatSpace(SiglaRuota(r),5,1)&" "&format2(a(1))& _
" "&format2(a(2))&" sortito a tutte ",1
Else
ColoreTesto 0
Scrivi FormatSpace(c,4)&")"&FormatSpace(es,4)&" "&dataestrazione(es)&" "& _
FormatSpace(SiglaRuota(r),5,1)&" "&format2(a(1))& _
" "&format2(a(2))
ColoreTesto 0
End If
End If
Next
Next
Next
ColoreTesto 0
If c>0 Then
Scrivi "situazione vigente dall' estr "&dataestrazione(mx)&" "&mx
rit=EstrazioneFin-mx
Scrivi "rit "&rit
If rit>max Then max=rit
Scrivi String(60,"-")
End If
Next
Scrivi "rit max"&max
End Sub