'Somma Estratti 36 comune di due ambi isotopi e non 
ColoreTesto 1:Scrivi "ambi somma (36) in orriz. su 2 ruote per franca46",1:coloretesto 0:scrivi
Sub main()
Dim nu1(2),nu2(4),ruote(10),ruot(1)
Dim poste(2),posta(5),posta1(5)
poste(1)=1 : poste(2)=1
posta(2)=1 : posta(3)=1
posta1(2)=1 : posta1(3)=1
k=12
so=CInt(InputBox("Qual'e' la somma?","Numero somma",36))
fin=EstrazioneFin : ini=fin-200
For es=ini To fin
   Messaggio "elab. estr. del " & DataEstrazione (es)
   For r=1 To 10
      For p=1 To 4
         For p1=p+1 To 5
            a=Estratto (es,r,p)
            b=Estratto (es,r,p1)
            sm1=a : sm2=b
            'sm3=sm1+sm2 'cosi è senza il fuori90...
            sm3=Fuori90 (sm1+sm2)
            If sm3=so Then
'---------------------------------------------------------------------------
               For r1=r+1 To 11 '<<<--- x tutte le ruote (+ 1 next alla fine del listato
                  If r1=11 Then r1=12
'---------------------------------------------------------------------------
'r1=r+1 '<<<--- per ruote consecutive
'If r=10 Then r1=1 End If '<<<--- per ruote consecutive
'---------------------------------------------------------------------------
                  For p2=1 To 4
                     For p3=p2+1 To 5
                        c=Estratto(es,r1,p2)
                        d=Estratto(es,r1,p3)
                        sm4=c : sm5=d
                        'sm6=sm4+sm5 'cosi è senza il fuori90... 
                        sm6=Fuori90 (sm4+sm5)
                        If sm3=sm6 And sm3=so Then
                           casi=casi+1
Scrivi String(65,"•"),1
Scrivi Space(8)&"[F. Mongillo: ambo somma < "&so&" > in orriz. su "&siglaruota(r)&" e "&siglaruota(r1)&" ]",1
Scrivi String(65,"-")
Scrivi DataEstrazione(es,1)&" < "& SiglaRuota(r) & " "& StringaEstratti(es,r)&" > ambo < " & Format2(a) &" - "& Format2 (b)&" >"
Scrivi DataEstrazione(es,1)&" < "& SiglaRuota(r1) & " "& StringaEstratti(es,r1)&" > ambo < "& Format2 (c) &" - "& Format2 (d)&" >"
Scrivi "somma (36) : " & Format2(a) &" + "& Format2 (b)&" = "&sm3
Scrivi "somma (36) : " & Format2(c) &" + "& Format2 (d)&" = "&sm6
Scrivi String(52,"-")&"n° caso "&casi
                           e=Fuori90(a+c)
                           f=Fuori90(b+d)
                           g=Abs(e-f) 'ambata
                           ruote(1)=r : ruote(2)=r1 : ruote(3)=12
                           ruot(1)=11
                           nu1(1)=g
                           nu1(2)=Vert(g)
                           ImpostaGiocata 1,nu1,ruote,poste,k
                           nu2(1)=nu1(1) : nu2(2)=nu1(2)
                           nu2(3)=e : nu2(4)=f
                           ImpostaGiocata 2,nu2,ruote,posta,k
                           ImpostaGiocata 3,nu2,ruot,posta1,k
                           Gioca es
                        End If
                     Next
                  Next
               Next
            End If
         Next
      Next
   Next
'---------------------------------------------------------------------------
Next '<<<--- solo per tutte le ruote, per ruote consec. togliere
'---------------------------------------------------------------------------

'ScriviResoconto
Scrivi : ColoreTesto 1 : Scrivi "by maxma62",1
End Sub

lun 24.12.2012 < Ge 24.32.71.25.04 > ambo < 32 - 04 >
lun 24.12.2012 < Mi 15.37.89.60.78 > ambo < 37 - 89 >
somma (36) : 32 + 04 = 36
somma (36) : 37 + 89 = 36
----------------------------------------------------n° caso 61
lun 24.12.2012  [8630]
  G  1:  MA      66.69      Ge Mi Nz    7/12    
     M  69.66            su Nz    2° colpo   [8632/29.12.2012]
     A  69.66            su Nz    2° colpo   [8632/29.12.2012]
     M  69               su Ge    4° colpo   [8634/03.01.2013]
     M  66               su Nz    6° colpo   [8636/08.01.2013]
     in corso (7° su 12)
  G  2:  AT      66.69.03   Ge Mi Nz    7/12    
     A  69.66            su Nz    2° colpo   [8632/29.12.2012]
     in corso (7° su 12)
  G  3:  AT      66.69.03   Tu          7/12    
     A  66.03            su Tu (Ve)    4° colpo   [8634/03.01.2013]
     in corso (7° su 12)