Sub main()
Dim nu1(10),nu2(10)
Dim ruote(10),ruota(10)
Dim posta(5),poste(10)
poste(10)=1
posta(2)=1
fin=EstrazioneFin
ini=fin-200
For es=ini To fin
a1=0:a2=0:a3=0:a4=0
AvanzamentoElab ini,fin,es
For r1=1 To 10
For p1=1 To 4
n1=Estratto(es,r1,p1)
For p2=p1+1 To 5
n2=Estratto(es,r1,p2)
a1=Distanza(n1,n2)
If a1=45 Then
For r2=1 To 10
If r1<>r2 Then
For p3=1 To 5
If p3=p1 Or p3=p2 Then
n3=Estratto(es,r2,p3)
If n3=n1 Or n3=n2 Then
If n1=1 And n2=46 Or n1=46 And n2=1 Then a1=68:a2=54:a3=53:a4=9
If n1=2 And n2=47 Or n1=47 And n2=2 Then a1=55:a2=9:a3=54:a4=10
If n1=3 And n2=48 Or n1=48 And n2=3 Then a1=56:a2=10:a3=55:a4=78
If n1=4 And n2=49 Or n1=49 And n2=4 Then a1=57:a2=11:a3=56:a4=12
If n1=5 And n2=50 Or n1=50 And n2=5 Then a1=57:a2=12:a3=58:a4=13
If n1=6 And n2=51 Or n1=51 And n2=6 Then a1=59:a2=13:a3=58:a4=14
If n1=7 And n2=52 Or n1=52 And n2=7 Then a1=60:a2=14:a3=59:a4=15
If n1=8 And n2=53 Or n1=53 And n2=8 Then a1=1:a2=15:a3=16:a4=60
If n1=9 And n2=54 Or n1=54 And n2=9 Then a1=62:a2=16:a3=61:a4=17
If n1=10 And n2=55 Or n1=55 And n2=10 Then a1=17:a2=63:a3=18:a4=62
If n1=11 And n2=56 Or n1=56 And n2=11 Then a1=64:a2=18:a3=63:a4=19
If n1=12 And n2=57 Or n1=57 And n2=12 Then a1=65:a2=20:a3=64:a4=19
If n1=13 And n2=58 Or n1=58 And n2=13 Then a1=20:a2=21:a3=65:a4=66
If n1=14 And n2=59 Or n1=59 And n2=14 Then a1=21:a2=22:a3=66:a4=67
If n1=15 And n2=60 Or n1=60 And n2=15 Then a1=22:a2=23:a3=67:a4=68
If n1=16 And n2=61 Or n1=61 And n2=16 Then a1=23:a2=24:a3=68:a4=69
If n1=17 And n2=62 Or n1=62 And n2=17 Then a1=24:a2=25:a3=69:a4=70
If n1=18 And n2=63 Or n1=63 And n2=18 Then a1=25:a2=26:a3=70:a4=71
If n1=19 And n2=64 Or n1=64 And n2=19 Then a1=26:a2=27:a3=71:a4=72
If n1=20 And n2=65 Or n1=65 And n2=20 Then a1=27:a2=28:a3=72:a4=73
If n1=21 And n2=66 Or n1=66 And n2=21 Then a1=28:a2=29:a3=73:a4=74
If n1=22 And n2=67 Or n1=67 And n2=22 Then a1=29:a2=30:a3=74:a4=75
If n1=23 And n2=68 Or n1=68 And n2=23 Then a1=30:a2=31:a3=75:a4=76
If n1=24 And n2=69 Or n1=69 And n2=24 Then a1=31:a2=32:a3=76:a4=77
If n1=25 And n2=70 Or n1=70 And n2=25 Then a1=32:a2=33:a3=77:a4=78
If n1=26 And n2=71 Or n1=71 And n2=26 Then a1=33:a2=34:a3=78:a4=79
If n1=27 And n2=72 Or n1=72 And n2=27 Then a1=34:a2=35:a3=79:a4=80
If n1=28 And n2=73 Or n1=73 And n2=28 Then a1=35:a2=36:a3=80:a4=81
If n1=29 And n2=74 Or n1=74 And n2=29 Then a1=36:a2=37:a3=81:a4=82
If n1=30 And n2=75 Or n1=75 And n2=30 Then a1=37:a2=38:a3=82:a4=83
If n1=31 And n2=76 Or n1=76 And n2=31 Then a1=38:a2=39:a3=83:a4=84
If n1=32 And n2=77 Or n1=77 And n2=32 Then a1=39:a2=40:a3=84:a4=85
If n1=33 And n2=78 Or n1=78 And n2=33 Then a1=40:a2=41:a3=85:a4=86
If n1=34 And n2=79 Or n1=79 And n2=34 Then a1=41:a2=42:a3=86:a4=87
If n1=35 And n2=80 Or n1=80 And n2=35 Then a1=42:a2=43:a3=87:a4=88
If n1=36 And n2=81 Or n1=81 And n2=36 Then a1=43:a2=44:a3=88:a4=89
If n1=37 And n2=82 Or n1=82 And n2=37 Then a1=44:a2=45:a3=89:a4=90
If n1=38 And n2=83 Or n1=83 And n2=38 Then a1=45:a2=46:a3=90:a4=1
If n1=39 And n2=84 Or n1=84 And n2=39 Then a1=46:a2=47:a3=1:a4=2
If n1=40 And n2=85 Or n1=85 And n2=40 Then a1=47:a2=48:a3=2:a4=3
If n1=41 And n2=86 Or n1=86 And n2=41 Then a1=48:a2=49:a3=3:a4=4
If n1=42 And n2=87 Or n1=87 And n2=42 Then a1=49:a2=50:a3=4:a4=5
If n1=43 And n2=88 Or n1=88 And n2=43 Then a1=50:a2=51:a3=5:a4=6
If n1=44 And n2=89 Or n1=89 And n2=44 Then a1=51:a2=52:a3=6:a4=7
If n1=45 And n2=90 Or n1=90 And n2=45 Then a1=52:a2=53:a3=7:a4=8
casi=casi+1:Scrivi String(75,"="),1
Scrivi DataEstrazione(es,1)&" < "&siglaRuota(r1)& " "& StringaEstratti(es,r1)&_
" > Primo Numero < "&Format2 (n1)&" . "&Format2 (n2)&".....pos. "&Format2 (p1)&" . "&Format2 (p2)&" . "
Scrivi DataEstrazione(es,1)&" < "&siglARuota(r2)& " "& StringaEstratti(es,r2)&_
" > Numero Ugua. < "&Format2 (n3)&" .........pos. "&Format2 (p3)&".... Dis. "&Format2 (a1)&" . "
Scrivi String(65,"-")&" caso n° "&(casi)
b1=Fuori90(n1+n2)
:ruote(2)=r2:k=18:co=0:ruote(1)=r1
nu1(1)=b1
nu1(2)=Vert(b1)
poste(2)=1 : poste(p1+5)=1 : poste(p2+5)=1
co=co+1
ImpostaGiocata co,nu1,ruote,poste,k
Erase Poste
nu2(1)=b1
nu2(2)=Vert(b1)
nu2(3)=a1
co=co+1
ImpostaGiocata co,nu2,ruote,posta,k
nu2(1)=b1
nu2(2)=Vert(b1)
nu2(3)=a2
co=co+1
ImpostaGiocata co,nu2,ruote,posta,k
nu2(1)=b1
nu2(2)=Vert(b1)
nu2(3)=a3
co=co+1
ImpostaGiocata co,nu2,ruote,posta,k
nu2(1)=b1
nu2(2)=Vert(b1)
nu2(3)=a4
co=co+1
ImpostaGiocata co,nu2,ruote,posta,k
Gioca es
End If
End If
Next
End If
Next
End If
Next
Next
Next
Next
ScriviResoconto
End Sub
