Sub Main()
ColoreTesto 2
Scrivi " SPIA 79 a BARI con 2 Ambi e 6 Terzine BA-CA di - rob - ",1
Scrivi' By Pandit
ColoreTesto 0
Dim ruote(12),n(5)
Dim nm(6),poste(5),posta(3)
posta(2) = 1
posta(3) = 1
poste(2) = 1
poste(3) = 1
ruote(1) = 1:ruote(2) = 2
r = 1
spia = 79
For es = EstrazioneFin - 116 To EstrazioneFin
If Posizione(es,r,spia) > 0 Then
casi = casi + 1
co = co + 1
a = Estratto(es,2,1)
'***
b = Estratto(es,3,3)
c = Estratto(es,1,2)
d = Estratto(es,2,5)
e = Estratto(es,2,2)
f = Estratto(es,7,3)
g = Estratto(es,4,4)
h = Estratto(es,1,3)
ColoreTesto 1:Scrivi String(73,152) & " Caso n° " & casi,1
ColoreTesto 1:Scrivi DataEstrazione(es) & " --> " & IndiceMensile(es) & "° Estrazione Mensile" & " - " & StringaEstratti(es,1),1
ColoreTesto 0
k = 5
n(1) = Fuori90(a +11)
n(2) = Fuori90(b +38)
ImpostaGiocata 1,n,ruote,posta,k
n(1) = Fuori90(a +11)
n(2) = Fuori90((c + d)* e)
ImpostaGiocata 2,n,ruote,posta,k
nm(1) = Fuori90(a +11)
nm(2) = Fuori90(b +38)
nm(3) = Fuori90(f - g)
EliminaRipetuti nm
'***
ImpostaGiocata 3,nm,ruote,poste,k
nm(1) = Fuori90(a +11)
nm(2) = Fuori90(b +38)
nm(3) = Fuori90(a + 61)
EliminaRipetuti nm
'***
ImpostaGiocata 4,nm,ruote,poste,k
nm(1) = Fuori90(a +11)
nm(2) = Fuori90(b +38)
nm(3) = Fuori90(h * 28)
EliminaRipetuti nm
'***
ImpostaGiocata 5,nm,ruote,poste,k
nm(1) = Fuori90(a +11)
nm(2) = Fuori90((c + d)* e)
nm(3) = Fuori90(h * 28)
EliminaRipetuti nm
'***
ImpostaGiocata 6,nm,ruote,poste,k
nm(1) = Fuori90(a +11)
nm(2) = Fuori90((c + d)* e)
nm(3) = Fuori90(f - g)
EliminaRipetuti nm
'***
ImpostaGiocata 7,nm,ruote,poste,k
nm(1) = Fuori90(a +11)
nm(2) = Fuori90((c + d)* e)
nm(3) = Fuori90(a + 61)
EliminaRipetuti nm
ImpostaGiocata 8,nm,ruote,poste,k
Gioca es,1
End If
Next
ScriviResoconto
End Sub