quote:
Sub main()
Dim ruote(2)
Dim ruota(1)
Dim numeri1(2)
Dim numeri2(2)
Dim numeri3(2)
Dim numeri4(2)
Dim numeri5(8)
Dim posta(2)
Dim poste(5)
posta(2)=1
poste(3)=10
ruote(1)=1
ruote(2)=2
ruota(1)=11
c=10
k1=2
k2=3
For n=7201 To EstrazioneFin
If IndiceMensile(n+1)=1 Then
numeri1(1)=Fuori90(Estratto(n,1,1)+26)
numeri1(2)=Fuori90(Estratto(n,5,5)+42)
ImpostaGiocata 1,numeri1,ruote,posta,c,k1
numeri2(1)=Fuori90(Estratto(n,1,1)+1)
numeri2(2)=Fuori90(Estratto(n,10,1)+20)
ImpostaGiocata 2,numeri2,ruote,posta,c,k1
numeri3(1)=Fuori90(Estratto(n,1,1)+41)
numeri3(2)=Fuori90(Estratto(n,8,5)+15)
ImpostaGiocata 3,numeri3,ruote,posta,c,k1
numeri4(1)=Fuori90(Estratto(n,1,1)+7)
numeri4(2)=Fuori90(Estratto(n,3,4)+20)
ImpostaGiocata 4,numeri4,ruote,posta,c,k1
numeri5(1)=Fuori90(Estratto(n,1,1)+26)
numeri5(2)=Fuori90(Estratto(n,5,5)+42)
numeri5(3)=Fuori90(Estratto(n,1,1)+1)
numeri5(4)=Fuori90(Estratto(n,10,1)+20)
numeri5(5)=Fuori90(Estratto(n,1,1)+41)
numeri5(6)=Fuori90(Estratto(n,8,5)+15)
numeri5(7)=Fuori90(Estratto(n,1,1)+7)
numeri5(8)=Fuori90(Estratto(n,3,4)+20)
ImpostaGiocata 5,numeri5,ruota,poste,c,k2
For int1=1 To 4
For int2=1 To 4
ImpostaInterruzioni int1,int2,k1
ImpostaInterruzioni int1,1,k1
Next
Next
Gioca n
End If
Next
ScriviResoconto
End Sub