'cabala del frate cappuccino

Sub main()
Dim ruote(10)
Dim numeri1(2)
Dim numeri2(10)
Dim numeri3(5)
Dim numeri4(5)
Dim ruot(1)
Dim posta(10)
Dim poste(5)
Dim post(5)
posta(1)=1 : posta(6)=1 : posta(8)=1
poste(2)=1 : poste(3)=1 : poste(4)=1
post(2)=1 : post(3)=1
k=13
y=0
r=CInt (InputBox ("Ruota??",,1))
For n=9260 To EstrazioneFin
If IndiceMensile(n+1)=1 Then
Scrivi String(58,"-")
ColoreTesto 2

Scrivi DataEstrazione(n,r)&" "& SiglaRuota(r)& " "& StringaEstratti(n,r)&" ",1

s1=Estratto(n,r,1)
s2=Vert(s1)
s3=Figura(Estratto(n,r,3))
s4=Fuori90(s3*(Estratto(n,r,1)))
s5=Fuori90(s3*(Estratto(n,r,5)))
s6=Abs(s4-2)
s7=Abs(s5-2)

ruote(1)=6
numeri1(1)=s1
numeri1(2)=s2
ImpostaGiocata 1,numeri1,ruote,posta,k,y

numeri2(1)=s1
numeri2(2)=s2
numeri2(3)=s3
numeri2(4)=s4
numeri2(5)=s5
numeri2(6)=s6
numeri2(7)=s7
EliminaRipetuti numeri2

'ImpostaGiocata 2,numeri2,ruote,poste,k,y
numeri3(1)=s2
'numeri3(2)=s3
numeri3(3)=s4
numeri3(4)=s5
ImpostaGiocata 3,numeri3,ruote,poste,k,y
numeri4(1)=s2
'numeri4(2)=s3
numeri4(3)=s6
numeri4(4)=s7
ImpostaGiocata 4,numeri4,ruote,poste,k,y

numeri2(1)=s1
numeri2(2)=s2
'numeri2(3)=s3
numeri2(4)=s4
numeri2(5)=s5
numeri2(6)=s6
numeri2(7)=s7

 ruot(1)=11
ImpostaGiocata 5,numeri2,ruot,post,k,y

Gioca n
End If
Next

'ScriviResoconto
End Sub