Sub main()
Dim ruote(1)
Dim posta(1)
Dim num(90,2)
Dim uscito(90,2)
ruote(1)=1
posta(1)=1
colpi=13
r=1
ini=7849
fin=EstrazioneFin
Scrivi " Analisi dal "& DataEstrazione(ini)&" ad oggi"
Scrivi "Primi 10 più frequenti usciti dopo il numero Spia entro i 12 colpi"
For sp=1 To 90
	Messaggio " Spia: "&sp
	For i=1 To 90
		num(i,1)=0 : num(i,2)=0
	Next
	co=0
	For es=ini To fin
		If Posizione(es,r,sp)>0 Then
			co=co+1
			ess=es+colpi+1
			If ess>fin Then ess=fin End If 
			For a=es+1 To ess	
				For v=1 To 90
				uscito(v,2)=0
				Next 			
				For e=1 To 5
					n=Estratto(a,r,e)
					num(n,1)=n
					num(n,2)=num(n,2)+1
					uscito(n,1)=n
					uscito(n,2)=uscito(n,2)+1
					If uscito(n,2)>1 Then 
						num(n,2)=num(n,2)-1
						uscito(n,2)=1
					End If 
				Next			
			Next
		End If 
	Next
	OrdinaMatrice num, -1, 2
	per=Int((co/100)*65)
	Scrivi "_________________________________________________________________"
	Scrivi "Numero spia: "&sp&" su "& FormatSpace(NomeRuota(r),10)&" casi = "&co&"   colpi "& colpi
	Scrivi
	riga="Num.  "
	riga1="Freq. "
	For i=1 To 10		
			riga=riga & FormatSpace(num(i,1),4)&" "
			riga1=riga1 & FormatSpace(Eval(num(i,2)),4)&" " 		
	Next
	Scrivi riga
	Scrivi riga1
Next    
End Sub