Sub main() 
Dim ruote(10)
Dim ruota(1) 
Dim numeri(2)
Dim numeri1(3) 
Dim poste(5)
Dim posta(5) 
poste(1)=1
poste(2)=1
posta(2)=1
posta(3)=1 
casi=0 
ruote(1)=1 
'ruote(2)=2
ruota(1)=11 
For n=9500 To EstrazioneFin 
If IndiceMensile(n)=1 Then 
Scrivi "------------------------------------------------------------------" 
Scrivi Left(NomeRuota(r1),2)&" "&n1&"  "&Left(NomeRuota(r2),2)&" "&n2 

numeri(1)=Fuori90(Estratto(n,5,1)+2) 
numeri(2)=Vert(numeri(1)) 
ImpostaGiocata 1,numeri,ruote,poste,12,0
'ImpostaGiocata 2,numeri,ruota,posta,12
numeri1(1)=numeri(1)
numeri1(2)=numeri(2)
numeri1(3)=Fuori90(numeri(1)+(numeri(2)))
ImpostaGiocata 3,numeri1,ruote,posta,12
ImpostaGiocata 4,numeri1,ruota,posta,12
Gioca n 
casi=casi+1 
End If 
Next 
Scrivi 
Scrivi "Numero Totale casi analizzati: "&casi 
'ScriviResoconto 
End Sub