Sub main()
Dim num(4)
Dim num1(6)
Dim num2(8)
Dim ruote(10)
Dim ruot(1)
Dim posta(2)
Dim poste(3)
Dim post(4)
posta(1)=1
'posta(2)=1
poste(2)=0.5
poste(3)=0.5
post(3)=0.5
post(4)=0.5
tmp=InputBox("Quante estrazioni controllo?",,100)
fin=EstrazioneFin
ini=fin-tmp
ruot(1)=11
For es=ini To fin
Messaggio CStr (EstrazioneFin - es)
For r=1 To 1
r1=r+1
For p= 2 To 2
a=Estratto (es,r,p)
b=Estratto (es,r1,p)
If Distanza(a,b)= 26 Then
Scrivi DataEstrazione(es),True
Scrivi Left(NomeRuota(r),2)&" "& StringaEstratti(es,r)& " ["&Format2(a)&"]"
Scrivi Left(NomeRuota(r+1),2)&" "& StringaEstratti(es,r+1)& " ["&Format2(b)&"]"



ruote(1)=8

num(1)=61

ImpostaGiocata 1,num,ruote,posta,12

num1(1)=61
num1(2)=45
num1(3)=1
num1(4)=12
num1(5)=18
num1(6)=3
ImpostaGiocata 2,num1,ruote,poste,12

num2(1)=61
num2(2)=45
num2(3)=1
num2(4)=12
num2(5)=18
num2(6)=3

ImpostaGiocata 3,num2,ruot,post,12

Gioca es
Scrivi"*****************************************"
End If
Next
Next
Next
ScriviResoconto
End Sub