Sub Main()
TestoInBandaPassante "************ Un metodo da leccarsi i.. BA.FI ************",1,3,0
Dim AmbaP(1),AmbaS(1)
Dim TerzA(3),TerzB(3)
Dim AmboTu(2)
Dim Ru(1),Ru1(3),RuT(1)
Dim Posta(1),Poste(3),PosteAT(2)
  Ini = EstrazioneFin - 614
  Fin = EstrazioneFin
   Clp = 14
   Ru(1) = BA_
   Ru1(1) = BA_ : Ru1(2) = PA_
   RuT(1) = TU_
   Posta(1) = 1
   Poste(2) = 1 : Poste(3) = 1
   PosteAT(2) = 1
   Ca = 0
    For es = Ini To Fin
      Ru1(3) = 0
      Messaggio " Elab. estr. [" &(es) & "] del " & DataEstrazione(es)
       AvanzamentoElab Ini,Fin,es
      If IndiceMensile(es) = 1 Then
        Ca = Ca + 1
        Scrivi String(90,"=") & " Caso n° " & Format2(Ca),1,,,,3
       a = Estratto(es,3,1) 'Primo estratto su Firenze
       b = Decina(a) 'Ambata Principale
       c = Cadenza(a) 'Ambata Secondaria
        Scrivi DataEstrazione(es) & " - " & SiglaRuota(3) & " > " & StringaEstratti(es,3) & " - 1° estratto su Firenze: ",1,0,,1
        Scrivi a,1,,,2
       If c = b Or c = 0 Then c = Vert(b)
          AmbaP(1) = b : AmbaS(1) = c
       If a < 10 Then AmbaP(1) = c : AmbaS(1) = Vert(c)
          AmboTu(1) = AmbaP(1) : AmboTu(2) = Vert(AmbaP(1))
          TerzA(1) = AmbaP(1) : TerzA(2) = Vert(AmbaP(1)) : TerzA(3) = a
          TerzB(1) = AmbaP(1) : TerzB(2) = AmbaS(1) : TerzB(3) = a
          Scrivi " Ambata Principale: ",1,0,,1 : Scrivi AmbaP(1),1,,,2
          Scrivi " Ambata Secondaria: ",1,0,,1 : Scrivi AmbaS(1),1,,,2
          Scrivi String(61,"-"),1
             If Gemello(a) = True Then
          TerzA(1) = AmbaP(1) : TerzA(2) = Vert(AmbaP(1)) : TerzA(3) = a
          TerzB(1) = AmbaP(1) : TerzB(2) = Vert(AmbaP(1)) : TerzB(3) = DiametraleD(a)
          Ru1(3) = Ve_
        End If
        If Cadenza(a) = 0 Or a < 10 Then
          TerzA(1) = AmbaP(1) : TerzA(2) = Vert(AmbaP(1)) : TerzA(3) = DiametraleD(a)
          TerzB(1) = AmbaP(1) : TerzB(2) = Vert(AmbaP(1)) : TerzB(3) = Fuori90(AmbaP(1) + AmbaS(1))
          Ru1(3) = Ve_
        End If
          ImpostaGiocata 1,AmbaP,Ru,Posta,Clp
          ImpostaGiocata 2,AmbaS,Ru,Posta,Clp
          ImpostaGiocata 3,TerzA,Ru1,Poste,Clp
          ImpostaGiocata 4,TerzB,Ru1,Poste,Clp
          ImpostaGiocata 5,AmboTu,RuT,PosteAT,Clp
      Gioca es,True
     End If
   Next
   Scrivi String(154,"-"),1
   TestoInBandaPassante "************ Un metodo da leccarsi i.. BA.FI ************",1,3,0
   ScriviResoconto
End Sub