Option Explicit
Sub Main
    Dim Ini,Fin,idEstr,qEstr,nCasi
    Dim R,p,E,K
    Dim E1,E2
    Dim Num(2),aRuota(1),posta(1)
    qEstr=CInt(InputBox("Quante estrazioni vuoi esaminare?","Numero Estrazioni Esaminate",100))
    K=CInt(InputBox("Quante Colpi di verifica vuoi esaminare?","Numero Colpi Esaminati",9))
    Ini = EstrazioneFin - qEstr
    Fin = EstrazioneFin
    posta(1) = 1
    nCasi = 0
    
    For idEstr = Ini To Fin
        Call Messaggio("Estrazione : " & GetInfoEstrazione(idEstr))
        Call AvanzamentoElab(Ini,Fin,idEstr)
        For R = 1 To 12
            Call Iif(R = 11,R = 12,R = R)
            If Cadenza(Estratto(idEstr,R,5)) = 9 Then
                nCasi = nCasi + 1
                Scrivi GetInfoEstrazione(idEstr) & " - Ruota di rilevamento :" & NomeRuota(R) & " - " & StringaEstratti(idEstr,R),True
                E1 = Estratto(idEstr,R,3)
                E2 = Vert(E1)
                Num(1) = E1
                Num(2) = E2
                aRuota(1) = R
                ImpostaGiocata 1,Num,aRuota,posta,K
                Gioca idEstr
            End If
        Next
    Next
    Call ScriviResoconto 
End Sub