Sub Main() ColoreTesto 1
Scrivi
ColoreTesto 0
Dim ruota(2)
Dim ambata(1)
Dim ambo1(2),ambo2(2),ambo3(2),ambo4(2),ambo5(2)
Dim poste(1)
Dim posta(2)
poste(1) = 1
posta(2) = 1
ruota(1) = 1
r = 12
spia = 9
klp = 10
ini = 8740
ee = 190
fin = EstrazioneFin
ini = EstrazioneFin - ee
For es = ini To fin
If Posizione(es,r,spia) > 0 Then
casi = casi + 1
co = co + 1
ColoreTesto 1:Scrivi String(100,"*") & " Caso n° " & casi,1
Scrivi "METODO FATA65 SPIA 9 NAZIONALE GIOCARE AMBATA AMBI SU BARI -------- LISTATO BY ROY COLPI 10",1
ColoreTesto 1:Scrivi DataEstrazione(es) & "--->" & IndiceMensile(es) & "° Estrazione Mensile",1
ColoreTesto 0
a = Fuori90(Estratto(es,PA_,3) + 14)
b = Fuori90(Estratto(es,NA_,4) + 22)
c = Fuori90(Estratto(es,BA_,3) + 68)
d = Fuori90(Estratto(es,MI_,3) + 35)
e = Fuori90(Estratto(es,CA_,4) + 01)
f = Fuori90(Estratto(es,BA_,3) + 01)
ambata(1) = a
ImpostaGiocata 1,ambata,ruota,poste,klp
ambo1(1) = a
ambo1(2) = b
ImpostaGiocata 2,ambo1,ruota,posta,klp
ambo2(1) = a
ambo2(2) = c
ImpostaGiocata 3,ambo2,ruota,posta,klp
ambo3(1) = a
ambo3(2) = d
ImpostaGiocata 4,ambo3,ruota,posta,klp
ambo4(1) = a
ambo4(2) = e
ImpostaGiocata 5,ambo4,ruota,posta,klp
ambo5(1) = a
ambo5(2) = f
ImpostaGiocata 6,ambo5,ruota,posta,klp
Gioca es,True
End If
Next
Scrivi:Scrivi:Scrivi:Scrivi:Scrivi "Casi Rilevati " & CInt(co)
ColoreTesto 0
Scrivi String(65,"•")
TestoInBandaPassante " ***** Listato by ROY ***** ",1,3,0
ScriviResoconto
End Sub
