venezia

[Roby]

Sub main()
Dim ruote(10)
Dim numeri(10)
Dim numeri1(10)
Dim posta(5)
posta(1)=1
posta(2)=1
posta(3)=1
posta(4)=1
posta(5)=1
ruote(1)=10
For es=EstrazioneFin -580 To EstrazioneFin
If IndiceMensile(es)=3 Then
numeri(1)=Fuori90(Figura(Estratto (es,9,1))+Estratto (es,9,4)+46)
numeri(2)=Fuori90(Decina(Estratto(es,9,2))+Estratto(es,2,4)+20)
numeri(3)=Fuori90(Vert (Estratto(es,12,3))+Estratto(es,4,3)+25)
numeri(4)=Fuori90(91-(Estratto(es,2,5))+Estratto(es,7,4)+1)
numeri(5)=Fuori90(Figura (Estratto(es,5,4))+Estratto(es,9,3)+23)
ImpostaGiocata 1,numeri,ruote,posta,12
numeri(1)=Fuori90(Cadenza (Estratto (es,5,5))+Estratto (es,4,4)+53)
numeri(2)=Fuori90(DiametraleD(Estratto (es,1,3))+Estratto (es,3,4)+38)
numeri(3)=Fuori90(Cadenza (Estratto (es,8,2))+Estratto (es,10,2)+2)
numeri(4)=Fuori90((Estratto (es,7,2))+Estratto (es,10,5)+1)
numeri(5)=Fuori90(91-(Estratto(es,2,1))+46)
ImpostaGiocata 2,numeri,ruote,posta,12
numeri(1)=Fuori90(Vert(Estratto(es,5,4))+Estratto(es,6,3)+66)
numeri(2)=Fuori90(Figura(Estratto(es,8,1))+Estratto(es,12,5)+30)
numeri(3)=Fuori90((Estratto(es,6,1))+Estratto(es,4,5)+1)
numeri(4)=Fuori90((Estratto(es,6,1))+Estratto(es,4,2)+5)
numeri(5)=Fuori90(DiametraleD (Estratto(es,5,1))+Estratto(es,10,2)+71)
ImpostaGiocata 3,numeri,ruote,posta,12
numeri(1)=Fuori90(Vert(Estratto(es,1,4))+Estratto(es,1,2)+04)
numeri(2)=Fuori90(DiametraleD(Estratto(es,6,2))+Estratto(es,10,1)+15)
numeri(3)=Fuori90(Cadenza(Estratto (es,1,3))+Estratto(es,1,5)+5)
numeri(4)=Fuori90(Estratto(es,8,5)+Estratto(es,12,1)+4)
numeri(5)=Fuori90(Cadenza(Estratto (es,12,5))+Estratto(es,8,5)+85)
ImpostaGiocata 4,numeri,ruote,posta,12
Gioca es
End If
Next
ScriviResoconto 1
ScriviResoconto 2
ScriviResoconto 3
ScriviResoconto 4
ScriviResoconto tot

End Sub
Sub main()
Dim ruote(10)
Dim numeri1(10)
Dim numeri(10)
Dim posta(5)



posta(2)=1
posta(5)=1
ruote(1)=11

For es=7972 To EstrazioneFin
If IndiceMensile(es+1)=8 Then
f=0
k=350


numeri(2)=Fuori90(Estratto(es,1,1)+Estratto(es,1,3)+f)
numeri(3)=Fuori90(Estratto(es,1,1)+Estratto(es,1,4)+f)
numeri(4)=Fuori90(Estratto(es,1,1)+Estratto(es,1,5)+f)
numeri(5)=Fuori90(Estratto(es,1,2)+Estratto(es,1,3)+f)
numeri(6)=Fuori90(Estratto(es,1,1)+Estratto(es,1,2)+f)
numeri(7)=Fuori90(Estratto(es,1,2)+Estratto(es,1,4)+f)
numeri(8)=Fuori90(Estratto(es,1,2)+Estratto(es,1,5)+f)
numeri(9)=Fuori90(Estratto(es,1,3)+Estratto(es,1,4)+f)
numeri(10)=Fuori90(Estratto(es,1,3)+Estratto(es,1,5)+f)
numeri(1)=Fuori90(Estratto(es,1,4)+Estratto(es,1,5)+f)
ImpostaGiocata 1,numeri,ruote,posta,k,2
numeri(2)=Fuori90(Estratto(es,2,1)+Estratto(es,2,3)+f)
numeri(3)=Fuori90(Estratto(es,2,1)+Estratto(es,2,4)+f)
numeri(4)=Fuori90(Estratto(es,2,1)+Estratto(es,2,5)+f)
numeri(5)=Fuori90(Estratto(es,2,2)+Estratto(es,2,3)+f)
numeri(6)=Fuori90(Estratto(es,2,1)+Estratto(es,2,2)+f)
numeri(7)=Fuori90(Estratto(es,2,2)+Estratto(es,2,4)+f)
numeri(8)=Fuori90(Estratto(es,2,2)+Estratto(es,2,5)+f)
numeri(9)=Fuori90(Estratto(es,2,3)+Estratto(es,2,4)+f)
numeri(10)=Fuori90(Estratto(es,2,3)+Estratto(es,2,5)+f)
numeri(1)=Fuori90(Estratto(es,2,4)+Estratto(es,2,5)+f)
ImpostaGiocata 2,numeri,ruote,posta,k,2
numeri(2)=Fuori90(Estratto(es,3,1)+Estratto(es,3,3)+f)
numeri(3)=Fuori90(Estratto(es,3,1)+Estratto(es,3,4)+f)
numeri(4)=Fuori90(Estratto(es,3,1)+Estratto(es,3,5)+f)
numeri(5)=Fuori90(Estratto(es,3,2)+Estratto(es,3,3)+f)
numeri(6)=Fuori90(Estratto(es,3,1)+Estratto(es,3,2)+f)
numeri(7)=Fuori90(Estratto(es,3,2)+Estratto(es,3,4)+f)
numeri(8)=Fuori90(Estratto(es,3,2)+Estratto(es,3,5)+f)
numeri(9)=Fuori90(Estratto(es,3,3)+Estratto(es,3,4)+f)
numeri(10)=Fuori90(Estratto(es,3,3)+Estratto(es,3,5)+f)
numeri(1)=Fuori90(Estratto(es,3,4)+Estratto(es,3,5)+f)
ImpostaGiocata 3,numeri,ruote,posta,k,2
numeri(2)=Fuori90(Estratto(es,4,1)+Estratto(es,4,3)+f)
numeri(3)=Fuori90(Estratto(es,4,1)+Estratto(es,4,4)+f)
numeri(4)=Fuori90(Estratto(es,4,1)+Estratto(es,4,5)+f)
numeri(5)=Fuori90(Estratto(es,4,2)+Estratto(es,4,3)+f)
numeri(6)=Fuori90(Estratto(es,4,1)+Estratto(es,4,2)+f)
numeri(7)=Fuori9