X chi cerca convergenze su BA-VE

Sub Main
Dim ruote(2)
Dim posta(1)
Dim poste(2)
Dim n(4)
ruote(1)=1
ruote(2)=10
posta(1)=5
poste(2)=1
Ini=8300
fin=EstrazioneFin
co=0
For es=Ini To fin
AvanzamentoElab Ini,fin,es
a1=Estratto(es,1,1)
a2=Estratto(es,1,2)
a3=Estratto(es,1,3)
a4=Estratto(es,1,4)
a5=Estratto(es,1,5)
b1=Estratto(es,10,1)
b2=Estratto(es,10,2)
b3=Estratto(es,10,3)
b4=Estratto(es,10,4)
b5=Estratto(es,10,5)
a=Fuori90(a2+b3+a4)
b=Fuori90(b2+a3+b4)
c=Fuori90(a+b)
d= Distanza(a,b)
e=Vert(c)
f=Vert(d)
co=co+1
n(1)=c
n(2)=d
n(3)=e
n(4)=f
ImpostaGiocata 1,n,ruote,posta,12,1
ImpostaGiocata 2,n,ruote,poste,12,2
Gioca es
Next
Scrivi
Scrivi String(65,"*")
ColoreTesto 2
Scrivi" casi trovati : " & co,1
ColoreTesto 0
Scrivi String(65," * ")
TestoInBandaPassante "*°*°* Listato by Pink_Panther *°*°* " ,1,3,0
ScriviResoconto
End Sub

Sub Main
Dim ruote(2)
Dim posta(1)
Dim poste(2)
Dim n(4)
ruote(1) = 3
ruote(2) = 8
posta(1) = 5
poste(2) = 1
Ini = 8300
fin = EstrazioneFin
co = 0
For es = Ini To fin
AvanzamentoElab Ini,fin,es
a1 = Estratto(es,3,1)
a2 = Estratto(es,3,2)
a3 = Estratto(es,3,3)
a4 = Estratto(es,3,4)
a5 = Estratto(es,3,5)
b1 = Estratto(es,8,1)
b2 = Estratto(es,8,2)
b3 = Estratto(es,8,3)
b4 = Estratto(es,8,4)
b5 = Estratto(es,8,5)
a = Fuori90(a2 + b3 + a4)
b = Fuori90(b2 + a3 + b4)
c = Fuori90(a + b)
d = Distanza(a,b)
e = Vert(c)
f = Vert(d)
co = co + 1
n(1) = c
n(2) = d
n(3) = e
n(4) = f
ImpostaGiocata 1,n,ruote,posta,12,1
ImpostaGiocata 2,n,ruote,poste,12,2
Gioca es
Next
Scrivi
Scrivi String(65,"*")
ColoreTesto 2
Scrivi" casi trovati : " & co,1
ColoreTesto 0
Scrivi String(65," * ")
TestoInBandaPassante "*°*°* Listato by Pink_Panther *°*°* ",1,3,0
ScriviResoconto
End Sub