6°DEL MESE
HO FATTO UN FRULLATO MI è VENUTO BENE 
Option Explicit
'Napoli a colpo di bubù
'
https://forum.lottoced.com/threads/napoli-a-colpo.2205158/
Sub Main()
Dim Ini,FIn,Es,Casi : Ini = 09975 : FIn = EstrazioneFin : Casi = 00
For Es = Ini To FIn : Call Messaggio(Es) : Call AvanzamentoElab(Ini,FIn,Es)
If IndiceMensile(Es) = 06 Then
ReDim VetNumeri(05)
VetNumeri(01) = Fuori90(Estratto(Es,PA_,01) +2)
VetNumeri(02) = Fuori90(Estratto(Es,TO_,03) + 51)
VetNumeri(03) = Fuori90(Estratto(Es,GE_,04) + 42)
VetNumeri(04) = Fuori90(Estratto(Es,MI_,04) + Estratto(Es,NZ_,05) + 1)
VetNumeri(05) = Fuori90(Cadenza(Estratto(Es,PA_,04)) + Estratto(Es,VE_,03) + 18)
Casi = Casi + 01 : Call Scrivi(String(125,"=") & " Caso n° " & Casi,True)
Dim VetRuote : VetRuote = Array(00,NA_)
Dim VetPoste,Durata : VetPoste = Array(00,00,01,00,00,00) : Durata = 01
Call ImpostaGiocata(01,VetNumeri,VetRuote,VetPoste,Durata,AMBO_,,01)
Call Gioca(Es,True,,01)
End If
Next
Call ScriviResoconto()
End Sub
SOLO 90 MEGLIO DI NULLA , ANDRA MEGLIO A LUGLIO PER ANDARE AL MARE.
