Option Explicit
Sub Main
'C.S.E. Beta By Joe
Dim Ini,Fin,Es,R,P,E,Ce,T,Ru(1),RT(1),K,Ke,Ter(3)
Ini = 7440 : Fin = EstrazioneFin : RT(1) = 11
Scrivi "C.S.E. Cinquine Sincrone Esclusive di Renato Delfino",True
Scrivi "Terzine Residuali per Ambo a Ruota e Tutte",True,False
ColoreTesto 1 : Scrivi Space(2) & "Script By Joe",True : ColoreTesto 0
Scrivi
[COLOR=#800080]Scrivi Space(3) & "DATA" & Space(4) & "RU" & Space(4) & "Estratti" & Space(4),True,False
Scrivi"RIT" & Space(3) & "TERZINA" & Space(3) & "RUOTE",True[/COLOR]
For Es = Ini To Fin : AvanzamentoElab Ini,Fin,Es
For R = 1 To 12 : If R = 11 Then R = 12
ReDim Nu(5),C(10) : Ru(1) = R
For P = 1 To 5 : E = Estratto(Es,R,P) : Nu(P) = E
Ce = Cadenza(E) : C(Ce) = True : Next
T = 0
For P = 0 To 9
If C(P) = True Then T = T + 1
Next
If T = 5 Then
If C(0) = True And C(9) = True Then
K = 0
For P = 1 To 5
If(Cadenza(Nu(P)) <> 0) And(Cadenza(Nu(P)) <> 9) Then
K = K + 1 : Ter(K) = Nu(P)
End If
Next
If SerieFreqTurbo(Es + 1,Fin,Ter,Ru,2) = 0 Then
Scrivi DataEstrazione(Es) & " " & SiglaRuota(R) & " " & StringaEstratti(Es,R) & Space(1),False,False
Scrivi Space(1) & FormatSpace(Fin - Es,3,True) & Space(2),False,False
'OrdinaMatrice Ter,False
ColoreTesto 1
Scrivi StringaNumeri(Ter,,True) & Space(2),True,False
Scrivi SiglaRuota(R) & Space(1),True,False
If SerieFreqTurbo(Es + 1,Fin,Ter,RT,2) = 0 Then
Scrivi "& " & SiglaRuota(RT(1)),True
Else
Scrivi
End If
ColoreTesto 0
End If
End If
End If
Next
Next
End Sub