Sub Main()
ColoreTesto 1
Scrivi "========= M E T O D O B Y D a v i R R =================",1
ColoreTesto 0
Scrivi "=============== 3 AMBATE DOPO AMBO SPIA ===============",1
ColoreTesto 2
Scrivi "=================== M O D I F I C A ====================",1
ColoreTesto 1
Scrivi "============= BY B A F F O B L U ==============",1
ColoreTesto 2
Scrivi "================= + 5 QUARTINE X AMBO ====================",1
ColoreTesto 0
Scrivi "=====================P A L E R M O ========================",1
ColoreTesto 1
Scrivi "== INIZIO RICERCA: ANNO 1950 = FINE RICERCA: ANNO 2011 ==",1
Scrivi
ColoreTesto 0
Dim ruote(1)
Dim Nu(3)
Dim Nam(4)
Dim Nem(4)
Dim Nim(4)
Dim Nom(4)
Dim Num(4)
Dim posta(1)
Dim poste(10)
posta(1) = 10
poste(2) = 10
clp = 6
ini = EstrazioneFin - 4400
fin = EstrazioneFin
co = 0
For es = ini To fin
Messaggio es
ruote(1) = 7
For p = 1 To 4
For p1 = p + 1 To 5
a = Estratto(es,7,p)
b = Estratto(es,7,p1)
'-------------------------------------------------------------------
ok = 0
If a = 80 And b = 89 Or a = 89 And b = 80 Then
Nu(1) = 18
Nu(2) = 53
Nu(3) = 83
'-----------------------------------------------------------
Nam(1) = 18
Nam(2) = 53
Nam(3) = 83
Nam(4) = Fuori90(89 + 59)
'-----------------------------------------------------------
Nem(1) = 18
Nem(2) = 53
Nem(3) = 83
Nem(4) = Fuori90(89 + 82)
'-----------------------------------------------------------
Nim(1) = 18
Nim(2) = 53
Nim(3) = 83
Nim(4) = Fuori90(80 + 62)
'-----------------------------------------------------------
Nom(1) = 18
Nom(2) = 53
Nom(3) = 83
Nom(4) = Fuori90(80 + 64)
'-----------------------------------------------------------
Num(1) = 18
Num(2) = 53
Num(3) = 83
Num(4) = Fuori90(80 + 65)
'-----------------------------------------------------------
ok = 1
End If
If ok = 1 Then
co = co + 1
Scrivi String(70,"°") & " Caso n°" & co,1
Scrivi DataEstrazione(es) & " " & SiglaRuota(7) & " " & StringaEstratti(es,7) & " AMBO SPIA BY BAFFOBLU: " & a & " - " & b,1
Scrivi String(70,"°"),1
ruote(1) = 7
ImpostaGiocata 1,Nu,ruote,posta,clp,1
ImpostaGiocata 2,Nam,ruote,poste,clp,1
ImpostaGiocata 3,Nem,ruote,poste,clp,1
ImpostaGiocata 4,Nim,ruote,poste,clp,1
ImpostaGiocata 5,Nom,ruote,poste,clp,1
ImpostaGiocata 6,Num,ruote,poste,clp,1
Gioca es
End If
Next
Next
Next
TestoInBandaPassante " ***** LISTATO BY B A F F O B L U ***** ",1,3,0
ScriviResoconto
End Sub