7° del mese BARI

Sub main()
Dim ruote(10)
Dim ruote2(10)
Dim numeri1(10)
Dim numeri2(10)
Dim numeri3(10)
Dim numeri4(10)
Dim numeri5(10)
Dim numeri6(10)
Dim posta(5)
Dim posta1(5)
posta(2)=1
posta1(1)=2


For n=EstrazioneFin-200 To EstrazioneFin
If IndiceMensile(n)=7 Then
Scrivi String(65,"*")
Scrivi " 7° estr. mensile BARI by DjNomade ",1
ColoreTesto 2 : scrivi"gioca da " &DataEstrazione(n+1,1),1
ColoreTesto 0 : Scrivi String(65,"-"),1
ruote(1)=1

a=Fuori90( Estratto(n,6,4)+Estratto(n,9,4)+5)'AMBATA 1
a1=Fuori90( Estratto(n,1,5)+Estratto(n,3,4)+59)
a2=Fuori90( Estratto(n,7,2)+Estratto(n,8,1)+41)
a3=Fuori90( Estratto(n,2,5)+Estratto(n,6,2)+11)
a4=Fuori90( Estratto(n,10,2)+Estratto(n,12,1)+24)

b=Fuori90( Estratto(n,5,4)+Estratto(n,6,3)+42)'AMBATA 2

numeri1(1)=a
numeri1(2)=b
ImpostaGiocata 1,numeri1,ruote,posta1,6


numeri1(1)=a
numeri1(2)=a1
ImpostaGiocata 2,numeri1,ruote,posta,6

numeri2(1)=a
numeri2(2)=a2
ImpostaGiocata 3,numeri2,ruote,posta,6

numeri1(1)=a
numeri1(2)=a3
ImpostaGiocata 4,numeri1,ruote,posta,6

numeri2(1)=a
numeri2(2)=a4
ImpostaGiocata 5,numeri2,ruote,posta,6
numeri1(1)=b
numeri1(2)=a1
ImpostaGiocata 6,numeri1,ruote,posta,6

numeri2(1)=b
numeri2(2)=a2
ImpostaGiocata 7,numeri2,ruote,posta,6

numeri1(1)=b
numeri1(2)=a3
ImpostaGiocata 8,numeri1,ruote,posta,6

numeri2(1)=b
numeri2(2)=a4
ImpostaGiocata 9,numeri2,ruote,posta,6

Gioca n
End If
Next
ScriviResoconto
End Sub