..... 4° CA x78 ambo 86 - 42
Sub Main()
Dim number(2),number1(2),number2(2)
Dim ruote(12)
Dim posta(2)
'posta(1) = 1
posta(2) = 1
ruote(1) = 1
ruote(2) = 2
ruote(3) = 3
ruote(4) = 4
ruote(5) = 5
ruote(6) = 6
ruote(7) = 7
ruote(8) = 8
ruote(9) = 9
ruote(10) = 10
ruote(12) = 12
For n = 10780 To EstrazioneFin
If IndiceMensile

= 1 Then
number(1) = Fuori90(Estratto(n,4,1) + 54)
number(2) = Fuori90(Estratto(n,2,4) * 78)
number1(1) = Fuori90(Estratto(n,4,1) + 53)
number1(2) = Fuori90(Estratto(n,10,1) + 75)
number2(1) = Fuori90(Estratto(n,4,1) + 90)
number2(2) = Fuori90(Estratto(n,10,5) *16)
ImpostaGiocata 1,number,ruote,posta,12,2
ImpostaGiocata 2,number1,ruote,posta,12,2
ImpostaGiocata 3,number2,ruote,posta,12,2
Gioca n,2
End If
Next
End Sub