ColoreTesto 1 :Scrivi "---------------------IL MIO  AMBO RIPETUTO di el gondolier----",1
Scrivi
Scrivi String(28,32)&"List.DjNomade",1
ColoreTesto 0
Sub main()
Dim nu1(10),nu2(10),ru(2),nu3(10)
Dim rt(3),rtt(3) 
Dim ptt(5),pt(1),pttt(5)
pt(1)=1
ptt(2)=1
pttt(2)=1
pttt(3)=1
clp=13

fin=EstrazioneFin
ini=fin-60
For es=ini To fin
AvanzamentoElab ini,fin,es
k=0
For r1=1 To 10
For p1=1 To 4
For p2=p1+1 To 5
n1=Estratto(es,r1,p1): n2=Estratto(es,r1,p2)
For r2=r1+1 To 11
If r2=11 Then r2=12
For p3=1 To 4
For p4=p3+1 To 5
a=Estratto(es,r2,p3): b=Estratto(es,r2,p4)
If n1=a And n2=b Or n1=b And n2=a Then


ru(1)=r1 : ru(2)=r2: rtt(1)=11
casi=casi+1
Scrivi String(75,"="),1
Scrivi DataEstrazione(es,1)&" < "& SiglaRuota(r1)&" "& StringaEstratti(es,r1)&_
" > ambo ripetuto < "& Format2(n1)&"."& Format2 (n2)&" >"
Scrivi DataEstrazione(es,1)&" < "& SiglaRuota(r2)&" "& StringaEstratti(es,r2)&_
" > ambo ripetuto < "& Format2(a)&"."& Format2(b)&" >"
Scrivi String(65,"-")&" caso n° "&(casi)
rt(1)=r1: rt(2)=r2
co=0
a1=Fuori90(n1+n2)
a2=Fuori90(a1*2)' AMBATA_
b1=Fuori90(n1+n2) 'abbinam 
b2=Fuori90(b1+30)
b3=Fuori90(b1+60)

nu1(1)=a2
co=co+1
ImpostaGiocata co,nu1,rt,pt,clp

nu2(1)=a2:nu2(2)=b1
co=co+1
ImpostaGiocata co,nu2,rt,ptt,clp

nu2(1)=a2:nu2(2)=b2
co=co+1
ImpostaGiocata co,nu2,rt,ptt,clp

nu2(1)=a2:nu2(2)=b3
co=co+1
ImpostaGiocata co,nu2,rt,ptt,clp

nu3(1)=a2:nu3(2)=b1
nu3(3)=b2:nu3(4)=b3
co=co+1
ImpostaGiocata co,nu3,rtt,pttt,clp

Gioca es
End If
Next
Next
Next
Next
Next
Next
Next
ScriviResoconto
ColoreTesto 1 :Scrivi "---------------------IL MIO  AMBO RIPETUTO di el gondolier----",1
Scrivi
Scrivi String(28,32)&"List.DjNomade",1
ColoreTesto 0
End Sub