CERCASI LISTATO

'list per distanze X by maxma62
Sub main
Dim ruota(2),ruot(1),posta(1),postd(10),poste(10),n(2),n1(6)
posta(1)=1
ColoreTesto 1: Scrivi "list  by maxma62",1: ColoreTesto 0  
k=InputBox("durata gioco? ","durata gioco",18)
fin=EstrazioneFin
ini=fin-25
For es=ini To fin
For p=1 To 5
For r1=1 To 10
a=Estratto(es,r1,p)
For r2=r1+1 To 11
If r2=11 Then r2=12
b=Estratto(es,r2,p)
If (a+b)=91 Then
d=(a+b)
ruota(1)=r1 : ruota(2)=r2
Scrivi String(65,"=")
Scrivi DataEstrazione(es,1)&" [ "& SiglaRuota(r1)&" "&_
StringaEstratti(es,r1) &" ] [ "& Format2(a)&" ] pos."&p
Scrivi DataEstrazione(es,1)&" [ "& SiglaRuota(r2)&" "&_
StringaEstratti(es,r2)&" ] [ "& Format2(b)&" ] pos."&p
Scrivi "somma"&" tra "& Format2 (a)&"."& Format2 (b)& " = "&(d)
Scrivi String(65,"-")

End If
Next
Next
Next
Next
ColoreTesto 1: Scrivi "list  by maxma62",1

End Sub