Sub main()
Dim nu1(10),nu4(10),nu2(10)
Dim ruote(10),ruota(10)
Dim poste(10),posta(5)
poste(1)=1
posta(2)=1
posta(3)=1
fin=EstrazioneFin
ini=fin-200
For es=ini To fin
AvanzamentoElab ini,fin,es
For r1=1 To 10
For p1=1 To 4
For p2=p1+1 To 5
n1=Estratto(es,r1,p1)
n2=Estratto(es,r1,p2)
For r2=r1+1 To 11
If r2=11 Then r2=12
For p3=1 To 4
For p4=p3+1 To 5
n3=Estratto(es,r2,p3)
n4=Estratto(es,r2,p4)
If n1=n3 And n2=n4 And p1=p3 And p2=p4 Then
c1=Massimo(n1,n2)
c2=Minimo(n1,n2)
c3=Fuori90(c1+c1)
c4=Fuori90(c2+c2)
c5=Abs(c3-c4)
c6=Int(c5/2)
c7=Massimo(c3,c4)
c8=Minimo(c3,c4)
c9=Fuori90(Abs(c7-c6))
c10=Fuori90(c8+c6)
If c9=c10 Then
x1=Fuori90(n1+c9)
x2=Fuori90(n2+c9)
x5=Fuori90(x1+x2)
casi=casi+1:Scrivi String(75,"="),1
Scrivi DataEstrazione(es,1)&" < "&siglaRuota(r1)& " "& StringaEstratti(es,r1)&_
" > ambo ripetuto . "&Format2(n1)&"."&Format2 (n2)&" Pos. "&Format2(p1)&"."&Format2 (p2)&" ."
Scrivi DataEstrazione(es,1)&" < "&siglARuota(r2)& " "& StringaEstratti(es,r2)&_
" > ambo ripetuto < "&Format2(n3)&"."&Format2 (n4)&" Pos. "&Format2(p3)&"."&Format2 (p4)&" ."
Scrivi String(65,"-")&" caso n° "&(casi)
ruote(1)=r1:ruote(2)=r2:k=13:co=0:ruota(1)=11:ruote(3)=12
nu4(1)=x2
poste(1)=1 : poste(p1+5)=1 : poste(p2+5)=1
co=co+1
ImpostaGiocata co,nu4,ruote,poste,k
Erase poste
nu2(1)=x2:nu2(2)=x5:nu2(3)=x1
co=co+1
ImpostaGiocata co,nu2,ruote,posta,k
co=co+1
ImpostaGiocata co,nu2,ruota,posta,k
Gioca es
End If
End If
Next
Next
Next
Next
Next
Next
Next
ScriviResoconto
End Sub
