ColoreTesto 1
Scrivi String(37,32) & " 1° del mese  ",1
Scrivi

ColoreTesto 0

Sub main()
Dim ruote(10),amb(2),amb2(5),ruotee(10),ruota(10)
Dim numeri1(5),numeri2(5),numeri3(10),numeri4(5),numeri5(10)
Dim posta(10) 
Dim poste(5)


poste(2)=1 
poste(3)=1 
 

cp=13


ini=10178
fin=EstrazioneFin
For n=ini To fin

If Indicemensile(n) =1  Then
Messaggio DataEstrazione (n)



If Mese(n)=1 Or Mese(n)=2 Then numeri2(1)=Fuori90(Estratto(n,1,2)+13):numeri2(2)=Fuori90(Estratto(n,1,2)+4):numeri2(3)=Fuori90(Estratto(n,1,3)+6):ruote(1)=1
If Mese(n)=1 Or Mese(n)=2 Then numeri1(1)=Fuori90(Estratto(n,1,3)+22):numeri1(2)=Fuori90(Estratto(n,1,1)+3):numeri1(3)=Fuori90(Estratto(n,1,2)+31)

If Mese(n)=3 Or Mese(n)=4 Then numeri2(1)=Fuori90(Estratto(n,1,2)+13):numeri2(2)=Fuori90(Estratto(n,1,2)+4):numeri2(3)=Fuori90(Estratto(n,1,3)+6):ruote(1)=1
If Mese(n)=3 Or Mese(n)=4 Then numeri1(1)=Fuori90(Estratto(n,1,3)+22):numeri1(2)=Fuori90(Estratto(n,1,1)+3):numeri1(3)=Fuori90(Estratto(n,1,2)+31)

If Mese(n)=5 Or Mese(n)=6 Then numeri2(1)=Fuori90(Estratto(n,1,2)+13):numeri2(2)=Fuori90(Estratto(n,1,2)+4):numeri2(3)=Fuori90(Estratto(n,1,3)+6):ruote(1)=1
If Mese(n)=5 Or Mese(n)=6 Then numeri1(1)=Fuori90(Estratto(n,1,3)+22):numeri1(2)=Fuori90(Estratto(n,1,1)+3):numeri1(3)=Fuori90(Estratto(n,1,2)+31)

If Mese(n)=7 Or Mese(n)=8 Then numeri2(1)=Fuori90(Estratto(n,1,2)+13):numeri2(2)=Fuori90(Estratto(n,1,2)+4):numeri2(3)=Fuori90(Estratto(n,1,3)+6):ruote(1)=1
If Mese(n)=7 Or Mese(n)=8 Then numeri1(1)=Fuori90(Estratto(n,1,3)+22):numeri1(2)=Fuori90(Estratto(n,1,1)+3):numeri1(3)=Fuori90(Estratto(n,1,2)+31)

If Mese(n)=9 Or Mese(n)=10 Then numeri2(1)=Fuori90(Estratto(n,1,2)+13):numeri2(2)=Fuori90(Estratto(n,1,2)+4):numeri2(3)=Fuori90(Estratto(n,1,3)+6):ruote(1)=1
If Mese(n)=9 Or Mese(n)=10 Then numeri1(1)=Fuori90(Estratto(n,1,3)+22):numeri1(2)=Fuori90(Estratto(n,1,1)+3):numeri1(3)=Fuori90(Estratto(n,1,2)+31)

If Mese(n)=11 Or Mese(n)=12 Then numeri2(1)=Fuori90(Estratto(n,1,2)+13):numeri2(2)=Fuori90(Estratto(n,1,2)+4):numeri2(3)=Fuori90(Estratto(n,1,3)+6):ruote(1)=1
If Mese(n)=11 Or Mese(n)=12 Then numeri1(1)=Fuori90(Estratto(n,1,3)+22):numeri1(2)=Fuori90(Estratto(n,1,1)+3):numeri1(3)=Fuori90(Estratto(n,1,2)+31)

Rem se uno o più numeri si ripetono si fa il + 1 (Formula By Thauk)
rip = 0
If NumeriRipetuti(numeri2) Then
rip = 1
While NumeriRipetuti(numeri2)
For x = 1 To 2
For y = x + 1 To 3
If numeri2(x) = numeri2(y) Then numeri2(y) = Fuori90(numeri2(y) + 1)
Next
Next
Wend
End If
Rem fine formula





Rem se uno o più numeri si ripetono si fa il + 1 (Formula By Thauk)
rip = 0
If NumeriRipetuti(numeri1) Then
rip = 1
While NumeriRipetuti(numeri1)
For x = 1 To 2
For y = x + 1 To 3
If numeri1(x) = numeri1(y) Then numeri1(y) = Fuori90(numeri1(y) + 1)
Next
Next
Wend
End If
Rem fine formula







 ColoreTesto 2 :Scrivi "--1° estrazione del mese   ---------------------------",1
ColoreTesto 0
Scrivi
ruotee(1)=ruote(1)
ruotee(2)=11
ruotee(3)=12


amb2(1)=numeri2(1)
amb2(2)=numeri2(2)
amb2(3)=numeri2(3)
ImpostaGiocata 1,amb2,ruotee,poste,eval(cp)

amb2(1)=numeri1(1)
amb2(2)=numeri1(2)
amb2(3)=numeri1(3)
ImpostaGiocata 2,amb2,ruotee,poste,eval(cp)


Gioca n
End If

Next
Scrivi

ScriviResoconto
ColoreTesto 2

End Sub