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 Fuori90(a+b)= 23 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
ruote(2)=9

num(1)=59

ImpostaGiocata 1,num,ruote,posta,12

num1(1)=59
num1(2)=6
num1(3)=25
num1(4)=10
num1(5)=58
ImpostaGiocata 2,num1,ruote,poste,12

num2(1)=59
num2(2)=6
num2(3)=25
num2(4)=10
num2(5)=58

ImpostaGiocata 3,num2,ruot,post,12

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