Sub Main()
    ColoreTesto 2
    Scrivi " ************** METODO DI ???? (TROVATO IN RETE) ****************",1
    Scrivi
    Scrivi " ***** 5 AMBI SU BARI E VENEZIA ALLA 13° ESTRAZIONE DEL MESE ****",1
    Scrivi
    Scrivi " ******************* LISTATO BY BLACKMORE ***********************",1
    Scrivi
    ColoreTesto 0
    Dim rt(2),n1(2),n2(2),n3(2),n4(2),n5(2),pt(2)
    pt(2) = 1
    k = 10 ' COLPI DI GIOCO
    rt(1) = 1 ' 1° RUOTA DI GIOCO
    rt(2) = 10 ' 2° RUOTA DI GIOCO
    ini = EstrazioneFin - 400
    fin = EstrazioneFin
    co = 0
    For es = ini To fin
        Messaggio(es)
        If IndiceMensile(es) = 13 Then ' 13° ESTRAZIONE DEL MESE
            casi = casi + 1
            Scrivi String(63,"=") & " Caso n° " & casi,1
            ColoreTesto 1
            co = co + 1
            Scrivi "13°ESTRAZIONE DEL MESE: SU BARI & VENEZIA PER 10 COLPI",1
            Scrivi "1° Ambo = 1° Estratto di BA + 23 + 30",1
            Scrivi "2° Ambo = 1° Estratto di BA + 67 + 77",1
            Scrivi "3° Ambo = 1° Estratto di BA + 63 + 85",1
            Scrivi "4° Ambo = 1° Estratto di BA + 61 + 72",1
            Scrivi "5° Ambo = 1° Estratto di BA + 12 + 24",1
            ColoreTesto 0
            Scrivi String(63,"=")
            '----------------------------------------------------- Ambo 1
            n1(1) = Fuori90(Estratto(es,1,1) + 23)
            n1(2) = Fuori90(Estratto(es,1,1) + 30)
            '----------------------------------------------------- Ambo 2
            n2(1) = Fuori90(Estratto(es,1,1) + 67)
            n2(2) = Fuori90(Estratto(es,1,1) + 77)
            '----------------------------------------------------- Ambo 3
            n3(1) = Fuori90(Estratto(es,1,1) + 63)
            n3(2) = Fuori90(Estratto(es,1,1) + 85)
            '----------------------------------------------------- Ambo 4
            n4(1) = Fuori90(Estratto(es,1,1) + 61)
            n4(2) = Fuori90(Estratto(es,1,1) + 72)
            '------------------------------------------------------Ambo 5
            n5(1) = Fuori90(Estratto(es,1,1) + 12)
            n5(2) = Fuori90(Estratto(es,1,1) + 24)
            ImpostaGiocata 1,n1,rt,pt,k,2
            ImpostaGiocata 2,n2,rt,pt,k,2
            ImpostaGiocata 3,n3,rt,pt,k,2
            ImpostaGiocata 4,n4,rt,pt,k,2
            ImpostaGiocata 5,n5,rt,pt,k,2
            Gioca es
        End If
    Next
    Scrivi
    Scrivi "Casi Rilevati " & CInt(co)
    ScriviResoconto
End Sub