Sub Main()
	Dim ru(2)
	Dim ru1(10)
	Dim n(90,2)
	Dim ambi(4005,5)
	Dim nn(2)
	Dim ambi1(4005,5)
	Dim nn1(2)
	r = CInt(InputBox("Quale ruota esamino?","Numeri spia",1))
	n1 = CInt(InputBox("Quale numero?","Numeri spia",1))
	dec = CInt(InputBox("Quale decina?","Numeri spia",1))
	id = dec - 1
      
	'p = CInt(InputBox("In che posizione?","Numeri spia",1))
	ee = CInt(InputBox("Estrazioni da controllare?","Numeri spia",1000))
	c = CInt(InputBox("Per quanti colpi?","Numeri spia",7))
	casi = 0
	co = 0
	fin = EstrazioneFin
	ini = EstrazioneFin - ee
	For es = ini To fin
	For p = 1 To 5
		a = Estratto(es,r,p)
		If a = n1 Then
			casi = casi + 1
			ess = es + c
			If ess > fin Then ess = fin End If
			For x = es + 1 To ess
				cc = 0
				For pp = 1 To 5
					d = Estratto(x,r,pp)
					n(d,1) = d
					n(d,2) = n(d,2) + 1
					cc = 1
				Next
			Next
			co = 0			
			For x = (id*10+1) To (id*10+9)
				For y = x + 1 To (id*10+10)
					co = co + 1
					nn(1) = x
					nn(2) = y
					ru(1) = r
					ambi(co,1) = co
					ambi(co,2) = x
					ambi(co,3) = y
					yy = SerieFreq(es + 1,ess,nn,ru,2)
					ambi(co,4) = ambi(co,4) + yy
					If yy > 0 Then
						ambi(co,5) = ambi(co,5) + 1
					Else
						ambi(co,5) = ambi(co,5)
					End If
					nn1(1) = x
					nn1(2) = y
					ru1(1) = 11
					ambi1(co,1) = co
					ambi1(co,2) = x
					ambi1(co,3) = y
					xx = SerieFreq(es + 1,ess,nn1,ru1,2)
					ambi1(co,4) = ambi1(co,4) + xx
					If xx > 0 Then
						ambi1(co,5) = ambi1(co,5) + 1
					Else
						ambi1(co,5) = ambi1(co,5)
					End If
				Next
			Next
		End If
	Next
	Next
		Scrivi
		Scrivi "Analisi dal " & DataEstrazione(ini) & " al " & DataEstrazione(EstrazioneFin),1
		Scrivi "NUMERO SPIA " & CInt(n1) & " su " & NomeRuota(r) & " in " & p & "° posizione",1
		Scrivi "N° casi: " & CInt(casi),1
		Scrivi
		Scrivi " Frequenti nei " & c & " colpi successivi",1
		OrdinaMatrice n,- 1,2
		OrdinaMatrice ambi,- 1,5
		OrdinaMatrice ambi1,- 1,5
		ColoreTesto 1
		Scrivi
		Scrivi "Num.Ruota|Ambi/dec/Ru | Ambi a Tutte"
		ColoreTesto 2
		Scrivi "  N° Fr  |  Ambo Fr   | Ambo Fr"
		ColoreTesto 0
		For x = 1 To 90
			riga = " " & Format2(n(x,1)) & "..." & Format2(n(x,2)) & " | " & Format2(ambi(x,2)) & "-" & _
			Format2(ambi(x,3)) & "..." & Format2(ambi(x,5)) & " | " & _
			Format2(ambi1(x,2)) & "-" & Format2(ambi1(x,3)) & "..." & ambi1(x,5)
			Scrivi riga
			riga = ""
		Next
		Scrivi "******************************************************************"
		For cc = 1 To 90
			n(cc,1) = 0
			n(cc,2) = 0
Next
End Sub