Option Explicit
Sub Main()
Scrivi " AMBATA A VENEZIA di soledad ",1 ' - http://forum.lottoced.com/f8/ambata-venezia-118744/ -
Dim colpi,casi,ini,fin,es
Dim n1(01),ruote(01),posta(01)
posta(01) = 1
ruote(01) = VE_
colpi = 12
casi = 00
ini = 08802
fin = EstrazioneFin
For es = ini To fin
Messaggio es
AvanzamentoElab ini,fin,es
If IndiceMensile(es) = 01 Then
casi = casi + 01
Scrivi String(105,"-") & " Caso n° " & Format2(casi),1
n1(01) = Fuori90(Estratto(es,NZ_,5) + 81)
ImpostaGiocata 1,n1,ruote,posta,colpi,1
Gioca es,True,,2
End If
Next
ScriviResoconto
End Sub