Sub main()
Dim nu1(10),nu2(10)
Dim ruote(10),ruota(10)
Dim poste(5)
poste(2)=1
fin=EstrazioneFin
ini=fin-200
For es=ini To fin
AvanzamentoElab ini,fin,es
For r1=1 To 9
For p1=1 To 5
n1=Estratto(es,r1,p1)
For r2=r1+1 To 10
If r1+1=r2 Then
For p2=1 To 5
n2=Estratto(es,r2,p2)
If n1=n2 And p1=p2 Then
so=Fuori90(n1+n2):c1=91-so
x=c1
a1=Fuori90(x*7)
a2=Fuori90(x*13)
k1=Abs(x-1):a3=Fuori90(78*x-k1)
a4=91-x
c2=a2:x=c2
a1=Fuori90(x*7)
a2=Fuori90(x*13)
k1=Abs(x-1):a3=Fuori90(78*x-k1)
a4=91-x
casi=casi+1:Scrivi String(75,"="),1
Scrivi DataEstrazione(es,1)&" < "&siglaRuota(r1)& " "& StringaEstratti(es,r1)&_
" > 1° Numero..... "&Format2(n1)&"."
Scrivi DataEstrazione(es,1)&" < "&siglARuota(r2)& " "& StringaEstratti(es,r2)&_
" > 2° Numero..... "&Format2(n2)&". "
Scrivi String(65,"-")&" caso n° "&(casi)
ruote(1)=r1:ruote(2)=r2:ruote(3)=r3: k=14:co=0:ruota(1)=11:co=0
nu2(1)=c1
nu2(2)=a2
nu2(3)=a1
co=co+1
ImpostaGiocata co,nu2,ruote,poste,k
co=co+1
ImpostaGiocata co,nu2,ruota,poste,k
nu2(1)=c1
nu2(2)=a2
nu2(3)=a3
co=co+1
ImpostaGiocata co,nu2,ruote,poste,k
co=co+1
ImpostaGiocata co,nu2,ruota,poste,k
nu2(1)=c1
nu2(2)=a2
nu2(3)=a4
co=co+1
ImpostaGiocata co,nu2,ruote,poste,k
co=co+1
ImpostaGiocata co,nu2,ruota,poste,k
nu1(1)=x
nu1(2)=a1
nu1(3)=a2
nu1(4)=a3
nu1(5)=a4
co=co+1
ImpostaGiocata co,nu1,ruote,poste,k
Gioca es
End If
Next
End If
Next
Next
Next
Next
ScriviResoconto
End Sub
