Non ci sono esempi reali non so' se è corretto
Ciauz
' 29-10-2025 
'http://www.nonsololotto.com/topic.asp?TOPIC_ID=47034
ColoreTesto 2
Scrivi String(37,32) & "Ambi isotopi stessa Distanza 45 by MATTEO SEFANO SIMONE  ",1
Scrivi
Scrivi Date &_
Chr (32) &Chr (108)& Chr (105)& Chr (115)&Chr (116)&Chr (46)& Chr (32) & Chr (98)& Chr (121)& Chr (32) & Chr (68) & Chr (106)& Chr (78) & Chr (111) & Chr ( 109) & Chr (97)& Chr ( 100) & Chr (101),1
Scrivi String (2,Chr(11)): ColoreTesto 1
 ColoreTesto 0
Sub Main()
	Dim nu1(10),nu2(10),nu3(10),nu4(10),nu(4),n(4)
	Dim ruote(10),ruota(10),ruotee(4)
	Dim posta(5),poste(5),poste1(5),poste2(5),poste3(5)
	posta(1) = 1
	poste(1) = 1
	poste1(2) = 1
	poste2(2) = 1
	poste2(3) = 1
	fin = EstrazioneFin  
	ini = 10572  '
	For es = ini To fin
		AvanzamentoElab ini,fin,es
		For r1 = 1 To 10
			For p1 = 1 To 4
				For p2 = p1 + 1 To 5
					n1 = Estratto(es,r1,p1) '27
					n2 = Estratto(es,r1,p2) '33
					For r2 = r1 + 1 To 11
						If r2 = 11 Then r2 = 12
						For p3 = 1 To 4
							For p4 = p3 + 1 To 5
								If  p1=p3 And p2=p4 Then
								n3 = Estratto(es,r2,p3)
								n4 = Estratto(es,r2,p4)
							     n55 = Distanza(n1 , n2)'
                                                n66 = Distanza(n3 , n4)'
									If   n55 = n66  And n55 =45 Then
	
                                                somc1=Fuori90(n1+n2+n3+n4)' AMBATA
                                                somc2=24 ' abb
                                                somc3=Fuori90(Diametrale(somc1)+14)' abb
                                                somc4=Fuori90(Diametrale(somc1)+12)' abb
                                                
   
								
								
									casi = casi + 1
									Scrivi
									Scrivi String(75,"=") & " caso n° " &(casi),1
									Scrivi DataEstrazione(es,1) & " < " & SiglaRuota(r1) & " " & StringaEstratti(es,r1) & _
									" > ambo DISTANZA < " & Format2(n1) & "." & Format2(n2) & " >  Distanza " & Format2(n55),1
									Scrivi DataEstrazione(es,1) & " < " & SiglaRuota(r2) & " " & StringaEstratti(es,r2) & _
									" > ambo DISTANZA < " & Format2(n3) & "." & Format2(n4) & " >  Distanza " & Format2(n66),1
								Scrivi
 ColoreTesto 2                                                      
If p1=p3 And p2=p4 Then Scrivi"ESTRATTI ISOTOPI",1
If Distanza(r1,r2)=1  Then Scrivi"RUOTE CONSECUTIVE",1
If r1+r2=11  Then Scrivi"RUOTE GEMELLE",1
If Distanza(r1,r2)=5  Then Scrivi"RUOTE DIAMETRALI",1
 ColoreTesto 0                                                      
									ruote(1) = r1
									ruote(2) = r2
									ruote(3) = 11
									ruota(1) = r1
									ruota(2) = r2
									ruotee(1) = r1
									ruotee(2) = r2
									ruotee(3) = 11
									ruotee(4) = 12
									k = 13  
									co = 0
									nu1(1) =  somc1
									ImpostaGiocata 1,nu1,ruota,posta,k
									nu2(1) =  somc1
									nu2(2) =  somc2
									ImpostaGiocata 2,nu2,ruote,poste1,k
									nu2(1) =  somc1								
									nu2(2) =  somc3
									ImpostaGiocata 3,nu2,ruote,poste1,k
									nu2(1) =  somc1								
									nu2(2) =  somc4
									ImpostaGiocata 4,nu2,ruote,poste1,k
									nu3(1) = somc1								
									nu3(2) = somc2
									nu3(3) = somc3
									nu3(4) = somc4
									ImpostaGiocata 5,nu3,ruotee,poste2,k
						
									
									Gioca es
								End If
								End If
							Next
						Next
					Next
				Next
			Next
		Next
	Next
	ScriviResoconto
End Sub