Xmike58

Mike58 · 18 Aprile 2012

x MIKE58

mi fa piacere che hai capito
siamo sulla giusta strada

x TUTTI

come si fa la ricerca statistica di una serie di numeri
così deve essere per gli adattatori

Rosa, questo punto purtroppo non è semplice, in quanto la ricerca statistica può avvenire sui numeri generati da un qualsiasi calcolo, che sono quelli presenti in archivio lotto e quindi già estratti.
La statistica adattatori penso può essere solo conteggiata con istruzioni ad OK. è comunque è abbastanza complesso.

Se ancora Io non ho capito aspetto vostre altre delucidazioni.

Ciao.

fillotto · 18 Aprile 2012

Scusate se insisto ma da quanto confermato a Baffo da rosa :
"In pratica per ognuno dei cinque estratti dell'estrazione di base
si ricavano 5 (adattatori) per ognuna posizione

Dal 1° estratto dell'estrazione di base si ricavano 5 adattatori
Dal 2° estratto dell'estrazione di base si ricavano 5 adattatori
Dal 3° estratto dell'estrazione di base si ricavano 5 adattatori
Dal 4° estratto dell'estrazione di base si ricavano 5 adattatori
Dal 5° estratto dell'estrazione di base si ricavano 5 adattatori
----------------------------------------------------------------

90 + 88 = 178 - 71 = 107 - 90 = "17"

90 + 44 = 134 - 71 = "63"

90 + 08 = 98 - 71 = "27"

90 + 67 = 157 - 71 = "86"

90 + 41 = 131 - 71 = "60"
--------------------------------------

questi sono i 5 adattatori che si ricavano dal 1° estratto di Bari

17..63..27..86..60. <---------------------- Questi adattatori sono rilevati comodamente in tuttle le salse in "Metodi"----->"Statistica Adattatori" ------->"Imposta i PARAMETRI (ruota di ricerca BA , ruota di gioco BA)" ------>Esegui

che sommati al 71, 1° estratto di Bari vengono fuori :

88..44..08..67..41 ( corrispondente all'estrazione successiva di Bari) "
Questa è la statistica all'estrazione successiva(17/4/12) che ovviamente deve riportare gli adattatori 17..63..27..86..60 ciascuno con un ritardo di "1" in quanto l'88(primo di Ba) non è "cresciuto" di 17 unità ne di 63 ne di 27 ne di 86 ne di 60 ma è "cresciuto" rispettivamente di 74,38,67,52 e 10 dando luogo all'estrazione REALE del 17/4/12 ossia 72.36.65.60.10 di seguito metto l'immagine dove potete notare sia le situazioni degli adattatori 17..63..27..86..60 (sono gli ultimi visibili) sia degli adattatori 74,38,67,52 e 10 (che sono visibili e ovviamente hanno ritardo "0" :

Baffoblu · 18 Aprile 2012

X fillotto

L'immagine che hai messo è microscopica.......

Ne metto una io.......

Ma sinceramente mi sembra che rosa cerchi dei ritardi particolari
che qui non si possono calcolare....

rosa962 · 20 Aprile 2012

x BAFFO E FILLOTTO

vi ringrazio per lo script ( ma non è quello che cerco )

e per le immaggine del programma di SPAZIOMETRIA

ma che già conoscevo

mi rendo conto come dice MIKE58 non avendo archivi di questo

genere la cosa sembra difficile da attuarsi

ma ci spero

x TUTTI quelli che seguono questo post

FATE ATTENZIONE di un esempio di una mia giocata

se ci credete o no vinta

estrazione del 31-03-2012 CAGLIARI 47-40-22-72-31

estrazione del 03-4-2012 CAGLIARI 34-54-35-83-74

gli adattatori che sono usciti tra una estrazione e l'altra ( solo sui primi 2 estratti, tralascio gli altri in tutte le cinque posizioni )

77-7

84-14

che davano i numeri 34-54

preferisco questa formazione di adattori stessa cadenza

7-77 e 84-14 li rigioco

ma solamente nel 3° 4° 5° estratto ad ogni estrazione

ed ad ogni colpo genero 6 ambi secchi o 12 numeri da giocare x ambo e terno

al primo colpo sono usciti di nuovo gli adattatori 7-77 sommati al 3° estratto

più il 14 sommato al 4° estratto di nuovo il 7 sommato al 4° estratto

ho giocato 6 sestine ma sono usciti solo 2 terni

da qualche mese trascrivo gli adattatori di qualche ruota

e quando vedo questo tipo di adattatori li rimetto in gioco

nei posti che non sono usciti

ciaoo

rosa962 · 20 Aprile 2012

x BAFFO ed tutti gli scripter

per rendere le cose semplici mi basta un listato di tipo sommativo

( la statistica me la faccio per conto mio )

a) ruota in gioco
b) la posizione da sommare ( DAlla posizione 1° Alla 5° )
la scelta deve essere libera ( se decido di sommare in 3°, 4°, 5° il listato lo deve fare )

c) quali numeri sommare nelle mie posizioni scelte

devo sommare da 1 fino a 15 numeri in ogni posizione da me voluta

BAFFOBLU precedentemente mi ha fatto un simile scrpter ma potevo
fare una posizione per volta e partiva da 2 a 10 numeri

spero di essere stata chiara

e vi ringrazio anticipatamente x quello che fate

per noi tutti ignoranti e poco volenterosi ad

apprendere come si fa uno scripter

ciaoo

Baffoblu · 20 Aprile 2012

in serata troverai la mia interpretazione dello script....

Baffoblu · 20 Aprile 2012

Ciao

Per adesso è solo una prova.....non è completo.
però gia parzialmente funzionante....

Per ora puoi scegliere la ruota

puoi scegliere UNA sola posizione
ma qualsiasi delle 5.

Puoi scegliere da 1 a max 15 numeri.

e ti verranno tutte le somme ottenute secondo
le tue scelte.

PS : se lo fai girare così come sta,
cliccando sempre su ok, ti uscirà una scritta in più.
In pratica solo quando scegli una posizione,
ed un numero solo.

Ripeto è solo un abbozzo, ma temo che per completarlo,
ci vorrà un po di tempo, è sarà forse troppo lungo......

Di meglio per il momento non mi viene......

se qualcuno se la sente......

Codice:

Sub Main()
    Dim idEstr
    Dim Inizio
    Dim Fine
    Dim ruote(11)
    'Dim poste(10)
    Dim r
    Dim nAnalisi
    'Dim nColpiDiGioco
    Dim pos
    Dim pos1
    Dim pos2
    Dim pos3
    Dim pos4
    Dim pos5
    Dim num
    Dim num1
    Dim num2
    Dim num3
    Dim num4
    Dim num5
    Dim num6
    Dim num7
    Dim num8
    Dim num9
    Dim num10
    Dim num11
    Dim num12
    Dim num13
    Dim num14
    Dim num15
    'poste(1) = 1
    r = CInt(InputBox(" Scegli la ruota di Elaborazione",,"1"))
    nAnalisi = CInt(InputBox(" Quante estrazioni vuoi controllare ? ",,"20"))
    'nColpiDiGioco = CInt(InputBox(" Per quanti colpi vuoi giocare ? ",,"1"))
    pos = CInt(InputBox(" Quantità di posizioni che vuoi considerare ? * da 1 a 5 ",,"1"))
    '----------------------------------------------------------------------------
    If pos = 1 Then
        pos1 = CInt(InputBox(" Scegli la Posizione voluta ",,"1"))
    End If
    '----------------------------------------------------------
    If pos = 2 Then
        pos1 = CInt(InputBox(" Scegli la 1° Posizione Scelta ",,"1"))
        pos2 = CInt(InputBox(" Scegli la 2° Posizione Scelta ",,"2"))
    End If
    '----------------------------------------------------------
    If pos = 3 Then
        pos1 = CInt(InputBox(" Scegli la 1° Posizione Scelta ",,"1"))
        pos2 = CInt(InputBox(" Scegli la 2° Posizione Scelta ",,"2"))
        pos3 = CInt(InputBox(" Scegli la 3° Posizione Scelta ",,"3"))
    End If
    '----------------------------------------------------------
    If pos = 4 Then
        pos1 = CInt(InputBox(" Scegli la 1° Posizione Scelta ",,"1"))
        pos2 = CInt(InputBox(" Scegli la 2° Posizione Scelta ",,"2"))
        pos3 = CInt(InputBox(" Scegli la 3° Posizione Scelta ",,"3"))
        pos4 = CInt(InputBox(" Scegli la 4° Posizione Scelta ",,"4"))
    End If
    '----------------------------------------------------------
    If pos = 5 Then
        pos1 = CInt(InputBox(" Scegli la 1° Posizione Scelta ",,"1"))
        pos2 = CInt(InputBox(" Scegli la 2° Posizione Scelta ",,"2"))
        pos3 = CInt(InputBox(" Scegli la 3° Posizione Scelta ",,"3"))
        pos4 = CInt(InputBox(" Scegli la 4° Posizione Scelta ",,"4"))
        pos5 = CInt(InputBox(" Scegli la 5° Posizione Scelta ",,"5"))
    End If
    '------------------------------------------------------------------
    num = CInt(InputBox("Quantità numeri che vuoi Utilizzare ? - max 15.",,"1"))
    '------------------------------------------------------------------
    If num = 1 Then
        num1 = CInt(InputBox(" Inserisci il Numero scelto",,"1"))
    End If
    '--------------------------------------------------------
    If num = 2 Then
        num1 = CInt(InputBox(" Inserisci il 1° Numero scelto",,"1"))
        num2 = CInt(InputBox(" Inserisci il 2° Numero scelto",,"2"))
    End If
    '--------------------------------------------------------
    If num = 3 Then
        num1 = CInt(InputBox(" Inserisci il 1° Numero scelto",,"1"))
        num2 = CInt(InputBox(" Inserisci il 2° Numero scelto",,"2"))
        num3 = CInt(InputBox(" Inserisci il 3° Numero scelto",,"3"))
    End If
    '--------------------------------------------------------
    If num = 4 Then
        num1 = CInt(InputBox(" Inserisci il 1° Numero scelto",,"1"))
        num2 = CInt(InputBox(" Inserisci il 2° Numero scelto",,"2"))
        num3 = CInt(InputBox(" Inserisci il 3° Numero scelto",,"3"))
        num4 = CInt(InputBox(" Inserisci il 4° Numero scelto",,"4"))
    End If
    '--------------------------------------------------------
    If num = 5 Then
        num1 = CInt(InputBox(" Inserisci il 1° Numero scelto",,"1"))
        num2 = CInt(InputBox(" Inserisci il 2° Numero scelto",,"2"))
        num3 = CInt(InputBox(" Inserisci il 3° Numero scelto",,"3"))
        num4 = CInt(InputBox(" Inserisci il 4° Numero scelto",,"4"))
        num5 = CInt(InputBox(" Inserisci il 5° Numero scelto",,"5"))
    End If
    '--------------------------------------------------------
    If num = 6 Then
        num1 = CInt(InputBox(" Inserisci il 1° Numero scelto",,"1"))
        num2 = CInt(InputBox(" Inserisci il 2° Numero scelto",,"2"))
        num3 = CInt(InputBox(" Inserisci il 3° Numero scelto",,"3"))
        num4 = CInt(InputBox(" Inserisci il 4° Numero scelto",,"4"))
        num5 = CInt(InputBox(" Inserisci il 5° Numero scelto",,"5"))
        num6 = CInt(InputBox(" Inserisci il 6° Numero scelto",,"6"))
    End If
    '--------------------------------------------------------
    If num = 7 Then
        num1 = CInt(InputBox(" Inserisci il 1° Numero scelto",,"1"))
        num2 = CInt(InputBox(" Inserisci il 2° Numero scelto",,"2"))
        num3 = CInt(InputBox(" Inserisci il 3° Numero scelto",,"3"))
        num4 = CInt(InputBox(" Inserisci il 4° Numero scelto",,"4"))
        num5 = CInt(InputBox(" Inserisci il 5° Numero scelto",,"5"))
        num6 = CInt(InputBox(" Inserisci il 6° Numero scelto",,"6"))
        num7 = CInt(InputBox(" Inserisci il 7° Numero scelto",,"7"))
    End If
    '-------------------------------------------------------
    If num = 8 Then
        num1 = CInt(InputBox(" Inserisci il 1° Numero scelto",,"1"))
        num2 = CInt(InputBox(" Inserisci il 2° Numero scelto",,"2"))
        num3 = CInt(InputBox(" Inserisci il 3° Numero scelto",,"3"))
        num4 = CInt(InputBox(" Inserisci il 4° Numero scelto",,"4"))
        num5 = CInt(InputBox(" Inserisci il 5° Numero scelto",,"5"))
        num6 = CInt(InputBox(" Inserisci il 6° Numero scelto",,"6"))
        num7 = CInt(InputBox(" Inserisci il 7° Numero scelto",,"7"))
        num8 = CInt(InputBox(" Inserisci il 8° Numero scelto",,"8"))
    End If
    '-------------------------------------------------------
    If num = 9 Then
        num1 = CInt(InputBox(" Inserisci il 1° Numero scelto",,"1"))
        num2 = CInt(InputBox(" Inserisci il 2° Numero scelto",,"2"))
        num3 = CInt(InputBox(" Inserisci il 3° Numero scelto",,"3"))
        num4 = CInt(InputBox(" Inserisci il 4° Numero scelto",,"4"))
        num5 = CInt(InputBox(" Inserisci il 5° Numero scelto",,"5"))
        num6 = CInt(InputBox(" Inserisci il 6° Numero scelto",,"6"))
        num7 = CInt(InputBox(" Inserisci il 7° Numero scelto",,"7"))
        num8 = CInt(InputBox(" Inserisci il 8° Numero scelto",,"8"))
        num9 = CInt(InputBox(" Inserisci il 9° Numero scelto",,"9"))
    End If
    '-------------------------------------------------------
    If num = 10 Then
        num1 = CInt(InputBox(" Inserisci il 1° Numero scelto",,"1"))
        num2 = CInt(InputBox(" Inserisci il 2° Numero scelto",,"2"))
        num3 = CInt(InputBox(" Inserisci il 3° Numero scelto",,"3"))
        num4 = CInt(InputBox(" Inserisci il 4° Numero scelto",,"4"))
        num5 = CInt(InputBox(" Inserisci il 5° Numero scelto",,"5"))
        num6 = CInt(InputBox(" Inserisci il 6° Numero scelto",,"6"))
        num7 = CInt(InputBox(" Inserisci il 7° Numero scelto",,"7"))
        num8 = CInt(InputBox(" Inserisci il 8° Numero scelto",,"8"))
        num9 = CInt(InputBox(" Inserisci il 9° Numero scelto",,"9"))
        num10 = CInt(InputBox(" Inserisci il 10° Numero scelto",,"10"))
    End If
    '-------------------------------------------------------
    If num = 11 Then
        num1 = CInt(InputBox(" Inserisci il 1° Numero scelto",,"1"))
        num2 = CInt(InputBox(" Inserisci il 2° Numero scelto",,"2"))
        num3 = CInt(InputBox(" Inserisci il 3° Numero scelto",,"3"))
        num4 = CInt(InputBox(" Inserisci il 4° Numero scelto",,"4"))
        num5 = CInt(InputBox(" Inserisci il 5° Numero scelto",,"5"))
        num6 = CInt(InputBox(" Inserisci il 6° Numero scelto",,"6"))
        num7 = CInt(InputBox(" Inserisci il 7° Numero scelto",,"7"))
        num8 = CInt(InputBox(" Inserisci il 8° Numero scelto",,"8"))
        num9 = CInt(InputBox(" Inserisci il 9° Numero scelto",,"9"))
        num10 = CInt(InputBox(" Inserisci il 10° Numero scelto",,"10"))
        num11 = CInt(InputBox(" Inserisci il 11° Numero scelto",,"11"))
    End If
    '-------------------------------------------------------
    If num = 12 Then
        num1 = CInt(InputBox(" Inserisci il 1° Numero scelto",,"1"))
        num2 = CInt(InputBox(" Inserisci il 2° Numero scelto",,"2"))
        num3 = CInt(InputBox(" Inserisci il 3° Numero scelto",,"3"))
        num4 = CInt(InputBox(" Inserisci il 4° Numero scelto",,"4"))
        num5 = CInt(InputBox(" Inserisci il 5° Numero scelto",,"5"))
        num6 = CInt(InputBox(" Inserisci il 6° Numero scelto",,"6"))
        num7 = CInt(InputBox(" Inserisci il 7° Numero scelto",,"7"))
        num8 = CInt(InputBox(" Inserisci il 8° Numero scelto",,"8"))
        num9 = CInt(InputBox(" Inserisci il 9° Numero scelto",,"9"))
        num10 = CInt(InputBox(" Inserisci il 10° Numero scelto",,"10"))
        num11 = CInt(InputBox(" Inserisci il 11° Numero scelto",,"11"))
        num12 = CInt(InputBox(" Inserisci il 12° Numero scelto",,"12"))
    End If
    '-------------------------------------------------------
    If num = 13 Then
        num1 = CInt(InputBox(" Inserisci il 1° Numero scelto",,"1"))
        num2 = CInt(InputBox(" Inserisci il 2° Numero scelto",,"2"))
        num3 = CInt(InputBox(" Inserisci il 3° Numero scelto",,"3"))
        num4 = CInt(InputBox(" Inserisci il 4° Numero scelto",,"4"))
        num5 = CInt(InputBox(" Inserisci il 5° Numero scelto",,"5"))
        num6 = CInt(InputBox(" Inserisci il 6° Numero scelto",,"6"))
        num7 = CInt(InputBox(" Inserisci il 7° Numero scelto",,"7"))
        num8 = CInt(InputBox(" Inserisci il 8° Numero scelto",,"8"))
        num9 = CInt(InputBox(" Inserisci il 9° Numero scelto",,"9"))
        num10 = CInt(InputBox(" Inserisci il 10° Numero scelto",,"10"))
        num11 = CInt(InputBox(" Inserisci il 11° Numero scelto",,"11"))
        num12 = CInt(InputBox(" Inserisci il 12° Numero scelto",,"12"))
        num13 = CInt(InputBox(" Inserisci il 13° Numero scelto",,"13"))
    End If
    '-------------------------------------------------------
    If num = 14 Then
        num1 = CInt(InputBox(" Inserisci il 1° Numero scelto",,"1"))
        num2 = CInt(InputBox(" Inserisci il 2° Numero scelto",,"2"))
        num3 = CInt(InputBox(" Inserisci il 3° Numero scelto",,"3"))
        num4 = CInt(InputBox(" Inserisci il 4° Numero scelto",,"4"))
        num5 = CInt(InputBox(" Inserisci il 5° Numero scelto",,"5"))
        num6 = CInt(InputBox(" Inserisci il 6° Numero scelto",,"6"))
        num7 = CInt(InputBox(" Inserisci il 7° Numero scelto",,"7"))
        num8 = CInt(InputBox(" Inserisci il 8° Numero scelto",,"8"))
        num9 = CInt(InputBox(" Inserisci il 9° Numero scelto",,"9"))
        num10 = CInt(InputBox(" Inserisci il 10° Numero scelto",,"10"))
        num11 = CInt(InputBox(" Inserisci il 11° Numero scelto",,"11"))
        num12 = CInt(InputBox(" Inserisci il 12° Numero scelto",,"12"))
        num13 = CInt(InputBox(" Inserisci il 13° Numero scelto",,"13"))
        num14 = CInt(InputBox(" Inserisci il 14° Numero scelto",,"14"))
    End If
    '-------------------------------------------------------
    If num = 15 Then
        num1 = CInt(InputBox(" Inserisci il 1° Numero scelto",,"1"))
        num2 = CInt(InputBox(" Inserisci il 2° Numero scelto",,"2"))
        num3 = CInt(InputBox(" Inserisci il 3° Numero scelto",,"3"))
        num4 = CInt(InputBox(" Inserisci il 4° Numero scelto",,"4"))
        num5 = CInt(InputBox(" Inserisci il 5° Numero scelto",,"5"))
        num6 = CInt(InputBox(" Inserisci il 6° Numero scelto",,"6"))
        num7 = CInt(InputBox(" Inserisci il 7° Numero scelto",,"7"))
        num8 = CInt(InputBox(" Inserisci il 8° Numero scelto",,"8"))
        num9 = CInt(InputBox(" Inserisci il 9° Numero scelto",,"9"))
        num10 = CInt(InputBox(" Inserisci il 10° Numero scelto",,"10"))
        num11 = CInt(InputBox(" Inserisci il 11° Numero scelto",,"11"))
        num12 = CInt(InputBox(" Inserisci il 12° Numero scelto",,"12"))
        num13 = CInt(InputBox(" Inserisci il 13° Numero scelto",,"13"))
        num14 = CInt(InputBox(" Inserisci il 14° Numero scelto",,"14"))
        num15 = CInt(InputBox(" Inserisci il 15° Numero scelto",,"15"))
    End If
    '---------------------------------------------------------------------
    Inizio = EstrazioneFin - nAnalisi
    Fine = EstrazioneFin
    co = 0
    For idEstr = Inizio To Fine
        Messaggio "elab. estr. [" &(idEstr) & "] di " & DataEstrazione(idEstr,1)
        Call AvanzamentoElab(Inizio,Fine,idEstr)
        ruote(1) = r
        '------------------------------------------------
        co = co + 1
        Scrivi String(100,"°") & " Caso n°" & co,1
        Scrivi DataEstrazione(idEstr) & " -- " & SiglaRuota(r) & " - " & StringaEstratti(idEstr,r),1
        ColoreTesto 1
        Scrivi
        '------------------------------------------------
        If pos = 1 And num = 1 Then
            som1 = Fuori90(num1 + Estratto(idEstr,r,pos1))
            Scrivi "Somma : " & som1 & " Derivante dalla somma dell'adattatore  " & Format2(num1) & " con il " & pos1 & "° Estratto di " & NomeRuota(r),1
        End If
        '----------------------------------------------------
        If pos = 1 And num = 2 Then
            som1 = Fuori90(num1 + Estratto(idEstr,r,pos1))
            som2 = Fuori90(num2 + Estratto(idEstr,r,pos1))
            Scrivi som1 & "-" & som2,1
        End If
        '----------------------------------------------------
        If pos = 1 And num = 3 Then
            som1 = Fuori90(num1 + Estratto(idEstr,r,pos1))
            som2 = Fuori90(num2 + Estratto(idEstr,r,pos1))
            som3 = Fuori90(num3 + Estratto(idEstr,r,pos1))
            Scrivi som1 & "-" & som2 & "-" & som3,1
        End If
        '----------------------------------------------------
        If pos = 1 And num = 4 Then
            som1 = Fuori90(num1 + Estratto(idEstr,r,pos1))
            som2 = Fuori90(num2 + Estratto(idEstr,r,pos1))
            som3 = Fuori90(num3 + Estratto(idEstr,r,pos1))
            som4 = Fuori90(num4 + Estratto(idEstr,r,pos1))
            Scrivi som1 & "-" & som2 & "-" & som3 & "-" & som4,1
        End If
        '----------------------------------------------------
        If pos = 1 And num = 5 Then
            som1 = Fuori90(num1 + Estratto(idEstr,r,pos1))
            som2 = Fuori90(num2 + Estratto(idEstr,r,pos1))
            som3 = Fuori90(num3 + Estratto(idEstr,r,pos1))
            som4 = Fuori90(num4 + Estratto(idEstr,r,pos1))
            som5 = Fuori90(num5 + Estratto(idEstr,r,pos1))
            Scrivi som1 & "-" & som2 & "-" & som3 & "-" & som4 & "-" & som5,1
        End If
        '----------------------------------------------------
        If pos = 1 And num = 6 Then
            som1 = Fuori90(num1 + Estratto(idEstr,r,pos1))
            som2 = Fuori90(num2 + Estratto(idEstr,r,pos1))
            som3 = Fuori90(num3 + Estratto(idEstr,r,pos1))
            som4 = Fuori90(num4 + Estratto(idEstr,r,pos1))
            som5 = Fuori90(num5 + Estratto(idEstr,r,pos1))
            som6 = Fuori90(num6 + Estratto(idEstr,r,pos1))
            Scrivi som1 & "-" & som2 & "-" & som3 & "-" & som4 & "-" & som5 & "-" & som6,1
        End If
        '----------------------------------------------------
        If pos = 1 And num = 7 Then
            som1 = Fuori90(num1 + Estratto(idEstr,r,pos1))
            som2 = Fuori90(num2 + Estratto(idEstr,r,pos1))
            som3 = Fuori90(num3 + Estratto(idEstr,r,pos1))
            som4 = Fuori90(num4 + Estratto(idEstr,r,pos1))
            som5 = Fuori90(num5 + Estratto(idEstr,r,pos1))
            som6 = Fuori90(num6 + Estratto(idEstr,r,pos1))
            som7 = Fuori90(num7 + Estratto(idEstr,r,pos1))
            Scrivi som1 & "-" & som2 & "-" & som3 & "-" & som4 & "-" & som5 & "-" & som6 & "-" & som7,1
        End If
        '----------------------------------------------------
        If pos = 1 And num = 8 Then
            som1 = Fuori90(num1 + Estratto(idEstr,r,pos1))
            som2 = Fuori90(num2 + Estratto(idEstr,r,pos1))
            som3 = Fuori90(num3 + Estratto(idEstr,r,pos1))
            som4 = Fuori90(num4 + Estratto(idEstr,r,pos1))
            som5 = Fuori90(num5 + Estratto(idEstr,r,pos1))
            som6 = Fuori90(num6 + Estratto(idEstr,r,pos1))
            som7 = Fuori90(num7 + Estratto(idEstr,r,pos1))
            som8 = Fuori90(num8 + Estratto(idEstr,r,pos1))
            Scrivi som1 & "-" & som2 & "-" & som3 & "-" & som4 & "-" & som5 & "-" & som6 & "-" & som7 & "-" & som8,1
        End If
        '----------------------------------------------------
        If pos = 1 And num = 9 Then
            som1 = Fuori90(num1 + Estratto(idEstr,r,pos1))
            som2 = Fuori90(num2 + Estratto(idEstr,r,pos1))
            som3 = Fuori90(num3 + Estratto(idEstr,r,pos1))
            som4 = Fuori90(num4 + Estratto(idEstr,r,pos1))
            som5 = Fuori90(num5 + Estratto(idEstr,r,pos1))
            som6 = Fuori90(num6 + Estratto(idEstr,r,pos1))
            som7 = Fuori90(num7 + Estratto(idEstr,r,pos1))
            som8 = Fuori90(num8 + Estratto(idEstr,r,pos1))
            som9 = Fuori90(num9 + Estratto(idEstr,r,pos1))
            Scrivi som1 & "-" & som2 & "-" & som3 & "-" & som4 & "-" & som5 & "-" & som6 & "-" & som7 & "-" & som8 & "-" & som9,1
        End If
        '----------------------------------------------------
        If pos = 1 And num = 10 Then
            som1 = Fuori90(num1 + Estratto(idEstr,r,pos1))
            som2 = Fuori90(num2 + Estratto(idEstr,r,pos1))
            som3 = Fuori90(num3 + Estratto(idEstr,r,pos1))
            som4 = Fuori90(num4 + Estratto(idEstr,r,pos1))
            som5 = Fuori90(num5 + Estratto(idEstr,r,pos1))
            som6 = Fuori90(num6 + Estratto(idEstr,r,pos1))
            som7 = Fuori90(num7 + Estratto(idEstr,r,pos1))
            som8 = Fuori90(num8 + Estratto(idEstr,r,pos1))
            som9 = Fuori90(num9 + Estratto(idEstr,r,pos1))
            som10 = Fuori90(num10 + Estratto(idEstr,r,pos1))
            Scrivi som1 & "-" & som2 & "-" & som3 & "-" & som4 & "-" & som5 & "-" & som6 & "-" & som7 & "-" & som8 & "-" & som9 & "-" & som10,1
        End If
        '----------------------------------------------------
        If pos = 1 And num = 11 Then
            som1 = Fuori90(num1 + Estratto(idEstr,r,pos1))
            som2 = Fuori90(num2 + Estratto(idEstr,r,pos1))
            som3 = Fuori90(num3 + Estratto(idEstr,r,pos1))
            som4 = Fuori90(num4 + Estratto(idEstr,r,pos1))
            som5 = Fuori90(num5 + Estratto(idEstr,r,pos1))
            som6 = Fuori90(num6 + Estratto(idEstr,r,pos1))
            som7 = Fuori90(num7 + Estratto(idEstr,r,pos1))
            som8 = Fuori90(num8 + Estratto(idEstr,r,pos1))
            som9 = Fuori90(num9 + Estratto(idEstr,r,pos1))
            som10 = Fuori90(num10 + Estratto(idEstr,r,pos1))
            som11 = Fuori90(num11 + Estratto(idEstr,r,pos1))
            Scrivi som1 & "-" & som2 & "-" & som3 & "-" & som4 & "-" & som5 & "-" & som6 & "-" & som7 & "-" & som8 & "-" & som9 & "-" & som10 & "-" & som11,1
        End If
        '----------------------------------------------------
        If pos = 1 And num = 12 Then
            som1 = Fuori90(num1 + Estratto(idEstr,r,pos1))
            som2 = Fuori90(num2 + Estratto(idEstr,r,pos1))
            som3 = Fuori90(num3 + Estratto(idEstr,r,pos1))
            som4 = Fuori90(num4 + Estratto(idEstr,r,pos1))
            som5 = Fuori90(num5 + Estratto(idEstr,r,pos1))
            som6 = Fuori90(num6 + Estratto(idEstr,r,pos1))
            som7 = Fuori90(num7 + Estratto(idEstr,r,pos1))
            som8 = Fuori90(num8 + Estratto(idEstr,r,pos1))
            som9 = Fuori90(num9 + Estratto(idEstr,r,pos1))
            som10 = Fuori90(num10 + Estratto(idEstr,r,pos1))
            som11 = Fuori90(num11 + Estratto(idEstr,r,pos1))
            som12 = Fuori90(num12 + Estratto(idEstr,r,pos1))
            Scrivi som1 & "-" & som2 & "-" & som3 & "-" & som4 & "-" & som5 & "-" & som6 & "-" & som7 & "-" & som8 & "-" & som9 & "-" & som10 & "-" & som11 & "-" & som12,1
        End If
        '----------------------------------------------------
        If pos = 1 And num = 13 Then
            som1 = Fuori90(num1 + Estratto(idEstr,r,pos1))
            som2 = Fuori90(num2 + Estratto(idEstr,r,pos1))
            som3 = Fuori90(num3 + Estratto(idEstr,r,pos1))
            som4 = Fuori90(num4 + Estratto(idEstr,r,pos1))
            som5 = Fuori90(num5 + Estratto(idEstr,r,pos1))
            som6 = Fuori90(num6 + Estratto(idEstr,r,pos1))
            som7 = Fuori90(num7 + Estratto(idEstr,r,pos1))
            som8 = Fuori90(num8 + Estratto(idEstr,r,pos1))
            som9 = Fuori90(num9 + Estratto(idEstr,r,pos1))
            som10 = Fuori90(num10 + Estratto(idEstr,r,pos1))
            som11 = Fuori90(num11 + Estratto(idEstr,r,pos1))
            som12 = Fuori90(num12 + Estratto(idEstr,r,pos1))
            som13 = Fuori90(num13 + Estratto(idEstr,r,pos1))
            Scrivi som1 & "-" & som2 & "-" & som3 & "-" & som4 & "-" & som5 & "-" & som6 & "-" & som7 & "-" & som8 & "-" & som9 & "-" & som10 & "-" & som11 & "-" & som12 & "-" & som13,1
        End If
        '----------------------------------------------------
        If pos = 1 And num = 14 Then
            som1 = Fuori90(num1 + Estratto(idEstr,r,pos1))
            som2 = Fuori90(num2 + Estratto(idEstr,r,pos1))
            som3 = Fuori90(num3 + Estratto(idEstr,r,pos1))
            som4 = Fuori90(num4 + Estratto(idEstr,r,pos1))
            som5 = Fuori90(num5 + Estratto(idEstr,r,pos1))
            som6 = Fuori90(num6 + Estratto(idEstr,r,pos1))
            som7 = Fuori90(num7 + Estratto(idEstr,r,pos1))
            som8 = Fuori90(num8 + Estratto(idEstr,r,pos1))
            som9 = Fuori90(num9 + Estratto(idEstr,r,pos1))
            som10 = Fuori90(num10 + Estratto(idEstr,r,pos1))
            som11 = Fuori90(num11 + Estratto(idEstr,r,pos1))
            som12 = Fuori90(num12 + Estratto(idEstr,r,pos1))
            som13 = Fuori90(num13 + Estratto(idEstr,r,pos1))
            som14 = Fuori90(num14 + Estratto(idEstr,r,pos1))
            Scrivi som1 & "-" & som2 & "-" & som3 & "-" & som4 & "-" & som5 & "-" & som6 & "-" & som7 & "-" & som8 & "-" & som9 & "-" & som10 & "-" & som11 & "-" & som12 & "-" & som13 & "-" & som14,1
        End If
        '----------------------------------------------------
        If pos = 1 And num = 15 Then
            som1 = Fuori90(num1 + Estratto(idEstr,r,pos1))
            som2 = Fuori90(num2 + Estratto(idEstr,r,pos1))
            som3 = Fuori90(num3 + Estratto(idEstr,r,pos1))
            som4 = Fuori90(num4 + Estratto(idEstr,r,pos1))
            som5 = Fuori90(num5 + Estratto(idEstr,r,pos1))
            som6 = Fuori90(num6 + Estratto(idEstr,r,pos1))
            som7 = Fuori90(num7 + Estratto(idEstr,r,pos1))
            som8 = Fuori90(num8 + Estratto(idEstr,r,pos1))
            som9 = Fuori90(num9 + Estratto(idEstr,r,pos1))
            som10 = Fuori90(num10 + Estratto(idEstr,r,pos1))
            som11 = Fuori90(num11 + Estratto(idEstr,r,pos1))
            som12 = Fuori90(num12 + Estratto(idEstr,r,pos1))
            som13 = Fuori90(num13 + Estratto(idEstr,r,pos1))
            som14 = Fuori90(num14 + Estratto(idEstr,r,pos1))
            som15 = Fuori90(num15 + Estratto(idEstr,r,pos1))
            Scrivi som1 & "-" & som2 & "-" & som3 & "-" & som4 & "-" & som5 & "-" & som6 & "-" & som7 & "-" & som8 & "-" & som9 & "-" & som10 & "-" & som11 & "-" & som12 & "-" & som13 & "-" & som14 & "-" & som15,1
        End If
        '----------------------------------------------------
        '----------------------------------------------------
        ruote(1) = r
        ColoreTesto 0
        Scrivi String(80,"="),1
        'ImpostaGiocata 1,n,ruote,poste,nColpiDiGioco,1
        'Gioca idEstr,1
        If ScriptInterrotto Then Exit For
    Next
    Scrivi
    Scrivi String(100,"*")
    ColoreTesto 2
    Scrivi" casi trovati : " & co,1
    ColoreTesto 0
    Scrivi String(100," * ")
    TestoInBandaPassante(" LISTATO BY  B A F F O B L U "),1,3,0
    ScriviResoconto
End Sub

rosa962 · 20 Aprile 2012

grazie BAFFO

ho visto la bozza si ferma sulla 1 posizione e con un
solo numero

so che non ti arrenderai e sicuramente lo completerai

potrebbe anche essere utile in SPAZIOMETRIA

QUALCUNO VUOL DARE UNA MANO A BAFFOBLU ?

ciaoo BAFFO ed a tutti gli amici che si renderanno

disponibili

Baffoblu · 21 Aprile 2012

rosa962 ha scritto:
grazie BAFFO

ho visto la bozza si ferma sulla 1 posizione e con un
solo numero

so che non ti arrenderai e sicuramente lo completerai

potrebbe anche essere utile in SPAZIOMETRIA

QUALCUNO VUOL DARE UNA MANO A BAFFOBLU ?

ciaoo BAFFO ed a tutti gli amici che si renderanno

disponibili

No rosa , non si ferma sulla 1 posizione con un solo numero......

Ti ho detto che adesso come è lo script, puoi scegliere
solo una posizione, ma ne puoi scegliere quella che vuoi.
In pratica solo una fra la 1°, la 2°, la 3°, la 4°, o la 5°,
scegli tu quella che vuoi, ma per il momento solo una.

Poi puoi scegliere già da adesso da 1 a max 15 numeri.

rosa962 · 21 Aprile 2012

Hai ragione baffo

scusami tanto

grazie ancora

ciao

Baffoblu · 21 Aprile 2012

Ciao

Con questo script, puoi scegliere da 1 a max 15 numeri a tua scelta.

e puoi scegliere da 1 a max 3 posizioni, sempre di tua scelta.

PS: lo script è molto lungo, quindi ci mette un po per essere
riconosciuto, quando lo inserisci in spaziometria.
Attendi il tempo necessario, sembra che si blocca, ma non è così.....

devi solo aspettare il tempo che ci vuole.....

Codice:

Sub Main()
    Dim idEstr
    Dim Inizio
    Dim Fine
    Dim ruote(11)
    'Dim poste(10)
    Dim r
    Dim nAnalisi
    'Dim nColpiDiGioco
    Dim pos
    Dim pos1
    Dim pos2
    Dim pos3
    Dim pos4
    Dim pos5
    Dim num
    Dim num1
    Dim num2
    Dim num3
    Dim num4
    Dim num5
    Dim num6
    Dim num7
    Dim num8
    Dim num9
    Dim num10
    Dim num11
    Dim num12
    Dim num13
    Dim num14
    Dim num15
    'poste(1) = 1
    r = CInt(InputBox(" Scegli la ruota di Elaborazione",,"1"))
    nAnalisi = CInt(InputBox(" Quante estrazioni vuoi controllare ? ",,"20"))
    'nColpiDiGioco = CInt(InputBox(" Per quanti colpi vuoi giocare ? ",,"1"))
    pos = CInt(InputBox(" Quantità di posizioni che vuoi considerare ? * Max 3 ",,"3"))
    '----------------------------------------------------------------------------
    If pos = 1 Then
        pos1 = CInt(InputBox(" Scegli la Posizione voluta ",,"1"))
    End If
    '----------------------------------------------------------
    If pos = 2 Then
        pos1 = CInt(InputBox(" Scegli la 1° Posizione Scelta ",,"1"))
        pos2 = CInt(InputBox(" Scegli la 2° Posizione Scelta ",,"2"))
    End If
    '----------------------------------------------------------
    If pos = 3 Then
        pos1 = CInt(InputBox(" Scegli la 1° Posizione Scelta ",,"1"))
        pos2 = CInt(InputBox(" Scegli la 2° Posizione Scelta ",,"2"))
        pos3 = CInt(InputBox(" Scegli la 3° Posizione Scelta ",,"3"))
    End If
    '------------------------------------------------------------------
    num = CInt(InputBox("Quantità numeri che vuoi Utilizzare ? - max 15.",,"1"))
    '------------------------------------------------------------------
    If num = 1 Then
        num1 = CInt(InputBox(" Inserisci il Numero scelto",,"1"))
    End If
    '--------------------------------------------------------
    If num = 2 Then
        num1 = CInt(InputBox(" Inserisci il 1° Numero scelto",,"1"))
        num2 = CInt(InputBox(" Inserisci il 2° Numero scelto",,"2"))
    End If
    '--------------------------------------------------------
    If num = 3 Then
        num1 = CInt(InputBox(" Inserisci il 1° Numero scelto",,"1"))
        num2 = CInt(InputBox(" Inserisci il 2° Numero scelto",,"2"))
        num3 = CInt(InputBox(" Inserisci il 3° Numero scelto",,"3"))
    End If
    '--------------------------------------------------------
    If num = 4 Then
        num1 = CInt(InputBox(" Inserisci il 1° Numero scelto",,"1"))
        num2 = CInt(InputBox(" Inserisci il 2° Numero scelto",,"2"))
        num3 = CInt(InputBox(" Inserisci il 3° Numero scelto",,"3"))
        num4 = CInt(InputBox(" Inserisci il 4° Numero scelto",,"4"))
    End If
    '--------------------------------------------------------
    If num = 5 Then
        num1 = CInt(InputBox(" Inserisci il 1° Numero scelto",,"1"))
        num2 = CInt(InputBox(" Inserisci il 2° Numero scelto",,"2"))
        num3 = CInt(InputBox(" Inserisci il 3° Numero scelto",,"3"))
        num4 = CInt(InputBox(" Inserisci il 4° Numero scelto",,"4"))
        num5 = CInt(InputBox(" Inserisci il 5° Numero scelto",,"5"))
    End If
    '--------------------------------------------------------
    If num = 6 Then
        num1 = CInt(InputBox(" Inserisci il 1° Numero scelto",,"1"))
        num2 = CInt(InputBox(" Inserisci il 2° Numero scelto",,"2"))
        num3 = CInt(InputBox(" Inserisci il 3° Numero scelto",,"3"))
        num4 = CInt(InputBox(" Inserisci il 4° Numero scelto",,"4"))
        num5 = CInt(InputBox(" Inserisci il 5° Numero scelto",,"5"))
        num6 = CInt(InputBox(" Inserisci il 6° Numero scelto",,"6"))
    End If
    '--------------------------------------------------------
    If num = 7 Then
        num1 = CInt(InputBox(" Inserisci il 1° Numero scelto",,"1"))
        num2 = CInt(InputBox(" Inserisci il 2° Numero scelto",,"2"))
        num3 = CInt(InputBox(" Inserisci il 3° Numero scelto",,"3"))
        num4 = CInt(InputBox(" Inserisci il 4° Numero scelto",,"4"))
        num5 = CInt(InputBox(" Inserisci il 5° Numero scelto",,"5"))
        num6 = CInt(InputBox(" Inserisci il 6° Numero scelto",,"6"))
        num7 = CInt(InputBox(" Inserisci il 7° Numero scelto",,"7"))
    End If
    '-------------------------------------------------------
    If num = 8 Then
        num1 = CInt(InputBox(" Inserisci il 1° Numero scelto",,"1"))
        num2 = CInt(InputBox(" Inserisci il 2° Numero scelto",,"2"))
        num3 = CInt(InputBox(" Inserisci il 3° Numero scelto",,"3"))
        num4 = CInt(InputBox(" Inserisci il 4° Numero scelto",,"4"))
        num5 = CInt(InputBox(" Inserisci il 5° Numero scelto",,"5"))
        num6 = CInt(InputBox(" Inserisci il 6° Numero scelto",,"6"))
        num7 = CInt(InputBox(" Inserisci il 7° Numero scelto",,"7"))
        num8 = CInt(InputBox(" Inserisci il 8° Numero scelto",,"8"))
    End If
    '-------------------------------------------------------
    If num = 9 Then
        num1 = CInt(InputBox(" Inserisci il 1° Numero scelto",,"1"))
        num2 = CInt(InputBox(" Inserisci il 2° Numero scelto",,"2"))
        num3 = CInt(InputBox(" Inserisci il 3° Numero scelto",,"3"))
        num4 = CInt(InputBox(" Inserisci il 4° Numero scelto",,"4"))
        num5 = CInt(InputBox(" Inserisci il 5° Numero scelto",,"5"))
        num6 = CInt(InputBox(" Inserisci il 6° Numero scelto",,"6"))
        num7 = CInt(InputBox(" Inserisci il 7° Numero scelto",,"7"))
        num8 = CInt(InputBox(" Inserisci il 8° Numero scelto",,"8"))
        num9 = CInt(InputBox(" Inserisci il 9° Numero scelto",,"9"))
    End If
    '-------------------------------------------------------
    If num = 10 Then
        num1 = CInt(InputBox(" Inserisci il 1° Numero scelto",,"1"))
        num2 = CInt(InputBox(" Inserisci il 2° Numero scelto",,"2"))
        num3 = CInt(InputBox(" Inserisci il 3° Numero scelto",,"3"))
        num4 = CInt(InputBox(" Inserisci il 4° Numero scelto",,"4"))
        num5 = CInt(InputBox(" Inserisci il 5° Numero scelto",,"5"))
        num6 = CInt(InputBox(" Inserisci il 6° Numero scelto",,"6"))
        num7 = CInt(InputBox(" Inserisci il 7° Numero scelto",,"7"))
        num8 = CInt(InputBox(" Inserisci il 8° Numero scelto",,"8"))
        num9 = CInt(InputBox(" Inserisci il 9° Numero scelto",,"9"))
        num10 = CInt(InputBox(" Inserisci il 10° Numero scelto",,"10"))
    End If
    '-------------------------------------------------------
    If num = 11 Then
        num1 = CInt(InputBox(" Inserisci il 1° Numero scelto",,"1"))
        num2 = CInt(InputBox(" Inserisci il 2° Numero scelto",,"2"))
        num3 = CInt(InputBox(" Inserisci il 3° Numero scelto",,"3"))
        num4 = CInt(InputBox(" Inserisci il 4° Numero scelto",,"4"))
        num5 = CInt(InputBox(" Inserisci il 5° Numero scelto",,"5"))
        num6 = CInt(InputBox(" Inserisci il 6° Numero scelto",,"6"))
        num7 = CInt(InputBox(" Inserisci il 7° Numero scelto",,"7"))
        num8 = CInt(InputBox(" Inserisci il 8° Numero scelto",,"8"))
        num9 = CInt(InputBox(" Inserisci il 9° Numero scelto",,"9"))
        num10 = CInt(InputBox(" Inserisci il 10° Numero scelto",,"10"))
        num11 = CInt(InputBox(" Inserisci il 11° Numero scelto",,"11"))
    End If
    '-------------------------------------------------------
    If num = 12 Then
        num1 = CInt(InputBox(" Inserisci il 1° Numero scelto",,"1"))
        num2 = CInt(InputBox(" Inserisci il 2° Numero scelto",,"2"))
        num3 = CInt(InputBox(" Inserisci il 3° Numero scelto",,"3"))
        num4 = CInt(InputBox(" Inserisci il 4° Numero scelto",,"4"))
        num5 = CInt(InputBox(" Inserisci il 5° Numero scelto",,"5"))
        num6 = CInt(InputBox(" Inserisci il 6° Numero scelto",,"6"))
        num7 = CInt(InputBox(" Inserisci il 7° Numero scelto",,"7"))
        num8 = CInt(InputBox(" Inserisci il 8° Numero scelto",,"8"))
        num9 = CInt(InputBox(" Inserisci il 9° Numero scelto",,"9"))
        num10 = CInt(InputBox(" Inserisci il 10° Numero scelto",,"10"))
        num11 = CInt(InputBox(" Inserisci il 11° Numero scelto",,"11"))
        num12 = CInt(InputBox(" Inserisci il 12° Numero scelto",,"12"))
    End If
    '-------------------------------------------------------
    If num = 13 Then
        num1 = CInt(InputBox(" Inserisci il 1° Numero scelto",,"1"))
        num2 = CInt(InputBox(" Inserisci il 2° Numero scelto",,"2"))
        num3 = CInt(InputBox(" Inserisci il 3° Numero scelto",,"3"))
        num4 = CInt(InputBox(" Inserisci il 4° Numero scelto",,"4"))
        num5 = CInt(InputBox(" Inserisci il 5° Numero scelto",,"5"))
        num6 = CInt(InputBox(" Inserisci il 6° Numero scelto",,"6"))
        num7 = CInt(InputBox(" Inserisci il 7° Numero scelto",,"7"))
        num8 = CInt(InputBox(" Inserisci il 8° Numero scelto",,"8"))
        num9 = CInt(InputBox(" Inserisci il 9° Numero scelto",,"9"))
        num10 = CInt(InputBox(" Inserisci il 10° Numero scelto",,"10"))
        num11 = CInt(InputBox(" Inserisci il 11° Numero scelto",,"11"))
        num12 = CInt(InputBox(" Inserisci il 12° Numero scelto",,"12"))
        num13 = CInt(InputBox(" Inserisci il 13° Numero scelto",,"13"))
    End If
    '-------------------------------------------------------
    If num = 14 Then
        num1 = CInt(InputBox(" Inserisci il 1° Numero scelto",,"1"))
        num2 = CInt(InputBox(" Inserisci il 2° Numero scelto",,"2"))
        num3 = CInt(InputBox(" Inserisci il 3° Numero scelto",,"3"))
        num4 = CInt(InputBox(" Inserisci il 4° Numero scelto",,"4"))
        num5 = CInt(InputBox(" Inserisci il 5° Numero scelto",,"5"))
        num6 = CInt(InputBox(" Inserisci il 6° Numero scelto",,"6"))
        num7 = CInt(InputBox(" Inserisci il 7° Numero scelto",,"7"))
        num8 = CInt(InputBox(" Inserisci il 8° Numero scelto",,"8"))
        num9 = CInt(InputBox(" Inserisci il 9° Numero scelto",,"9"))
        num10 = CInt(InputBox(" Inserisci il 10° Numero scelto",,"10"))
        num11 = CInt(InputBox(" Inserisci il 11° Numero scelto",,"11"))
        num12 = CInt(InputBox(" Inserisci il 12° Numero scelto",,"12"))
        num13 = CInt(InputBox(" Inserisci il 13° Numero scelto",,"13"))
        num14 = CInt(InputBox(" Inserisci il 14° Numero scelto",,"14"))
    End If
    '-------------------------------------------------------
    If num = 15 Then
        num1 = CInt(InputBox(" Inserisci il 1° Numero scelto",,"1"))
        num2 = CInt(InputBox(" Inserisci il 2° Numero scelto",,"2"))
        num3 = CInt(InputBox(" Inserisci il 3° Numero scelto",,"3"))
        num4 = CInt(InputBox(" Inserisci il 4° Numero scelto",,"4"))
        num5 = CInt(InputBox(" Inserisci il 5° Numero scelto",,"5"))
        num6 = CInt(InputBox(" Inserisci il 6° Numero scelto",,"6"))
        num7 = CInt(InputBox(" Inserisci il 7° Numero scelto",,"7"))
        num8 = CInt(InputBox(" Inserisci il 8° Numero scelto",,"8"))
        num9 = CInt(InputBox(" Inserisci il 9° Numero scelto",,"9"))
        num10 = CInt(InputBox(" Inserisci il 10° Numero scelto",,"10"))
        num11 = CInt(InputBox(" Inserisci il 11° Numero scelto",,"11"))
        num12 = CInt(InputBox(" Inserisci il 12° Numero scelto",,"12"))
        num13 = CInt(InputBox(" Inserisci il 13° Numero scelto",,"13"))
        num14 = CInt(InputBox(" Inserisci il 14° Numero scelto",,"14"))
        num15 = CInt(InputBox(" Inserisci il 15° Numero scelto",,"15"))
    End If
    '---------------------------------------------------------------------
    Inizio = EstrazioneFin - nAnalisi
    Fine = EstrazioneFin
    co = 0
    For idEstr = Inizio To Fine
        Messaggio "elab. estr. [" &(idEstr) & "] di " & DataEstrazione(idEstr,1)
        Call AvanzamentoElab(Inizio,Fine,idEstr)
        ruote(1) = r
        '------------------------------------------------
        co = co + 1
        Scrivi String(100,"°") & " Caso n°" & co,1
        Scrivi DataEstrazione(idEstr) & " -- " & SiglaRuota(r) & " - " & StringaEstratti(idEstr,r),1
        ColoreTesto 1
        Scrivi
        '*************************************************************************************************************************************************
        '------------------------------------------------
        If pos = 1 And num = 1 Then
            som1 = Fuori90(num1 + Estratto(idEstr,r,pos1))
            Scrivi "Somma : " & som1 & " Derivante dalla somma dell'adattatore  " & Format2(num1) & " con il " & pos1 & "° Estratto di " & NomeRuota(r),1
        End If
        '----------------------------------------------------
        If pos = 1 And num = 2 Then
            som1 = Fuori90(num1 + Estratto(idEstr,r,pos1))
            som2 = Fuori90(num2 + Estratto(idEstr,r,pos1))
            Scrivi som1 & "-" & som2,1
        End If
        '----------------------------------------------------
        If pos = 1 And num = 3 Then
            som1 = Fuori90(num1 + Estratto(idEstr,r,pos1))
            som2 = Fuori90(num2 + Estratto(idEstr,r,pos1))
            som3 = Fuori90(num3 + Estratto(idEstr,r,pos1))
            Scrivi som1 & "-" & som2 & "-" & som3,1
        End If
        '----------------------------------------------------
        If pos = 1 And num = 4 Then
            som1 = Fuori90(num1 + Estratto(idEstr,r,pos1))
            som2 = Fuori90(num2 + Estratto(idEstr,r,pos1))
            som3 = Fuori90(num3 + Estratto(idEstr,r,pos1))
            som4 = Fuori90(num4 + Estratto(idEstr,r,pos1))
            Scrivi som1 & "-" & som2 & "-" & som3 & "-" & som4,1
        End If
        '----------------------------------------------------
        If pos = 1 And num = 5 Then
            som1 = Fuori90(num1 + Estratto(idEstr,r,pos1))
            som2 = Fuori90(num2 + Estratto(idEstr,r,pos1))
            som3 = Fuori90(num3 + Estratto(idEstr,r,pos1))
            som4 = Fuori90(num4 + Estratto(idEstr,r,pos1))
            som5 = Fuori90(num5 + Estratto(idEstr,r,pos1))
            Scrivi som1 & "-" & som2 & "-" & som3 & "-" & som4 & "-" & som5,1
        End If
        '----------------------------------------------------
        If pos = 1 And num = 6 Then
            som1 = Fuori90(num1 + Estratto(idEstr,r,pos1))
            som2 = Fuori90(num2 + Estratto(idEstr,r,pos1))
            som3 = Fuori90(num3 + Estratto(idEstr,r,pos1))
            som4 = Fuori90(num4 + Estratto(idEstr,r,pos1))
            som5 = Fuori90(num5 + Estratto(idEstr,r,pos1))
            som6 = Fuori90(num6 + Estratto(idEstr,r,pos1))
            Scrivi som1 & "-" & som2 & "-" & som3 & "-" & som4 & "-" & som5 & "-" & som6,1
        End If
        '----------------------------------------------------
        If pos = 1 And num = 7 Then
            som1 = Fuori90(num1 + Estratto(idEstr,r,pos1))
            som2 = Fuori90(num2 + Estratto(idEstr,r,pos1))
            som3 = Fuori90(num3 + Estratto(idEstr,r,pos1))
            som4 = Fuori90(num4 + Estratto(idEstr,r,pos1))
            som5 = Fuori90(num5 + Estratto(idEstr,r,pos1))
            som6 = Fuori90(num6 + Estratto(idEstr,r,pos1))
            som7 = Fuori90(num7 + Estratto(idEstr,r,pos1))
            Scrivi som1 & "-" & som2 & "-" & som3 & "-" & som4 & "-" & som5 & "-" & som6 & "-" & som7,1
        End If
        '----------------------------------------------------
        If pos = 1 And num = 8 Then
            som1 = Fuori90(num1 + Estratto(idEstr,r,pos1))
            som2 = Fuori90(num2 + Estratto(idEstr,r,pos1))
            som3 = Fuori90(num3 + Estratto(idEstr,r,pos1))
            som4 = Fuori90(num4 + Estratto(idEstr,r,pos1))
            som5 = Fuori90(num5 + Estratto(idEstr,r,pos1))
            som6 = Fuori90(num6 + Estratto(idEstr,r,pos1))
            som7 = Fuori90(num7 + Estratto(idEstr,r,pos1))
            som8 = Fuori90(num8 + Estratto(idEstr,r,pos1))
            Scrivi som1 & "-" & som2 & "-" & som3 & "-" & som4 & "-" & som5 & "-" & som6 & "-" & som7 & "-" & som8,1
        End If
        '----------------------------------------------------
        If pos = 1 And num = 9 Then
            som1 = Fuori90(num1 + Estratto(idEstr,r,pos1))
            som2 = Fuori90(num2 + Estratto(idEstr,r,pos1))
            som3 = Fuori90(num3 + Estratto(idEstr,r,pos1))
            som4 = Fuori90(num4 + Estratto(idEstr,r,pos1))
            som5 = Fuori90(num5 + Estratto(idEstr,r,pos1))
            som6 = Fuori90(num6 + Estratto(idEstr,r,pos1))
            som7 = Fuori90(num7 + Estratto(idEstr,r,pos1))
            som8 = Fuori90(num8 + Estratto(idEstr,r,pos1))
            som9 = Fuori90(num9 + Estratto(idEstr,r,pos1))
            Scrivi som1 & "-" & som2 & "-" & som3 & "-" & som4 & "-" & som5 & "-" & som6 & "-" & som7 & "-" & som8 & "-" & som9,1
        End If
        '----------------------------------------------------
        If pos = 1 And num = 10 Then
            som1 = Fuori90(num1 + Estratto(idEstr,r,pos1))
            som2 = Fuori90(num2 + Estratto(idEstr,r,pos1))
            som3 = Fuori90(num3 + Estratto(idEstr,r,pos1))
            som4 = Fuori90(num4 + Estratto(idEstr,r,pos1))
            som5 = Fuori90(num5 + Estratto(idEstr,r,pos1))
            som6 = Fuori90(num6 + Estratto(idEstr,r,pos1))
            som7 = Fuori90(num7 + Estratto(idEstr,r,pos1))
            som8 = Fuori90(num8 + Estratto(idEstr,r,pos1))
            som9 = Fuori90(num9 + Estratto(idEstr,r,pos1))
            som10 = Fuori90(num10 + Estratto(idEstr,r,pos1))
            Scrivi som1 & "-" & som2 & "-" & som3 & "-" & som4 & "-" & som5 & "-" & som6 & "-" & som7 & "-" & som8 & "-" & som9 & "-" & som10,1
        End If
        '----------------------------------------------------
        If pos = 1 And num = 11 Then
            som1 = Fuori90(num1 + Estratto(idEstr,r,pos1))
            som2 = Fuori90(num2 + Estratto(idEstr,r,pos1))
            som3 = Fuori90(num3 + Estratto(idEstr,r,pos1))
            som4 = Fuori90(num4 + Estratto(idEstr,r,pos1))
            som5 = Fuori90(num5 + Estratto(idEstr,r,pos1))
            som6 = Fuori90(num6 + Estratto(idEstr,r,pos1))
            som7 = Fuori90(num7 + Estratto(idEstr,r,pos1))
            som8 = Fuori90(num8 + Estratto(idEstr,r,pos1))
            som9 = Fuori90(num9 + Estratto(idEstr,r,pos1))
            som10 = Fuori90(num10 + Estratto(idEstr,r,pos1))
            som11 = Fuori90(num11 + Estratto(idEstr,r,pos1))
            Scrivi som1 & "-" & som2 & "-" & som3 & "-" & som4 & "-" & som5 & "-" & som6 & "-" & som7 & "-" & som8 & "-" & som9 & "-" & som10 & "-" & som11,1
        End If
        '----------------------------------------------------
        If pos = 1 And num = 12 Then
            som1 = Fuori90(num1 + Estratto(idEstr,r,pos1))
            som2 = Fuori90(num2 + Estratto(idEstr,r,pos1))
            som3 = Fuori90(num3 + Estratto(idEstr,r,pos1))
            som4 = Fuori90(num4 + Estratto(idEstr,r,pos1))
            som5 = Fuori90(num5 + Estratto(idEstr,r,pos1))
            som6 = Fuori90(num6 + Estratto(idEstr,r,pos1))
            som7 = Fuori90(num7 + Estratto(idEstr,r,pos1))
            som8 = Fuori90(num8 + Estratto(idEstr,r,pos1))
            som9 = Fuori90(num9 + Estratto(idEstr,r,pos1))
            som10 = Fuori90(num10 + Estratto(idEstr,r,pos1))
            som11 = Fuori90(num11 + Estratto(idEstr,r,pos1))
            som12 = Fuori90(num12 + Estratto(idEstr,r,pos1))
            Scrivi som1 & "-" & som2 & "-" & som3 & "-" & som4 & "-" & som5 & "-" & som6 & "-" & som7 & "-" & som8 & "-" & som9 & "-" & som10 & "-" & som11 & "-" & som12,1
        End If
        '----------------------------------------------------
        If pos = 1 And num = 13 Then
            som1 = Fuori90(num1 + Estratto(idEstr,r,pos1))
            som2 = Fuori90(num2 + Estratto(idEstr,r,pos1))
            som3 = Fuori90(num3 + Estratto(idEstr,r,pos1))
            som4 = Fuori90(num4 + Estratto(idEstr,r,pos1))
            som5 = Fuori90(num5 + Estratto(idEstr,r,pos1))
            som6 = Fuori90(num6 + Estratto(idEstr,r,pos1))
            som7 = Fuori90(num7 + Estratto(idEstr,r,pos1))
            som8 = Fuori90(num8 + Estratto(idEstr,r,pos1))
            som9 = Fuori90(num9 + Estratto(idEstr,r,pos1))
            som10 = Fuori90(num10 + Estratto(idEstr,r,pos1))
            som11 = Fuori90(num11 + Estratto(idEstr,r,pos1))
            som12 = Fuori90(num12 + Estratto(idEstr,r,pos1))
            som13 = Fuori90(num13 + Estratto(idEstr,r,pos1))
            Scrivi som1 & "-" & som2 & "-" & som3 & "-" & som4 & "-" & som5 & "-" & som6 & "-" & som7 & "-" & som8 & "-" & som9 & "-" & som10 & "-" & som11 & "-" & som12 & "-" & som13,1
        End If
        '----------------------------------------------------
        If pos = 1 And num = 14 Then
            som1 = Fuori90(num1 + Estratto(idEstr,r,pos1))
            som2 = Fuori90(num2 + Estratto(idEstr,r,pos1))
            som3 = Fuori90(num3 + Estratto(idEstr,r,pos1))
            som4 = Fuori90(num4 + Estratto(idEstr,r,pos1))
            som5 = Fuori90(num5 + Estratto(idEstr,r,pos1))
            som6 = Fuori90(num6 + Estratto(idEstr,r,pos1))
            som7 = Fuori90(num7 + Estratto(idEstr,r,pos1))
            som8 = Fuori90(num8 + Estratto(idEstr,r,pos1))
            som9 = Fuori90(num9 + Estratto(idEstr,r,pos1))
            som10 = Fuori90(num10 + Estratto(idEstr,r,pos1))
            som11 = Fuori90(num11 + Estratto(idEstr,r,pos1))
            som12 = Fuori90(num12 + Estratto(idEstr,r,pos1))
            som13 = Fuori90(num13 + Estratto(idEstr,r,pos1))
            som14 = Fuori90(num14 + Estratto(idEstr,r,pos1))
            Scrivi som1 & "-" & som2 & "-" & som3 & "-" & som4 & "-" & som5 & "-" & som6 & "-" & som7 & "-" & som8 & "-" & som9 & "-" & som10 & "-" & som11 & "-" & som12 & "-" & som13 & "-" & som14,1
        End If
        '----------------------------------------------------
        If pos = 1 And num = 15 Then
            som1 = Fuori90(num1 + Estratto(idEstr,r,pos1))
            som2 = Fuori90(num2 + Estratto(idEstr,r,pos1))
            som3 = Fuori90(num3 + Estratto(idEstr,r,pos1))
            som4 = Fuori90(num4 + Estratto(idEstr,r,pos1))
            som5 = Fuori90(num5 + Estratto(idEstr,r,pos1))
            som6 = Fuori90(num6 + Estratto(idEstr,r,pos1))
            som7 = Fuori90(num7 + Estratto(idEstr,r,pos1))
            som8 = Fuori90(num8 + Estratto(idEstr,r,pos1))
            som9 = Fuori90(num9 + Estratto(idEstr,r,pos1))
            som10 = Fuori90(num10 + Estratto(idEstr,r,pos1))
            som11 = Fuori90(num11 + Estratto(idEstr,r,pos1))
            som12 = Fuori90(num12 + Estratto(idEstr,r,pos1))
            som13 = Fuori90(num13 + Estratto(idEstr,r,pos1))
            som14 = Fuori90(num14 + Estratto(idEstr,r,pos1))
            som15 = Fuori90(num15 + Estratto(idEstr,r,pos1))
            Scrivi som1 & "-" & som2 & "-" & som3 & "-" & som4 & "-" & som5 & "-" & som6 & "-" & som7 & "-" & som8 & "-" & som9 & "-" & som10 & "-" & som11 & "-" & som12 & "-" & som13 & "-" & som14 & "-" & som15,1
        End If
        '----------------------------------------------------
        '------------------------------------------------
        If pos = 2 And num = 1 Then
            som1 = Fuori90(num1 + Estratto(idEstr,r,pos1))
            som2 = Fuori90(num1 + Estratto(idEstr,r,pos2))
            Scrivi som1 & "-" & som2,1
        End If
        '----------------------------------------------------
        If pos = 2 And num = 2 Then
            som1 = Fuori90(num1 + Estratto(idEstr,r,pos1))
            som2 = Fuori90(num1 + Estratto(idEstr,r,pos2))
            som3 = Fuori90(num2 + Estratto(idEstr,r,pos1))
            som4 = Fuori90(num2 + Estratto(idEstr,r,pos2))
            Scrivi som1 & "-" & som2 & "-" & som3 & "-" & som4,1
        End If
        '----------------------------------------------------
        If pos = 2 And num = 3 Then
            som1 = Fuori90(num1 + Estratto(idEstr,r,pos1))
            som2 = Fuori90(num1 + Estratto(idEstr,r,pos2))
            som3 = Fuori90(num2 + Estratto(idEstr,r,pos1))
            som4 = Fuori90(num2 + Estratto(idEstr,r,pos2))
            som5 = Fuori90(num3 + Estratto(idEstr,r,pos1))
            som6 = Fuori90(num3 + Estratto(idEstr,r,pos2))
            Scrivi som1 & "-" & som2 & "-" & som3 & "-" & som4 & "-" & som5 & "-" & som6,1
        End If
        '----------------------------------------------------
        If pos = 2 And num = 4 Then
            som1 = Fuori90(num1 + Estratto(idEstr,r,pos1))
            som2 = Fuori90(num1 + Estratto(idEstr,r,pos2))
            som3 = Fuori90(num2 + Estratto(idEstr,r,pos1))
            som4 = Fuori90(num2 + Estratto(idEstr,r,pos2))
            som5 = Fuori90(num3 + Estratto(idEstr,r,pos1))
            som6 = Fuori90(num3 + Estratto(idEstr,r,pos2))
            som7 = Fuori90(num4 + Estratto(idEstr,r,pos1))
            som8 = Fuori90(num4 + Estratto(idEstr,r,pos2))
            Scrivi som1 & "-" & som2 & "-" & som3 & "-" & som4 & "-" & som5 & "-" & som6 & "-" & som7 & "-" & som8,1
        End If
        '----------------------------------------------------
        If pos = 2 And num = 5 Then
            som1 = Fuori90(num1 + Estratto(idEstr,r,pos1))
            som2 = Fuori90(num1 + Estratto(idEstr,r,pos2))
            som3 = Fuori90(num2 + Estratto(idEstr,r,pos1))
            som4 = Fuori90(num2 + Estratto(idEstr,r,pos2))
            som5 = Fuori90(num3 + Estratto(idEstr,r,pos1))
            som6 = Fuori90(num3 + Estratto(idEstr,r,pos2))
            som7 = Fuori90(num4 + Estratto(idEstr,r,pos1))
            som8 = Fuori90(num4 + Estratto(idEstr,r,pos2))
            som9 = Fuori90(num5 + Estratto(idEstr,r,pos1))
            som10 = Fuori90(num5 + Estratto(idEstr,r,pos2))
            Scrivi som1 & "-" & som2 & "-" & som3 & "-" & som4 & "-" & som5 & "-" & som6 & "-" & som7 & "-" & som8 & "-" & som9 & "-" & som10,1
        End If
        '----------------------------------------------------
        If pos = 2 And num = 6 Then
            som1 = Fuori90(num1 + Estratto(idEstr,r,pos1))
            som2 = Fuori90(num1 + Estratto(idEstr,r,pos2))
            som3 = Fuori90(num2 + Estratto(idEstr,r,pos1))
            som4 = Fuori90(num2 + Estratto(idEstr,r,pos2))
            som5 = Fuori90(num3 + Estratto(idEstr,r,pos1))
            som6 = Fuori90(num3 + Estratto(idEstr,r,pos2))
            som7 = Fuori90(num4 + Estratto(idEstr,r,pos1))
            som8 = Fuori90(num4 + Estratto(idEstr,r,pos2))
            som9 = Fuori90(num5 + Estratto(idEstr,r,pos1))
            som10 = Fuori90(num5 + Estratto(idEstr,r,pos2))
            som11 = Fuori90(num6 + Estratto(idEstr,r,pos1))
            som12 = Fuori90(num6 + Estratto(idEstr,r,pos2))
            Scrivi som1 & "-" & som2 & "-" & som3 & "-" & som4 & "-" & som5 & "-" & som6 & "-" & som7 & "-" & som8 & "-" & som9 & "-" & som10 & "-" & som11 & "-" & som12,1
        End If
        '----------------------------------------------------
        If pos = 2 And num = 7 Then
            som1 = Fuori90(num1 + Estratto(idEstr,r,pos1))
            som2 = Fuori90(num1 + Estratto(idEstr,r,pos2))
            som3 = Fuori90(num2 + Estratto(idEstr,r,pos1))
            som4 = Fuori90(num2 + Estratto(idEstr,r,pos2))
            som5 = Fuori90(num3 + Estratto(idEstr,r,pos1))
            som6 = Fuori90(num3 + Estratto(idEstr,r,pos2))
            som7 = Fuori90(num4 + Estratto(idEstr,r,pos1))
            som8 = Fuori90(num4 + Estratto(idEstr,r,pos2))
            som9 = Fuori90(num5 + Estratto(idEstr,r,pos1))
            som10 = Fuori90(num5 + Estratto(idEstr,r,pos2))
            som11 = Fuori90(num6 + Estratto(idEstr,r,pos1))
            som12 = Fuori90(num6 + Estratto(idEstr,r,pos2))
            som13 = Fuori90(num7 + Estratto(idEstr,r,pos1))
            som14 = Fuori90(num7 + Estratto(idEstr,r,pos2))
            Scrivi som1 & "-" & som2 & "-" & som3 & "-" & som4 & "-" & som5 & "-" & som6 & "-" & som7 & "-" & som8 & "-" & som9 & "-" & som10 & "-" & som11 & "-" & som12 & "-" & som13 & "-" & som14,1
        End If
        '----------------------------------------------------
        If pos = 2 And num = 8 Then
            som1 = Fuori90(num1 + Estratto(idEstr,r,pos1))
            som2 = Fuori90(num1 + Estratto(idEstr,r,pos2))
            som3 = Fuori90(num2 + Estratto(idEstr,r,pos1))
            som4 = Fuori90(num2 + Estratto(idEstr,r,pos2))
            som5 = Fuori90(num3 + Estratto(idEstr,r,pos1))
            som6 = Fuori90(num3 + Estratto(idEstr,r,pos2))
            som7 = Fuori90(num4 + Estratto(idEstr,r,pos1))
            som8 = Fuori90(num4 + Estratto(idEstr,r,pos2))
            som9 = Fuori90(num5 + Estratto(idEstr,r,pos1))
            som10 = Fuori90(num5 + Estratto(idEstr,r,pos2))
            som11 = Fuori90(num6 + Estratto(idEstr,r,pos1))
            som12 = Fuori90(num6 + Estratto(idEstr,r,pos2))
            som13 = Fuori90(num7 + Estratto(idEstr,r,pos1))
            som14 = Fuori90(num7 + Estratto(idEstr,r,pos2))
            som15 = Fuori90(num8 + Estratto(idEstr,r,pos1))
            som16 = Fuori90(num8 + Estratto(idEstr,r,pos2))
            Scrivi som1 & "-" & som2 & "-" & som3 & "-" & som4 & "-" & som5 & "-" & som6 & "-" & som7 & "-" & som8 & "-" & som9 & "-" & som10 & "-" & som11 & "-" & som12 & "-" & som13 & "-" & som14 & "-" & som15 & "-" & som16,1
        End If
        '----------------------------------------------------
        If pos = 2 And num = 9 Then
            som1 = Fuori90(num1 + Estratto(idEstr,r,pos1))
            som2 = Fuori90(num1 + Estratto(idEstr,r,pos2))
            som3 = Fuori90(num2 + Estratto(idEstr,r,pos1))
            som4 = Fuori90(num2 + Estratto(idEstr,r,pos2))
            som5 = Fuori90(num3 + Estratto(idEstr,r,pos1))
            som6 = Fuori90(num3 + Estratto(idEstr,r,pos2))
            som7 = Fuori90(num4 + Estratto(idEstr,r,pos1))
            som8 = Fuori90(num4 + Estratto(idEstr,r,pos2))
            som9 = Fuori90(num5 + Estratto(idEstr,r,pos1))
            som10 = Fuori90(num5 + Estratto(idEstr,r,pos2))
            som11 = Fuori90(num6 + Estratto(idEstr,r,pos1))
            som12 = Fuori90(num6 + Estratto(idEstr,r,pos2))
            som13 = Fuori90(num7 + Estratto(idEstr,r,pos1))
            som14 = Fuori90(num7 + Estratto(idEstr,r,pos2))
            som15 = Fuori90(num8 + Estratto(idEstr,r,pos1))
            som16 = Fuori90(num8 + Estratto(idEstr,r,pos2))
            som17 = Fuori90(num9 + Estratto(idEstr,r,pos1))
            som18 = Fuori90(num9 + Estratto(idEstr,r,pos2))
            Scrivi som1 & "-" & som2 & "-" & som3 & "-" & som4 & "-" & som5 & "-" & som6 & "-" & som7 & "-" & som8 & "-" & som9 & "-" & som10 & "-" & som11 & "-" & som12 & "-" & som13 & "-" & som14 & "-" & som15 & "-" & som16,1
                        Scrivi
                        Scrivi som17 & "-" & som18,1
        End If
        '----------------------------------------------------
        If pos = 2 And num = 10 Then
            som1 = Fuori90(num1 + Estratto(idEstr,r,pos1))
            som2 = Fuori90(num1 + Estratto(idEstr,r,pos2))
            som3 = Fuori90(num2 + Estratto(idEstr,r,pos1))
            som4 = Fuori90(num2 + Estratto(idEstr,r,pos2))
            som5 = Fuori90(num3 + Estratto(idEstr,r,pos1))
            som6 = Fuori90(num3 + Estratto(idEstr,r,pos2))
            som7 = Fuori90(num4 + Estratto(idEstr,r,pos1))
            som8 = Fuori90(num4 + Estratto(idEstr,r,pos2))
            som9 = Fuori90(num5 + Estratto(idEstr,r,pos1))
            som10 = Fuori90(num5 + Estratto(idEstr,r,pos2))
            som11 = Fuori90(num6 + Estratto(idEstr,r,pos1))
            som12 = Fuori90(num6 + Estratto(idEstr,r,pos2))
            som13 = Fuori90(num7 + Estratto(idEstr,r,pos1))
            som14 = Fuori90(num7 + Estratto(idEstr,r,pos2))
            som15 = Fuori90(num8 + Estratto(idEstr,r,pos1))
            som16 = Fuori90(num8 + Estratto(idEstr,r,pos2))
            som17 = Fuori90(num9 + Estratto(idEstr,r,pos1))
            som18 = Fuori90(num9 + Estratto(idEstr,r,pos2))
            som19 = Fuori90(num10 + Estratto(idEstr,r,pos1))
            som20 = Fuori90(num10 + Estratto(idEstr,r,pos2))
            Scrivi som1 & "-" & som2 & "-" & som3 & "-" & som4 & "-" & som5 & "-" & som6 & "-" & som7 & "-" & som8 & "-" & som9 & "-" & som10 & "-" & som11 & "-" & som12 & "-" & som13 & "-" & som14 & "-" & som15 & "-" & som16,1
                        Scrivi
                        Scrivi som17 & "-" & som18 & "-" & som19 & "-" & som20,1
        End If
        '----------------------------------------------------
        If pos = 2 And num = 11 Then
            som1 = Fuori90(num1 + Estratto(idEstr,r,pos1))
            som2 = Fuori90(num1 + Estratto(idEstr,r,pos2))
            som3 = Fuori90(num2 + Estratto(idEstr,r,pos1))
            som4 = Fuori90(num2 + Estratto(idEstr,r,pos2))
            som5 = Fuori90(num3 + Estratto(idEstr,r,pos1))
            som6 = Fuori90(num3 + Estratto(idEstr,r,pos2))
            som7 = Fuori90(num4 + Estratto(idEstr,r,pos1))
            som8 = Fuori90(num4 + Estratto(idEstr,r,pos2))
            som9 = Fuori90(num5 + Estratto(idEstr,r,pos1))
            som10 = Fuori90(num5 + Estratto(idEstr,r,pos2))
            som11 = Fuori90(num6 + Estratto(idEstr,r,pos1))
            som12 = Fuori90(num6 + Estratto(idEstr,r,pos2))
            som13 = Fuori90(num7 + Estratto(idEstr,r,pos1))
            som14 = Fuori90(num7 + Estratto(idEstr,r,pos2))
            som15 = Fuori90(num8 + Estratto(idEstr,r,pos1))
            som16 = Fuori90(num8 + Estratto(idEstr,r,pos2))
            som17 = Fuori90(num9 + Estratto(idEstr,r,pos1))
            som18 = Fuori90(num9 + Estratto(idEstr,r,pos2))
            som19 = Fuori90(num10 + Estratto(idEstr,r,pos1))
            som20 = Fuori90(num10 + Estratto(idEstr,r,pos2))
            som21 = Fuori90(num11 + Estratto(idEstr,r,pos1))
            som22 = Fuori90(num11 + Estratto(idEstr,r,pos2))
            Scrivi som1 & "-" & som2 & "-" & som3 & "-" & som4 & "-" & som5 & "-" & som6 & "-" & som7 & "-" & som8 & "-" & som9 & "-" & som10 & "-" & som11 & "-" & som12 & "-" & som13 & "-" & som14 & "-" & som15 & "-" & som16,1
                        Scrivi
                        Scrivi som17 & "-" & som18 & "-" & som19 & "-" & som20 & "-" & som21 & "-" & som22,1
        End If
        '----------------------------------------------------
        If pos = 2 And num = 12 Then
            som1 = Fuori90(num1 + Estratto(idEstr,r,pos1))
            som2 = Fuori90(num1 + Estratto(idEstr,r,pos2))
            som3 = Fuori90(num2 + Estratto(idEstr,r,pos1))
            som4 = Fuori90(num2 + Estratto(idEstr,r,pos2))
            som5 = Fuori90(num3 + Estratto(idEstr,r,pos1))
            som6 = Fuori90(num3 + Estratto(idEstr,r,pos2))
            som7 = Fuori90(num4 + Estratto(idEstr,r,pos1))
            som8 = Fuori90(num4 + Estratto(idEstr,r,pos2))
            som9 = Fuori90(num5 + Estratto(idEstr,r,pos1))
            som10 = Fuori90(num5 + Estratto(idEstr,r,pos2))
            som11 = Fuori90(num6 + Estratto(idEstr,r,pos1))
            som12 = Fuori90(num6 + Estratto(idEstr,r,pos2))
            som13 = Fuori90(num7 + Estratto(idEstr,r,pos1))
            som14 = Fuori90(num7 + Estratto(idEstr,r,pos2))
            som15 = Fuori90(num8 + Estratto(idEstr,r,pos1))
            som16 = Fuori90(num8 + Estratto(idEstr,r,pos2))
            som17 = Fuori90(num9 + Estratto(idEstr,r,pos1))
            som18 = Fuori90(num9 + Estratto(idEstr,r,pos2))
            som19 = Fuori90(num10 + Estratto(idEstr,r,pos1))
            som20 = Fuori90(num10 + Estratto(idEstr,r,pos2))
            som21 = Fuori90(num11 + Estratto(idEstr,r,pos1))
            som22 = Fuori90(num11 + Estratto(idEstr,r,pos2))
            som23 = Fuori90(num12 + Estratto(idEstr,r,pos1))
            som24 = Fuori90(num12 + Estratto(idEstr,r,pos2))
            Scrivi som1 & "-" & som2 & "-" & som3 & "-" & som4 & "-" & som5 & "-" & som6 & "-" & som7 & "-" & som8 & "-" & som9 & "-" & som10 & "-" & som11 & "-" & som12 & "-" & som13 & "-" & som14 & "-" & som15 & "-" & som16,1
                        Scrivi
                        Scrivi som17 & "-" & som18 & "-" & som19 & "-" & som20 & "-" & som21 & "-" & som22 & "-" & som23 & "-" & som24,1
        End If
        '----------------------------------------------------
        If pos = 2 And num = 13 Then
            som1 = Fuori90(num1 + Estratto(idEstr,r,pos1))
            som2 = Fuori90(num1 + Estratto(idEstr,r,pos2))
            som3 = Fuori90(num2 + Estratto(idEstr,r,pos1))
            som4 = Fuori90(num2 + Estratto(idEstr,r,pos2))
            som5 = Fuori90(num3 + Estratto(idEstr,r,pos1))
            som6 = Fuori90(num3 + Estratto(idEstr,r,pos2))
            som7 = Fuori90(num4 + Estratto(idEstr,r,pos1))
            som8 = Fuori90(num4 + Estratto(idEstr,r,pos2))
            som9 = Fuori90(num5 + Estratto(idEstr,r,pos1))
            som10 = Fuori90(num5 + Estratto(idEstr,r,pos2))
            som11 = Fuori90(num6 + Estratto(idEstr,r,pos1))
            som12 = Fuori90(num6 + Estratto(idEstr,r,pos2))
            som13 = Fuori90(num7 + Estratto(idEstr,r,pos1))
            som14 = Fuori90(num7 + Estratto(idEstr,r,pos2))
            som15 = Fuori90(num8 + Estratto(idEstr,r,pos1))
            som16 = Fuori90(num8 + Estratto(idEstr,r,pos2))
            som17 = Fuori90(num9 + Estratto(idEstr,r,pos1))
            som18 = Fuori90(num9 + Estratto(idEstr,r,pos2))
            som19 = Fuori90(num10 + Estratto(idEstr,r,pos1))
            som20 = Fuori90(num10 + Estratto(idEstr,r,pos2))
            som21 = Fuori90(num11 + Estratto(idEstr,r,pos1))
            som22 = Fuori90(num11 + Estratto(idEstr,r,pos2))
            som23 = Fuori90(num12 + Estratto(idEstr,r,pos1))
            som24 = Fuori90(num12 + Estratto(idEstr,r,pos2))
            som25 = Fuori90(num13 + Estratto(idEstr,r,pos1))
            som26 = Fuori90(num13 + Estratto(idEstr,r,pos2))
            Scrivi som1 & "-" & som2 & "-" & som3 & "-" & som4 & "-" & som5 & "-" & som6 & "-" & som7 & "-" & som8 & "-" & som9 & "-" & som10 & "-" & som11 & "-" & som12 & "-" & som13 & "-" & som14 & "-" & som15 & "-" & som16,1
                        Scrivi
                        Scrivi som17 & "-" & som18 & "-" & som19 & "-" & som20 & "-" & som21 & "-" & som22 & "-" & som23 & "-" & som24 & "-" & som25 & "-" & som26,1
        End If
        '----------------------------------------------------
        If pos = 2 And num = 14 Then
            som1 = Fuori90(num1 + Estratto(idEstr,r,pos1))
            som2 = Fuori90(num1 + Estratto(idEstr,r,pos2))
            som3 = Fuori90(num2 + Estratto(idEstr,r,pos1))
            som4 = Fuori90(num2 + Estratto(idEstr,r,pos2))
            som5 = Fuori90(num3 + Estratto(idEstr,r,pos1))
            som6 = Fuori90(num3 + Estratto(idEstr,r,pos2))
            som7 = Fuori90(num4 + Estratto(idEstr,r,pos1))
            som8 = Fuori90(num4 + Estratto(idEstr,r,pos2))
            som9 = Fuori90(num5 + Estratto(idEstr,r,pos1))
            som10 = Fuori90(num5 + Estratto(idEstr,r,pos2))
            som11 = Fuori90(num6 + Estratto(idEstr,r,pos1))
            som12 = Fuori90(num6 + Estratto(idEstr,r,pos2))
            som13 = Fuori90(num7 + Estratto(idEstr,r,pos1))
            som14 = Fuori90(num7 + Estratto(idEstr,r,pos2))
            som15 = Fuori90(num8 + Estratto(idEstr,r,pos1))
            som16 = Fuori90(num8 + Estratto(idEstr,r,pos2))
            som17 = Fuori90(num9 + Estratto(idEstr,r,pos1))
            som18 = Fuori90(num9 + Estratto(idEstr,r,pos2))
            som19 = Fuori90(num10 + Estratto(idEstr,r,pos1))
            som20 = Fuori90(num10 + Estratto(idEstr,r,pos2))
            som21 = Fuori90(num11 + Estratto(idEstr,r,pos1))
            som22 = Fuori90(num11 + Estratto(idEstr,r,pos2))
            som23 = Fuori90(num12 + Estratto(idEstr,r,pos1))
            som24 = Fuori90(num12 + Estratto(idEstr,r,pos2))
            som25 = Fuori90(num13 + Estratto(idEstr,r,pos1))
            som26 = Fuori90(num13 + Estratto(idEstr,r,pos2))
            som27 = Fuori90(num14 + Estratto(idEstr,r,pos1))
            som28 = Fuori90(num14 + Estratto(idEstr,r,pos2))
            Scrivi som1 & "-" & som2 & "-" & som3 & "-" & som4 & "-" & som5 & "-" & som6 & "-" & som7 & "-" & som8 & "-" & som9 & "-" & som10 & "-" & som11 & "-" & som12 & "-" & som13 & "-" & som14 & "-" & som15 & "-" & som16,1
                        Scrivi
                        Scrivi som17 & "-" & som18 & "-" & som19 & "-" & som20 & "-" & som21 & "-" & som22 & "-" & som23 & "-" & som24 & "-" & som25 & "-" & som26 & "-" & som27 & "-" & som28,1
        End If
        '----------------------------------------------------
        If pos = 2 And num = 15 Then
            som1 = Fuori90(num1 + Estratto(idEstr,r,pos1))
            som2 = Fuori90(num1 + Estratto(idEstr,r,pos2))
            som3 = Fuori90(num2 + Estratto(idEstr,r,pos1))
            som4 = Fuori90(num2 + Estratto(idEstr,r,pos2))
            som5 = Fuori90(num3 + Estratto(idEstr,r,pos1))
            som6 = Fuori90(num3 + Estratto(idEstr,r,pos2))
            som7 = Fuori90(num4 + Estratto(idEstr,r,pos1))
            som8 = Fuori90(num4 + Estratto(idEstr,r,pos2))
            som9 = Fuori90(num5 + Estratto(idEstr,r,pos1))
            som10 = Fuori90(num5 + Estratto(idEstr,r,pos2))
            som11 = Fuori90(num6 + Estratto(idEstr,r,pos1))
            som12 = Fuori90(num6 + Estratto(idEstr,r,pos2))
            som13 = Fuori90(num7 + Estratto(idEstr,r,pos1))
            som14 = Fuori90(num7 + Estratto(idEstr,r,pos2))
            som15 = Fuori90(num8 + Estratto(idEstr,r,pos1))
            som16 = Fuori90(num8 + Estratto(idEstr,r,pos2))
            som17 = Fuori90(num9 + Estratto(idEstr,r,pos1))
            som18 = Fuori90(num9 + Estratto(idEstr,r,pos2))
            som19 = Fuori90(num10 + Estratto(idEstr,r,pos1))
            som20 = Fuori90(num10 + Estratto(idEstr,r,pos2))
            som21 = Fuori90(num11 + Estratto(idEstr,r,pos1))
            som22 = Fuori90(num11 + Estratto(idEstr,r,pos2))
            som23 = Fuori90(num12 + Estratto(idEstr,r,pos1))
            som24 = Fuori90(num12 + Estratto(idEstr,r,pos2))
            som25 = Fuori90(num13 + Estratto(idEstr,r,pos1))
            som26 = Fuori90(num13 + Estratto(idEstr,r,pos2))
            som27 = Fuori90(num14 + Estratto(idEstr,r,pos1))
            som28 = Fuori90(num14 + Estratto(idEstr,r,pos2))
            som29 = Fuori90(num15 + Estratto(idEstr,r,pos1))
            som30 = Fuori90(num15 + Estratto(idEstr,r,pos2))
            Scrivi som1 & "-" & som2 & "-" & som3 & "-" & som4 & "-" & som5 & "-" & som6 & "-" & som7 & "-" & som8 & "-" & som9 & "-" & som10 & "-" & som11 & "-" & som12 & "-" & som13 & "-" & som14 & "-" & som15 & "-" & som16,1
                        Scrivi
                        Scrivi som17 & "-" & som18 & "-" & som19 & "-" & som20 & "-" & som21 & "-" & som22 & "-" & som23 & "-" & som24 & "-" & som25 & "-" & som26 & "-" & som27 & "-" & som28 & "-" & som29 & "-" & som30,1
        End If
        '----------------------------------------------------
        '----------------------------------------------------
        If pos = 3 And num = 1 Then
            som1 = Fuori90(num1 + Estratto(idEstr,r,pos1))
            som2 = Fuori90(num1 + Estratto(idEstr,r,pos2))
            som3 = Fuori90(num1 + Estratto(idEstr,r,pos3))
            Scrivi som1 & "-" & som2 & "-" & som3,1
        End If
        '----------------------------------------------------
        If pos = 3 And num = 2 Then
            som1 = Fuori90(num1 + Estratto(idEstr,r,pos1))
            som2 = Fuori90(num1 + Estratto(idEstr,r,pos2))
            som3 = Fuori90(num1 + Estratto(idEstr,r,pos3))
            som4 = Fuori90(num2 + Estratto(idEstr,r,pos1))
            som5 = Fuori90(num2 + Estratto(idEstr,r,pos2))
            som6 = Fuori90(num2 + Estratto(idEstr,r,pos3))
            Scrivi som1 & "-" & som2 & "-" & som3 & "/" & som4 & "-" & som5 & "-" & som6,1
        End If
        '----------------------------------------------------
        If pos = 3 And num = 3 Then
            som1 = Fuori90(num1 + Estratto(idEstr,r,pos1))
            som2 = Fuori90(num1 + Estratto(idEstr,r,pos2))
            som3 = Fuori90(num1 + Estratto(idEstr,r,pos3))
            som4 = Fuori90(num2 + Estratto(idEstr,r,pos1))
            som5 = Fuori90(num2 + Estratto(idEstr,r,pos2))
            som6 = Fuori90(num2 + Estratto(idEstr,r,pos3))
            som7 = Fuori90(num3 + Estratto(idEstr,r,pos1))
            som8 = Fuori90(num3 + Estratto(idEstr,r,pos2))
            som9 = Fuori90(num3 + Estratto(idEstr,r,pos3))
            Scrivi som1 & "-" & som2 & "-" & som3 & "/" & som4 & "-" & som5 & "-" & som6 & "/" & som7 & "-" & som8 & "-" & som9,1
        End If
        '----------------------------------------------------
        If pos = 3 And num = 4 Then
            som1 = Fuori90(num1 + Estratto(idEstr,r,pos1))
            som2 = Fuori90(num1 + Estratto(idEstr,r,pos2))
            som3 = Fuori90(num1 + Estratto(idEstr,r,pos3))
            som4 = Fuori90(num2 + Estratto(idEstr,r,pos1))
            som5 = Fuori90(num2 + Estratto(idEstr,r,pos2))
            som6 = Fuori90(num2 + Estratto(idEstr,r,pos3))
            som7 = Fuori90(num3 + Estratto(idEstr,r,pos1))
            som8 = Fuori90(num3 + Estratto(idEstr,r,pos2))
            som9 = Fuori90(num3 + Estratto(idEstr,r,pos3))
            som10 = Fuori90(num4 + Estratto(idEstr,r,pos1))
            som11 = Fuori90(num4 + Estratto(idEstr,r,pos2))
            som12 = Fuori90(num4 + Estratto(idEstr,r,pos3))
            Scrivi som1 & "-" & som2 & "-" & som3 & "/" & som4 & "-" & som5 & "-" & som6 & "/" & som7 & "-" & som8 & "-" & som9 & "/" & som10 & "-" & som11 & "-" & som12,1
        End If
        '----------------------------------------------------
        If pos = 3 And num = 5 Then
            som1 = Fuori90(num1 + Estratto(idEstr,r,pos1))
            som2 = Fuori90(num1 + Estratto(idEstr,r,pos2))
            som3 = Fuori90(num1 + Estratto(idEstr,r,pos3))
            som4 = Fuori90(num2 + Estratto(idEstr,r,pos1))
            som5 = Fuori90(num2 + Estratto(idEstr,r,pos2))
            som6 = Fuori90(num2 + Estratto(idEstr,r,pos3))
            som7 = Fuori90(num3 + Estratto(idEstr,r,pos1))
            som8 = Fuori90(num3 + Estratto(idEstr,r,pos2))
            som9 = Fuori90(num3 + Estratto(idEstr,r,pos3))
            som10 = Fuori90(num4 + Estratto(idEstr,r,pos1))
            som11 = Fuori90(num4 + Estratto(idEstr,r,pos2))
            som12 = Fuori90(num4 + Estratto(idEstr,r,pos3))
            som13 = Fuori90(num5 + Estratto(idEstr,r,pos1))
            som14 = Fuori90(num5 + Estratto(idEstr,r,pos2))
            som15 = Fuori90(num5 + Estratto(idEstr,r,pos3))
            Scrivi som1 & "-" & som2 & "-" & som3 & "/" & som4 & "-" & som5 & "-" & som6 & "/" & som7 & "-" & som8 & "-" & som9 & "/" & som10 & "-" & som11 & "-" & som12 & "/" & som13 & "-" & som14 & "-" & som15,1
        End If
        '----------------------------------------------------
        If pos = 3 And num = 6 Then
            som1 = Fuori90(num1 + Estratto(idEstr,r,pos1))
            som2 = Fuori90(num1 + Estratto(idEstr,r,pos2))
            som3 = Fuori90(num1 + Estratto(idEstr,r,pos3))
            som4 = Fuori90(num2 + Estratto(idEstr,r,pos1))
            som5 = Fuori90(num2 + Estratto(idEstr,r,pos2))
            som6 = Fuori90(num2 + Estratto(idEstr,r,pos3))
            som7 = Fuori90(num3 + Estratto(idEstr,r,pos1))
            som8 = Fuori90(num3 + Estratto(idEstr,r,pos2))
            som9 = Fuori90(num3 + Estratto(idEstr,r,pos3))
            som10 = Fuori90(num4 + Estratto(idEstr,r,pos1))
            som11 = Fuori90(num4 + Estratto(idEstr,r,pos2))
            som12 = Fuori90(num4 + Estratto(idEstr,r,pos3))
            som13 = Fuori90(num5 + Estratto(idEstr,r,pos1))
            som14 = Fuori90(num5 + Estratto(idEstr,r,pos2))
            som15 = Fuori90(num5 + Estratto(idEstr,r,pos3))
            som16 = Fuori90(num6 + Estratto(idEstr,r,pos1))
            som17 = Fuori90(num6 + Estratto(idEstr,r,pos2))
            som18 = Fuori90(num6 + Estratto(idEstr,r,pos3))
            Scrivi som1 & "-" & som2 & "-" & som3 & "/" & som4 & "-" & som5 & "-" & som6 & "/" & som7 & "-" & som8 & "-" & som9 & "/" & som10 & "-" & som11 & "-" & som12 & "/" & som13 & "-" & som14 & "-" & som15,1
                        Scrivi
                        Scrivi som16 & "-" & som17 & "-" & som18,1
        End If
        '----------------------------------------------------
        If pos = 3 And num = 7 Then
            som1 = Fuori90(num1 + Estratto(idEstr,r,pos1))
            som2 = Fuori90(num1 + Estratto(idEstr,r,pos2))
            som3 = Fuori90(num1 + Estratto(idEstr,r,pos3))
            som4 = Fuori90(num2 + Estratto(idEstr,r,pos1))
            som5 = Fuori90(num2 + Estratto(idEstr,r,pos2))
            som6 = Fuori90(num2 + Estratto(idEstr,r,pos3))
            som7 = Fuori90(num3 + Estratto(idEstr,r,pos1))
            som8 = Fuori90(num3 + Estratto(idEstr,r,pos2))
            som9 = Fuori90(num3 + Estratto(idEstr,r,pos3))
            som10 = Fuori90(num4 + Estratto(idEstr,r,pos1))
            som11 = Fuori90(num4 + Estratto(idEstr,r,pos2))
            som12 = Fuori90(num4 + Estratto(idEstr,r,pos3))
            som13 = Fuori90(num5 + Estratto(idEstr,r,pos1))
            som14 = Fuori90(num5 + Estratto(idEstr,r,pos2))
            som15 = Fuori90(num5 + Estratto(idEstr,r,pos3))
            som16 = Fuori90(num6 + Estratto(idEstr,r,pos1))
            som17 = Fuori90(num6 + Estratto(idEstr,r,pos2))
            som18 = Fuori90(num6 + Estratto(idEstr,r,pos3))
            som19 = Fuori90(num7 + Estratto(idEstr,r,pos1))
            som20 = Fuori90(num7 + Estratto(idEstr,r,pos2))
            som21 = Fuori90(num7 + Estratto(idEstr,r,pos3))
            Scrivi som1 & "-" & som2 & "-" & som3 & "/" & som4 & "-" & som5 & "-" & som6 & "/" & som7 & "-" & som8 & "-" & som9 & "/" & som10 & "-" & som11 & "-" & som12 & "/" & som13 & "-" & som14 & "-" & som15,1
                        Scrivi
                        Scrivi som16 & "-" & som17 & "-" & som18 & "/" & som19 & "-" & som20 & "-" & som21,1
        End If
        '----------------------------------------------------
        If pos = 3 And num = 8 Then
            som1 = Fuori90(num1 + Estratto(idEstr,r,pos1))
            som2 = Fuori90(num1 + Estratto(idEstr,r,pos2))
            som3 = Fuori90(num1 + Estratto(idEstr,r,pos3))
            som4 = Fuori90(num2 + Estratto(idEstr,r,pos1))
            som5 = Fuori90(num2 + Estratto(idEstr,r,pos2))
            som6 = Fuori90(num2 + Estratto(idEstr,r,pos3))
            som7 = Fuori90(num3 + Estratto(idEstr,r,pos1))
            som8 = Fuori90(num3 + Estratto(idEstr,r,pos2))
            som9 = Fuori90(num3 + Estratto(idEstr,r,pos3))
            som10 = Fuori90(num4 + Estratto(idEstr,r,pos1))
            som11 = Fuori90(num4 + Estratto(idEstr,r,pos2))
            som12 = Fuori90(num4 + Estratto(idEstr,r,pos3))
            som13 = Fuori90(num5 + Estratto(idEstr,r,pos1))
            som14 = Fuori90(num5 + Estratto(idEstr,r,pos2))
            som15 = Fuori90(num5 + Estratto(idEstr,r,pos3))
            som16 = Fuori90(num6 + Estratto(idEstr,r,pos1))
            som17 = Fuori90(num6 + Estratto(idEstr,r,pos2))
            som18 = Fuori90(num6 + Estratto(idEstr,r,pos3))
            som19 = Fuori90(num7 + Estratto(idEstr,r,pos1))
            som20 = Fuori90(num7 + Estratto(idEstr,r,pos2))
            som21 = Fuori90(num7 + Estratto(idEstr,r,pos3))
            som22 = Fuori90(num8 + Estratto(idEstr,r,pos1))
            som23 = Fuori90(num8 + Estratto(idEstr,r,pos2))
            som24 = Fuori90(num8 + Estratto(idEstr,r,pos3))
            Scrivi som1 & "-" & som2 & "-" & som3 & "/" & som4 & "-" & som5 & "-" & som6 & "/" & som7 & "-" & som8 & "-" & som9 & "/" & som10 & "-" & som11 & "-" & som12 & "/" & som13 & "-" & som14 & "-" & som15,1
                        Scrivi
                        Scrivi som16 & "-" & som17 & "-" & som18 & "/" & som19 & "-" & som20 & "-" & som21 & "/" & som22 & "-" & som23 & "-" & som24,1
        End If
        '----------------------------------------------------
        If pos = 3 And num = 9 Then
            som1 = Fuori90(num1 + Estratto(idEstr,r,pos1))
            som2 = Fuori90(num1 + Estratto(idEstr,r,pos2))
            som3 = Fuori90(num1 + Estratto(idEstr,r,pos3))
            som4 = Fuori90(num2 + Estratto(idEstr,r,pos1))
            som5 = Fuori90(num2 + Estratto(idEstr,r,pos2))
            som6 = Fuori90(num2 + Estratto(idEstr,r,pos3))
            som7 = Fuori90(num3 + Estratto(idEstr,r,pos1))
            som8 = Fuori90(num3 + Estratto(idEstr,r,pos2))
            som9 = Fuori90(num3 + Estratto(idEstr,r,pos3))
            som10 = Fuori90(num4 + Estratto(idEstr,r,pos1))
            som11 = Fuori90(num4 + Estratto(idEstr,r,pos2))
            som12 = Fuori90(num4 + Estratto(idEstr,r,pos3))
            som13 = Fuori90(num5 + Estratto(idEstr,r,pos1))
            som14 = Fuori90(num5 + Estratto(idEstr,r,pos2))
            som15 = Fuori90(num5 + Estratto(idEstr,r,pos3))
            som16 = Fuori90(num6 + Estratto(idEstr,r,pos1))
            som17 = Fuori90(num6 + Estratto(idEstr,r,pos2))
            som18 = Fuori90(num6 + Estratto(idEstr,r,pos3))
            som19 = Fuori90(num7 + Estratto(idEstr,r,pos1))
            som20 = Fuori90(num7 + Estratto(idEstr,r,pos2))
            som21 = Fuori90(num7 + Estratto(idEstr,r,pos3))
            som22 = Fuori90(num8 + Estratto(idEstr,r,pos1))
            som23 = Fuori90(num8 + Estratto(idEstr,r,pos2))
            som24 = Fuori90(num8 + Estratto(idEstr,r,pos3))
            som25 = Fuori90(num9 + Estratto(idEstr,r,pos1))
            som26 = Fuori90(num9 + Estratto(idEstr,r,pos2))
            som27 = Fuori90(num9 + Estratto(idEstr,r,pos3))
            Scrivi som1 & "-" & som2 & "-" & som3 & "/" & som4 & "-" & som5 & "-" & som6 & "/" & som7 & "-" & som8 & "-" & som9 & "/" & som10 & "-" & som11 & "-" & som12 & "/" & som13 & "-" & som14 & "-" & som15,1
                        Scrivi
                        Scrivi som16 & "-" & som17 & "-" & som18 & "/" & som19 & "-" & som20 & "-" & som21 & "/" & som22 & "-" & som23 & "-" & som24 & "/" & som25 & "-" & som26 & "-" & som27,1
        End If
        '----------------------------------------------------
        If pos = 3 And num = 10 Then
            som1 = Fuori90(num1 + Estratto(idEstr,r,pos1))
            som2 = Fuori90(num1 + Estratto(idEstr,r,pos2))
            som3 = Fuori90(num1 + Estratto(idEstr,r,pos3))
            som4 = Fuori90(num2 + Estratto(idEstr,r,pos1))
            som5 = Fuori90(num2 + Estratto(idEstr,r,pos2))
            som6 = Fuori90(num2 + Estratto(idEstr,r,pos3))
            som7 = Fuori90(num3 + Estratto(idEstr,r,pos1))
            som8 = Fuori90(num3 + Estratto(idEstr,r,pos2))
            som9 = Fuori90(num3 + Estratto(idEstr,r,pos3))
            som10 = Fuori90(num4 + Estratto(idEstr,r,pos1))
            som11 = Fuori90(num4 + Estratto(idEstr,r,pos2))
            som12 = Fuori90(num4 + Estratto(idEstr,r,pos3))
            som13 = Fuori90(num5 + Estratto(idEstr,r,pos1))
            som14 = Fuori90(num5 + Estratto(idEstr,r,pos2))
            som15 = Fuori90(num5 + Estratto(idEstr,r,pos3))
            som16 = Fuori90(num6 + Estratto(idEstr,r,pos1))
            som17 = Fuori90(num6 + Estratto(idEstr,r,pos2))
            som18 = Fuori90(num6 + Estratto(idEstr,r,pos3))
            som19 = Fuori90(num7 + Estratto(idEstr,r,pos1))
            som20 = Fuori90(num7 + Estratto(idEstr,r,pos2))
            som21 = Fuori90(num7 + Estratto(idEstr,r,pos3))
            som22 = Fuori90(num8 + Estratto(idEstr,r,pos1))
            som23 = Fuori90(num8 + Estratto(idEstr,r,pos2))
            som24 = Fuori90(num8 + Estratto(idEstr,r,pos3))
            som25 = Fuori90(num9 + Estratto(idEstr,r,pos1))
            som26 = Fuori90(num9 + Estratto(idEstr,r,pos2))
            som27 = Fuori90(num9 + Estratto(idEstr,r,pos3))
            som28 = Fuori90(num10 + Estratto(idEstr,r,pos1))
            som29 = Fuori90(num10 + Estratto(idEstr,r,pos2))
            som30 = Fuori90(num10 + Estratto(idEstr,r,pos3))
            Scrivi som1 & "-" & som2 & "-" & som3 & "/" & som4 & "-" & som5 & "-" & som6 & "/" & som7 & "-" & som8 & "-" & som9 & "/" & som10 & "-" & som11 & "-" & som12 & "/" & som13 & "-" & som14 & "-" & som15,1
                        Scrivi
                        Scrivi som16 & "-" & som17 & "-" & som18 & "/" & som19 & "-" & som20 & "-" & som21 & "/" & som22 & "-" & som23 & "-" & som24 & "/" & som25 & "-" & som26 & "-" & som27 & "/" & som28 & "-" & som29 & "-" & som30,1
        End If
        '----------------------------------------------------
        If pos = 3 And num = 11 Then
            som1 = Fuori90(num1 + Estratto(idEstr,r,pos1))
            som2 = Fuori90(num1 + Estratto(idEstr,r,pos2))
            som3 = Fuori90(num1 + Estratto(idEstr,r,pos3))
            som4 = Fuori90(num2 + Estratto(idEstr,r,pos1))
            som5 = Fuori90(num2 + Estratto(idEstr,r,pos2))
            som6 = Fuori90(num2 + Estratto(idEstr,r,pos3))
            som7 = Fuori90(num3 + Estratto(idEstr,r,pos1))
            som8 = Fuori90(num3 + Estratto(idEstr,r,pos2))
            som9 = Fuori90(num3 + Estratto(idEstr,r,pos3))
            som10 = Fuori90(num4 + Estratto(idEstr,r,pos1))
            som11 = Fuori90(num4 + Estratto(idEstr,r,pos2))
            som12 = Fuori90(num4 + Estratto(idEstr,r,pos3))
            som13 = Fuori90(num5 + Estratto(idEstr,r,pos1))
            som14 = Fuori90(num5 + Estratto(idEstr,r,pos2))
            som15 = Fuori90(num5 + Estratto(idEstr,r,pos3))
            som16 = Fuori90(num6 + Estratto(idEstr,r,pos1))
            som17 = Fuori90(num6 + Estratto(idEstr,r,pos2))
            som18 = Fuori90(num6 + Estratto(idEstr,r,pos3))
            som19 = Fuori90(num7 + Estratto(idEstr,r,pos1))
            som20 = Fuori90(num7 + Estratto(idEstr,r,pos2))
            som21 = Fuori90(num7 + Estratto(idEstr,r,pos3))
            som22 = Fuori90(num8 + Estratto(idEstr,r,pos1))
            som23 = Fuori90(num8 + Estratto(idEstr,r,pos2))
            som24 = Fuori90(num8 + Estratto(idEstr,r,pos3))
            som25 = Fuori90(num9 + Estratto(idEstr,r,pos1))
            som26 = Fuori90(num9 + Estratto(idEstr,r,pos2))
            som27 = Fuori90(num9 + Estratto(idEstr,r,pos3))
            som28 = Fuori90(num10 + Estratto(idEstr,r,pos1))
            som29 = Fuori90(num10 + Estratto(idEstr,r,pos2))
            som30 = Fuori90(num10 + Estratto(idEstr,r,pos3))
            som31 = Fuori90(num11 + Estratto(idEstr,r,pos1))
            som32 = Fuori90(num11 + Estratto(idEstr,r,pos2))
            som33 = Fuori90(num11 + Estratto(idEstr,r,pos3))
            Scrivi som1 & "-" & som2 & "-" & som3 & "/" & som4 & "-" & som5 & "-" & som6 & "/" & som7 & "-" & som8 & "-" & som9 & "/" & som10 & "-" & som11 & "-" & som12 & "/" & som13 & "-" & som14 & "-" & som15,1
                        Scrivi
                        Scrivi som16 & "-" & som17 & "-" & som18 & "/" & som19 & "-" & som20 & "-" & som21 & "/" & som22 & "-" & som23 & "-" & som24 & "/" & som25 & "-" & som26 & "-" & som27 & "/" & som28 & "-" & som29 & "-" & som30,1
                        Scrivi
                        Scrivi som31 & "-" & som32 & "-" & som33,1
        End If
        '----------------------------------------------------
        If pos = 3 And num = 12 Then
            som1 = Fuori90(num1 + Estratto(idEstr,r,pos1))
            som2 = Fuori90(num1 + Estratto(idEstr,r,pos2))
            som3 = Fuori90(num1 + Estratto(idEstr,r,pos3))
            som4 = Fuori90(num2 + Estratto(idEstr,r,pos1))
            som5 = Fuori90(num2 + Estratto(idEstr,r,pos2))
            som6 = Fuori90(num2 + Estratto(idEstr,r,pos3))
            som7 = Fuori90(num3 + Estratto(idEstr,r,pos1))
            som8 = Fuori90(num3 + Estratto(idEstr,r,pos2))
            som9 = Fuori90(num3 + Estratto(idEstr,r,pos3))
            som10 = Fuori90(num4 + Estratto(idEstr,r,pos1))
            som11 = Fuori90(num4 + Estratto(idEstr,r,pos2))
            som12 = Fuori90(num4 + Estratto(idEstr,r,pos3))
            som13 = Fuori90(num5 + Estratto(idEstr,r,pos1))
            som14 = Fuori90(num5 + Estratto(idEstr,r,pos2))
            som15 = Fuori90(num5 + Estratto(idEstr,r,pos3))
            som16 = Fuori90(num6 + Estratto(idEstr,r,pos1))
            som17 = Fuori90(num6 + Estratto(idEstr,r,pos2))
            som18 = Fuori90(num6 + Estratto(idEstr,r,pos3))
            som19 = Fuori90(num7 + Estratto(idEstr,r,pos1))
            som20 = Fuori90(num7 + Estratto(idEstr,r,pos2))
            som21 = Fuori90(num7 + Estratto(idEstr,r,pos3))
            som22 = Fuori90(num8 + Estratto(idEstr,r,pos1))
            som23 = Fuori90(num8 + Estratto(idEstr,r,pos2))
            som24 = Fuori90(num8 + Estratto(idEstr,r,pos3))
            som25 = Fuori90(num9 + Estratto(idEstr,r,pos1))
            som26 = Fuori90(num9 + Estratto(idEstr,r,pos2))
            som27 = Fuori90(num9 + Estratto(idEstr,r,pos3))
            som28 = Fuori90(num10 + Estratto(idEstr,r,pos1))
            som29 = Fuori90(num10 + Estratto(idEstr,r,pos2))
            som30 = Fuori90(num10 + Estratto(idEstr,r,pos3))
            som31 = Fuori90(num11 + Estratto(idEstr,r,pos1))
            som32 = Fuori90(num11 + Estratto(idEstr,r,pos2))
            som33 = Fuori90(num11 + Estratto(idEstr,r,pos3))
            som34 = Fuori90(num12 + Estratto(idEstr,r,pos1))
            som35 = Fuori90(num12 + Estratto(idEstr,r,pos2))
            som36 = Fuori90(num12 + Estratto(idEstr,r,pos3))
            Scrivi som1 & "-" & som2 & "-" & som3 & "/" & som4 & "-" & som5 & "-" & som6 & "/" & som7 & "-" & som8 & "-" & som9 & "/" & som10 & "-" & som11 & "-" & som12 & "/" & som13 & "-" & som14 & "-" & som15,1
                        Scrivi
                        Scrivi som16 & "-" & som17 & "-" & som18 & "/" & som19 & "-" & som20 & "-" & som21 & "/" & som22 & "-" & som23 & "-" & som24 & "/" & som25 & "-" & som26 & "-" & som27 & "/" & som28 & "-" & som29 & "-" & som30,1
                        Scrivi
                        Scrivi som31 & "-" & som32 & "-" & som33 & "/" & som34 & "-" & som35 & "-" & som36,1
        End If
        '----------------------------------------------------
        If pos = 3 And num = 13 Then
            som1 = Fuori90(num1 + Estratto(idEstr,r,pos1))
            som2 = Fuori90(num1 + Estratto(idEstr,r,pos2))
            som3 = Fuori90(num1 + Estratto(idEstr,r,pos3))
            som4 = Fuori90(num2 + Estratto(idEstr,r,pos1))
            som5 = Fuori90(num2 + Estratto(idEstr,r,pos2))
            som6 = Fuori90(num2 + Estratto(idEstr,r,pos3))
            som7 = Fuori90(num3 + Estratto(idEstr,r,pos1))
            som8 = Fuori90(num3 + Estratto(idEstr,r,pos2))
            som9 = Fuori90(num3 + Estratto(idEstr,r,pos3))
            som10 = Fuori90(num4 + Estratto(idEstr,r,pos1))
            som11 = Fuori90(num4 + Estratto(idEstr,r,pos2))
            som12 = Fuori90(num4 + Estratto(idEstr,r,pos3))
            som13 = Fuori90(num5 + Estratto(idEstr,r,pos1))
            som14 = Fuori90(num5 + Estratto(idEstr,r,pos2))
            som15 = Fuori90(num5 + Estratto(idEstr,r,pos3))
            som16 = Fuori90(num6 + Estratto(idEstr,r,pos1))
            som17 = Fuori90(num6 + Estratto(idEstr,r,pos2))
            som18 = Fuori90(num6 + Estratto(idEstr,r,pos3))
            som19 = Fuori90(num7 + Estratto(idEstr,r,pos1))
            som20 = Fuori90(num7 + Estratto(idEstr,r,pos2))
            som21 = Fuori90(num7 + Estratto(idEstr,r,pos3))
            som22 = Fuori90(num8 + Estratto(idEstr,r,pos1))
            som23 = Fuori90(num8 + Estratto(idEstr,r,pos2))
            som24 = Fuori90(num8 + Estratto(idEstr,r,pos3))
            som25 = Fuori90(num9 + Estratto(idEstr,r,pos1))
            som26 = Fuori90(num9 + Estratto(idEstr,r,pos2))
            som27 = Fuori90(num9 + Estratto(idEstr,r,pos3))
            som28 = Fuori90(num10 + Estratto(idEstr,r,pos1))
            som29 = Fuori90(num10 + Estratto(idEstr,r,pos2))
            som30 = Fuori90(num10 + Estratto(idEstr,r,pos3))
            som31 = Fuori90(num11 + Estratto(idEstr,r,pos1))
            som32 = Fuori90(num11 + Estratto(idEstr,r,pos2))
            som33 = Fuori90(num11 + Estratto(idEstr,r,pos3))
            som34 = Fuori90(num12 + Estratto(idEstr,r,pos1))
            som35 = Fuori90(num12 + Estratto(idEstr,r,pos2))
            som36 = Fuori90(num12 + Estratto(idEstr,r,pos3))
            som37 = Fuori90(num13 + Estratto(idEstr,r,pos1))
            som38 = Fuori90(num13 + Estratto(idEstr,r,pos2))
            som39 = Fuori90(num13 + Estratto(idEstr,r,pos3))
            Scrivi som1 & "-" & som2 & "-" & som3 & "/" & som4 & "-" & som5 & "-" & som6 & "/" & som7 & "-" & som8 & "-" & som9 & "/" & som10 & "-" & som11 & "-" & som12 & "/" & som13 & "-" & som14 & "-" & som15,1
                        Scrivi
                        Scrivi som16 & "-" & som17 & "-" & som18 & "/" & som19 & "-" & som20 & "-" & som21 & "/" & som22 & "-" & som23 & "-" & som24 & "/" & som25 & "-" & som26 & "-" & som27 & "/" & som28 & "-" & som29 & "-" & som30,1
                        Scrivi
                        Scrivi som31 & "-" & som32 & "-" & som33 & "/" & som34 & "-" & som35 & "-" & som36 & "/" & som37 & "-" & som38 & "-" & som39,1
        End If
        '----------------------------------------------------
        If pos = 3 And num = 14 Then
            som1 = Fuori90(num1 + Estratto(idEstr,r,pos1))
            som2 = Fuori90(num1 + Estratto(idEstr,r,pos2))
            som3 = Fuori90(num1 + Estratto(idEstr,r,pos3))
            som4 = Fuori90(num2 + Estratto(idEstr,r,pos1))
            som5 = Fuori90(num2 + Estratto(idEstr,r,pos2))
            som6 = Fuori90(num2 + Estratto(idEstr,r,pos3))
            som7 = Fuori90(num3 + Estratto(idEstr,r,pos1))
            som8 = Fuori90(num3 + Estratto(idEstr,r,pos2))
            som9 = Fuori90(num3 + Estratto(idEstr,r,pos3))
            som10 = Fuori90(num4 + Estratto(idEstr,r,pos1))
            som11 = Fuori90(num4 + Estratto(idEstr,r,pos2))
            som12 = Fuori90(num4 + Estratto(idEstr,r,pos3))
            som13 = Fuori90(num5 + Estratto(idEstr,r,pos1))
            som14 = Fuori90(num5 + Estratto(idEstr,r,pos2))
            som15 = Fuori90(num5 + Estratto(idEstr,r,pos3))
            som16 = Fuori90(num6 + Estratto(idEstr,r,pos1))
            som17 = Fuori90(num6 + Estratto(idEstr,r,pos2))
            som18 = Fuori90(num6 + Estratto(idEstr,r,pos3))
            som19 = Fuori90(num7 + Estratto(idEstr,r,pos1))
            som20 = Fuori90(num7 + Estratto(idEstr,r,pos2))
            som21 = Fuori90(num7 + Estratto(idEstr,r,pos3))
            som22 = Fuori90(num8 + Estratto(idEstr,r,pos1))
            som23 = Fuori90(num8 + Estratto(idEstr,r,pos2))
            som24 = Fuori90(num8 + Estratto(idEstr,r,pos3))
            som25 = Fuori90(num9 + Estratto(idEstr,r,pos1))
            som26 = Fuori90(num9 + Estratto(idEstr,r,pos2))
            som27 = Fuori90(num9 + Estratto(idEstr,r,pos3))
            som28 = Fuori90(num10 + Estratto(idEstr,r,pos1))
            som29 = Fuori90(num10 + Estratto(idEstr,r,pos2))
            som30 = Fuori90(num10 + Estratto(idEstr,r,pos3))
            som31 = Fuori90(num11 + Estratto(idEstr,r,pos1))
            som32 = Fuori90(num11 + Estratto(idEstr,r,pos2))
            som33 = Fuori90(num11 + Estratto(idEstr,r,pos3))
            som34 = Fuori90(num12 + Estratto(idEstr,r,pos1))
            som35 = Fuori90(num12 + Estratto(idEstr,r,pos2))
            som36 = Fuori90(num12 + Estratto(idEstr,r,pos3))
            som37 = Fuori90(num13 + Estratto(idEstr,r,pos1))
            som38 = Fuori90(num13 + Estratto(idEstr,r,pos2))
            som39 = Fuori90(num13 + Estratto(idEstr,r,pos3))
            som40 = Fuori90(num14 + Estratto(idEstr,r,pos1))
            som41 = Fuori90(num14 + Estratto(idEstr,r,pos2))
            som42 = Fuori90(num14 + Estratto(idEstr,r,pos3))
            Scrivi som1 & "-" & som2 & "-" & som3 & "/" & som4 & "-" & som5 & "-" & som6 & "/" & som7 & "-" & som8 & "-" & som9 & "/" & som10 & "-" & som11 & "-" & som12 & "/" & som13 & "-" & som14 & "-" & som15,1
                        Scrivi
                        Scrivi som16 & "-" & som17 & "-" & som18 & "/" & som19 & "-" & som20 & "-" & som21 & "/" & som22 & "-" & som23 & "-" & som24 & "/" & som25 & "-" & som26 & "-" & som27 & "/" & som28 & "-" & som29 & "-" & som30,1
                        Scrivi
                        Scrivi som31 & "-" & som32 & "-" & som33 & "/" & som34 & "-" & som35 & "-" & som36 & "/" & som37 & "-" & som38 & "-" & som39 & "/" & som40 & "-" & som41 & "-" & som42,1
        End If
        '----------------------------------------------------
        If pos = 3 And num = 15 Then
            som1 = Fuori90(num1 + Estratto(idEstr,r,pos1))
            som2 = Fuori90(num1 + Estratto(idEstr,r,pos2))
            som3 = Fuori90(num1 + Estratto(idEstr,r,pos3))
            som4 = Fuori90(num2 + Estratto(idEstr,r,pos1))
            som5 = Fuori90(num2 + Estratto(idEstr,r,pos2))
            som6 = Fuori90(num2 + Estratto(idEstr,r,pos3))
            som7 = Fuori90(num3 + Estratto(idEstr,r,pos1))
            som8 = Fuori90(num3 + Estratto(idEstr,r,pos2))
            som9 = Fuori90(num3 + Estratto(idEstr,r,pos3))
            som10 = Fuori90(num4 + Estratto(idEstr,r,pos1))
            som11 = Fuori90(num4 + Estratto(idEstr,r,pos2))
            som12 = Fuori90(num4 + Estratto(idEstr,r,pos3))
            som13 = Fuori90(num5 + Estratto(idEstr,r,pos1))
            som14 = Fuori90(num5 + Estratto(idEstr,r,pos2))
            som15 = Fuori90(num5 + Estratto(idEstr,r,pos3))
            som16 = Fuori90(num6 + Estratto(idEstr,r,pos1))
            som17 = Fuori90(num6 + Estratto(idEstr,r,pos2))
            som18 = Fuori90(num6 + Estratto(idEstr,r,pos3))
            som19 = Fuori90(num7 + Estratto(idEstr,r,pos1))
            som20 = Fuori90(num7 + Estratto(idEstr,r,pos2))
            som21 = Fuori90(num7 + Estratto(idEstr,r,pos3))
            som22 = Fuori90(num8 + Estratto(idEstr,r,pos1))
            som23 = Fuori90(num8 + Estratto(idEstr,r,pos2))
            som24 = Fuori90(num8 + Estratto(idEstr,r,pos3))
            som25 = Fuori90(num9 + Estratto(idEstr,r,pos1))
            som26 = Fuori90(num9 + Estratto(idEstr,r,pos2))
            som27 = Fuori90(num9 + Estratto(idEstr,r,pos3))
            som28 = Fuori90(num10 + Estratto(idEstr,r,pos1))
            som29 = Fuori90(num10 + Estratto(idEstr,r,pos2))
            som30 = Fuori90(num10 + Estratto(idEstr,r,pos3))
            som31 = Fuori90(num11 + Estratto(idEstr,r,pos1))
            som32 = Fuori90(num11 + Estratto(idEstr,r,pos2))
            som33 = Fuori90(num11 + Estratto(idEstr,r,pos3))
            som34 = Fuori90(num12 + Estratto(idEstr,r,pos1))
            som35 = Fuori90(num12 + Estratto(idEstr,r,pos2))
            som36 = Fuori90(num12 + Estratto(idEstr,r,pos3))
            som37 = Fuori90(num13 + Estratto(idEstr,r,pos1))
            som38 = Fuori90(num13 + Estratto(idEstr,r,pos2))
            som39 = Fuori90(num13 + Estratto(idEstr,r,pos3))
            som40 = Fuori90(num14 + Estratto(idEstr,r,pos1))
            som41 = Fuori90(num14 + Estratto(idEstr,r,pos2))
            som42 = Fuori90(num14 + Estratto(idEstr,r,pos3))
            som43 = Fuori90(num15 + Estratto(idEstr,r,pos1))
            som44 = Fuori90(num15 + Estratto(idEstr,r,pos2))
            som45 = Fuori90(num15 + Estratto(idEstr,r,pos3))
            Scrivi som1 & "-" & som2 & "-" & som3 & "/" & som4 & "-" & som5 & "-" & som6 & "/" & som7 & "-" & som8 & "-" & som9 & "/" & som10 & "-" & som11 & "-" & som12 & "/" & som13 & "-" & som14 & "-" & som15,1
                        Scrivi
                        Scrivi som16 & "-" & som17 & "-" & som18 & "/" & som19 & "-" & som20 & "-" & som21 & "/" & som22 & "-" & som23 & "-" & som24 & "/" & som25 & "-" & som26 & "-" & som27 & "/" & som28 & "-" & som29 & "-" & som30,1
                        Scrivi
                        Scrivi som31 & "-" & som32 & "-" & som33 & "/" & som34 & "-" & som35 & "-" & som36 & "/" & som37 & "-" & som38 & "-" & som39 & "/" & som40 & "-" & som41 & "-" & som42 & "/" & som43 & "-" & som44 & "-" & som45,1
        End If
        '----------------------------------------------------
        '*************************************************************************************************************************************************
        ruote(1) = r
        ColoreTesto 0
        Scrivi String(80,"="),1
        'ImpostaGiocata 1,n,ruote,poste,nColpiDiGioco,1
        'Gioca idEstr,1
        If ScriptInterrotto Then Exit For
    Next
    Scrivi
    Scrivi String(100,"*")
    ColoreTesto 2
    Scrivi" casi trovati : " & co,1
    ColoreTesto 0
    Scrivi String(100," * ")
    TestoInBandaPassante(" LISTATO BY  B A F F O B L U "),1,3,0
    ScriviResoconto
End Sub

Baffoblu · 22 Aprile 2012

Beh, lo script te lo fatto........

rosa962 · 22 Aprile 2012

scusami BAFFO ma tu sei più veloce della luce

non ho fatto in tempo a vedere l'ultimo che già

hai fatto tutto

I COMPLIMENTI X QUELLO CHE FAI SONO SEMPRE POCHI

TI RINGRAZIO DI VERO CUORE

aspetto lo scrpt finale e ti farò sapere

ciaoo

Baffoblu · 22 Aprile 2012

rosa962 ha scritto:
scusami BAFFO ma tu sei più veloce della luce

non ho fatto in tempo a vedere l'ultimo che già

hai fatto tutto

I COMPLIMENTI X QUELLO CHE FAI SONO SEMPRE POCHI

TI RINGRAZIO DI VERO CUORE

aspetto lo scrpt finale e ti farò sapere

ciaoo

Dovresti dirmi come va questo,
prima che mi dedichi allo script finale.........

rosa962 · 22 Aprile 2012

ciao BAFFO

si lo script già va bene così

sarebbe perfetto se nello script fosse indicata la posizione da me scelta
ed i numeri generati nelle posizione tipo

ammettiamo che avrei scelto 3 posizioni e 8 adattatori

pos 1 n. 34.44.67.77 ecc, ecc

pos 3 n. 4.6.78.89.55 ecc,ecc

pos 5 n. 1.7.88.56.13 ecc.ecc

spero di avermi fatta capire

grazie ancora ( SEMPRE SE POSSIBILE )

CIAOO

Baffoblu · 23 Aprile 2012

Ciao

Allora, purtroppo non si puo continuare ad oltranza, lo script diventa troppo lungo,
e l'editor di spaziometria va in "over" (perchè troppe linee oltre il massimo consentito).

Qui ti metto due script.....

Ho rivisto l'ultimo script, e gli ho fatto qualche modifica.....

Con questo script puoi scegliere da "UNA" a massimo "TRE" posizioni
a TUA SCELTA.

Inoltre puoi scegliere da minimo 1 numero ad un massimo di 15 numeri
sempre a TUA SCELTA.

A video ti verrà la quantità di numeri scelti e le relative posizioni scelte.

Dopo ti verranno in orizzontale le posizioni da te scelte

e in verticale (num. scelto) ti verra la somma del numero scelto secondo
la posizione da te scelta.
Se scegli tre posizioni, quindi per uno stesso numero da te scelto
ci saranno tre somme diverse....

Se per esempio scegli tre posizioni a tua scelta, Lo schema è questo :

1°pos. scelta---2°pos. scelta---3°pos. scelta
---------------------------------------------
1°num. scelto---1°num. scelto---1°num. scelto

2°num. scelto---2°num. scelto---2°num. scelto

3°num. scelto---3°num. scelto---3°num. scelto

e cosi via...........

-------------------------------------------

Script da 1 a max 3 pos. e da 1 a max 15 num.

Codice:

Sub Main()
    Dim idEstr,Inizio,Fine
    Dim ruote(11)
    Dim r
    Dim nAnalisi
    Dim pos
    Dim pos1
    Dim pos2
    Dim pos3
    Dim pos4
    Dim pos5
    Dim num
    Dim num1
    Dim num2
    Dim num3
    Dim num4
    Dim num5
    Dim num6
    Dim num7
    Dim num8
    Dim num9
    Dim num10
    Dim num11
    Dim num12
    Dim num13
    Dim num14
    Dim num15
    r = CInt(InputBox(" Scegli la ruota di Elaborazione",,"1"))
    nAnalisi = CInt(InputBox(" Quante estrazioni vuoi controllare ? ",,"20"))
    pos = CInt(InputBox(" Quantità di posizioni che vuoi considerare ? * da 1 a Max 3 ",,"1"))
    If pos = 1 Then
        pos1 = CInt(InputBox(" Scegli la Posizione voluta ",,"1"))
    End If
    If pos = 2 Then
        pos1 = CInt(InputBox(" Scegli la 1° Posizione Scelta ",,"1"))
        pos2 = CInt(InputBox(" Scegli la 2° Posizione Scelta ",,"2"))
    End If
    If pos = 3 Then
        pos1 = CInt(InputBox(" Scegli la 1° Posizione Scelta ",,"1"))
        pos2 = CInt(InputBox(" Scegli la 2° Posizione Scelta ",,"2"))
        pos3 = CInt(InputBox(" Scegli la 3° Posizione Scelta ",,"3"))
    End If
    num = CInt(InputBox("Quantità numeri che vuoi Utilizzare ? - max 15.",,"1"))
    If num = 1 Then
        num1 = CInt(InputBox(" Inserisci il Numero scelto",,"1"))
    End If
    If num = 2 Then
        num1 = CInt(InputBox(" Inserisci il 1° Numero scelto",,"1"))
        num2 = CInt(InputBox(" Inserisci il 2° Numero scelto",,"2"))
    End If
    If num = 3 Then
        num1 = CInt(InputBox(" Inserisci il 1° Numero scelto",,"1"))
        num2 = CInt(InputBox(" Inserisci il 2° Numero scelto",,"2"))
        num3 = CInt(InputBox(" Inserisci il 3° Numero scelto",,"3"))
    End If
    If num = 4 Then
        num1 = CInt(InputBox(" Inserisci il 1° Numero scelto",,"1"))
        num2 = CInt(InputBox(" Inserisci il 2° Numero scelto",,"2"))
        num3 = CInt(InputBox(" Inserisci il 3° Numero scelto",,"3"))
        num4 = CInt(InputBox(" Inserisci il 4° Numero scelto",,"4"))
    End If
    If num = 5 Then
        num1 = CInt(InputBox(" Inserisci il 1° Numero scelto",,"1"))
        num2 = CInt(InputBox(" Inserisci il 2° Numero scelto",,"2"))
        num3 = CInt(InputBox(" Inserisci il 3° Numero scelto",,"3"))
        num4 = CInt(InputBox(" Inserisci il 4° Numero scelto",,"4"))
        num5 = CInt(InputBox(" Inserisci il 5° Numero scelto",,"5"))
    End If
    If num = 6 Then
        num1 = CInt(InputBox(" Inserisci il 1° Numero scelto",,"1"))
        num2 = CInt(InputBox(" Inserisci il 2° Numero scelto",,"2"))
        num3 = CInt(InputBox(" Inserisci il 3° Numero scelto",,"3"))
        num4 = CInt(InputBox(" Inserisci il 4° Numero scelto",,"4"))
        num5 = CInt(InputBox(" Inserisci il 5° Numero scelto",,"5"))
        num6 = CInt(InputBox(" Inserisci il 6° Numero scelto",,"6"))
    End If
    If num = 7 Then
        num1 = CInt(InputBox(" Inserisci il 1° Numero scelto",,"1"))
        num2 = CInt(InputBox(" Inserisci il 2° Numero scelto",,"2"))
        num3 = CInt(InputBox(" Inserisci il 3° Numero scelto",,"3"))
        num4 = CInt(InputBox(" Inserisci il 4° Numero scelto",,"4"))
        num5 = CInt(InputBox(" Inserisci il 5° Numero scelto",,"5"))
        num6 = CInt(InputBox(" Inserisci il 6° Numero scelto",,"6"))
        num7 = CInt(InputBox(" Inserisci il 7° Numero scelto",,"7"))
    End If
    If num = 8 Then
        num1 = CInt(InputBox(" Inserisci il 1° Numero scelto",,"1"))
        num2 = CInt(InputBox(" Inserisci il 2° Numero scelto",,"2"))
        num3 = CInt(InputBox(" Inserisci il 3° Numero scelto",,"3"))
        num4 = CInt(InputBox(" Inserisci il 4° Numero scelto",,"4"))
        num5 = CInt(InputBox(" Inserisci il 5° Numero scelto",,"5"))
        num6 = CInt(InputBox(" Inserisci il 6° Numero scelto",,"6"))
        num7 = CInt(InputBox(" Inserisci il 7° Numero scelto",,"7"))
        num8 = CInt(InputBox(" Inserisci il 8° Numero scelto",,"8"))
    End If
    If num = 9 Then
        num1 = CInt(InputBox(" Inserisci il 1° Numero scelto",,"1"))
        num2 = CInt(InputBox(" Inserisci il 2° Numero scelto",,"2"))
        num3 = CInt(InputBox(" Inserisci il 3° Numero scelto",,"3"))
        num4 = CInt(InputBox(" Inserisci il 4° Numero scelto",,"4"))
        num5 = CInt(InputBox(" Inserisci il 5° Numero scelto",,"5"))
        num6 = CInt(InputBox(" Inserisci il 6° Numero scelto",,"6"))
        num7 = CInt(InputBox(" Inserisci il 7° Numero scelto",,"7"))
        num8 = CInt(InputBox(" Inserisci il 8° Numero scelto",,"8"))
        num9 = CInt(InputBox(" Inserisci il 9° Numero scelto",,"9"))
    End If
    If num = 10 Then
        num1 = CInt(InputBox(" Inserisci il 1° Numero scelto",,"1"))
        num2 = CInt(InputBox(" Inserisci il 2° Numero scelto",,"2"))
        num3 = CInt(InputBox(" Inserisci il 3° Numero scelto",,"3"))
        num4 = CInt(InputBox(" Inserisci il 4° Numero scelto",,"4"))
        num5 = CInt(InputBox(" Inserisci il 5° Numero scelto",,"5"))
        num6 = CInt(InputBox(" Inserisci il 6° Numero scelto",,"6"))
        num7 = CInt(InputBox(" Inserisci il 7° Numero scelto",,"7"))
        num8 = CInt(InputBox(" Inserisci il 8° Numero scelto",,"8"))
        num9 = CInt(InputBox(" Inserisci il 9° Numero scelto",,"9"))
        num10 = CInt(InputBox(" Inserisci il 10° Numero scelto",,"10"))
    End If
    If num = 11 Then
        num1 = CInt(InputBox(" Inserisci il 1° Numero scelto",,"1"))
        num2 = CInt(InputBox(" Inserisci il 2° Numero scelto",,"2"))
        num3 = CInt(InputBox(" Inserisci il 3° Numero scelto",,"3"))
        num4 = CInt(InputBox(" Inserisci il 4° Numero scelto",,"4"))
        num5 = CInt(InputBox(" Inserisci il 5° Numero scelto",,"5"))
        num6 = CInt(InputBox(" Inserisci il 6° Numero scelto",,"6"))
        num7 = CInt(InputBox(" Inserisci il 7° Numero scelto",,"7"))
        num8 = CInt(InputBox(" Inserisci il 8° Numero scelto",,"8"))
        num9 = CInt(InputBox(" Inserisci il 9° Numero scelto",,"9"))
        num10 = CInt(InputBox(" Inserisci il 10° Numero scelto",,"10"))
        num11 = CInt(InputBox(" Inserisci il 11° Numero scelto",,"11"))
    End If
    If num = 12 Then
        num1 = CInt(InputBox(" Inserisci il 1° Numero scelto",,"1"))
        num2 = CInt(InputBox(" Inserisci il 2° Numero scelto",,"2"))
        num3 = CInt(InputBox(" Inserisci il 3° Numero scelto",,"3"))
        num4 = CInt(InputBox(" Inserisci il 4° Numero scelto",,"4"))
        num5 = CInt(InputBox(" Inserisci il 5° Numero scelto",,"5"))
        num6 = CInt(InputBox(" Inserisci il 6° Numero scelto",,"6"))
        num7 = CInt(InputBox(" Inserisci il 7° Numero scelto",,"7"))
        num8 = CInt(InputBox(" Inserisci il 8° Numero scelto",,"8"))
        num9 = CInt(InputBox(" Inserisci il 9° Numero scelto",,"9"))
        num10 = CInt(InputBox(" Inserisci il 10° Numero scelto",,"10"))
        num11 = CInt(InputBox(" Inserisci il 11° Numero scelto",,"11"))
        num12 = CInt(InputBox(" Inserisci il 12° Numero scelto",,"12"))
    End If
    If num = 13 Then
        num1 = CInt(InputBox(" Inserisci il 1° Numero scelto",,"1"))
        num2 = CInt(InputBox(" Inserisci il 2° Numero scelto",,"2"))
        num3 = CInt(InputBox(" Inserisci il 3° Numero scelto",,"3"))
        num4 = CInt(InputBox(" Inserisci il 4° Numero scelto",,"4"))
        num5 = CInt(InputBox(" Inserisci il 5° Numero scelto",,"5"))
        num6 = CInt(InputBox(" Inserisci il 6° Numero scelto",,"6"))
        num7 = CInt(InputBox(" Inserisci il 7° Numero scelto",,"7"))
        num8 = CInt(InputBox(" Inserisci il 8° Numero scelto",,"8"))
        num9 = CInt(InputBox(" Inserisci il 9° Numero scelto",,"9"))
        num10 = CInt(InputBox(" Inserisci il 10° Numero scelto",,"10"))
        num11 = CInt(InputBox(" Inserisci il 11° Numero scelto",,"11"))
        num12 = CInt(InputBox(" Inserisci il 12° Numero scelto",,"12"))
        num13 = CInt(InputBox(" Inserisci il 13° Numero scelto",,"13"))
    End If
    If num = 14 Then
        num1 = CInt(InputBox(" Inserisci il 1° Numero scelto",,"1"))
        num2 = CInt(InputBox(" Inserisci il 2° Numero scelto",,"2"))
        num3 = CInt(InputBox(" Inserisci il 3° Numero scelto",,"3"))
        num4 = CInt(InputBox(" Inserisci il 4° Numero scelto",,"4"))
        num5 = CInt(InputBox(" Inserisci il 5° Numero scelto",,"5"))
        num6 = CInt(InputBox(" Inserisci il 6° Numero scelto",,"6"))
        num7 = CInt(InputBox(" Inserisci il 7° Numero scelto",,"7"))
        num8 = CInt(InputBox(" Inserisci il 8° Numero scelto",,"8"))
        num9 = CInt(InputBox(" Inserisci il 9° Numero scelto",,"9"))
        num10 = CInt(InputBox(" Inserisci il 10° Numero scelto",,"10"))
        num11 = CInt(InputBox(" Inserisci il 11° Numero scelto",,"11"))
        num12 = CInt(InputBox(" Inserisci il 12° Numero scelto",,"12"))
        num13 = CInt(InputBox(" Inserisci il 13° Numero scelto",,"13"))
        num14 = CInt(InputBox(" Inserisci il 14° Numero scelto",,"14"))
    End If
    If num = 15 Then
        num1 = CInt(InputBox(" Inserisci il 1° Numero scelto",,"1"))
        num2 = CInt(InputBox(" Inserisci il 2° Numero scelto",,"2"))
        num3 = CInt(InputBox(" Inserisci il 3° Numero scelto",,"3"))
        num4 = CInt(InputBox(" Inserisci il 4° Numero scelto",,"4"))
        num5 = CInt(InputBox(" Inserisci il 5° Numero scelto",,"5"))
        num6 = CInt(InputBox(" Inserisci il 6° Numero scelto",,"6"))
        num7 = CInt(InputBox(" Inserisci il 7° Numero scelto",,"7"))
        num8 = CInt(InputBox(" Inserisci il 8° Numero scelto",,"8"))
        num9 = CInt(InputBox(" Inserisci il 9° Numero scelto",,"9"))
        num10 = CInt(InputBox(" Inserisci il 10° Numero scelto",,"10"))
        num11 = CInt(InputBox(" Inserisci il 11° Numero scelto",,"11"))
        num12 = CInt(InputBox(" Inserisci il 12° Numero scelto",,"12"))
        num13 = CInt(InputBox(" Inserisci il 13° Numero scelto",,"13"))
        num14 = CInt(InputBox(" Inserisci il 14° Numero scelto",,"14"))
        num15 = CInt(InputBox(" Inserisci il 15° Numero scelto",,"15"))
    End If
    Inizio = EstrazioneFin - nAnalisi
    Fine = EstrazioneFin
    co = 0
    For idEstr = Inizio To Fine
        Messaggio "elab. estr. [" &(idEstr) & "] di " & DataEstrazione(idEstr,1)
        Call AvanzamentoElab(Inizio,Fine,idEstr)
        ruote(1) = r
        co = co + 1
        Scrivi String(100,"°") & " Caso n°" & co,1
        Scrivi DataEstrazione(idEstr) & " -- " & SiglaRuota(r) & " - " & StringaEstratti(idEstr,r),1
        ColoreTesto 7
        Scrivi
        Scrivi " In totale hai scelto " & num & " numeri",1
        Scrivi
        Scrivi " e hai scelto la " & pos1 & "° * " & pos2 & "°  *" & pos3 & "° - Posizione",1
        Scrivi
        ColoreTesto 1
        If pos = 1 And num = 1 Then
            som1 = Fuori90(num1 + Estratto(idEstr,r,pos1))
            Scrivi som1,1
        End If
        If pos = 1 And num = 2 Then
            som1 = Fuori90(num1 + Estratto(idEstr,r,pos1))
            som2 = Fuori90(num2 + Estratto(idEstr,r,pos1))
            Scrivi som1 & "-" & som2,1
        End If
        If pos = 1 And num = 3 Then
            som1 = Fuori90(num1 + Estratto(idEstr,r,pos1))
            som2 = Fuori90(num2 + Estratto(idEstr,r,pos1))
            som3 = Fuori90(num3 + Estratto(idEstr,r,pos1))
            Scrivi som1 & "-" & som2 & "-" & som3,1
        End If
        If pos = 1 And num = 4 Then
            som1 = Fuori90(num1 + Estratto(idEstr,r,pos1))
            som2 = Fuori90(num2 + Estratto(idEstr,r,pos1))
            som3 = Fuori90(num3 + Estratto(idEstr,r,pos1))
            som4 = Fuori90(num4 + Estratto(idEstr,r,pos1))
            Scrivi som1 & "-" & som2 & "-" & som3 & "-" & som4,1
        End If
        If pos = 1 And num = 5 Then
            som1 = Fuori90(num1 + Estratto(idEstr,r,pos1))
            som2 = Fuori90(num2 + Estratto(idEstr,r,pos1))
            som3 = Fuori90(num3 + Estratto(idEstr,r,pos1))
            som4 = Fuori90(num4 + Estratto(idEstr,r,pos1))
            som5 = Fuori90(num5 + Estratto(idEstr,r,pos1))
            Scrivi som1 & "-" & som2 & "-" & som3 & "-" & som4 & "-" & som5,1
        End If
        If pos = 1 And num = 6 Then
            som1 = Fuori90(num1 + Estratto(idEstr,r,pos1))
            som2 = Fuori90(num2 + Estratto(idEstr,r,pos1))
            som3 = Fuori90(num3 + Estratto(idEstr,r,pos1))
            som4 = Fuori90(num4 + Estratto(idEstr,r,pos1))
            som5 = Fuori90(num5 + Estratto(idEstr,r,pos1))
            som6 = Fuori90(num6 + Estratto(idEstr,r,pos1))
            Scrivi som1 & "-" & som2 & "-" & som3 & "-" & som4 & "-" & som5 & "-" & som6,1
        End If
        If pos = 1 And num = 7 Then
            som1 = Fuori90(num1 + Estratto(idEstr,r,pos1))
            som2 = Fuori90(num2 + Estratto(idEstr,r,pos1))
            som3 = Fuori90(num3 + Estratto(idEstr,r,pos1))
            som4 = Fuori90(num4 + Estratto(idEstr,r,pos1))
            som5 = Fuori90(num5 + Estratto(idEstr,r,pos1))
            som6 = Fuori90(num6 + Estratto(idEstr,r,pos1))
            som7 = Fuori90(num7 + Estratto(idEstr,r,pos1))
            Scrivi som1 & "-" & som2 & "-" & som3 & "-" & som4 & "-" & som5 & "-" & som6 & "-" & som7,1
        End If
        If pos = 1 And num = 8 Then
            som1 = Fuori90(num1 + Estratto(idEstr,r,pos1))
            som2 = Fuori90(num2 + Estratto(idEstr,r,pos1))
            som3 = Fuori90(num3 + Estratto(idEstr,r,pos1))
            som4 = Fuori90(num4 + Estratto(idEstr,r,pos1))
            som5 = Fuori90(num5 + Estratto(idEstr,r,pos1))
            som6 = Fuori90(num6 + Estratto(idEstr,r,pos1))
            som7 = Fuori90(num7 + Estratto(idEstr,r,pos1))
            som8 = Fuori90(num8 + Estratto(idEstr,r,pos1))
            Scrivi som1 & "-" & som2 & "-" & som3 & "-" & som4 & "-" & som5 & "-" & som6 & "-" & som7 & "-" & som8,1
        End If
        If pos = 1 And num = 9 Then
            som1 = Fuori90(num1 + Estratto(idEstr,r,pos1))
            som2 = Fuori90(num2 + Estratto(idEstr,r,pos1))
            som3 = Fuori90(num3 + Estratto(idEstr,r,pos1))
            som4 = Fuori90(num4 + Estratto(idEstr,r,pos1))
            som5 = Fuori90(num5 + Estratto(idEstr,r,pos1))
            som6 = Fuori90(num6 + Estratto(idEstr,r,pos1))
            som7 = Fuori90(num7 + Estratto(idEstr,r,pos1))
            som8 = Fuori90(num8 + Estratto(idEstr,r,pos1))
            som9 = Fuori90(num9 + Estratto(idEstr,r,pos1))
            Scrivi som1 & "-" & som2 & "-" & som3 & "-" & som4 & "-" & som5 & "-" & som6 & "-" & som7 & "-" & som8 & "-" & som9,1
        End If
        If pos = 1 And num = 10 Then
            som1 = Fuori90(num1 + Estratto(idEstr,r,pos1))
            som2 = Fuori90(num2 + Estratto(idEstr,r,pos1))
            som3 = Fuori90(num3 + Estratto(idEstr,r,pos1))
            som4 = Fuori90(num4 + Estratto(idEstr,r,pos1))
            som5 = Fuori90(num5 + Estratto(idEstr,r,pos1))
            som6 = Fuori90(num6 + Estratto(idEstr,r,pos1))
            som7 = Fuori90(num7 + Estratto(idEstr,r,pos1))
            som8 = Fuori90(num8 + Estratto(idEstr,r,pos1))
            som9 = Fuori90(num9 + Estratto(idEstr,r,pos1))
            som10 = Fuori90(num10 + Estratto(idEstr,r,pos1))
            Scrivi som1 & "-" & som2 & "-" & som3 & "-" & som4 & "-" & som5 & "-" & som6 & "-" & som7 & "-" & som8 & "-" & som9 & "-" & som10,1
        End If
        If pos = 1 And num = 11 Then
            som1 = Fuori90(num1 + Estratto(idEstr,r,pos1))
            som2 = Fuori90(num2 + Estratto(idEstr,r,pos1))
            som3 = Fuori90(num3 + Estratto(idEstr,r,pos1))
            som4 = Fuori90(num4 + Estratto(idEstr,r,pos1))
            som5 = Fuori90(num5 + Estratto(idEstr,r,pos1))
            som6 = Fuori90(num6 + Estratto(idEstr,r,pos1))
            som7 = Fuori90(num7 + Estratto(idEstr,r,pos1))
            som8 = Fuori90(num8 + Estratto(idEstr,r,pos1))
            som9 = Fuori90(num9 + Estratto(idEstr,r,pos1))
            som10 = Fuori90(num10 + Estratto(idEstr,r,pos1))
            som11 = Fuori90(num11 + Estratto(idEstr,r,pos1))
            Scrivi som1 & "-" & som2 & "-" & som3 & "-" & som4 & "-" & som5 & "-" & som6 & "-" & som7 & "-" & som8 & "-" & som9 & "-" & som10 & "-" & som11,1
        End If
        If pos = 1 And num = 12 Then
            som1 = Fuori90(num1 + Estratto(idEstr,r,pos1))
            som2 = Fuori90(num2 + Estratto(idEstr,r,pos1))
            som3 = Fuori90(num3 + Estratto(idEstr,r,pos1))
            som4 = Fuori90(num4 + Estratto(idEstr,r,pos1))
            som5 = Fuori90(num5 + Estratto(idEstr,r,pos1))
            som6 = Fuori90(num6 + Estratto(idEstr,r,pos1))
            som7 = Fuori90(num7 + Estratto(idEstr,r,pos1))
            som8 = Fuori90(num8 + Estratto(idEstr,r,pos1))
            som9 = Fuori90(num9 + Estratto(idEstr,r,pos1))
            som10 = Fuori90(num10 + Estratto(idEstr,r,pos1))
            som11 = Fuori90(num11 + Estratto(idEstr,r,pos1))
            som12 = Fuori90(num12 + Estratto(idEstr,r,pos1))
            Scrivi som1 & "-" & som2 & "-" & som3 & "-" & som4 & "-" & som5 & "-" & som6 & "-" & som7 & "-" & som8 & "-" & som9 & "-" & som10 & "-" & som11 & "-" & som12,1
        End If
        If pos = 1 And num = 13 Then
            som1 = Fuori90(num1 + Estratto(idEstr,r,pos1))
            som2 = Fuori90(num2 + Estratto(idEstr,r,pos1))
            som3 = Fuori90(num3 + Estratto(idEstr,r,pos1))
            som4 = Fuori90(num4 + Estratto(idEstr,r,pos1))
            som5 = Fuori90(num5 + Estratto(idEstr,r,pos1))
            som6 = Fuori90(num6 + Estratto(idEstr,r,pos1))
            som7 = Fuori90(num7 + Estratto(idEstr,r,pos1))
            som8 = Fuori90(num8 + Estratto(idEstr,r,pos1))
            som9 = Fuori90(num9 + Estratto(idEstr,r,pos1))
            som10 = Fuori90(num10 + Estratto(idEstr,r,pos1))
            som11 = Fuori90(num11 + Estratto(idEstr,r,pos1))
            som12 = Fuori90(num12 + Estratto(idEstr,r,pos1))
            som13 = Fuori90(num13 + Estratto(idEstr,r,pos1))
            Scrivi som1 & "-" & som2 & "-" & som3 & "-" & som4 & "-" & som5 & "-" & som6 & "-" & som7 & "-" & som8 & "-" & som9 & "-" & som10 & "-" & som11 & "-" & som12 & "-" & som13,1
        End If
        If pos = 1 And num = 14 Then
            som1 = Fuori90(num1 + Estratto(idEstr,r,pos1))
            som2 = Fuori90(num2 + Estratto(idEstr,r,pos1))
            som3 = Fuori90(num3 + Estratto(idEstr,r,pos1))
            som4 = Fuori90(num4 + Estratto(idEstr,r,pos1))
            som5 = Fuori90(num5 + Estratto(idEstr,r,pos1))
            som6 = Fuori90(num6 + Estratto(idEstr,r,pos1))
            som7 = Fuori90(num7 + Estratto(idEstr,r,pos1))
            som8 = Fuori90(num8 + Estratto(idEstr,r,pos1))
            som9 = Fuori90(num9 + Estratto(idEstr,r,pos1))
            som10 = Fuori90(num10 + Estratto(idEstr,r,pos1))
            som11 = Fuori90(num11 + Estratto(idEstr,r,pos1))
            som12 = Fuori90(num12 + Estratto(idEstr,r,pos1))
            som13 = Fuori90(num13 + Estratto(idEstr,r,pos1))
            som14 = Fuori90(num14 + Estratto(idEstr,r,pos1))
            Scrivi som1 & "-" & som2 & "-" & som3 & "-" & som4 & "-" & som5 & "-" & som6 & "-" & som7 & "-" & som8 & "-" & som9 & "-" & som10 & "-" & som11 & "-" & som12 & "-" & som13 & "-" & som14,1
        End If
        If pos = 1 And num = 15 Then
            som1 = Fuori90(num1 + Estratto(idEstr,r,pos1))
            som2 = Fuori90(num2 + Estratto(idEstr,r,pos1))
            som3 = Fuori90(num3 + Estratto(idEstr,r,pos1))
            som4 = Fuori90(num4 + Estratto(idEstr,r,pos1))
            som5 = Fuori90(num5 + Estratto(idEstr,r,pos1))
            som6 = Fuori90(num6 + Estratto(idEstr,r,pos1))
            som7 = Fuori90(num7 + Estratto(idEstr,r,pos1))
            som8 = Fuori90(num8 + Estratto(idEstr,r,pos1))
            som9 = Fuori90(num9 + Estratto(idEstr,r,pos1))
            som10 = Fuori90(num10 + Estratto(idEstr,r,pos1))
            som11 = Fuori90(num11 + Estratto(idEstr,r,pos1))
            som12 = Fuori90(num12 + Estratto(idEstr,r,pos1))
            som13 = Fuori90(num13 + Estratto(idEstr,r,pos1))
            som14 = Fuori90(num14 + Estratto(idEstr,r,pos1))
            som15 = Fuori90(num15 + Estratto(idEstr,r,pos1))
            Scrivi som1 & "-" & som2 & "-" & som3 & "-" & som4 & "-" & som5 & "-" & som6 & "-" & som7 & "-" & som8 & "-" & som9 & "-" & som10 & "-" & som11 & "-" & som12 & "-" & som13 & "-" & som14 & "-" & som15,1
        End If
        If pos = 2 And num = 1 Then
            som1 = Fuori90(num1 + Estratto(idEstr,r,pos1))
            som2 = Fuori90(num1 + Estratto(idEstr,r,pos2))
            Scrivi som1 & "-" & som2
        End If
        If pos = 2 And num = 2 Then
            som1 = Fuori90(num1 + Estratto(idEstr,r,pos1))
            som2 = Fuori90(num1 + Estratto(idEstr,r,pos2))
            som3 = Fuori90(num2 + Estratto(idEstr,r,pos1))
            som4 = Fuori90(num2 + Estratto(idEstr,r,pos2))
            Scrivi som1 & "-" & som2
            Scrivi
            Scrivi som3 & "-" & som4
        End If
        If pos = 2 And num = 3 Then
            som1 = Fuori90(num1 + Estratto(idEstr,r,pos1))
            som2 = Fuori90(num1 + Estratto(idEstr,r,pos2))
            som3 = Fuori90(num2 + Estratto(idEstr,r,pos1))
            som4 = Fuori90(num2 + Estratto(idEstr,r,pos2))
            som5 = Fuori90(num3 + Estratto(idEstr,r,pos1))
            som6 = Fuori90(num3 + Estratto(idEstr,r,pos2))
            Scrivi som1 & "-" & som2
            Scrivi
            Scrivi som3 & "-" & som4
            Scrivi
            Scrivi som5 & "-" & som6
        End If
        If pos = 2 And num = 4 Then
            som1 = Fuori90(num1 + Estratto(idEstr,r,pos1))
            som2 = Fuori90(num1 + Estratto(idEstr,r,pos2))
            som3 = Fuori90(num2 + Estratto(idEstr,r,pos1))
            som4 = Fuori90(num2 + Estratto(idEstr,r,pos2))
            som5 = Fuori90(num3 + Estratto(idEstr,r,pos1))
            som6 = Fuori90(num3 + Estratto(idEstr,r,pos2))
            som7 = Fuori90(num4 + Estratto(idEstr,r,pos1))
            som8 = Fuori90(num4 + Estratto(idEstr,r,pos2))
            Scrivi som1 & "-" & som2
            Scrivi
            Scrivi som3 & "-" & som4
            Scrivi
            Scrivi som5 & "-" & som6
            Scrivi
            Scrivi som7 & "-" & som8
        End If
        If pos = 2 And num = 5 Then
            som1 = Fuori90(num1 + Estratto(idEstr,r,pos1))
            som2 = Fuori90(num1 + Estratto(idEstr,r,pos2))
            som3 = Fuori90(num2 + Estratto(idEstr,r,pos1))
            som4 = Fuori90(num2 + Estratto(idEstr,r,pos2))
            som5 = Fuori90(num3 + Estratto(idEstr,r,pos1))
            som6 = Fuori90(num3 + Estratto(idEstr,r,pos2))
            som7 = Fuori90(num4 + Estratto(idEstr,r,pos1))
            som8 = Fuori90(num4 + Estratto(idEstr,r,pos2))
            som9 = Fuori90(num5 + Estratto(idEstr,r,pos1))
            som10 = Fuori90(num5 + Estratto(idEstr,r,pos2))
            Scrivi som1 & "-" & som2
            Scrivi
            Scrivi som3 & "-" & som4
            Scrivi
            Scrivi som5 & "-" & som6
            Scrivi
            Scrivi som7 & "-" & som8
            Scrivi
            Scrivi som9 & "-" & som10
        End If
        If pos = 2 And num = 6 Then
            som1 = Fuori90(num1 + Estratto(idEstr,r,pos1))
            som2 = Fuori90(num1 + Estratto(idEstr,r,pos2))
            som3 = Fuori90(num2 + Estratto(idEstr,r,pos1))
            som4 = Fuori90(num2 + Estratto(idEstr,r,pos2))
            som5 = Fuori90(num3 + Estratto(idEstr,r,pos1))
            som6 = Fuori90(num3 + Estratto(idEstr,r,pos2))
            som7 = Fuori90(num4 + Estratto(idEstr,r,pos1))
            som8 = Fuori90(num4 + Estratto(idEstr,r,pos2))
            som9 = Fuori90(num5 + Estratto(idEstr,r,pos1))
            som10 = Fuori90(num5 + Estratto(idEstr,r,pos2))
            som11 = Fuori90(num6 + Estratto(idEstr,r,pos1))
            som12 = Fuori90(num6 + Estratto(idEstr,r,pos2))
            Scrivi som1 & "-" & som2
            Scrivi
            Scrivi som3 & "-" & som4
            Scrivi
            Scrivi som5 & "-" & som6
            Scrivi
            Scrivi som7 & "-" & som8
            Scrivi
            Scrivi som9 & "-" & som10
            Scrivi
            Scrivi som11 & "-" & som12
        End If
        If pos = 2 And num = 7 Then
            som1 = Fuori90(num1 + Estratto(idEstr,r,pos1))
            som2 = Fuori90(num1 + Estratto(idEstr,r,pos2))
            som3 = Fuori90(num2 + Estratto(idEstr,r,pos1))
            som4 = Fuori90(num2 + Estratto(idEstr,r,pos2))
            som5 = Fuori90(num3 + Estratto(idEstr,r,pos1))
            som6 = Fuori90(num3 + Estratto(idEstr,r,pos2))
            som7 = Fuori90(num4 + Estratto(idEstr,r,pos1))
            som8 = Fuori90(num4 + Estratto(idEstr,r,pos2))
            som9 = Fuori90(num5 + Estratto(idEstr,r,pos1))
            som10 = Fuori90(num5 + Estratto(idEstr,r,pos2))
            som11 = Fuori90(num6 + Estratto(idEstr,r,pos1))
            som12 = Fuori90(num6 + Estratto(idEstr,r,pos2))
            som13 = Fuori90(num7 + Estratto(idEstr,r,pos1))
            som14 = Fuori90(num7 + Estratto(idEstr,r,pos2))
            Scrivi som1 & "-" & som2
            Scrivi
            Scrivi som3 & "-" & som4
            Scrivi
            Scrivi som5 & "-" & som6
            Scrivi
            Scrivi som7 & "-" & som8
            Scrivi
            Scrivi som9 & "-" & som10
            Scrivi
            Scrivi som11 & "-" & som12
            Scrivi
            Scrivi som13 & "-" & som14
        End If
        If pos = 2 And num = 8 Then
            som1 = Fuori90(num1 + Estratto(idEstr,r,pos1))
            som2 = Fuori90(num1 + Estratto(idEstr,r,pos2))
            som3 = Fuori90(num2 + Estratto(idEstr,r,pos1))
            som4 = Fuori90(num2 + Estratto(idEstr,r,pos2))
            som5 = Fuori90(num3 + Estratto(idEstr,r,pos1))
            som6 = Fuori90(num3 + Estratto(idEstr,r,pos2))
            som7 = Fuori90(num4 + Estratto(idEstr,r,pos1))
            som8 = Fuori90(num4 + Estratto(idEstr,r,pos2))
            som9 = Fuori90(num5 + Estratto(idEstr,r,pos1))
            som10 = Fuori90(num5 + Estratto(idEstr,r,pos2))
            som11 = Fuori90(num6 + Estratto(idEstr,r,pos1))
            som12 = Fuori90(num6 + Estratto(idEstr,r,pos2))
            som13 = Fuori90(num7 + Estratto(idEstr,r,pos1))
            som14 = Fuori90(num7 + Estratto(idEstr,r,pos2))
            som15 = Fuori90(num8 + Estratto(idEstr,r,pos1))
            som16 = Fuori90(num8 + Estratto(idEstr,r,pos2))
            Scrivi som1 & "-" & som2
            Scrivi
            Scrivi som3 & "-" & som4
            Scrivi
            Scrivi som5 & "-" & som6
            Scrivi
            Scrivi som7 & "-" & som8
            Scrivi
            Scrivi som9 & "-" & som10
            Scrivi
            Scrivi som11 & "-" & som12
            Scrivi
            Scrivi som13 & "-" & som14
            Scrivi
            Scrivi som15 & "-" & som16
        End If
        If pos = 2 And num = 9 Then
            som1 = Fuori90(num1 + Estratto(idEstr,r,pos1))
            som2 = Fuori90(num1 + Estratto(idEstr,r,pos2))
            som3 = Fuori90(num2 + Estratto(idEstr,r,pos1))
            som4 = Fuori90(num2 + Estratto(idEstr,r,pos2))
            som5 = Fuori90(num3 + Estratto(idEstr,r,pos1))
            som6 = Fuori90(num3 + Estratto(idEstr,r,pos2))
            som7 = Fuori90(num4 + Estratto(idEstr,r,pos1))
            som8 = Fuori90(num4 + Estratto(idEstr,r,pos2))
            som9 = Fuori90(num5 + Estratto(idEstr,r,pos1))
            som10 = Fuori90(num5 + Estratto(idEstr,r,pos2))
            som11 = Fuori90(num6 + Estratto(idEstr,r,pos1))
            som12 = Fuori90(num6 + Estratto(idEstr,r,pos2))
            som13 = Fuori90(num7 + Estratto(idEstr,r,pos1))
            som14 = Fuori90(num7 + Estratto(idEstr,r,pos2))
            som15 = Fuori90(num8 + Estratto(idEstr,r,pos1))
            som16 = Fuori90(num8 + Estratto(idEstr,r,pos2))
            som17 = Fuori90(num9 + Estratto(idEstr,r,pos1))
            som18 = Fuori90(num9 + Estratto(idEstr,r,pos2))
            Scrivi som1 & "-" & som2
            Scrivi
            Scrivi som3 & "-" & som4
            Scrivi
            Scrivi som5 & "-" & som6
            Scrivi
            Scrivi som7 & "-" & som8
            Scrivi
            Scrivi som9 & "-" & som10
            Scrivi
            Scrivi som11 & "-" & som12
            Scrivi
            Scrivi som13 & "-" & som14
            Scrivi
            Scrivi som15 & "-" & som16
            Scrivi
            Scrivi som17 & "-" & som18
        End If
        If pos = 2 And num = 10 Then
            som1 = Fuori90(num1 + Estratto(idEstr,r,pos1))
            som2 = Fuori90(num1 + Estratto(idEstr,r,pos2))
            som3 = Fuori90(num2 + Estratto(idEstr,r,pos1))
            som4 = Fuori90(num2 + Estratto(idEstr,r,pos2))
            som5 = Fuori90(num3 + Estratto(idEstr,r,pos1))
            som6 = Fuori90(num3 + Estratto(idEstr,r,pos2))
            som7 = Fuori90(num4 + Estratto(idEstr,r,pos1))
            som8 = Fuori90(num4 + Estratto(idEstr,r,pos2))
            som9 = Fuori90(num5 + Estratto(idEstr,r,pos1))
            som10 = Fuori90(num5 + Estratto(idEstr,r,pos2))
            som11 = Fuori90(num6 + Estratto(idEstr,r,pos1))
            som12 = Fuori90(num6 + Estratto(idEstr,r,pos2))
            som13 = Fuori90(num7 + Estratto(idEstr,r,pos1))
            som14 = Fuori90(num7 + Estratto(idEstr,r,pos2))
            som15 = Fuori90(num8 + Estratto(idEstr,r,pos1))
            som16 = Fuori90(num8 + Estratto(idEstr,r,pos2))
            som17 = Fuori90(num9 + Estratto(idEstr,r,pos1))
            som18 = Fuori90(num9 + Estratto(idEstr,r,pos2))
            som19 = Fuori90(num10 + Estratto(idEstr,r,pos1))
            som20 = Fuori90(num10 + Estratto(idEstr,r,pos2))
            Scrivi som1 & "-" & som2
            Scrivi
            Scrivi som3 & "-" & som4
            Scrivi
            Scrivi som5 & "-" & som6
            Scrivi
            Scrivi som7 & "-" & som8
            Scrivi
            Scrivi som9 & "-" & som10
            Scrivi
            Scrivi som11 & "-" & som12
            Scrivi
            Scrivi som13 & "-" & som14
            Scrivi
            Scrivi som15 & "-" & som16
            Scrivi
            Scrivi som17 & "-" & som18
            Scrivi
            Scrivi som19 & "-" & som20
        End If
        If pos = 2 And num = 11 Then
            som1 = Fuori90(num1 + Estratto(idEstr,r,pos1))
            som2 = Fuori90(num1 + Estratto(idEstr,r,pos2))
            som3 = Fuori90(num2 + Estratto(idEstr,r,pos1))
            som4 = Fuori90(num2 + Estratto(idEstr,r,pos2))
            som5 = Fuori90(num3 + Estratto(idEstr,r,pos1))
            som6 = Fuori90(num3 + Estratto(idEstr,r,pos2))
            som7 = Fuori90(num4 + Estratto(idEstr,r,pos1))
            som8 = Fuori90(num4 + Estratto(idEstr,r,pos2))
            som9 = Fuori90(num5 + Estratto(idEstr,r,pos1))
            som10 = Fuori90(num5 + Estratto(idEstr,r,pos2))
            som11 = Fuori90(num6 + Estratto(idEstr,r,pos1))
            som12 = Fuori90(num6 + Estratto(idEstr,r,pos2))
            som13 = Fuori90(num7 + Estratto(idEstr,r,pos1))
            som14 = Fuori90(num7 + Estratto(idEstr,r,pos2))
            som15 = Fuori90(num8 + Estratto(idEstr,r,pos1))
            som16 = Fuori90(num8 + Estratto(idEstr,r,pos2))
            som17 = Fuori90(num9 + Estratto(idEstr,r,pos1))
            som18 = Fuori90(num9 + Estratto(idEstr,r,pos2))
            som19 = Fuori90(num10 + Estratto(idEstr,r,pos1))
            som20 = Fuori90(num10 + Estratto(idEstr,r,pos2))
            som21 = Fuori90(num11 + Estratto(idEstr,r,pos1))
            som22 = Fuori90(num11 + Estratto(idEstr,r,pos2))
            Scrivi som1 & "-" & som2
            Scrivi
            Scrivi som3 & "-" & som4
            Scrivi
            Scrivi som5 & "-" & som6
            Scrivi
            Scrivi som7 & "-" & som8
            Scrivi
            Scrivi som9 & "-" & som10
            Scrivi
            Scrivi som11 & "-" & som12
            Scrivi
            Scrivi som13 & "-" & som14
            Scrivi
            Scrivi som15 & "-" & som16
            Scrivi
            Scrivi som17 & "-" & som18
            Scrivi
            Scrivi som19 & "-" & som20
            Scrivi
            Scrivi som21 & "-" & som22
        End If
        If pos = 2 And num = 12 Then
            som1 = Fuori90(num1 + Estratto(idEstr,r,pos1))
            som2 = Fuori90(num1 + Estratto(idEstr,r,pos2))
            som3 = Fuori90(num2 + Estratto(idEstr,r,pos1))
            som4 = Fuori90(num2 + Estratto(idEstr,r,pos2))
            som5 = Fuori90(num3 + Estratto(idEstr,r,pos1))
            som6 = Fuori90(num3 + Estratto(idEstr,r,pos2))
            som7 = Fuori90(num4 + Estratto(idEstr,r,pos1))
            som8 = Fuori90(num4 + Estratto(idEstr,r,pos2))
            som9 = Fuori90(num5 + Estratto(idEstr,r,pos1))
            som10 = Fuori90(num5 + Estratto(idEstr,r,pos2))
            som11 = Fuori90(num6 + Estratto(idEstr,r,pos1))
            som12 = Fuori90(num6 + Estratto(idEstr,r,pos2))
            som13 = Fuori90(num7 + Estratto(idEstr,r,pos1))
            som14 = Fuori90(num7 + Estratto(idEstr,r,pos2))
            som15 = Fuori90(num8 + Estratto(idEstr,r,pos1))
            som16 = Fuori90(num8 + Estratto(idEstr,r,pos2))
            som17 = Fuori90(num9 + Estratto(idEstr,r,pos1))
            som18 = Fuori90(num9 + Estratto(idEstr,r,pos2))
            som19 = Fuori90(num10 + Estratto(idEstr,r,pos1))
            som20 = Fuori90(num10 + Estratto(idEstr,r,pos2))
            som21 = Fuori90(num11 + Estratto(idEstr,r,pos1))
            som22 = Fuori90(num11 + Estratto(idEstr,r,pos2))
            som23 = Fuori90(num12 + Estratto(idEstr,r,pos1))
            som24 = Fuori90(num12 + Estratto(idEstr,r,pos2))
            Scrivi som1 & "-" & som2
            Scrivi
            Scrivi som3 & "-" & som4
            Scrivi
            Scrivi som5 & "-" & som6
            Scrivi
            Scrivi som7 & "-" & som8
            Scrivi
            Scrivi som9 & "-" & som10
            Scrivi
            Scrivi som11 & "-" & som12
            Scrivi
            Scrivi som13 & "-" & som14
            Scrivi
            Scrivi som15 & "-" & som16
            Scrivi
            Scrivi som17 & "-" & som18
            Scrivi
            Scrivi som19 & "-" & som20
            Scrivi
            Scrivi som21 & "-" & som22
            Scrivi
            Scrivi som23 & "-" & som24
        End If
        If pos = 2 And num = 13 Then
            som1 = Fuori90(num1 + Estratto(idEstr,r,pos1))
            som2 = Fuori90(num1 + Estratto(idEstr,r,pos2))
            som3 = Fuori90(num2 + Estratto(idEstr,r,pos1))
            som4 = Fuori90(num2 + Estratto(idEstr,r,pos2))
            som5 = Fuori90(num3 + Estratto(idEstr,r,pos1))
            som6 = Fuori90(num3 + Estratto(idEstr,r,pos2))
            som7 = Fuori90(num4 + Estratto(idEstr,r,pos1))
            som8 = Fuori90(num4 + Estratto(idEstr,r,pos2))
            som9 = Fuori90(num5 + Estratto(idEstr,r,pos1))
            som10 = Fuori90(num5 + Estratto(idEstr,r,pos2))
            som11 = Fuori90(num6 + Estratto(idEstr,r,pos1))
            som12 = Fuori90(num6 + Estratto(idEstr,r,pos2))
            som13 = Fuori90(num7 + Estratto(idEstr,r,pos1))
            som14 = Fuori90(num7 + Estratto(idEstr,r,pos2))
            som15 = Fuori90(num8 + Estratto(idEstr,r,pos1))
            som16 = Fuori90(num8 + Estratto(idEstr,r,pos2))
            som17 = Fuori90(num9 + Estratto(idEstr,r,pos1))
            som18 = Fuori90(num9 + Estratto(idEstr,r,pos2))
            som19 = Fuori90(num10 + Estratto(idEstr,r,pos1))
            som20 = Fuori90(num10 + Estratto(idEstr,r,pos2))
            som21 = Fuori90(num11 + Estratto(idEstr,r,pos1))
            som22 = Fuori90(num11 + Estratto(idEstr,r,pos2))
            som23 = Fuori90(num12 + Estratto(idEstr,r,pos1))
            som24 = Fuori90(num12 + Estratto(idEstr,r,pos2))
            som25 = Fuori90(num13 + Estratto(idEstr,r,pos1))
            som26 = Fuori90(num13 + Estratto(idEstr,r,pos2))
            Scrivi som1 & "-" & som2
            Scrivi
            Scrivi som3 & "-" & som4
            Scrivi
            Scrivi som5 & "-" & som6
            Scrivi
            Scrivi som7 & "-" & som8
            Scrivi
            Scrivi som9 & "-" & som10
            Scrivi
            Scrivi som11 & "-" & som12
            Scrivi
            Scrivi som13 & "-" & som14
            Scrivi
            Scrivi som15 & "-" & som16
            Scrivi
            Scrivi som17 & "-" & som18
            Scrivi
            Scrivi som19 & "-" & som20
            Scrivi
            Scrivi som21 & "-" & som22
            Scrivi
            Scrivi som23 & "-" & som24
            Scrivi
            Scrivi som25 & "-" & som26
        End If
        If pos = 2 And num = 14 Then
            som1 = Fuori90(num1 + Estratto(idEstr,r,pos1))
            som2 = Fuori90(num1 + Estratto(idEstr,r,pos2))
            som3 = Fuori90(num2 + Estratto(idEstr,r,pos1))
            som4 = Fuori90(num2 + Estratto(idEstr,r,pos2))
            som5 = Fuori90(num3 + Estratto(idEstr,r,pos1))
            som6 = Fuori90(num3 + Estratto(idEstr,r,pos2))
            som7 = Fuori90(num4 + Estratto(idEstr,r,pos1))
            som8 = Fuori90(num4 + Estratto(idEstr,r,pos2))
            som9 = Fuori90(num5 + Estratto(idEstr,r,pos1))
            som10 = Fuori90(num5 + Estratto(idEstr,r,pos2))
            som11 = Fuori90(num6 + Estratto(idEstr,r,pos1))
            som12 = Fuori90(num6 + Estratto(idEstr,r,pos2))
            som13 = Fuori90(num7 + Estratto(idEstr,r,pos1))
            som14 = Fuori90(num7 + Estratto(idEstr,r,pos2))
            som15 = Fuori90(num8 + Estratto(idEstr,r,pos1))
            som16 = Fuori90(num8 + Estratto(idEstr,r,pos2))
            som17 = Fuori90(num9 + Estratto(idEstr,r,pos1))
            som18 = Fuori90(num9 + Estratto(idEstr,r,pos2))
            som19 = Fuori90(num10 + Estratto(idEstr,r,pos1))
            som20 = Fuori90(num10 + Estratto(idEstr,r,pos2))
            som21 = Fuori90(num11 + Estratto(idEstr,r,pos1))
            som22 = Fuori90(num11 + Estratto(idEstr,r,pos2))
            som23 = Fuori90(num12 + Estratto(idEstr,r,pos1))
            som24 = Fuori90(num12 + Estratto(idEstr,r,pos2))
            som25 = Fuori90(num13 + Estratto(idEstr,r,pos1))
            som26 = Fuori90(num13 + Estratto(idEstr,r,pos2))
            som27 = Fuori90(num14 + Estratto(idEstr,r,pos1))
            som28 = Fuori90(num14 + Estratto(idEstr,r,pos2))
            Scrivi som1 & "-" & som2
            Scrivi
            Scrivi som3 & "-" & som4
            Scrivi
            Scrivi som5 & "-" & som6
            Scrivi
            Scrivi som7 & "-" & som8
            Scrivi
            Scrivi som9 & "-" & som10
            Scrivi
            Scrivi som11 & "-" & som12
            Scrivi
            Scrivi som13 & "-" & som14
            Scrivi
            Scrivi som15 & "-" & som16
            Scrivi
            Scrivi som17 & "-" & som18
            Scrivi
            Scrivi som19 & "-" & som20
            Scrivi
            Scrivi som21 & "-" & som22
            Scrivi
            Scrivi som23 & "-" & som24
            Scrivi
            Scrivi som25 & "-" & som26
            Scrivi
            Scrivi som27 & "-" & som28
        End If
        If pos = 2 And num = 15 Then
            som1 = Fuori90(num1 + Estratto(idEstr,r,pos1))
            som2 = Fuori90(num1 + Estratto(idEstr,r,pos2))
            som3 = Fuori90(num2 + Estratto(idEstr,r,pos1))
            som4 = Fuori90(num2 + Estratto(idEstr,r,pos2))
            som5 = Fuori90(num3 + Estratto(idEstr,r,pos1))
            som6 = Fuori90(num3 + Estratto(idEstr,r,pos2))
            som7 = Fuori90(num4 + Estratto(idEstr,r,pos1))
            som8 = Fuori90(num4 + Estratto(idEstr,r,pos2))
            som9 = Fuori90(num5 + Estratto(idEstr,r,pos1))
            som10 = Fuori90(num5 + Estratto(idEstr,r,pos2))
            som11 = Fuori90(num6 + Estratto(idEstr,r,pos1))
            som12 = Fuori90(num6 + Estratto(idEstr,r,pos2))
            som13 = Fuori90(num7 + Estratto(idEstr,r,pos1))
            som14 = Fuori90(num7 + Estratto(idEstr,r,pos2))
            som15 = Fuori90(num8 + Estratto(idEstr,r,pos1))
            som16 = Fuori90(num8 + Estratto(idEstr,r,pos2))
            som17 = Fuori90(num9 + Estratto(idEstr,r,pos1))
            som18 = Fuori90(num9 + Estratto(idEstr,r,pos2))
            som19 = Fuori90(num10 + Estratto(idEstr,r,pos1))
            som20 = Fuori90(num10 + Estratto(idEstr,r,pos2))
            som21 = Fuori90(num11 + Estratto(idEstr,r,pos1))
            som22 = Fuori90(num11 + Estratto(idEstr,r,pos2))
            som23 = Fuori90(num12 + Estratto(idEstr,r,pos1))
            som24 = Fuori90(num12 + Estratto(idEstr,r,pos2))
            som25 = Fuori90(num13 + Estratto(idEstr,r,pos1))
            som26 = Fuori90(num13 + Estratto(idEstr,r,pos2))
            som27 = Fuori90(num14 + Estratto(idEstr,r,pos1))
            som28 = Fuori90(num14 + Estratto(idEstr,r,pos2))
            som29 = Fuori90(num15 + Estratto(idEstr,r,pos1))
            som30 = Fuori90(num15 + Estratto(idEstr,r,pos2))
            Scrivi som1 & "-" & som2
            Scrivi
            Scrivi som3 & "-" & som4
            Scrivi
            Scrivi som5 & "-" & som6
            Scrivi
            Scrivi som7 & "-" & som8
            Scrivi
            Scrivi som9 & "-" & som10
            Scrivi
            Scrivi som11 & "-" & som12
            Scrivi
            Scrivi som13 & "-" & som14
            Scrivi
            Scrivi som15 & "-" & som16
            Scrivi
            Scrivi som17 & "-" & som18
            Scrivi
            Scrivi som19 & "-" & som20
            Scrivi
            Scrivi som21 & "-" & som22
            Scrivi
            Scrivi som23 & "-" & som24
            Scrivi
            Scrivi som25 & "-" & som26
            Scrivi
            Scrivi som27 & "-" & som28
            Scrivi
            Scrivi som29 & "-" & som30
        End If
        If pos = 3 And num = 1 Then
            som1 = Fuori90(num1 + Estratto(idEstr,r,pos1))
            som2 = Fuori90(num1 + Estratto(idEstr,r,pos2))
            som3 = Fuori90(num1 + Estratto(idEstr,r,pos3))
            Scrivi som1 & "-" & som2 & "-" & som3
        End If
        If pos = 3 And num = 2 Then
            som1 = Fuori90(num1 + Estratto(idEstr,r,pos1))
            som2 = Fuori90(num1 + Estratto(idEstr,r,pos2))
            som3 = Fuori90(num1 + Estratto(idEstr,r,pos3))
            som4 = Fuori90(num2 + Estratto(idEstr,r,pos1))
            som5 = Fuori90(num2 + Estratto(idEstr,r,pos2))
            som6 = Fuori90(num2 + Estratto(idEstr,r,pos3))
            Scrivi som1 & "-" & som2 & "-" & som3
            Scrivi
            Scrivi som4 & "-" & som5 & "-" & som6
        End If
        If pos = 3 And num = 3 Then
            som1 = Fuori90(num1 + Estratto(idEstr,r,pos1))
            som2 = Fuori90(num1 + Estratto(idEstr,r,pos2))
            som3 = Fuori90(num1 + Estratto(idEstr,r,pos3))
            som4 = Fuori90(num2 + Estratto(idEstr,r,pos1))
            som5 = Fuori90(num2 + Estratto(idEstr,r,pos2))
            som6 = Fuori90(num2 + Estratto(idEstr,r,pos3))
            som7 = Fuori90(num3 + Estratto(idEstr,r,pos1))
            som8 = Fuori90(num3 + Estratto(idEstr,r,pos2))
            som9 = Fuori90(num3 + Estratto(idEstr,r,pos3))
            Scrivi som1 & "-" & som2 & "-" & som3
            Scrivi
            Scrivi som4 & "-" & som5 & "-" & som6
            Scrivi
            Scrivi som7 & "-" & som8 & "-" & som9
        End If
        If pos = 3 And num = 4 Then
            som1 = Fuori90(num1 + Estratto(idEstr,r,pos1))
            som2 = Fuori90(num1 + Estratto(idEstr,r,pos2))
            som3 = Fuori90(num1 + Estratto(idEstr,r,pos3))
            som4 = Fuori90(num2 + Estratto(idEstr,r,pos1))
            som5 = Fuori90(num2 + Estratto(idEstr,r,pos2))
            som6 = Fuori90(num2 + Estratto(idEstr,r,pos3))
            som7 = Fuori90(num3 + Estratto(idEstr,r,pos1))
            som8 = Fuori90(num3 + Estratto(idEstr,r,pos2))
            som9 = Fuori90(num3 + Estratto(idEstr,r,pos3))
            som10 = Fuori90(num4 + Estratto(idEstr,r,pos1))
            som11 = Fuori90(num4 + Estratto(idEstr,r,pos2))
            som12 = Fuori90(num4 + Estratto(idEstr,r,pos3))
            Scrivi som1 & "-" & som2 & "-" & som3
            Scrivi
            Scrivi som4 & "-" & som5 & "-" & som6
            Scrivi
            Scrivi som7 & "-" & som8 & "-" & som9
            Scrivi
            Scrivi som10 & "-" & som11 & "-" & som12
        End If
        If pos = 3 And num = 5 Then
            som1 = Fuori90(num1 + Estratto(idEstr,r,pos1))
            som2 = Fuori90(num1 + Estratto(idEstr,r,pos2))
            som3 = Fuori90(num1 + Estratto(idEstr,r,pos3))
            som4 = Fuori90(num2 + Estratto(idEstr,r,pos1))
            som5 = Fuori90(num2 + Estratto(idEstr,r,pos2))
            som6 = Fuori90(num2 + Estratto(idEstr,r,pos3))
            som7 = Fuori90(num3 + Estratto(idEstr,r,pos1))
            som8 = Fuori90(num3 + Estratto(idEstr,r,pos2))
            som9 = Fuori90(num3 + Estratto(idEstr,r,pos3))
            som10 = Fuori90(num4 + Estratto(idEstr,r,pos1))
            som11 = Fuori90(num4 + Estratto(idEstr,r,pos2))
            som12 = Fuori90(num4 + Estratto(idEstr,r,pos3))
            som13 = Fuori90(num5 + Estratto(idEstr,r,pos1))
            som14 = Fuori90(num5 + Estratto(idEstr,r,pos2))
            som15 = Fuori90(num5 + Estratto(idEstr,r,pos3))
            Scrivi som1 & "-" & som2 & "-" & som3
            Scrivi
            Scrivi som4 & "-" & som5 & "-" & som6
            Scrivi
            Scrivi som7 & "-" & som8 & "-" & som9
            Scrivi
            Scrivi som10 & "-" & som11 & "-" & som12
            Scrivi
            Scrivi som13 & "-" & som14 & "-" & som15
        End If
        If pos = 3 And num = 6 Then
            som1 = Fuori90(num1 + Estratto(idEstr,r,pos1))
            som2 = Fuori90(num1 + Estratto(idEstr,r,pos2))
            som3 = Fuori90(num1 + Estratto(idEstr,r,pos3))
            som4 = Fuori90(num2 + Estratto(idEstr,r,pos1))
            som5 = Fuori90(num2 + Estratto(idEstr,r,pos2))
            som6 = Fuori90(num2 + Estratto(idEstr,r,pos3))
            som7 = Fuori90(num3 + Estratto(idEstr,r,pos1))
            som8 = Fuori90(num3 + Estratto(idEstr,r,pos2))
            som9 = Fuori90(num3 + Estratto(idEstr,r,pos3))
            som10 = Fuori90(num4 + Estratto(idEstr,r,pos1))
            som11 = Fuori90(num4 + Estratto(idEstr,r,pos2))
            som12 = Fuori90(num4 + Estratto(idEstr,r,pos3))
            som13 = Fuori90(num5 + Estratto(idEstr,r,pos1))
            som14 = Fuori90(num5 + Estratto(idEstr,r,pos2))
            som15 = Fuori90(num5 + Estratto(idEstr,r,pos3))
            som16 = Fuori90(num6 + Estratto(idEstr,r,pos1))
            som17 = Fuori90(num6 + Estratto(idEstr,r,pos2))
            som18 = Fuori90(num6 + Estratto(idEstr,r,pos3))
            Scrivi som1 & "-" & som2 & "-" & som3
            Scrivi
            Scrivi som4 & "-" & som5 & "-" & som6
            Scrivi
            Scrivi som7 & "-" & som8 & "-" & som9
            Scrivi
            Scrivi som10 & "-" & som11 & "-" & som12
            Scrivi
            Scrivi som13 & "-" & som14 & "-" & som15
            Scrivi
            Scrivi som16 & "-" & som17 & "-" & som18
        End If
        If pos = 3 And num = 7 Then
            som1 = Fuori90(num1 + Estratto(idEstr,r,pos1))
            som2 = Fuori90(num1 + Estratto(idEstr,r,pos2))
            som3 = Fuori90(num1 + Estratto(idEstr,r,pos3))
            som4 = Fuori90(num2 + Estratto(idEstr,r,pos1))
            som5 = Fuori90(num2 + Estratto(idEstr,r,pos2))
            som6 = Fuori90(num2 + Estratto(idEstr,r,pos3))
            som7 = Fuori90(num3 + Estratto(idEstr,r,pos1))
            som8 = Fuori90(num3 + Estratto(idEstr,r,pos2))
            som9 = Fuori90(num3 + Estratto(idEstr,r,pos3))
            som10 = Fuori90(num4 + Estratto(idEstr,r,pos1))
            som11 = Fuori90(num4 + Estratto(idEstr,r,pos2))
            som12 = Fuori90(num4 + Estratto(idEstr,r,pos3))
            som13 = Fuori90(num5 + Estratto(idEstr,r,pos1))
            som14 = Fuori90(num5 + Estratto(idEstr,r,pos2))
            som15 = Fuori90(num5 + Estratto(idEstr,r,pos3))
            som16 = Fuori90(num6 + Estratto(idEstr,r,pos1))
            som17 = Fuori90(num6 + Estratto(idEstr,r,pos2))
            som18 = Fuori90(num6 + Estratto(idEstr,r,pos3))
            som19 = Fuori90(num7 + Estratto(idEstr,r,pos1))
            som20 = Fuori90(num7 + Estratto(idEstr,r,pos2))
            som21 = Fuori90(num7 + Estratto(idEstr,r,pos3))
            Scrivi som1 & "-" & som2 & "-" & som3
            Scrivi
            Scrivi som4 & "-" & som5 & "-" & som6
            Scrivi
            Scrivi som7 & "-" & som8 & "-" & som9
            Scrivi
            Scrivi som10 & "-" & som11 & "-" & som12
            Scrivi
            Scrivi som13 & "-" & som14 & "-" & som15
            Scrivi
            Scrivi som16 & "-" & som17 & "-" & som18
            Scrivi
            Scrivi som19 & "-" & som20 & "-" & som21
        End If
        If pos = 3 And num = 8 Then
            som1 = Fuori90(num1 + Estratto(idEstr,r,pos1))
            som2 = Fuori90(num1 + Estratto(idEstr,r,pos2))
            som3 = Fuori90(num1 + Estratto(idEstr,r,pos3))
            som4 = Fuori90(num2 + Estratto(idEstr,r,pos1))
            som5 = Fuori90(num2 + Estratto(idEstr,r,pos2))
            som6 = Fuori90(num2 + Estratto(idEstr,r,pos3))
            som7 = Fuori90(num3 + Estratto(idEstr,r,pos1))
            som8 = Fuori90(num3 + Estratto(idEstr,r,pos2))
            som9 = Fuori90(num3 + Estratto(idEstr,r,pos3))
            som10 = Fuori90(num4 + Estratto(idEstr,r,pos1))
            som11 = Fuori90(num4 + Estratto(idEstr,r,pos2))
            som12 = Fuori90(num4 + Estratto(idEstr,r,pos3))
            som13 = Fuori90(num5 + Estratto(idEstr,r,pos1))
            som14 = Fuori90(num5 + Estratto(idEstr,r,pos2))
            som15 = Fuori90(num5 + Estratto(idEstr,r,pos3))
            som16 = Fuori90(num6 + Estratto(idEstr,r,pos1))
            som17 = Fuori90(num6 + Estratto(idEstr,r,pos2))
            som18 = Fuori90(num6 + Estratto(idEstr,r,pos3))
            som19 = Fuori90(num7 + Estratto(idEstr,r,pos1))
            som20 = Fuori90(num7 + Estratto(idEstr,r,pos2))
            som21 = Fuori90(num7 + Estratto(idEstr,r,pos3))
            som22 = Fuori90(num8 + Estratto(idEstr,r,pos1))
            som23 = Fuori90(num8 + Estratto(idEstr,r,pos2))
            som24 = Fuori90(num8 + Estratto(idEstr,r,pos3))
            Scrivi som1 & "-" & som2 & "-" & som3
            Scrivi
            Scrivi som4 & "-" & som5 & "-" & som6
            Scrivi
            Scrivi som7 & "-" & som8 & "-" & som9
            Scrivi
            Scrivi som10 & "-" & som11 & "-" & som12
            Scrivi
            Scrivi som13 & "-" & som14 & "-" & som15
            Scrivi
            Scrivi som16 & "-" & som17 & "-" & som18
            Scrivi
            Scrivi som19 & "-" & som20 & "-" & som21
            Scrivi
            Scrivi som22 & "-" & som23 & "-" & som24
        End If
        If pos = 3 And num = 9 Then
            som1 = Fuori90(num1 + Estratto(idEstr,r,pos1))
            som2 = Fuori90(num1 + Estratto(idEstr,r,pos2))
            som3 = Fuori90(num1 + Estratto(idEstr,r,pos3))
            som4 = Fuori90(num2 + Estratto(idEstr,r,pos1))
            som5 = Fuori90(num2 + Estratto(idEstr,r,pos2))
            som6 = Fuori90(num2 + Estratto(idEstr,r,pos3))
            som7 = Fuori90(num3 + Estratto(idEstr,r,pos1))
            som8 = Fuori90(num3 + Estratto(idEstr,r,pos2))
            som9 = Fuori90(num3 + Estratto(idEstr,r,pos3))
            som10 = Fuori90(num4 + Estratto(idEstr,r,pos1))
            som11 = Fuori90(num4 + Estratto(idEstr,r,pos2))
            som12 = Fuori90(num4 + Estratto(idEstr,r,pos3))
            som13 = Fuori90(num5 + Estratto(idEstr,r,pos1))
            som14 = Fuori90(num5 + Estratto(idEstr,r,pos2))
            som15 = Fuori90(num5 + Estratto(idEstr,r,pos3))
            som16 = Fuori90(num6 + Estratto(idEstr,r,pos1))
            som17 = Fuori90(num6 + Estratto(idEstr,r,pos2))
            som18 = Fuori90(num6 + Estratto(idEstr,r,pos3))
            som19 = Fuori90(num7 + Estratto(idEstr,r,pos1))
            som20 = Fuori90(num7 + Estratto(idEstr,r,pos2))
            som21 = Fuori90(num7 + Estratto(idEstr,r,pos3))
            som22 = Fuori90(num8 + Estratto(idEstr,r,pos1))
            som23 = Fuori90(num8 + Estratto(idEstr,r,pos2))
            som24 = Fuori90(num8 + Estratto(idEstr,r,pos3))
            som25 = Fuori90(num9 + Estratto(idEstr,r,pos1))
            som26 = Fuori90(num9 + Estratto(idEstr,r,pos2))
            som27 = Fuori90(num9 + Estratto(idEstr,r,pos3))
            Scrivi som1 & "-" & som2 & "-" & som3
            Scrivi
            Scrivi som4 & "-" & som5 & "-" & som6
            Scrivi
            Scrivi som7 & "-" & som8 & "-" & som9
            Scrivi
            Scrivi som10 & "-" & som11 & "-" & som12
            Scrivi
            Scrivi som13 & "-" & som14 & "-" & som15
            Scrivi
            Scrivi som16 & "-" & som17 & "-" & som18
            Scrivi
            Scrivi som19 & "-" & som20 & "-" & som21
            Scrivi
            Scrivi som22 & "-" & som23 & "-" & som24
            Scrivi
            Scrivi som25 & "-" & som26 & "-" & som27
        End If
        If pos = 3 And num = 10 Then
            som1 = Fuori90(num1 + Estratto(idEstr,r,pos1))
            som2 = Fuori90(num1 + Estratto(idEstr,r,pos2))
            som3 = Fuori90(num1 + Estratto(idEstr,r,pos3))
            som4 = Fuori90(num2 + Estratto(idEstr,r,pos1))
            som5 = Fuori90(num2 + Estratto(idEstr,r,pos2))
            som6 = Fuori90(num2 + Estratto(idEstr,r,pos3))
            som7 = Fuori90(num3 + Estratto(idEstr,r,pos1))
            som8 = Fuori90(num3 + Estratto(idEstr,r,pos2))
            som9 = Fuori90(num3 + Estratto(idEstr,r,pos3))
            som10 = Fuori90(num4 + Estratto(idEstr,r,pos1))
            som11 = Fuori90(num4 + Estratto(idEstr,r,pos2))
            som12 = Fuori90(num4 + Estratto(idEstr,r,pos3))
            som13 = Fuori90(num5 + Estratto(idEstr,r,pos1))
            som14 = Fuori90(num5 + Estratto(idEstr,r,pos2))
            som15 = Fuori90(num5 + Estratto(idEstr,r,pos3))
            som16 = Fuori90(num6 + Estratto(idEstr,r,pos1))
            som17 = Fuori90(num6 + Estratto(idEstr,r,pos2))
            som18 = Fuori90(num6 + Estratto(idEstr,r,pos3))
            som19 = Fuori90(num7 + Estratto(idEstr,r,pos1))
            som20 = Fuori90(num7 + Estratto(idEstr,r,pos2))
            som21 = Fuori90(num7 + Estratto(idEstr,r,pos3))
            som22 = Fuori90(num8 + Estratto(idEstr,r,pos1))
            som23 = Fuori90(num8 + Estratto(idEstr,r,pos2))
            som24 = Fuori90(num8 + Estratto(idEstr,r,pos3))
            som25 = Fuori90(num9 + Estratto(idEstr,r,pos1))
            som26 = Fuori90(num9 + Estratto(idEstr,r,pos2))
            som27 = Fuori90(num9 + Estratto(idEstr,r,pos3))
            som28 = Fuori90(num10 + Estratto(idEstr,r,pos1))
            som29 = Fuori90(num10 + Estratto(idEstr,r,pos2))
            som30 = Fuori90(num10 + Estratto(idEstr,r,pos3))
            Scrivi som1 & "-" & som2 & "-" & som3
            Scrivi
            Scrivi som4 & "-" & som5 & "-" & som6
            Scrivi
            Scrivi som7 & "-" & som8 & "-" & som9
            Scrivi
            Scrivi som10 & "-" & som11 & "-" & som12
            Scrivi
            Scrivi som13 & "-" & som14 & "-" & som15
            Scrivi
            Scrivi som16 & "-" & som17 & "-" & som18
            Scrivi
            Scrivi som19 & "-" & som20 & "-" & som21
            Scrivi
            Scrivi som22 & "-" & som23 & "-" & som24
            Scrivi
            Scrivi som25 & "-" & som26 & "-" & som27
            Scrivi
            Scrivi som28 & "-" & som29 & "-" & som30
        End If
        If pos = 3 And num = 11 Then
            som1 = Fuori90(num1 + Estratto(idEstr,r,pos1))
            som2 = Fuori90(num1 + Estratto(idEstr,r,pos2))
            som3 = Fuori90(num1 + Estratto(idEstr,r,pos3))
            som4 = Fuori90(num2 + Estratto(idEstr,r,pos1))
            som5 = Fuori90(num2 + Estratto(idEstr,r,pos2))
            som6 = Fuori90(num2 + Estratto(idEstr,r,pos3))
            som7 = Fuori90(num3 + Estratto(idEstr,r,pos1))
            som8 = Fuori90(num3 + Estratto(idEstr,r,pos2))
            som9 = Fuori90(num3 + Estratto(idEstr,r,pos3))
            som10 = Fuori90(num4 + Estratto(idEstr,r,pos1))
            som11 = Fuori90(num4 + Estratto(idEstr,r,pos2))
            som12 = Fuori90(num4 + Estratto(idEstr,r,pos3))
            som13 = Fuori90(num5 + Estratto(idEstr,r,pos1))
            som14 = Fuori90(num5 + Estratto(idEstr,r,pos2))
            som15 = Fuori90(num5 + Estratto(idEstr,r,pos3))
            som16 = Fuori90(num6 + Estratto(idEstr,r,pos1))
            som17 = Fuori90(num6 + Estratto(idEstr,r,pos2))
            som18 = Fuori90(num6 + Estratto(idEstr,r,pos3))
            som19 = Fuori90(num7 + Estratto(idEstr,r,pos1))
            som20 = Fuori90(num7 + Estratto(idEstr,r,pos2))
            som21 = Fuori90(num7 + Estratto(idEstr,r,pos3))
            som22 = Fuori90(num8 + Estratto(idEstr,r,pos1))
            som23 = Fuori90(num8 + Estratto(idEstr,r,pos2))
            som24 = Fuori90(num8 + Estratto(idEstr,r,pos3))
            som25 = Fuori90(num9 + Estratto(idEstr,r,pos1))
            som26 = Fuori90(num9 + Estratto(idEstr,r,pos2))
            som27 = Fuori90(num9 + Estratto(idEstr,r,pos3))
            som28 = Fuori90(num10 + Estratto(idEstr,r,pos1))
            som29 = Fuori90(num10 + Estratto(idEstr,r,pos2))
            som30 = Fuori90(num10 + Estratto(idEstr,r,pos3))
            som31 = Fuori90(num11 + Estratto(idEstr,r,pos1))
            som32 = Fuori90(num11 + Estratto(idEstr,r,pos2))
            som33 = Fuori90(num11 + Estratto(idEstr,r,pos3))
            Scrivi som1 & "-" & som2 & "-" & som3
            Scrivi
            Scrivi som4 & "-" & som5 & "-" & som6
            Scrivi
            Scrivi som7 & "-" & som8 & "-" & som9
            Scrivi
            Scrivi som10 & "-" & som11 & "-" & som12
            Scrivi
            Scrivi som13 & "-" & som14 & "-" & som15
            Scrivi
            Scrivi som16 & "-" & som17 & "-" & som18
            Scrivi
            Scrivi som19 & "-" & som20 & "-" & som21
            Scrivi
            Scrivi som22 & "-" & som23 & "-" & som24
            Scrivi
            Scrivi som25 & "-" & som26 & "-" & som27
            Scrivi
            Scrivi som28 & "-" & som29 & "-" & som30
            Scrivi
            Scrivi som31 & "-" & som32 & "-" & som33
        End If
        If pos = 3 And num = 12 Then
            som1 = Fuori90(num1 + Estratto(idEstr,r,pos1))
            som2 = Fuori90(num1 + Estratto(idEstr,r,pos2))
            som3 = Fuori90(num1 + Estratto(idEstr,r,pos3))
            som4 = Fuori90(num2 + Estratto(idEstr,r,pos1))
            som5 = Fuori90(num2 + Estratto(idEstr,r,pos2))
            som6 = Fuori90(num2 + Estratto(idEstr,r,pos3))
            som7 = Fuori90(num3 + Estratto(idEstr,r,pos1))
            som8 = Fuori90(num3 + Estratto(idEstr,r,pos2))
            som9 = Fuori90(num3 + Estratto(idEstr,r,pos3))
            som10 = Fuori90(num4 + Estratto(idEstr,r,pos1))
            som11 = Fuori90(num4 + Estratto(idEstr,r,pos2))
            som12 = Fuori90(num4 + Estratto(idEstr,r,pos3))
            som13 = Fuori90(num5 + Estratto(idEstr,r,pos1))
            som14 = Fuori90(num5 + Estratto(idEstr,r,pos2))
            som15 = Fuori90(num5 + Estratto(idEstr,r,pos3))
            som16 = Fuori90(num6 + Estratto(idEstr,r,pos1))
            som17 = Fuori90(num6 + Estratto(idEstr,r,pos2))
            som18 = Fuori90(num6 + Estratto(idEstr,r,pos3))
            som19 = Fuori90(num7 + Estratto(idEstr,r,pos1))
            som20 = Fuori90(num7 + Estratto(idEstr,r,pos2))
            som21 = Fuori90(num7 + Estratto(idEstr,r,pos3))
            som22 = Fuori90(num8 + Estratto(idEstr,r,pos1))
            som23 = Fuori90(num8 + Estratto(idEstr,r,pos2))
            som24 = Fuori90(num8 + Estratto(idEstr,r,pos3))
            som25 = Fuori90(num9 + Estratto(idEstr,r,pos1))
            som26 = Fuori90(num9 + Estratto(idEstr,r,pos2))
            som27 = Fuori90(num9 + Estratto(idEstr,r,pos3))
            som28 = Fuori90(num10 + Estratto(idEstr,r,pos1))
            som29 = Fuori90(num10 + Estratto(idEstr,r,pos2))
            som30 = Fuori90(num10 + Estratto(idEstr,r,pos3))
            som31 = Fuori90(num11 + Estratto(idEstr,r,pos1))
            som32 = Fuori90(num11 + Estratto(idEstr,r,pos2))
            som33 = Fuori90(num11 + Estratto(idEstr,r,pos3))
            som34 = Fuori90(num12 + Estratto(idEstr,r,pos1))
            som35 = Fuori90(num12 + Estratto(idEstr,r,pos2))
            som36 = Fuori90(num12 + Estratto(idEstr,r,pos3))
            Scrivi som1 & "-" & som2 & "-" & som3
            Scrivi
            Scrivi som4 & "-" & som5 & "-" & som6
            Scrivi
            Scrivi som7 & "-" & som8 & "-" & som9
            Scrivi
            Scrivi som10 & "-" & som11 & "-" & som12
            Scrivi
            Scrivi som13 & "-" & som14 & "-" & som15
            Scrivi
            Scrivi som16 & "-" & som17 & "-" & som18
            Scrivi
            Scrivi som19 & "-" & som20 & "-" & som21
            Scrivi
            Scrivi som22 & "-" & som23 & "-" & som24
            Scrivi
            Scrivi som25 & "-" & som26 & "-" & som27
            Scrivi
            Scrivi som28 & "-" & som29 & "-" & som30
            Scrivi
            Scrivi som31 & "-" & som32 & "-" & som33
            Scrivi
            Scrivi som34 & "-" & som35 & "-" & som36
        End If
        If pos = 3 And num = 13 Then
            som1 = Fuori90(num1 + Estratto(idEstr,r,pos1))
            som2 = Fuori90(num1 + Estratto(idEstr,r,pos2))
            som3 = Fuori90(num1 + Estratto(idEstr,r,pos3))
            som4 = Fuori90(num2 + Estratto(idEstr,r,pos1))
            som5 = Fuori90(num2 + Estratto(idEstr,r,pos2))
            som6 = Fuori90(num2 + Estratto(idEstr,r,pos3))
            som7 = Fuori90(num3 + Estratto(idEstr,r,pos1))
            som8 = Fuori90(num3 + Estratto(idEstr,r,pos2))
            som9 = Fuori90(num3 + Estratto(idEstr,r,pos3))
            som10 = Fuori90(num4 + Estratto(idEstr,r,pos1))
            som11 = Fuori90(num4 + Estratto(idEstr,r,pos2))
            som12 = Fuori90(num4 + Estratto(idEstr,r,pos3))
            som13 = Fuori90(num5 + Estratto(idEstr,r,pos1))
            som14 = Fuori90(num5 + Estratto(idEstr,r,pos2))
            som15 = Fuori90(num5 + Estratto(idEstr,r,pos3))
            som16 = Fuori90(num6 + Estratto(idEstr,r,pos1))
            som17 = Fuori90(num6 + Estratto(idEstr,r,pos2))
            som18 = Fuori90(num6 + Estratto(idEstr,r,pos3))
            som19 = Fuori90(num7 + Estratto(idEstr,r,pos1))
            som20 = Fuori90(num7 + Estratto(idEstr,r,pos2))
            som21 = Fuori90(num7 + Estratto(idEstr,r,pos3))
            som22 = Fuori90(num8 + Estratto(idEstr,r,pos1))
            som23 = Fuori90(num8 + Estratto(idEstr,r,pos2))
            som24 = Fuori90(num8 + Estratto(idEstr,r,pos3))
            som25 = Fuori90(num9 + Estratto(idEstr,r,pos1))
            som26 = Fuori90(num9 + Estratto(idEstr,r,pos2))
            som27 = Fuori90(num9 + Estratto(idEstr,r,pos3))
            som28 = Fuori90(num10 + Estratto(idEstr,r,pos1))
            som29 = Fuori90(num10 + Estratto(idEstr,r,pos2))
            som30 = Fuori90(num10 + Estratto(idEstr,r,pos3))
            som31 = Fuori90(num11 + Estratto(idEstr,r,pos1))
            som32 = Fuori90(num11 + Estratto(idEstr,r,pos2))
            som33 = Fuori90(num11 + Estratto(idEstr,r,pos3))
            som34 = Fuori90(num12 + Estratto(idEstr,r,pos1))
            som35 = Fuori90(num12 + Estratto(idEstr,r,pos2))
            som36 = Fuori90(num12 + Estratto(idEstr,r,pos3))
            som37 = Fuori90(num13 + Estratto(idEstr,r,pos1))
            som38 = Fuori90(num13 + Estratto(idEstr,r,pos2))
            som39 = Fuori90(num13 + Estratto(idEstr,r,pos3))
            Scrivi som1 & "-" & som2 & "-" & som3
            Scrivi
            Scrivi som4 & "-" & som5 & "-" & som6
            Scrivi
            Scrivi som7 & "-" & som8 & "-" & som9
            Scrivi
            Scrivi som10 & "-" & som11 & "-" & som12
            Scrivi
            Scrivi som13 & "-" & som14 & "-" & som15
            Scrivi
            Scrivi som16 & "-" & som17 & "-" & som18
            Scrivi
            Scrivi som19 & "-" & som20 & "-" & som21
            Scrivi
            Scrivi som22 & "-" & som23 & "-" & som24
            Scrivi
            Scrivi som25 & "-" & som26 & "-" & som27
            Scrivi
            Scrivi som28 & "-" & som29 & "-" & som30
            Scrivi
            Scrivi som31 & "-" & som32 & "-" & som33
            Scrivi
            Scrivi som34 & "-" & som35 & "-" & som36
            Scrivi
            Scrivi som37 & "-" & som38 & "-" & som39
        End If
        If pos = 3 And num = 14 Then
            som1 = Fuori90(num1 + Estratto(idEstr,r,pos1))
            som2 = Fuori90(num1 + Estratto(idEstr,r,pos2))
            som3 = Fuori90(num1 + Estratto(idEstr,r,pos3))
            som4 = Fuori90(num2 + Estratto(idEstr,r,pos1))
            som5 = Fuori90(num2 + Estratto(idEstr,r,pos2))
            som6 = Fuori90(num2 + Estratto(idEstr,r,pos3))
            som7 = Fuori90(num3 + Estratto(idEstr,r,pos1))
            som8 = Fuori90(num3 + Estratto(idEstr,r,pos2))
            som9 = Fuori90(num3 + Estratto(idEstr,r,pos3))
            som10 = Fuori90(num4 + Estratto(idEstr,r,pos1))
            som11 = Fuori90(num4 + Estratto(idEstr,r,pos2))
            som12 = Fuori90(num4 + Estratto(idEstr,r,pos3))
            som13 = Fuori90(num5 + Estratto(idEstr,r,pos1))
            som14 = Fuori90(num5 + Estratto(idEstr,r,pos2))
            som15 = Fuori90(num5 + Estratto(idEstr,r,pos3))
            som16 = Fuori90(num6 + Estratto(idEstr,r,pos1))
            som17 = Fuori90(num6 + Estratto(idEstr,r,pos2))
            som18 = Fuori90(num6 + Estratto(idEstr,r,pos3))
            som19 = Fuori90(num7 + Estratto(idEstr,r,pos1))
            som20 = Fuori90(num7 + Estratto(idEstr,r,pos2))
            som21 = Fuori90(num7 + Estratto(idEstr,r,pos3))
            som22 = Fuori90(num8 + Estratto(idEstr,r,pos1))
            som23 = Fuori90(num8 + Estratto(idEstr,r,pos2))
            som24 = Fuori90(num8 + Estratto(idEstr,r,pos3))
            som25 = Fuori90(num9 + Estratto(idEstr,r,pos1))
            som26 = Fuori90(num9 + Estratto(idEstr,r,pos2))
            som27 = Fuori90(num9 + Estratto(idEstr,r,pos3))
            som28 = Fuori90(num10 + Estratto(idEstr,r,pos1))
            som29 = Fuori90(num10 + Estratto(idEstr,r,pos2))
            som30 = Fuori90(num10 + Estratto(idEstr,r,pos3))
            som31 = Fuori90(num11 + Estratto(idEstr,r,pos1))
            som32 = Fuori90(num11 + Estratto(idEstr,r,pos2))
            som33 = Fuori90(num11 + Estratto(idEstr,r,pos3))
            som34 = Fuori90(num12 + Estratto(idEstr,r,pos1))
            som35 = Fuori90(num12 + Estratto(idEstr,r,pos2))
            som36 = Fuori90(num12 + Estratto(idEstr,r,pos3))
            som37 = Fuori90(num13 + Estratto(idEstr,r,pos1))
            som38 = Fuori90(num13 + Estratto(idEstr,r,pos2))
            som39 = Fuori90(num13 + Estratto(idEstr,r,pos3))
            som40 = Fuori90(num14 + Estratto(idEstr,r,pos1))
            som41 = Fuori90(num14 + Estratto(idEstr,r,pos2))
            som42 = Fuori90(num14 + Estratto(idEstr,r,pos3))
            Scrivi som1 & "-" & som2 & "-" & som3
            Scrivi
            Scrivi som4 & "-" & som5 & "-" & som6
            Scrivi
            Scrivi som7 & "-" & som8 & "-" & som9
            Scrivi
            Scrivi som10 & "-" & som11 & "-" & som12
            Scrivi
            Scrivi som13 & "-" & som14 & "-" & som15
            Scrivi
            Scrivi som16 & "-" & som17 & "-" & som18
            Scrivi
            Scrivi som19 & "-" & som20 & "-" & som21
            Scrivi
            Scrivi som22 & "-" & som23 & "-" & som24
            Scrivi
            Scrivi som25 & "-" & som26 & "-" & som27
            Scrivi
            Scrivi som28 & "-" & som29 & "-" & som30
            Scrivi
            Scrivi som31 & "-" & som32 & "-" & som33
            Scrivi
            Scrivi som34 & "-" & som35 & "-" & som36
            Scrivi
            Scrivi som37 & "-" & som38 & "-" & som39
            Scrivi
            Scrivi som40 & "-" & som41 & "-" & som42
        End If
        If pos = 3 And num = 15 Then
            som1 = Fuori90(num1 + Estratto(idEstr,r,pos1))
            som2 = Fuori90(num1 + Estratto(idEstr,r,pos2))
            som3 = Fuori90(num1 + Estratto(idEstr,r,pos3))
            som4 = Fuori90(num2 + Estratto(idEstr,r,pos1))
            som5 = Fuori90(num2 + Estratto(idEstr,r,pos2))
            som6 = Fuori90(num2 + Estratto(idEstr,r,pos3))
            som7 = Fuori90(num3 + Estratto(idEstr,r,pos1))
            som8 = Fuori90(num3 + Estratto(idEstr,r,pos2))
            som9 = Fuori90(num3 + Estratto(idEstr,r,pos3))
            som10 = Fuori90(num4 + Estratto(idEstr,r,pos1))
            som11 = Fuori90(num4 + Estratto(idEstr,r,pos2))
            som12 = Fuori90(num4 + Estratto(idEstr,r,pos3))
            som13 = Fuori90(num5 + Estratto(idEstr,r,pos1))
            som14 = Fuori90(num5 + Estratto(idEstr,r,pos2))
            som15 = Fuori90(num5 + Estratto(idEstr,r,pos3))
            som16 = Fuori90(num6 + Estratto(idEstr,r,pos1))
            som17 = Fuori90(num6 + Estratto(idEstr,r,pos2))
            som18 = Fuori90(num6 + Estratto(idEstr,r,pos3))
            som19 = Fuori90(num7 + Estratto(idEstr,r,pos1))
            som20 = Fuori90(num7 + Estratto(idEstr,r,pos2))
            som21 = Fuori90(num7 + Estratto(idEstr,r,pos3))
            som22 = Fuori90(num8 + Estratto(idEstr,r,pos1))
            som23 = Fuori90(num8 + Estratto(idEstr,r,pos2))
            som24 = Fuori90(num8 + Estratto(idEstr,r,pos3))
            som25 = Fuori90(num9 + Estratto(idEstr,r,pos1))
            som26 = Fuori90(num9 + Estratto(idEstr,r,pos2))
            som27 = Fuori90(num9 + Estratto(idEstr,r,pos3))
            som28 = Fuori90(num10 + Estratto(idEstr,r,pos1))
            som29 = Fuori90(num10 + Estratto(idEstr,r,pos2))
            som30 = Fuori90(num10 + Estratto(idEstr,r,pos3))
            som31 = Fuori90(num11 + Estratto(idEstr,r,pos1))
            som32 = Fuori90(num11 + Estratto(idEstr,r,pos2))
            som33 = Fuori90(num11 + Estratto(idEstr,r,pos3))
            som34 = Fuori90(num12 + Estratto(idEstr,r,pos1))
            som35 = Fuori90(num12 + Estratto(idEstr,r,pos2))
            som36 = Fuori90(num12 + Estratto(idEstr,r,pos3))
            som37 = Fuori90(num13 + Estratto(idEstr,r,pos1))
            som38 = Fuori90(num13 + Estratto(idEstr,r,pos2))
            som39 = Fuori90(num13 + Estratto(idEstr,r,pos3))
            som40 = Fuori90(num14 + Estratto(idEstr,r,pos1))
            som41 = Fuori90(num14 + Estratto(idEstr,r,pos2))
            som42 = Fuori90(num14 + Estratto(idEstr,r,pos3))
            som43 = Fuori90(num15 + Estratto(idEstr,r,pos1))
            som44 = Fuori90(num15 + Estratto(idEstr,r,pos2))
            som45 = Fuori90(num15 + Estratto(idEstr,r,pos3))
            Scrivi som1 & "-" & som2 & "-" & som3
            Scrivi
            Scrivi som4 & "-" & som5 & "-" & som6
            Scrivi
            Scrivi som7 & "-" & som8 & "-" & som9
            Scrivi
            Scrivi som10 & "-" & som11 & "-" & som12
            Scrivi
            Scrivi som13 & "-" & som14 & "-" & som15
            Scrivi
            Scrivi som16 & "-" & som17 & "-" & som18
            Scrivi
            Scrivi som19 & "-" & som20 & "-" & som21
            Scrivi
            Scrivi som22 & "-" & som23 & "-" & som24
            Scrivi
            Scrivi som25 & "-" & som26 & "-" & som27
            Scrivi
            Scrivi som28 & "-" & som29 & "-" & som30
            Scrivi
            Scrivi som31 & "-" & som32 & "-" & som33
            Scrivi
            Scrivi som34 & "-" & som35 & "-" & som36
            Scrivi
            Scrivi som37 & "-" & som38 & "-" & som39
            Scrivi
            Scrivi som40 & "-" & som41 & "-" & som42
            Scrivi
            Scrivi som43 & "-" & som44 & "-" & som45
        End If
        ColoreTesto 0
        Scrivi String(80,"="),1
        If ScriptInterrotto Then Exit For
    Next
    Scrivi String(100,"*")
    ColoreTesto 2
    Scrivi" Casi elaborati : " & co,1
    ColoreTesto 0
    Scrivi String(100," * ")
    TestoInBandaPassante(" LISTATO BY  B A F F O B L U "),1,3,0
End Sub

Stessa cosa per questo script......

Ma sei OBBLIGATA a scegliere 4 posizioni.

Nel senso che non puoi sceglierne ne di meno
e ne di più.

Devi scegliere 4 pos. PER FORZA !!!

Codice:

Sub Main()
    Dim idEstr,Inizio,Fine
    Dim ruote(11)
    Dim r
    Dim nAnalisi
    Dim pos
    Dim pos1
    Dim pos2
    Dim pos3
    Dim pos4
    Dim pos5
    Dim num
    Dim num1
    Dim num2
    Dim num3
    Dim num4
    Dim num5
    Dim num6
    Dim num7
    Dim num8
    Dim num9
    Dim num10
    Dim num11
    Dim num12
    Dim num13
    Dim num14
    Dim num15
    r = CInt(InputBox(" Scegli la ruota di Elaborazione",,"1"))
    nAnalisi = CInt(InputBox(" Quante estrazioni vuoi controllare ? ",,"20"))
    pos = CInt(InputBox(" Premi OK per scegliere le 4 posizioni ",,"4"))
    If pos = 4 Then
        pos1 = CInt(InputBox(" Scegli la 1° Posizione Scelta ",,"1"))
        pos2 = CInt(InputBox(" Scegli la 2° Posizione Scelta ",,"2"))
        pos3 = CInt(InputBox(" Scegli la 3° Posizione Scelta ",,"3"))
        pos4 = CInt(InputBox(" Scegli la 4° Posizione Scelta ",,"4"))
    End If
    num = CInt(InputBox("Quantità numeri che vuoi Utilizzare ? - max 15.",,"1"))
    If num = 1 Then
        num1 = CInt(InputBox(" Inserisci il Numero scelto",,"1"))
    End If
    If num = 2 Then
        num1 = CInt(InputBox(" Inserisci il 1° Numero scelto",,"1"))
        num2 = CInt(InputBox(" Inserisci il 2° Numero scelto",,"2"))
    End If
    If num = 3 Then
        num1 = CInt(InputBox(" Inserisci il 1° Numero scelto",,"1"))
        num2 = CInt(InputBox(" Inserisci il 2° Numero scelto",,"2"))
        num3 = CInt(InputBox(" Inserisci il 3° Numero scelto",,"3"))
    End If
    If num = 4 Then
        num1 = CInt(InputBox(" Inserisci il 1° Numero scelto",,"1"))
        num2 = CInt(InputBox(" Inserisci il 2° Numero scelto",,"2"))
        num3 = CInt(InputBox(" Inserisci il 3° Numero scelto",,"3"))
        num4 = CInt(InputBox(" Inserisci il 4° Numero scelto",,"4"))
    End If
    If num = 5 Then
        num1 = CInt(InputBox(" Inserisci il 1° Numero scelto",,"1"))
        num2 = CInt(InputBox(" Inserisci il 2° Numero scelto",,"2"))
        num3 = CInt(InputBox(" Inserisci il 3° Numero scelto",,"3"))
        num4 = CInt(InputBox(" Inserisci il 4° Numero scelto",,"4"))
        num5 = CInt(InputBox(" Inserisci il 5° Numero scelto",,"5"))
    End If
    If num = 6 Then
        num1 = CInt(InputBox(" Inserisci il 1° Numero scelto",,"1"))
        num2 = CInt(InputBox(" Inserisci il 2° Numero scelto",,"2"))
        num3 = CInt(InputBox(" Inserisci il 3° Numero scelto",,"3"))
        num4 = CInt(InputBox(" Inserisci il 4° Numero scelto",,"4"))
        num5 = CInt(InputBox(" Inserisci il 5° Numero scelto",,"5"))
        num6 = CInt(InputBox(" Inserisci il 6° Numero scelto",,"6"))
    End If
    If num = 7 Then
        num1 = CInt(InputBox(" Inserisci il 1° Numero scelto",,"1"))
        num2 = CInt(InputBox(" Inserisci il 2° Numero scelto",,"2"))
        num3 = CInt(InputBox(" Inserisci il 3° Numero scelto",,"3"))
        num4 = CInt(InputBox(" Inserisci il 4° Numero scelto",,"4"))
        num5 = CInt(InputBox(" Inserisci il 5° Numero scelto",,"5"))
        num6 = CInt(InputBox(" Inserisci il 6° Numero scelto",,"6"))
        num7 = CInt(InputBox(" Inserisci il 7° Numero scelto",,"7"))
    End If
    If num = 8 Then
        num1 = CInt(InputBox(" Inserisci il 1° Numero scelto",,"1"))
        num2 = CInt(InputBox(" Inserisci il 2° Numero scelto",,"2"))
        num3 = CInt(InputBox(" Inserisci il 3° Numero scelto",,"3"))
        num4 = CInt(InputBox(" Inserisci il 4° Numero scelto",,"4"))
        num5 = CInt(InputBox(" Inserisci il 5° Numero scelto",,"5"))
        num6 = CInt(InputBox(" Inserisci il 6° Numero scelto",,"6"))
        num7 = CInt(InputBox(" Inserisci il 7° Numero scelto",,"7"))
        num8 = CInt(InputBox(" Inserisci il 8° Numero scelto",,"8"))
    End If
    If num = 9 Then
        num1 = CInt(InputBox(" Inserisci il 1° Numero scelto",,"1"))
        num2 = CInt(InputBox(" Inserisci il 2° Numero scelto",,"2"))
        num3 = CInt(InputBox(" Inserisci il 3° Numero scelto",,"3"))
        num4 = CInt(InputBox(" Inserisci il 4° Numero scelto",,"4"))
        num5 = CInt(InputBox(" Inserisci il 5° Numero scelto",,"5"))
        num6 = CInt(InputBox(" Inserisci il 6° Numero scelto",,"6"))
        num7 = CInt(InputBox(" Inserisci il 7° Numero scelto",,"7"))
        num8 = CInt(InputBox(" Inserisci il 8° Numero scelto",,"8"))
        num9 = CInt(InputBox(" Inserisci il 9° Numero scelto",,"9"))
    End If
    If num = 10 Then
        num1 = CInt(InputBox(" Inserisci il 1° Numero scelto",,"1"))
        num2 = CInt(InputBox(" Inserisci il 2° Numero scelto",,"2"))
        num3 = CInt(InputBox(" Inserisci il 3° Numero scelto",,"3"))
        num4 = CInt(InputBox(" Inserisci il 4° Numero scelto",,"4"))
        num5 = CInt(InputBox(" Inserisci il 5° Numero scelto",,"5"))
        num6 = CInt(InputBox(" Inserisci il 6° Numero scelto",,"6"))
        num7 = CInt(InputBox(" Inserisci il 7° Numero scelto",,"7"))
        num8 = CInt(InputBox(" Inserisci il 8° Numero scelto",,"8"))
        num9 = CInt(InputBox(" Inserisci il 9° Numero scelto",,"9"))
        num10 = CInt(InputBox(" Inserisci il 10° Numero scelto",,"10"))
    End If
    If num = 11 Then
        num1 = CInt(InputBox(" Inserisci il 1° Numero scelto",,"1"))
        num2 = CInt(InputBox(" Inserisci il 2° Numero scelto",,"2"))
        num3 = CInt(InputBox(" Inserisci il 3° Numero scelto",,"3"))
        num4 = CInt(InputBox(" Inserisci il 4° Numero scelto",,"4"))
        num5 = CInt(InputBox(" Inserisci il 5° Numero scelto",,"5"))
        num6 = CInt(InputBox(" Inserisci il 6° Numero scelto",,"6"))
        num7 = CInt(InputBox(" Inserisci il 7° Numero scelto",,"7"))
        num8 = CInt(InputBox(" Inserisci il 8° Numero scelto",,"8"))
        num9 = CInt(InputBox(" Inserisci il 9° Numero scelto",,"9"))
        num10 = CInt(InputBox(" Inserisci il 10° Numero scelto",,"10"))
        num11 = CInt(InputBox(" Inserisci il 11° Numero scelto",,"11"))
    End If
    If num = 12 Then
        num1 = CInt(InputBox(" Inserisci il 1° Numero scelto",,"1"))
        num2 = CInt(InputBox(" Inserisci il 2° Numero scelto",,"2"))
        num3 = CInt(InputBox(" Inserisci il 3° Numero scelto",,"3"))
        num4 = CInt(InputBox(" Inserisci il 4° Numero scelto",,"4"))
        num5 = CInt(InputBox(" Inserisci il 5° Numero scelto",,"5"))
        num6 = CInt(InputBox(" Inserisci il 6° Numero scelto",,"6"))
        num7 = CInt(InputBox(" Inserisci il 7° Numero scelto",,"7"))
        num8 = CInt(InputBox(" Inserisci il 8° Numero scelto",,"8"))
        num9 = CInt(InputBox(" Inserisci il 9° Numero scelto",,"9"))
        num10 = CInt(InputBox(" Inserisci il 10° Numero scelto",,"10"))
        num11 = CInt(InputBox(" Inserisci il 11° Numero scelto",,"11"))
        num12 = CInt(InputBox(" Inserisci il 12° Numero scelto",,"12"))
    End If
    If num = 13 Then
        num1 = CInt(InputBox(" Inserisci il 1° Numero scelto",,"1"))
        num2 = CInt(InputBox(" Inserisci il 2° Numero scelto",,"2"))
        num3 = CInt(InputBox(" Inserisci il 3° Numero scelto",,"3"))
        num4 = CInt(InputBox(" Inserisci il 4° Numero scelto",,"4"))
        num5 = CInt(InputBox(" Inserisci il 5° Numero scelto",,"5"))
        num6 = CInt(InputBox(" Inserisci il 6° Numero scelto",,"6"))
        num7 = CInt(InputBox(" Inserisci il 7° Numero scelto",,"7"))
        num8 = CInt(InputBox(" Inserisci il 8° Numero scelto",,"8"))
        num9 = CInt(InputBox(" Inserisci il 9° Numero scelto",,"9"))
        num10 = CInt(InputBox(" Inserisci il 10° Numero scelto",,"10"))
        num11 = CInt(InputBox(" Inserisci il 11° Numero scelto",,"11"))
        num12 = CInt(InputBox(" Inserisci il 12° Numero scelto",,"12"))
        num13 = CInt(InputBox(" Inserisci il 13° Numero scelto",,"13"))
    End If
    If num = 14 Then
        num1 = CInt(InputBox(" Inserisci il 1° Numero scelto",,"1"))
        num2 = CInt(InputBox(" Inserisci il 2° Numero scelto",,"2"))
        num3 = CInt(InputBox(" Inserisci il 3° Numero scelto",,"3"))
        num4 = CInt(InputBox(" Inserisci il 4° Numero scelto",,"4"))
        num5 = CInt(InputBox(" Inserisci il 5° Numero scelto",,"5"))
        num6 = CInt(InputBox(" Inserisci il 6° Numero scelto",,"6"))
        num7 = CInt(InputBox(" Inserisci il 7° Numero scelto",,"7"))
        num8 = CInt(InputBox(" Inserisci il 8° Numero scelto",,"8"))
        num9 = CInt(InputBox(" Inserisci il 9° Numero scelto",,"9"))
        num10 = CInt(InputBox(" Inserisci il 10° Numero scelto",,"10"))
        num11 = CInt(InputBox(" Inserisci il 11° Numero scelto",,"11"))
        num12 = CInt(InputBox(" Inserisci il 12° Numero scelto",,"12"))
        num13 = CInt(InputBox(" Inserisci il 13° Numero scelto",,"13"))
        num14 = CInt(InputBox(" Inserisci il 14° Numero scelto",,"14"))
    End If
    If num = 15 Then
        num1 = CInt(InputBox(" Inserisci il 1° Numero scelto",,"1"))
        num2 = CInt(InputBox(" Inserisci il 2° Numero scelto",,"2"))
        num3 = CInt(InputBox(" Inserisci il 3° Numero scelto",,"3"))
        num4 = CInt(InputBox(" Inserisci il 4° Numero scelto",,"4"))
        num5 = CInt(InputBox(" Inserisci il 5° Numero scelto",,"5"))
        num6 = CInt(InputBox(" Inserisci il 6° Numero scelto",,"6"))
        num7 = CInt(InputBox(" Inserisci il 7° Numero scelto",,"7"))
        num8 = CInt(InputBox(" Inserisci il 8° Numero scelto",,"8"))
        num9 = CInt(InputBox(" Inserisci il 9° Numero scelto",,"9"))
        num10 = CInt(InputBox(" Inserisci il 10° Numero scelto",,"10"))
        num11 = CInt(InputBox(" Inserisci il 11° Numero scelto",,"11"))
        num12 = CInt(InputBox(" Inserisci il 12° Numero scelto",,"12"))
        num13 = CInt(InputBox(" Inserisci il 13° Numero scelto",,"13"))
        num14 = CInt(InputBox(" Inserisci il 14° Numero scelto",,"14"))
        num15 = CInt(InputBox(" Inserisci il 15° Numero scelto",,"15"))
    End If
    Inizio = EstrazioneFin - nAnalisi
    Fine = EstrazioneFin
    co = 0
    For idEstr = Inizio To Fine
        Messaggio "elab. estr. [" &(idEstr) & "] di " & DataEstrazione(idEstr,1)
        Call AvanzamentoElab(Inizio,Fine,idEstr)
        ruote(1) = r
        co = co + 1
        Scrivi String(100,"°") & " Caso n°" & co,1
        Scrivi DataEstrazione(idEstr) & " -- " & SiglaRuota(r) & " - " & StringaEstratti(idEstr,r),1
        ColoreTesto 7
        Scrivi
        Scrivi " In totale hai scelto " & num & " numeri",1
        Scrivi
        Scrivi " e hai scelto rispettivamente la " & pos1 & "° * " & pos2 & "°  *" & pos3 & "°  *" & pos4 & "° - Posizione",1
        Scrivi
        ColoreTesto 1
        If pos = 4 And num = 1 Then
            som1 = Fuori90(num1 + Estratto(idEstr,r,pos1))
            som2 = Fuori90(num1 + Estratto(idEstr,r,pos2))
            som3 = Fuori90(num1 + Estratto(idEstr,r,pos3))
            som4 = Fuori90(num1 + Estratto(idEstr,r,pos4))
            Scrivi som1 & "-" & som2 & "-" & som3 & "-" & som4
        End If
        If pos = 4 And num = 2 Then
            som1 = Fuori90(num1 + Estratto(idEstr,r,pos1))
            som2 = Fuori90(num1 + Estratto(idEstr,r,pos2))
            som3 = Fuori90(num1 + Estratto(idEstr,r,pos3))
            som4 = Fuori90(num1 + Estratto(idEstr,r,pos4))
            som5 = Fuori90(num2 + Estratto(idEstr,r,pos1))
            som6 = Fuori90(num2 + Estratto(idEstr,r,pos2))
            som7 = Fuori90(num2 + Estratto(idEstr,r,pos3))
            som8 = Fuori90(num2 + Estratto(idEstr,r,pos4))
            Scrivi som1 & "-" & som2 & "-" & som3 & "-" & som4
            Scrivi
            Scrivi som5 & "-" & som6 & "-" & som7 & "-" & som8
        End If
        If pos = 4 And num = 3 Then
            som1 = Fuori90(num1 + Estratto(idEstr,r,pos1))
            som2 = Fuori90(num1 + Estratto(idEstr,r,pos2))
            som3 = Fuori90(num1 + Estratto(idEstr,r,pos3))
            som4 = Fuori90(num1 + Estratto(idEstr,r,pos4))
            som5 = Fuori90(num2 + Estratto(idEstr,r,pos1))
            som6 = Fuori90(num2 + Estratto(idEstr,r,pos2))
            som7 = Fuori90(num2 + Estratto(idEstr,r,pos3))
            som8 = Fuori90(num2 + Estratto(idEstr,r,pos4))
            som9 = Fuori90(num3 + Estratto(idEstr,r,pos1))
            som10 = Fuori90(num3 + Estratto(idEstr,r,pos2))
            som11 = Fuori90(num3 + Estratto(idEstr,r,pos3))
            som12 = Fuori90(num3 + Estratto(idEstr,r,pos4))
            Scrivi som1 & "-" & som2 & "-" & som3 & "-" & som4
            Scrivi
            Scrivi som5 & "-" & som6 & "-" & som7 & "-" & som8
            Scrivi
            Scrivi som9 & "-" & som10 & "-" & som11 & "-" & som12
        End If
        If pos = 4 And num = 4 Then
            som1 = Fuori90(num1 + Estratto(idEstr,r,pos1))
            som2 = Fuori90(num1 + Estratto(idEstr,r,pos2))
            som3 = Fuori90(num1 + Estratto(idEstr,r,pos3))
            som4 = Fuori90(num1 + Estratto(idEstr,r,pos4))
            som5 = Fuori90(num2 + Estratto(idEstr,r,pos1))
            som6 = Fuori90(num2 + Estratto(idEstr,r,pos2))
            som7 = Fuori90(num2 + Estratto(idEstr,r,pos3))
            som8 = Fuori90(num2 + Estratto(idEstr,r,pos4))
            som9 = Fuori90(num3 + Estratto(idEstr,r,pos1))
            som10 = Fuori90(num3 + Estratto(idEstr,r,pos2))
            som11 = Fuori90(num3 + Estratto(idEstr,r,pos3))
            som12 = Fuori90(num3 + Estratto(idEstr,r,pos4))
            som13 = Fuori90(num4 + Estratto(idEstr,r,pos1))
            som14 = Fuori90(num4 + Estratto(idEstr,r,pos2))
            som15 = Fuori90(num4 + Estratto(idEstr,r,pos3))
            som16 = Fuori90(num4 + Estratto(idEstr,r,pos4))
            Scrivi som1 & "-" & som2 & "-" & som3 & "-" & som4
            Scrivi
            Scrivi som5 & "-" & som6 & "-" & som7 & "-" & som8
            Scrivi
            Scrivi som9 & "-" & som10 & "-" & som11 & "-" & som12
            Scrivi
            Scrivi som13 & "-" & som14 & "-" & som15 & "-" & som16
        End If
        If pos = 4 And num = 5 Then
            som1 = Fuori90(num1 + Estratto(idEstr,r,pos1))
            som2 = Fuori90(num1 + Estratto(idEstr,r,pos2))
            som3 = Fuori90(num1 + Estratto(idEstr,r,pos3))
            som4 = Fuori90(num1 + Estratto(idEstr,r,pos4))
            som5 = Fuori90(num2 + Estratto(idEstr,r,pos1))
            som6 = Fuori90(num2 + Estratto(idEstr,r,pos2))
            som7 = Fuori90(num2 + Estratto(idEstr,r,pos3))
            som8 = Fuori90(num2 + Estratto(idEstr,r,pos4))
            som9 = Fuori90(num3 + Estratto(idEstr,r,pos1))
            som10 = Fuori90(num3 + Estratto(idEstr,r,pos2))
            som11 = Fuori90(num3 + Estratto(idEstr,r,pos3))
            som12 = Fuori90(num3 + Estratto(idEstr,r,pos4))
            som13 = Fuori90(num4 + Estratto(idEstr,r,pos1))
            som14 = Fuori90(num4 + Estratto(idEstr,r,pos2))
            som15 = Fuori90(num4 + Estratto(idEstr,r,pos3))
            som16 = Fuori90(num4 + Estratto(idEstr,r,pos4))
            som17 = Fuori90(num5 + Estratto(idEstr,r,pos1))
            som18 = Fuori90(num5 + Estratto(idEstr,r,pos2))
            som19 = Fuori90(num5 + Estratto(idEstr,r,pos3))
            som20 = Fuori90(num5 + Estratto(idEstr,r,pos4))
            Scrivi som1 & "-" & som2 & "-" & som3 & "-" & som4
            Scrivi
            Scrivi som5 & "-" & som6 & "-" & som7 & "-" & som8
            Scrivi
            Scrivi som9 & "-" & som10 & "-" & som11 & "-" & som12
            Scrivi
            Scrivi som13 & "-" & som14 & "-" & som15 & "-" & som16
            Scrivi
            Scrivi som17 & "-" & som18 & "-" & som19 & "-" & som20
        End If
        If pos = 4 And num = 6 Then
            som1 = Fuori90(num1 + Estratto(idEstr,r,pos1))
            som2 = Fuori90(num1 + Estratto(idEstr,r,pos2))
            som3 = Fuori90(num1 + Estratto(idEstr,r,pos3))
            som4 = Fuori90(num1 + Estratto(idEstr,r,pos4))
            som5 = Fuori90(num2 + Estratto(idEstr,r,pos1))
            som6 = Fuori90(num2 + Estratto(idEstr,r,pos2))
            som7 = Fuori90(num2 + Estratto(idEstr,r,pos3))
            som8 = Fuori90(num2 + Estratto(idEstr,r,pos4))
            som9 = Fuori90(num3 + Estratto(idEstr,r,pos1))
            som10 = Fuori90(num3 + Estratto(idEstr,r,pos2))
            som11 = Fuori90(num3 + Estratto(idEstr,r,pos3))
            som12 = Fuori90(num3 + Estratto(idEstr,r,pos4))
            som13 = Fuori90(num4 + Estratto(idEstr,r,pos1))
            som14 = Fuori90(num4 + Estratto(idEstr,r,pos2))
            som15 = Fuori90(num4 + Estratto(idEstr,r,pos3))
            som16 = Fuori90(num4 + Estratto(idEstr,r,pos4))
            som17 = Fuori90(num5 + Estratto(idEstr,r,pos1))
            som18 = Fuori90(num5 + Estratto(idEstr,r,pos2))
            som19 = Fuori90(num5 + Estratto(idEstr,r,pos3))
            som20 = Fuori90(num5 + Estratto(idEstr,r,pos4))
            som21 = Fuori90(num6 + Estratto(idEstr,r,pos1))
            som22 = Fuori90(num6 + Estratto(idEstr,r,pos2))
            som23 = Fuori90(num6 + Estratto(idEstr,r,pos3))
            som24 = Fuori90(num6 + Estratto(idEstr,r,pos4))
            Scrivi som1 & "-" & som2 & "-" & som3 & "-" & som4
            Scrivi
            Scrivi som5 & "-" & som6 & "-" & som7 & "-" & som8
            Scrivi
            Scrivi som9 & "-" & som10 & "-" & som11 & "-" & som12
            Scrivi
            Scrivi som13 & "-" & som14 & "-" & som15 & "-" & som16
            Scrivi
            Scrivi som17 & "-" & som18 & "-" & som19 & "-" & som20
            Scrivi
            Scrivi som21 & "-" & som22 & "-" & som23 & "-" & som24
        End If
        If pos = 4 And num = 7 Then
            som1 = Fuori90(num1 + Estratto(idEstr,r,pos1))
            som2 = Fuori90(num1 + Estratto(idEstr,r,pos2))
            som3 = Fuori90(num1 + Estratto(idEstr,r,pos3))
            som4 = Fuori90(num1 + Estratto(idEstr,r,pos4))
            som5 = Fuori90(num2 + Estratto(idEstr,r,pos1))
            som6 = Fuori90(num2 + Estratto(idEstr,r,pos2))
            som7 = Fuori90(num2 + Estratto(idEstr,r,pos3))
            som8 = Fuori90(num2 + Estratto(idEstr,r,pos4))
            som9 = Fuori90(num3 + Estratto(idEstr,r,pos1))
            som10 = Fuori90(num3 + Estratto(idEstr,r,pos2))
            som11 = Fuori90(num3 + Estratto(idEstr,r,pos3))
            som12 = Fuori90(num3 + Estratto(idEstr,r,pos4))
            som13 = Fuori90(num4 + Estratto(idEstr,r,pos1))
            som14 = Fuori90(num4 + Estratto(idEstr,r,pos2))
            som15 = Fuori90(num4 + Estratto(idEstr,r,pos3))
            som16 = Fuori90(num4 + Estratto(idEstr,r,pos4))
            som17 = Fuori90(num5 + Estratto(idEstr,r,pos1))
            som18 = Fuori90(num5 + Estratto(idEstr,r,pos2))
            som19 = Fuori90(num5 + Estratto(idEstr,r,pos3))
            som20 = Fuori90(num5 + Estratto(idEstr,r,pos4))
            som21 = Fuori90(num6 + Estratto(idEstr,r,pos1))
            som22 = Fuori90(num6 + Estratto(idEstr,r,pos2))
            som23 = Fuori90(num6 + Estratto(idEstr,r,pos3))
            som24 = Fuori90(num6 + Estratto(idEstr,r,pos4))
            som25 = Fuori90(num7 + Estratto(idEstr,r,pos1))
            som26 = Fuori90(num7 + Estratto(idEstr,r,pos2))
            som27 = Fuori90(num7 + Estratto(idEstr,r,pos3))
            som28 = Fuori90(num7 + Estratto(idEstr,r,pos4))
            Scrivi som1 & "-" & som2 & "-" & som3 & "-" & som4
            Scrivi
            Scrivi som5 & "-" & som6 & "-" & som7 & "-" & som8
            Scrivi
            Scrivi som9 & "-" & som10 & "-" & som11 & "-" & som12
            Scrivi
            Scrivi som13 & "-" & som14 & "-" & som15 & "-" & som16
            Scrivi
            Scrivi som17 & "-" & som18 & "-" & som19 & "-" & som20
            Scrivi
            Scrivi som21 & "-" & som22 & "-" & som23 & "-" & som24
            Scrivi
            Scrivi som25 & "-" & som26 & "-" & som27 & "-" & som28
        End If
        If pos = 4 And num = 8 Then
            som1 = Fuori90(num1 + Estratto(idEstr,r,pos1))
            som2 = Fuori90(num1 + Estratto(idEstr,r,pos2))
            som3 = Fuori90(num1 + Estratto(idEstr,r,pos3))
            som4 = Fuori90(num1 + Estratto(idEstr,r,pos4))
            som5 = Fuori90(num2 + Estratto(idEstr,r,pos1))
            som6 = Fuori90(num2 + Estratto(idEstr,r,pos2))
            som7 = Fuori90(num2 + Estratto(idEstr,r,pos3))
            som8 = Fuori90(num2 + Estratto(idEstr,r,pos4))
            som9 = Fuori90(num3 + Estratto(idEstr,r,pos1))
            som10 = Fuori90(num3 + Estratto(idEstr,r,pos2))
            som11 = Fuori90(num3 + Estratto(idEstr,r,pos3))
            som12 = Fuori90(num3 + Estratto(idEstr,r,pos4))
            som13 = Fuori90(num4 + Estratto(idEstr,r,pos1))
            som14 = Fuori90(num4 + Estratto(idEstr,r,pos2))
            som15 = Fuori90(num4 + Estratto(idEstr,r,pos3))
            som16 = Fuori90(num4 + Estratto(idEstr,r,pos4))
            som17 = Fuori90(num5 + Estratto(idEstr,r,pos1))
            som18 = Fuori90(num5 + Estratto(idEstr,r,pos2))
            som19 = Fuori90(num5 + Estratto(idEstr,r,pos3))
            som20 = Fuori90(num5 + Estratto(idEstr,r,pos4))
            som21 = Fuori90(num6 + Estratto(idEstr,r,pos1))
            som22 = Fuori90(num6 + Estratto(idEstr,r,pos2))
            som23 = Fuori90(num6 + Estratto(idEstr,r,pos3))
            som24 = Fuori90(num6 + Estratto(idEstr,r,pos4))
            som25 = Fuori90(num7 + Estratto(idEstr,r,pos1))
            som26 = Fuori90(num7 + Estratto(idEstr,r,pos2))
            som27 = Fuori90(num7 + Estratto(idEstr,r,pos3))
            som28 = Fuori90(num7 + Estratto(idEstr,r,pos4))
            som29 = Fuori90(num8 + Estratto(idEstr,r,pos1))
            som30 = Fuori90(num8 + Estratto(idEstr,r,pos2))
            som31 = Fuori90(num8 + Estratto(idEstr,r,pos3))
            som32 = Fuori90(num8 + Estratto(idEstr,r,pos4))
            Scrivi som1 & "-" & som2 & "-" & som3 & "-" & som4
            Scrivi
            Scrivi som5 & "-" & som6 & "-" & som7 & "-" & som8
            Scrivi
            Scrivi som9 & "-" & som10 & "-" & som11 & "-" & som12
            Scrivi
            Scrivi som13 & "-" & som14 & "-" & som15 & "-" & som16
            Scrivi
            Scrivi som17 & "-" & som18 & "-" & som19 & "-" & som20
            Scrivi
            Scrivi som21 & "-" & som22 & "-" & som23 & "-" & som24
            Scrivi
            Scrivi som25 & "-" & som26 & "-" & som27 & "-" & som28
            Scrivi
            Scrivi som29 & "-" & som30 & "-" & som31 & "-" & som32
        End If
        If pos = 4 And num = 9 Then
            som1 = Fuori90(num1 + Estratto(idEstr,r,pos1))
            som2 = Fuori90(num1 + Estratto(idEstr,r,pos2))
            som3 = Fuori90(num1 + Estratto(idEstr,r,pos3))
            som4 = Fuori90(num1 + Estratto(idEstr,r,pos4))
            som5 = Fuori90(num2 + Estratto(idEstr,r,pos1))
            som6 = Fuori90(num2 + Estratto(idEstr,r,pos2))
            som7 = Fuori90(num2 + Estratto(idEstr,r,pos3))
            som8 = Fuori90(num2 + Estratto(idEstr,r,pos4))
            som9 = Fuori90(num3 + Estratto(idEstr,r,pos1))
            som10 = Fuori90(num3 + Estratto(idEstr,r,pos2))
            som11 = Fuori90(num3 + Estratto(idEstr,r,pos3))
            som12 = Fuori90(num3 + Estratto(idEstr,r,pos4))
            som13 = Fuori90(num4 + Estratto(idEstr,r,pos1))
            som14 = Fuori90(num4 + Estratto(idEstr,r,pos2))
            som15 = Fuori90(num4 + Estratto(idEstr,r,pos3))
            som16 = Fuori90(num4 + Estratto(idEstr,r,pos4))
            som17 = Fuori90(num5 + Estratto(idEstr,r,pos1))
            som18 = Fuori90(num5 + Estratto(idEstr,r,pos2))
            som19 = Fuori90(num5 + Estratto(idEstr,r,pos3))
            som20 = Fuori90(num5 + Estratto(idEstr,r,pos4))
            som21 = Fuori90(num6 + Estratto(idEstr,r,pos1))
            som22 = Fuori90(num6 + Estratto(idEstr,r,pos2))
            som23 = Fuori90(num6 + Estratto(idEstr,r,pos3))
            som24 = Fuori90(num6 + Estratto(idEstr,r,pos4))
            som25 = Fuori90(num7 + Estratto(idEstr,r,pos1))
            som26 = Fuori90(num7 + Estratto(idEstr,r,pos2))
            som27 = Fuori90(num7 + Estratto(idEstr,r,pos3))
            som28 = Fuori90(num7 + Estratto(idEstr,r,pos4))
            som29 = Fuori90(num8 + Estratto(idEstr,r,pos1))
            som30 = Fuori90(num8 + Estratto(idEstr,r,pos2))
            som31 = Fuori90(num8 + Estratto(idEstr,r,pos3))
            som32 = Fuori90(num8 + Estratto(idEstr,r,pos4))
            som33 = Fuori90(num9 + Estratto(idEstr,r,pos1))
            som34 = Fuori90(num9 + Estratto(idEstr,r,pos2))
            som35 = Fuori90(num9 + Estratto(idEstr,r,pos3))
            som36 = Fuori90(num9 + Estratto(idEstr,r,pos4))
            Scrivi som1 & "-" & som2 & "-" & som3 & "-" & som4
            Scrivi
            Scrivi som5 & "-" & som6 & "-" & som7 & "-" & som8
            Scrivi
            Scrivi som9 & "-" & som10 & "-" & som11 & "-" & som12
            Scrivi
            Scrivi som13 & "-" & som14 & "-" & som15 & "-" & som16
            Scrivi
            Scrivi som17 & "-" & som18 & "-" & som19 & "-" & som20
            Scrivi
            Scrivi som21 & "-" & som22 & "-" & som23 & "-" & som24
            Scrivi
            Scrivi som25 & "-" & som26 & "-" & som27 & "-" & som28
            Scrivi
            Scrivi som29 & "-" & som30 & "-" & som31 & "-" & som32
            Scrivi
            Scrivi som33 & "-" & som34 & "-" & som35 & "-" & som36
        End If
        If pos = 4 And num = 10 Then
            som1 = Fuori90(num1 + Estratto(idEstr,r,pos1))
            som2 = Fuori90(num1 + Estratto(idEstr,r,pos2))
            som3 = Fuori90(num1 + Estratto(idEstr,r,pos3))
            som4 = Fuori90(num1 + Estratto(idEstr,r,pos4))
            som5 = Fuori90(num2 + Estratto(idEstr,r,pos1))
            som6 = Fuori90(num2 + Estratto(idEstr,r,pos2))
            som7 = Fuori90(num2 + Estratto(idEstr,r,pos3))
            som8 = Fuori90(num2 + Estratto(idEstr,r,pos4))
            som9 = Fuori90(num3 + Estratto(idEstr,r,pos1))
            som10 = Fuori90(num3 + Estratto(idEstr,r,pos2))
            som11 = Fuori90(num3 + Estratto(idEstr,r,pos3))
            som12 = Fuori90(num3 + Estratto(idEstr,r,pos4))
            som13 = Fuori90(num4 + Estratto(idEstr,r,pos1))
            som14 = Fuori90(num4 + Estratto(idEstr,r,pos2))
            som15 = Fuori90(num4 + Estratto(idEstr,r,pos3))
            som16 = Fuori90(num4 + Estratto(idEstr,r,pos4))
            som17 = Fuori90(num5 + Estratto(idEstr,r,pos1))
            som18 = Fuori90(num5 + Estratto(idEstr,r,pos2))
            som19 = Fuori90(num5 + Estratto(idEstr,r,pos3))
            som20 = Fuori90(num5 + Estratto(idEstr,r,pos4))
            som21 = Fuori90(num6 + Estratto(idEstr,r,pos1))
            som22 = Fuori90(num6 + Estratto(idEstr,r,pos2))
            som23 = Fuori90(num6 + Estratto(idEstr,r,pos3))
            som24 = Fuori90(num6 + Estratto(idEstr,r,pos4))
            som25 = Fuori90(num7 + Estratto(idEstr,r,pos1))
            som26 = Fuori90(num7 + Estratto(idEstr,r,pos2))
            som27 = Fuori90(num7 + Estratto(idEstr,r,pos3))
            som28 = Fuori90(num7 + Estratto(idEstr,r,pos4))
            som29 = Fuori90(num8 + Estratto(idEstr,r,pos1))
            som30 = Fuori90(num8 + Estratto(idEstr,r,pos2))
            som31 = Fuori90(num8 + Estratto(idEstr,r,pos3))
            som32 = Fuori90(num8 + Estratto(idEstr,r,pos4))
            som33 = Fuori90(num9 + Estratto(idEstr,r,pos1))
            som34 = Fuori90(num9 + Estratto(idEstr,r,pos2))
            som35 = Fuori90(num9 + Estratto(idEstr,r,pos3))
            som36 = Fuori90(num9 + Estratto(idEstr,r,pos4))
            som37 = Fuori90(num10 + Estratto(idEstr,r,pos1))
            som38 = Fuori90(num10 + Estratto(idEstr,r,pos2))
            som39 = Fuori90(num10 + Estratto(idEstr,r,pos3))
            som40 = Fuori90(num10 + Estratto(idEstr,r,pos4))
            Scrivi som1 & "-" & som2 & "-" & som3 & "-" & som4
            Scrivi
            Scrivi som5 & "-" & som6 & "-" & som7 & "-" & som8
            Scrivi
            Scrivi som9 & "-" & som10 & "-" & som11 & "-" & som12
            Scrivi
            Scrivi som13 & "-" & som14 & "-" & som15 & "-" & som16
            Scrivi
            Scrivi som17 & "-" & som18 & "-" & som19 & "-" & som20
            Scrivi
            Scrivi som21 & "-" & som22 & "-" & som23 & "-" & som24
            Scrivi
            Scrivi som25 & "-" & som26 & "-" & som27 & "-" & som28
            Scrivi
            Scrivi som29 & "-" & som30 & "-" & som31 & "-" & som32
            Scrivi
            Scrivi som33 & "-" & som34 & "-" & som35 & "-" & som36
            Scrivi
            Scrivi som37 & "-" & som38 & "-" & som39 & "-" & som40
        End If
        If pos = 4 And num = 11 Then
            som1 = Fuori90(num1 + Estratto(idEstr,r,pos1))
            som2 = Fuori90(num1 + Estratto(idEstr,r,pos2))
            som3 = Fuori90(num1 + Estratto(idEstr,r,pos3))
            som4 = Fuori90(num1 + Estratto(idEstr,r,pos4))
            som5 = Fuori90(num2 + Estratto(idEstr,r,pos1))
            som6 = Fuori90(num2 + Estratto(idEstr,r,pos2))
            som7 = Fuori90(num2 + Estratto(idEstr,r,pos3))
            som8 = Fuori90(num2 + Estratto(idEstr,r,pos4))
            som9 = Fuori90(num3 + Estratto(idEstr,r,pos1))
            som10 = Fuori90(num3 + Estratto(idEstr,r,pos2))
            som11 = Fuori90(num3 + Estratto(idEstr,r,pos3))
            som12 = Fuori90(num3 + Estratto(idEstr,r,pos4))
            som13 = Fuori90(num4 + Estratto(idEstr,r,pos1))
            som14 = Fuori90(num4 + Estratto(idEstr,r,pos2))
            som15 = Fuori90(num4 + Estratto(idEstr,r,pos3))
            som16 = Fuori90(num4 + Estratto(idEstr,r,pos4))
            som17 = Fuori90(num5 + Estratto(idEstr,r,pos1))
            som18 = Fuori90(num5 + Estratto(idEstr,r,pos2))
            som19 = Fuori90(num5 + Estratto(idEstr,r,pos3))
            som20 = Fuori90(num5 + Estratto(idEstr,r,pos4))
            som21 = Fuori90(num6 + Estratto(idEstr,r,pos1))
            som22 = Fuori90(num6 + Estratto(idEstr,r,pos2))
            som23 = Fuori90(num6 + Estratto(idEstr,r,pos3))
            som24 = Fuori90(num6 + Estratto(idEstr,r,pos4))
            som25 = Fuori90(num7 + Estratto(idEstr,r,pos1))
            som26 = Fuori90(num7 + Estratto(idEstr,r,pos2))
            som27 = Fuori90(num7 + Estratto(idEstr,r,pos3))
            som28 = Fuori90(num7 + Estratto(idEstr,r,pos4))
            som29 = Fuori90(num8 + Estratto(idEstr,r,pos1))
            som30 = Fuori90(num8 + Estratto(idEstr,r,pos2))
            som31 = Fuori90(num8 + Estratto(idEstr,r,pos3))
            som32 = Fuori90(num8 + Estratto(idEstr,r,pos4))
            som33 = Fuori90(num9 + Estratto(idEstr,r,pos1))
            som34 = Fuori90(num9 + Estratto(idEstr,r,pos2))
            som35 = Fuori90(num9 + Estratto(idEstr,r,pos3))
            som36 = Fuori90(num9 + Estratto(idEstr,r,pos4))
            som37 = Fuori90(num10 + Estratto(idEstr,r,pos1))
            som38 = Fuori90(num10 + Estratto(idEstr,r,pos2))
            som39 = Fuori90(num10 + Estratto(idEstr,r,pos3))
            som40 = Fuori90(num10 + Estratto(idEstr,r,pos4))
            som41 = Fuori90(num11 + Estratto(idEstr,r,pos1))
            som42 = Fuori90(num11 + Estratto(idEstr,r,pos2))
            som43 = Fuori90(num11 + Estratto(idEstr,r,pos3))
            som44 = Fuori90(num11 + Estratto(idEstr,r,pos4))
            Scrivi som1 & "-" & som2 & "-" & som3 & "-" & som4
            Scrivi
            Scrivi som5 & "-" & som6 & "-" & som7 & "-" & som8
            Scrivi
            Scrivi som9 & "-" & som10 & "-" & som11 & "-" & som12
            Scrivi
            Scrivi som13 & "-" & som14 & "-" & som15 & "-" & som16
            Scrivi
            Scrivi som17 & "-" & som18 & "-" & som19 & "-" & som20
            Scrivi
            Scrivi som21 & "-" & som22 & "-" & som23 & "-" & som24
            Scrivi
            Scrivi som25 & "-" & som26 & "-" & som27 & "-" & som28
            Scrivi
            Scrivi som29 & "-" & som30 & "-" & som31 & "-" & som32
            Scrivi
            Scrivi som33 & "-" & som34 & "-" & som35 & "-" & som36
            Scrivi
            Scrivi som37 & "-" & som38 & "-" & som39 & "-" & som40
            Scrivi
            Scrivi som41 & "-" & som42 & "-" & som43 & "-" & som44
        End If
        If pos = 4 And num = 12 Then
            som1 = Fuori90(num1 + Estratto(idEstr,r,pos1))
            som2 = Fuori90(num1 + Estratto(idEstr,r,pos2))
            som3 = Fuori90(num1 + Estratto(idEstr,r,pos3))
            som4 = Fuori90(num1 + Estratto(idEstr,r,pos4))
            som5 = Fuori90(num2 + Estratto(idEstr,r,pos1))
            som6 = Fuori90(num2 + Estratto(idEstr,r,pos2))
            som7 = Fuori90(num2 + Estratto(idEstr,r,pos3))
            som8 = Fuori90(num2 + Estratto(idEstr,r,pos4))
            som9 = Fuori90(num3 + Estratto(idEstr,r,pos1))
            som10 = Fuori90(num3 + Estratto(idEstr,r,pos2))
            som11 = Fuori90(num3 + Estratto(idEstr,r,pos3))
            som12 = Fuori90(num3 + Estratto(idEstr,r,pos4))
            som13 = Fuori90(num4 + Estratto(idEstr,r,pos1))
            som14 = Fuori90(num4 + Estratto(idEstr,r,pos2))
            som15 = Fuori90(num4 + Estratto(idEstr,r,pos3))
            som16 = Fuori90(num4 + Estratto(idEstr,r,pos4))
            som17 = Fuori90(num5 + Estratto(idEstr,r,pos1))
            som18 = Fuori90(num5 + Estratto(idEstr,r,pos2))
            som19 = Fuori90(num5 + Estratto(idEstr,r,pos3))
            som20 = Fuori90(num5 + Estratto(idEstr,r,pos4))
            som21 = Fuori90(num6 + Estratto(idEstr,r,pos1))
            som22 = Fuori90(num6 + Estratto(idEstr,r,pos2))
            som23 = Fuori90(num6 + Estratto(idEstr,r,pos3))
            som24 = Fuori90(num6 + Estratto(idEstr,r,pos4))
            som25 = Fuori90(num7 + Estratto(idEstr,r,pos1))
            som26 = Fuori90(num7 + Estratto(idEstr,r,pos2))
            som27 = Fuori90(num7 + Estratto(idEstr,r,pos3))
            som28 = Fuori90(num7 + Estratto(idEstr,r,pos4))
            som29 = Fuori90(num8 + Estratto(idEstr,r,pos1))
            som30 = Fuori90(num8 + Estratto(idEstr,r,pos2))
            som31 = Fuori90(num8 + Estratto(idEstr,r,pos3))
            som32 = Fuori90(num8 + Estratto(idEstr,r,pos4))
            som33 = Fuori90(num9 + Estratto(idEstr,r,pos1))
            som34 = Fuori90(num9 + Estratto(idEstr,r,pos2))
            som35 = Fuori90(num9 + Estratto(idEstr,r,pos3))
            som36 = Fuori90(num9 + Estratto(idEstr,r,pos4))
            som37 = Fuori90(num10 + Estratto(idEstr,r,pos1))
            som38 = Fuori90(num10 + Estratto(idEstr,r,pos2))
            som39 = Fuori90(num10 + Estratto(idEstr,r,pos3))
            som40 = Fuori90(num10 + Estratto(idEstr,r,pos4))
            som41 = Fuori90(num11 + Estratto(idEstr,r,pos1))
            som42 = Fuori90(num11 + Estratto(idEstr,r,pos2))
            som43 = Fuori90(num11 + Estratto(idEstr,r,pos3))
            som44 = Fuori90(num11 + Estratto(idEstr,r,pos4))
            som45 = Fuori90(num12 + Estratto(idEstr,r,pos1))
            som46 = Fuori90(num12 + Estratto(idEstr,r,pos2))
            som47 = Fuori90(num12 + Estratto(idEstr,r,pos3))
            som48 = Fuori90(num12 + Estratto(idEstr,r,pos4))
            Scrivi som1 & "-" & som2 & "-" & som3 & "-" & som4
            Scrivi
            Scrivi som5 & "-" & som6 & "-" & som7 & "-" & som8
            Scrivi
            Scrivi som9 & "-" & som10 & "-" & som11 & "-" & som12
            Scrivi
            Scrivi som13 & "-" & som14 & "-" & som15 & "-" & som16
            Scrivi
            Scrivi som17 & "-" & som18 & "-" & som19 & "-" & som20
            Scrivi
            Scrivi som21 & "-" & som22 & "-" & som23 & "-" & som24
            Scrivi
            Scrivi som25 & "-" & som26 & "-" & som27 & "-" & som28
            Scrivi
            Scrivi som29 & "-" & som30 & "-" & som31 & "-" & som32
            Scrivi
            Scrivi som33 & "-" & som34 & "-" & som35 & "-" & som36
            Scrivi
            Scrivi som37 & "-" & som38 & "-" & som39 & "-" & som40
            Scrivi
            Scrivi som41 & "-" & som42 & "-" & som43 & "-" & som44
            Scrivi
            Scrivi som45 & "-" & som46 & "-" & som47 & "-" & som48
        End If
        If pos = 4 And num = 13 Then
            som1 = Fuori90(num1 + Estratto(idEstr,r,pos1))
            som2 = Fuori90(num1 + Estratto(idEstr,r,pos2))
            som3 = Fuori90(num1 + Estratto(idEstr,r,pos3))
            som4 = Fuori90(num1 + Estratto(idEstr,r,pos4))
            som5 = Fuori90(num2 + Estratto(idEstr,r,pos1))
            som6 = Fuori90(num2 + Estratto(idEstr,r,pos2))
            som7 = Fuori90(num2 + Estratto(idEstr,r,pos3))
            som8 = Fuori90(num2 + Estratto(idEstr,r,pos4))
            som9 = Fuori90(num3 + Estratto(idEstr,r,pos1))
            som10 = Fuori90(num3 + Estratto(idEstr,r,pos2))
            som11 = Fuori90(num3 + Estratto(idEstr,r,pos3))
            som12 = Fuori90(num3 + Estratto(idEstr,r,pos4))
            som13 = Fuori90(num4 + Estratto(idEstr,r,pos1))
            som14 = Fuori90(num4 + Estratto(idEstr,r,pos2))
            som15 = Fuori90(num4 + Estratto(idEstr,r,pos3))
            som16 = Fuori90(num4 + Estratto(idEstr,r,pos4))
            som17 = Fuori90(num5 + Estratto(idEstr,r,pos1))
            som18 = Fuori90(num5 + Estratto(idEstr,r,pos2))
            som19 = Fuori90(num5 + Estratto(idEstr,r,pos3))
            som20 = Fuori90(num5 + Estratto(idEstr,r,pos4))
            som21 = Fuori90(num6 + Estratto(idEstr,r,pos1))
            som22 = Fuori90(num6 + Estratto(idEstr,r,pos2))
            som23 = Fuori90(num6 + Estratto(idEstr,r,pos3))
            som24 = Fuori90(num6 + Estratto(idEstr,r,pos4))
            som25 = Fuori90(num7 + Estratto(idEstr,r,pos1))
            som26 = Fuori90(num7 + Estratto(idEstr,r,pos2))
            som27 = Fuori90(num7 + Estratto(idEstr,r,pos3))
            som28 = Fuori90(num7 + Estratto(idEstr,r,pos4))
            som29 = Fuori90(num8 + Estratto(idEstr,r,pos1))
            som30 = Fuori90(num8 + Estratto(idEstr,r,pos2))
            som31 = Fuori90(num8 + Estratto(idEstr,r,pos3))
            som32 = Fuori90(num8 + Estratto(idEstr,r,pos4))
            som33 = Fuori90(num9 + Estratto(idEstr,r,pos1))
            som34 = Fuori90(num9 + Estratto(idEstr,r,pos2))
            som35 = Fuori90(num9 + Estratto(idEstr,r,pos3))
            som36 = Fuori90(num9 + Estratto(idEstr,r,pos4))
            som37 = Fuori90(num10 + Estratto(idEstr,r,pos1))
            som38 = Fuori90(num10 + Estratto(idEstr,r,pos2))
            som39 = Fuori90(num10 + Estratto(idEstr,r,pos3))
            som40 = Fuori90(num10 + Estratto(idEstr,r,pos4))
            som41 = Fuori90(num11 + Estratto(idEstr,r,pos1))
            som42 = Fuori90(num11 + Estratto(idEstr,r,pos2))
            som43 = Fuori90(num11 + Estratto(idEstr,r,pos3))
            som44 = Fuori90(num11 + Estratto(idEstr,r,pos4))
            som45 = Fuori90(num12 + Estratto(idEstr,r,pos1))
            som46 = Fuori90(num12 + Estratto(idEstr,r,pos2))
            som47 = Fuori90(num12 + Estratto(idEstr,r,pos3))
            som48 = Fuori90(num12 + Estratto(idEstr,r,pos4))
            som49 = Fuori90(num13 + Estratto(idEstr,r,pos1))
            som50 = Fuori90(num13 + Estratto(idEstr,r,pos2))
            som51 = Fuori90(num13 + Estratto(idEstr,r,pos3))
            som52 = Fuori90(num13 + Estratto(idEstr,r,pos4))
            Scrivi som1 & "-" & som2 & "-" & som3 & "-" & som4
            Scrivi
            Scrivi som5 & "-" & som6 & "-" & som7 & "-" & som8
            Scrivi
            Scrivi som9 & "-" & som10 & "-" & som11 & "-" & som12
            Scrivi
            Scrivi som13 & "-" & som14 & "-" & som15 & "-" & som16
            Scrivi
            Scrivi som17 & "-" & som18 & "-" & som19 & "-" & som20
            Scrivi
            Scrivi som21 & "-" & som22 & "-" & som23 & "-" & som24
            Scrivi
            Scrivi som25 & "-" & som26 & "-" & som27 & "-" & som28
            Scrivi
            Scrivi som29 & "-" & som30 & "-" & som31 & "-" & som32
            Scrivi
            Scrivi som33 & "-" & som34 & "-" & som35 & "-" & som36
            Scrivi
            Scrivi som37 & "-" & som38 & "-" & som39 & "-" & som40
            Scrivi
            Scrivi som41 & "-" & som42 & "-" & som43 & "-" & som44
            Scrivi
            Scrivi som45 & "-" & som46 & "-" & som47 & "-" & som48
            Scrivi
            Scrivi som49 & "-" & som50 & "-" & som51 & "-" & som52
        End If
        If pos = 4 And num = 14 Then
            som1 = Fuori90(num1 + Estratto(idEstr,r,pos1))
            som2 = Fuori90(num1 + Estratto(idEstr,r,pos2))
            som3 = Fuori90(num1 + Estratto(idEstr,r,pos3))
            som4 = Fuori90(num1 + Estratto(idEstr,r,pos4))
            som5 = Fuori90(num2 + Estratto(idEstr,r,pos1))
            som6 = Fuori90(num2 + Estratto(idEstr,r,pos2))
            som7 = Fuori90(num2 + Estratto(idEstr,r,pos3))
            som8 = Fuori90(num2 + Estratto(idEstr,r,pos4))
            som9 = Fuori90(num3 + Estratto(idEstr,r,pos1))
            som10 = Fuori90(num3 + Estratto(idEstr,r,pos2))
            som11 = Fuori90(num3 + Estratto(idEstr,r,pos3))
            som12 = Fuori90(num3 + Estratto(idEstr,r,pos4))
            som13 = Fuori90(num4 + Estratto(idEstr,r,pos1))
            som14 = Fuori90(num4 + Estratto(idEstr,r,pos2))
            som15 = Fuori90(num4 + Estratto(idEstr,r,pos3))
            som16 = Fuori90(num4 + Estratto(idEstr,r,pos4))
            som17 = Fuori90(num5 + Estratto(idEstr,r,pos1))
            som18 = Fuori90(num5 + Estratto(idEstr,r,pos2))
            som19 = Fuori90(num5 + Estratto(idEstr,r,pos3))
            som20 = Fuori90(num5 + Estratto(idEstr,r,pos4))
            som21 = Fuori90(num6 + Estratto(idEstr,r,pos1))
            som22 = Fuori90(num6 + Estratto(idEstr,r,pos2))
            som23 = Fuori90(num6 + Estratto(idEstr,r,pos3))
            som24 = Fuori90(num6 + Estratto(idEstr,r,pos4))
            som25 = Fuori90(num7 + Estratto(idEstr,r,pos1))
            som26 = Fuori90(num7 + Estratto(idEstr,r,pos2))
            som27 = Fuori90(num7 + Estratto(idEstr,r,pos3))
            som28 = Fuori90(num7 + Estratto(idEstr,r,pos4))
            som29 = Fuori90(num8 + Estratto(idEstr,r,pos1))
            som30 = Fuori90(num8 + Estratto(idEstr,r,pos2))
            som31 = Fuori90(num8 + Estratto(idEstr,r,pos3))
            som32 = Fuori90(num8 + Estratto(idEstr,r,pos4))
            som33 = Fuori90(num9 + Estratto(idEstr,r,pos1))
            som34 = Fuori90(num9 + Estratto(idEstr,r,pos2))
            som35 = Fuori90(num9 + Estratto(idEstr,r,pos3))
            som36 = Fuori90(num9 + Estratto(idEstr,r,pos4))
            som37 = Fuori90(num10 + Estratto(idEstr,r,pos1))
            som38 = Fuori90(num10 + Estratto(idEstr,r,pos2))
            som39 = Fuori90(num10 + Estratto(idEstr,r,pos3))
            som40 = Fuori90(num10 + Estratto(idEstr,r,pos4))
            som41 = Fuori90(num11 + Estratto(idEstr,r,pos1))
            som42 = Fuori90(num11 + Estratto(idEstr,r,pos2))
            som43 = Fuori90(num11 + Estratto(idEstr,r,pos3))
            som44 = Fuori90(num11 + Estratto(idEstr,r,pos4))
            som45 = Fuori90(num12 + Estratto(idEstr,r,pos1))
            som46 = Fuori90(num12 + Estratto(idEstr,r,pos2))
            som47 = Fuori90(num12 + Estratto(idEstr,r,pos3))
            som48 = Fuori90(num12 + Estratto(idEstr,r,pos4))
            som49 = Fuori90(num13 + Estratto(idEstr,r,pos1))
            som50 = Fuori90(num13 + Estratto(idEstr,r,pos2))
            som51 = Fuori90(num13 + Estratto(idEstr,r,pos3))
            som52 = Fuori90(num13 + Estratto(idEstr,r,pos4))
            som53 = Fuori90(num14 + Estratto(idEstr,r,pos1))
            som54 = Fuori90(num14 + Estratto(idEstr,r,pos2))
            som55 = Fuori90(num14 + Estratto(idEstr,r,pos3))
            som56 = Fuori90(num14 + Estratto(idEstr,r,pos4))
            Scrivi som1 & "-" & som2 & "-" & som3 & "-" & som4
            Scrivi
            Scrivi som5 & "-" & som6 & "-" & som7 & "-" & som8
            Scrivi
            Scrivi som9 & "-" & som10 & "-" & som11 & "-" & som12
            Scrivi
            Scrivi som13 & "-" & som14 & "-" & som15 & "-" & som16
            Scrivi
            Scrivi som17 & "-" & som18 & "-" & som19 & "-" & som20
            Scrivi
            Scrivi som21 & "-" & som22 & "-" & som23 & "-" & som24
            Scrivi
            Scrivi som25 & "-" & som26 & "-" & som27 & "-" & som28
            Scrivi
            Scrivi som29 & "-" & som30 & "-" & som31 & "-" & som32
            Scrivi
            Scrivi som33 & "-" & som34 & "-" & som35 & "-" & som36
            Scrivi
            Scrivi som37 & "-" & som38 & "-" & som39 & "-" & som40
            Scrivi
            Scrivi som41 & "-" & som42 & "-" & som43 & "-" & som44
            Scrivi
            Scrivi som45 & "-" & som46 & "-" & som47 & "-" & som48
            Scrivi
            Scrivi som49 & "-" & som50 & "-" & som51 & "-" & som52
            Scrivi
            Scrivi som53 & "-" & som54 & "-" & som55 & "-" & som56
        End If
        If pos = 4 And num = 15 Then
            som1 = Fuori90(num1 + Estratto(idEstr,r,pos1))
            som2 = Fuori90(num1 + Estratto(idEstr,r,pos2))
            som3 = Fuori90(num1 + Estratto(idEstr,r,pos3))
            som4 = Fuori90(num1 + Estratto(idEstr,r,pos4))
            som5 = Fuori90(num2 + Estratto(idEstr,r,pos1))
            som6 = Fuori90(num2 + Estratto(idEstr,r,pos2))
            som7 = Fuori90(num2 + Estratto(idEstr,r,pos3))
            som8 = Fuori90(num2 + Estratto(idEstr,r,pos4))
            som9 = Fuori90(num3 + Estratto(idEstr,r,pos1))
            som10 = Fuori90(num3 + Estratto(idEstr,r,pos2))
            som11 = Fuori90(num3 + Estratto(idEstr,r,pos3))
            som12 = Fuori90(num3 + Estratto(idEstr,r,pos4))
            som13 = Fuori90(num4 + Estratto(idEstr,r,pos1))
            som14 = Fuori90(num4 + Estratto(idEstr,r,pos2))
            som15 = Fuori90(num4 + Estratto(idEstr,r,pos3))
            som16 = Fuori90(num4 + Estratto(idEstr,r,pos4))
            som17 = Fuori90(num5 + Estratto(idEstr,r,pos1))
            som18 = Fuori90(num5 + Estratto(idEstr,r,pos2))
            som19 = Fuori90(num5 + Estratto(idEstr,r,pos3))
            som20 = Fuori90(num5 + Estratto(idEstr,r,pos4))
            som21 = Fuori90(num6 + Estratto(idEstr,r,pos1))
            som22 = Fuori90(num6 + Estratto(idEstr,r,pos2))
            som23 = Fuori90(num6 + Estratto(idEstr,r,pos3))
            som24 = Fuori90(num6 + Estratto(idEstr,r,pos4))
            som25 = Fuori90(num7 + Estratto(idEstr,r,pos1))
            som26 = Fuori90(num7 + Estratto(idEstr,r,pos2))
            som27 = Fuori90(num7 + Estratto(idEstr,r,pos3))
            som28 = Fuori90(num7 + Estratto(idEstr,r,pos4))
            som29 = Fuori90(num8 + Estratto(idEstr,r,pos1))
            som30 = Fuori90(num8 + Estratto(idEstr,r,pos2))
            som31 = Fuori90(num8 + Estratto(idEstr,r,pos3))
            som32 = Fuori90(num8 + Estratto(idEstr,r,pos4))
            som33 = Fuori90(num9 + Estratto(idEstr,r,pos1))
            som34 = Fuori90(num9 + Estratto(idEstr,r,pos2))
            som35 = Fuori90(num9 + Estratto(idEstr,r,pos3))
            som36 = Fuori90(num9 + Estratto(idEstr,r,pos4))
            som37 = Fuori90(num10 + Estratto(idEstr,r,pos1))
            som38 = Fuori90(num10 + Estratto(idEstr,r,pos2))
            som39 = Fuori90(num10 + Estratto(idEstr,r,pos3))
            som40 = Fuori90(num10 + Estratto(idEstr,r,pos4))
            som41 = Fuori90(num11 + Estratto(idEstr,r,pos1))
            som42 = Fuori90(num11 + Estratto(idEstr,r,pos2))
            som43 = Fuori90(num11 + Estratto(idEstr,r,pos3))
            som44 = Fuori90(num11 + Estratto(idEstr,r,pos4))
            som45 = Fuori90(num12 + Estratto(idEstr,r,pos1))
            som46 = Fuori90(num12 + Estratto(idEstr,r,pos2))
            som47 = Fuori90(num12 + Estratto(idEstr,r,pos3))
            som48 = Fuori90(num12 + Estratto(idEstr,r,pos4))
            som49 = Fuori90(num13 + Estratto(idEstr,r,pos1))
            som50 = Fuori90(num13 + Estratto(idEstr,r,pos2))
            som51 = Fuori90(num13 + Estratto(idEstr,r,pos3))
            som52 = Fuori90(num13 + Estratto(idEstr,r,pos4))
            som53 = Fuori90(num14 + Estratto(idEstr,r,pos1))
            som54 = Fuori90(num14 + Estratto(idEstr,r,pos2))
            som55 = Fuori90(num14 + Estratto(idEstr,r,pos3))
            som56 = Fuori90(num14 + Estratto(idEstr,r,pos4))
            som57 = Fuori90(num15 + Estratto(idEstr,r,pos1))
            som58 = Fuori90(num15 + Estratto(idEstr,r,pos2))
            som59 = Fuori90(num15 + Estratto(idEstr,r,pos3))
            som60 = Fuori90(num15 + Estratto(idEstr,r,pos4))
            Scrivi som1 & "-" & som2 & "-" & som3 & "-" & som4
            Scrivi
            Scrivi som5 & "-" & som6 & "-" & som7 & "-" & som8
            Scrivi
            Scrivi som9 & "-" & som10 & "-" & som11 & "-" & som12
            Scrivi
            Scrivi som13 & "-" & som14 & "-" & som15 & "-" & som16
            Scrivi
            Scrivi som17 & "-" & som18 & "-" & som19 & "-" & som20
            Scrivi
            Scrivi som21 & "-" & som22 & "-" & som23 & "-" & som24
            Scrivi
            Scrivi som25 & "-" & som26 & "-" & som27 & "-" & som28
            Scrivi
            Scrivi som29 & "-" & som30 & "-" & som31 & "-" & som32
            Scrivi
            Scrivi som33 & "-" & som34 & "-" & som35 & "-" & som36
            Scrivi
            Scrivi som37 & "-" & som38 & "-" & som39 & "-" & som40
            Scrivi
            Scrivi som41 & "-" & som42 & "-" & som43 & "-" & som44
            Scrivi
            Scrivi som45 & "-" & som46 & "-" & som47 & "-" & som48
            Scrivi
            Scrivi som49 & "-" & som50 & "-" & som51 & "-" & som52
            Scrivi
            Scrivi som53 & "-" & som54 & "-" & som55 & "-" & som56
            Scrivi
            Scrivi som57 & "-" & som58 & "-" & som59 & "-" & som60
        End If
        ColoreTesto 0
        Scrivi String(80,"="),1
        If ScriptInterrotto Then Exit For
    Next
    Scrivi String(100,"*")
    ColoreTesto 2
    Scrivi" Casi elaborati : " & co,1
    ColoreTesto 0
    Scrivi String(100," * ")
    TestoInBandaPassante(" LISTATO BY  B A F F O B L U "),1,3,0
End Sub

rosa962 · 23 Aprile 2012

Buon giorno baffo

va benissimo cosi' come al solito sei stato grande

un giorno spero di ricambiarti

ma so che e' difficile perché

tu sarai sempre più avanti di me

ciaoo

Baffoblu · 23 Aprile 2012

Ciao

Ho fatto delle modifiche.......

Questo ultimo script ti permette di scegliere
da Min 1 a Max 15 numeri di tua scelta,
e da Min 1 a Max 4 posizioni sempre di tua scelta.

In sostanza la modifica riguarda i risultati che vengono
a video.

Prima erano in verticale, invece adesso sono tutti in

orizzontale.

Ti ho messo dei separatori ( / ).

esempio x 4 posizioni :

1°pos.scelta--2°pos.scelta--3°pos.scelta--4°pos.scelta /
-------------------------------------------------------
1°num.scelto--1°num.scelto--1°num.scelto--1°num.scelto /

e cosi a seguire, ma tutto in orizzontale.

Questo ha permesso di ridurre la lunghezza dello script,

che anche adesso è da primato : 1622 righe X 463 colonne !!!

PS: Devi attendere qualche minuto che lo script
venga riconosciuto....
sembra che si blocca, ma tu aspetta.......

Codice:

Sub Main()
    Dim idEstr,Inizio,Fine
    Dim ruote(11)
    Dim r
    Dim nAnalisi
    Dim pos
    Dim pos1
    Dim pos2
    Dim pos3
    Dim pos4
    Dim pos5
    Dim num
    Dim num1
    Dim num2
    Dim num3
    Dim num4
    Dim num5
    Dim num6
    Dim num7
    Dim num8
    Dim num9
    Dim num10
    Dim num11
    Dim num12
    Dim num13
    Dim num14
    Dim num15
    r = CInt(InputBox(" Scegli la ruota di Elaborazione",,"1"))
    nAnalisi = CInt(InputBox(" Quante estrazioni vuoi controllare ? ",,"20"))
    pos = CInt(InputBox(" Quantità di posizioni che vuoi considerare ? * da 1 a Max 4 ",,"1"))
    If pos = 1 Then
        pos1 = CInt(InputBox(" Scegli la Posizione voluta ",,"1"))
    End If
    If pos = 2 Then
        pos1 = CInt(InputBox(" Scegli la 1° Posizione Scelta ",,"1"))
        pos2 = CInt(InputBox(" Scegli la 2° Posizione Scelta ",,"2"))
    End If
    If pos = 3 Then
        pos1 = CInt(InputBox(" Scegli la 1° Posizione Scelta ",,"1"))
        pos2 = CInt(InputBox(" Scegli la 2° Posizione Scelta ",,"2"))
        pos3 = CInt(InputBox(" Scegli la 3° Posizione Scelta ",,"3"))
    End If
    If pos = 4 Then
        pos1 = CInt(InputBox(" Scegli la 1° Posizione Scelta ",,"1"))
        pos2 = CInt(InputBox(" Scegli la 2° Posizione Scelta ",,"2"))
        pos3 = CInt(InputBox(" Scegli la 3° Posizione Scelta ",,"3"))
        pos4 = CInt(InputBox(" Scegli la 4° Posizione Scelta ",,"4"))
    End If
    num = CInt(InputBox("Quantità numeri che vuoi Utilizzare ? - max 15.",,"1"))
    If num = 1 Then
        num1 = CInt(InputBox(" Inserisci il Numero scelto",,"1"))
    End If
    If num = 2 Then
        num1 = CInt(InputBox(" Inserisci il 1° Numero scelto",,"1"))
        num2 = CInt(InputBox(" Inserisci il 2° Numero scelto",,"2"))
    End If
    If num = 3 Then
        num1 = CInt(InputBox(" Inserisci il 1° Numero scelto",,"1"))
        num2 = CInt(InputBox(" Inserisci il 2° Numero scelto",,"2"))
        num3 = CInt(InputBox(" Inserisci il 3° Numero scelto",,"3"))
    End If
    If num = 4 Then
        num1 = CInt(InputBox(" Inserisci il 1° Numero scelto",,"1"))
        num2 = CInt(InputBox(" Inserisci il 2° Numero scelto",,"2"))
        num3 = CInt(InputBox(" Inserisci il 3° Numero scelto",,"3"))
        num4 = CInt(InputBox(" Inserisci il 4° Numero scelto",,"4"))
    End If
    If num = 5 Then
        num1 = CInt(InputBox(" Inserisci il 1° Numero scelto",,"1"))
        num2 = CInt(InputBox(" Inserisci il 2° Numero scelto",,"2"))
        num3 = CInt(InputBox(" Inserisci il 3° Numero scelto",,"3"))
        num4 = CInt(InputBox(" Inserisci il 4° Numero scelto",,"4"))
        num5 = CInt(InputBox(" Inserisci il 5° Numero scelto",,"5"))
    End If
    If num = 6 Then
        num1 = CInt(InputBox(" Inserisci il 1° Numero scelto",,"1"))
        num2 = CInt(InputBox(" Inserisci il 2° Numero scelto",,"2"))
        num3 = CInt(InputBox(" Inserisci il 3° Numero scelto",,"3"))
        num4 = CInt(InputBox(" Inserisci il 4° Numero scelto",,"4"))
        num5 = CInt(InputBox(" Inserisci il 5° Numero scelto",,"5"))
        num6 = CInt(InputBox(" Inserisci il 6° Numero scelto",,"6"))
    End If
    If num = 7 Then
        num1 = CInt(InputBox(" Inserisci il 1° Numero scelto",,"1"))
        num2 = CInt(InputBox(" Inserisci il 2° Numero scelto",,"2"))
        num3 = CInt(InputBox(" Inserisci il 3° Numero scelto",,"3"))
        num4 = CInt(InputBox(" Inserisci il 4° Numero scelto",,"4"))
        num5 = CInt(InputBox(" Inserisci il 5° Numero scelto",,"5"))
        num6 = CInt(InputBox(" Inserisci il 6° Numero scelto",,"6"))
        num7 = CInt(InputBox(" Inserisci il 7° Numero scelto",,"7"))
    End If
    If num = 8 Then
        num1 = CInt(InputBox(" Inserisci il 1° Numero scelto",,"1"))
        num2 = CInt(InputBox(" Inserisci il 2° Numero scelto",,"2"))
        num3 = CInt(InputBox(" Inserisci il 3° Numero scelto",,"3"))
        num4 = CInt(InputBox(" Inserisci il 4° Numero scelto",,"4"))
        num5 = CInt(InputBox(" Inserisci il 5° Numero scelto",,"5"))
        num6 = CInt(InputBox(" Inserisci il 6° Numero scelto",,"6"))
        num7 = CInt(InputBox(" Inserisci il 7° Numero scelto",,"7"))
        num8 = CInt(InputBox(" Inserisci il 8° Numero scelto",,"8"))
    End If
    If num = 9 Then
        num1 = CInt(InputBox(" Inserisci il 1° Numero scelto",,"1"))
        num2 = CInt(InputBox(" Inserisci il 2° Numero scelto",,"2"))
        num3 = CInt(InputBox(" Inserisci il 3° Numero scelto",,"3"))
        num4 = CInt(InputBox(" Inserisci il 4° Numero scelto",,"4"))
        num5 = CInt(InputBox(" Inserisci il 5° Numero scelto",,"5"))
        num6 = CInt(InputBox(" Inserisci il 6° Numero scelto",,"6"))
        num7 = CInt(InputBox(" Inserisci il 7° Numero scelto",,"7"))
        num8 = CInt(InputBox(" Inserisci il 8° Numero scelto",,"8"))
        num9 = CInt(InputBox(" Inserisci il 9° Numero scelto",,"9"))
    End If
    If num = 10 Then
        num1 = CInt(InputBox(" Inserisci il 1° Numero scelto",,"1"))
        num2 = CInt(InputBox(" Inserisci il 2° Numero scelto",,"2"))
        num3 = CInt(InputBox(" Inserisci il 3° Numero scelto",,"3"))
        num4 = CInt(InputBox(" Inserisci il 4° Numero scelto",,"4"))
        num5 = CInt(InputBox(" Inserisci il 5° Numero scelto",,"5"))
        num6 = CInt(InputBox(" Inserisci il 6° Numero scelto",,"6"))
        num7 = CInt(InputBox(" Inserisci il 7° Numero scelto",,"7"))
        num8 = CInt(InputBox(" Inserisci il 8° Numero scelto",,"8"))
        num9 = CInt(InputBox(" Inserisci il 9° Numero scelto",,"9"))
        num10 = CInt(InputBox(" Inserisci il 10° Numero scelto",,"10"))
    End If
    If num = 11 Then
        num1 = CInt(InputBox(" Inserisci il 1° Numero scelto",,"1"))
        num2 = CInt(InputBox(" Inserisci il 2° Numero scelto",,"2"))
        num3 = CInt(InputBox(" Inserisci il 3° Numero scelto",,"3"))
        num4 = CInt(InputBox(" Inserisci il 4° Numero scelto",,"4"))
        num5 = CInt(InputBox(" Inserisci il 5° Numero scelto",,"5"))
        num6 = CInt(InputBox(" Inserisci il 6° Numero scelto",,"6"))
        num7 = CInt(InputBox(" Inserisci il 7° Numero scelto",,"7"))
        num8 = CInt(InputBox(" Inserisci il 8° Numero scelto",,"8"))
        num9 = CInt(InputBox(" Inserisci il 9° Numero scelto",,"9"))
        num10 = CInt(InputBox(" Inserisci il 10° Numero scelto",,"10"))
        num11 = CInt(InputBox(" Inserisci il 11° Numero scelto",,"11"))
    End If
    If num = 12 Then
        num1 = CInt(InputBox(" Inserisci il 1° Numero scelto",,"1"))
        num2 = CInt(InputBox(" Inserisci il 2° Numero scelto",,"2"))
        num3 = CInt(InputBox(" Inserisci il 3° Numero scelto",,"3"))
        num4 = CInt(InputBox(" Inserisci il 4° Numero scelto",,"4"))
        num5 = CInt(InputBox(" Inserisci il 5° Numero scelto",,"5"))
        num6 = CInt(InputBox(" Inserisci il 6° Numero scelto",,"6"))
        num7 = CInt(InputBox(" Inserisci il 7° Numero scelto",,"7"))
        num8 = CInt(InputBox(" Inserisci il 8° Numero scelto",,"8"))
        num9 = CInt(InputBox(" Inserisci il 9° Numero scelto",,"9"))
        num10 = CInt(InputBox(" Inserisci il 10° Numero scelto",,"10"))
        num11 = CInt(InputBox(" Inserisci il 11° Numero scelto",,"11"))
        num12 = CInt(InputBox(" Inserisci il 12° Numero scelto",,"12"))
    End If
    If num = 13 Then
        num1 = CInt(InputBox(" Inserisci il 1° Numero scelto",,"1"))
        num2 = CInt(InputBox(" Inserisci il 2° Numero scelto",,"2"))
        num3 = CInt(InputBox(" Inserisci il 3° Numero scelto",,"3"))
        num4 = CInt(InputBox(" Inserisci il 4° Numero scelto",,"4"))
        num5 = CInt(InputBox(" Inserisci il 5° Numero scelto",,"5"))
        num6 = CInt(InputBox(" Inserisci il 6° Numero scelto",,"6"))
        num7 = CInt(InputBox(" Inserisci il 7° Numero scelto",,"7"))
        num8 = CInt(InputBox(" Inserisci il 8° Numero scelto",,"8"))
        num9 = CInt(InputBox(" Inserisci il 9° Numero scelto",,"9"))
        num10 = CInt(InputBox(" Inserisci il 10° Numero scelto",,"10"))
        num11 = CInt(InputBox(" Inserisci il 11° Numero scelto",,"11"))
        num12 = CInt(InputBox(" Inserisci il 12° Numero scelto",,"12"))
        num13 = CInt(InputBox(" Inserisci il 13° Numero scelto",,"13"))
    End If
    If num = 14 Then
        num1 = CInt(InputBox(" Inserisci il 1° Numero scelto",,"1"))
        num2 = CInt(InputBox(" Inserisci il 2° Numero scelto",,"2"))
        num3 = CInt(InputBox(" Inserisci il 3° Numero scelto",,"3"))
        num4 = CInt(InputBox(" Inserisci il 4° Numero scelto",,"4"))
        num5 = CInt(InputBox(" Inserisci il 5° Numero scelto",,"5"))
        num6 = CInt(InputBox(" Inserisci il 6° Numero scelto",,"6"))
        num7 = CInt(InputBox(" Inserisci il 7° Numero scelto",,"7"))
        num8 = CInt(InputBox(" Inserisci il 8° Numero scelto",,"8"))
        num9 = CInt(InputBox(" Inserisci il 9° Numero scelto",,"9"))
        num10 = CInt(InputBox(" Inserisci il 10° Numero scelto",,"10"))
        num11 = CInt(InputBox(" Inserisci il 11° Numero scelto",,"11"))
        num12 = CInt(InputBox(" Inserisci il 12° Numero scelto",,"12"))
        num13 = CInt(InputBox(" Inserisci il 13° Numero scelto",,"13"))
        num14 = CInt(InputBox(" Inserisci il 14° Numero scelto",,"14"))
    End If
    If num = 15 Then
        num1 = CInt(InputBox(" Inserisci il 1° Numero scelto",,"1"))
        num2 = CInt(InputBox(" Inserisci il 2° Numero scelto",,"2"))
        num3 = CInt(InputBox(" Inserisci il 3° Numero scelto",,"3"))
        num4 = CInt(InputBox(" Inserisci il 4° Numero scelto",,"4"))
        num5 = CInt(InputBox(" Inserisci il 5° Numero scelto",,"5"))
        num6 = CInt(InputBox(" Inserisci il 6° Numero scelto",,"6"))
        num7 = CInt(InputBox(" Inserisci il 7° Numero scelto",,"7"))
        num8 = CInt(InputBox(" Inserisci il 8° Numero scelto",,"8"))
        num9 = CInt(InputBox(" Inserisci il 9° Numero scelto",,"9"))
        num10 = CInt(InputBox(" Inserisci il 10° Numero scelto",,"10"))
        num11 = CInt(InputBox(" Inserisci il 11° Numero scelto",,"11"))
        num12 = CInt(InputBox(" Inserisci il 12° Numero scelto",,"12"))
        num13 = CInt(InputBox(" Inserisci il 13° Numero scelto",,"13"))
        num14 = CInt(InputBox(" Inserisci il 14° Numero scelto",,"14"))
        num15 = CInt(InputBox(" Inserisci il 15° Numero scelto",,"15"))
    End If
    Inizio = EstrazioneFin - nAnalisi
    Fine = EstrazioneFin
    co = 0
    For idEstr = Inizio To Fine
        Messaggio "elab. estr. [" &(idEstr) & "] di " & DataEstrazione(idEstr,1)
        Call AvanzamentoElab(Inizio,Fine,idEstr)
        ruote(1) = r
        co = co + 1
        Scrivi String(100,"°") & " Caso n°" & co,1
        Scrivi DataEstrazione(idEstr) & " -- " & SiglaRuota(r) & " - " & StringaEstratti(idEstr,r),1
        ColoreTesto 7
        Scrivi
        Scrivi " In totale hai scelto " & num & " numeri",1
        Scrivi
        Scrivi " e hai scelto la " & pos1 & "° * " & pos2 & "°  *" & pos3 & "°  *" & pos4 & "° - Posizione",1
        Scrivi
        ColoreTesto 1
        Scrivi
        If pos = 1 And num = 1 Then
            som1 = Fuori90(num1 + Estratto(idEstr,r,pos1))
            Scrivi "Somma : " & som1 & " Derivante dalla somma dell'adattatore  " & Format2(num1) & " con il " & pos1 & "° Estratto di " & NomeRuota(r),1
        End If
        If pos = 1 And num = 2 Then
            som1 = Fuori90(num1 + Estratto(idEstr,r,pos1))
            som2 = Fuori90(num2 + Estratto(idEstr,r,pos1))
            Scrivi som1 & "-" & som2,1
        End If
        If pos = 1 And num = 3 Then
            som1 = Fuori90(num1 + Estratto(idEstr,r,pos1))
            som2 = Fuori90(num2 + Estratto(idEstr,r,pos1))
            som3 = Fuori90(num3 + Estratto(idEstr,r,pos1))
            Scrivi som1 & "-" & som2 & "-" & som3,1
        End If
        If pos = 1 And num = 4 Then
            som1 = Fuori90(num1 + Estratto(idEstr,r,pos1))
            som2 = Fuori90(num2 + Estratto(idEstr,r,pos1))
            som3 = Fuori90(num3 + Estratto(idEstr,r,pos1))
            som4 = Fuori90(num4 + Estratto(idEstr,r,pos1))
            Scrivi som1 & "-" & som2 & "-" & som3 & "-" & som4,1
        End If
        If pos = 1 And num = 5 Then
            som1 = Fuori90(num1 + Estratto(idEstr,r,pos1))
            som2 = Fuori90(num2 + Estratto(idEstr,r,pos1))
            som3 = Fuori90(num3 + Estratto(idEstr,r,pos1))
            som4 = Fuori90(num4 + Estratto(idEstr,r,pos1))
            som5 = Fuori90(num5 + Estratto(idEstr,r,pos1))
            Scrivi som1 & "-" & som2 & "-" & som3 & "-" & som4 & "-" & som5,1
        End If
        If pos = 1 And num = 6 Then
            som1 = Fuori90(num1 + Estratto(idEstr,r,pos1))
            som2 = Fuori90(num2 + Estratto(idEstr,r,pos1))
            som3 = Fuori90(num3 + Estratto(idEstr,r,pos1))
            som4 = Fuori90(num4 + Estratto(idEstr,r,pos1))
            som5 = Fuori90(num5 + Estratto(idEstr,r,pos1))
            som6 = Fuori90(num6 + Estratto(idEstr,r,pos1))
            Scrivi som1 & "-" & som2 & "-" & som3 & "-" & som4 & "-" & som5 & "-" & som6,1
        End If
        If pos = 1 And num = 7 Then
            som1 = Fuori90(num1 + Estratto(idEstr,r,pos1))
            som2 = Fuori90(num2 + Estratto(idEstr,r,pos1))
            som3 = Fuori90(num3 + Estratto(idEstr,r,pos1))
            som4 = Fuori90(num4 + Estratto(idEstr,r,pos1))
            som5 = Fuori90(num5 + Estratto(idEstr,r,pos1))
            som6 = Fuori90(num6 + Estratto(idEstr,r,pos1))
            som7 = Fuori90(num7 + Estratto(idEstr,r,pos1))
            Scrivi som1 & "-" & som2 & "-" & som3 & "-" & som4 & "-" & som5 & "-" & som6 & "-" & som7,1
        End If
        If pos = 1 And num = 8 Then
            som1 = Fuori90(num1 + Estratto(idEstr,r,pos1))
            som2 = Fuori90(num2 + Estratto(idEstr,r,pos1))
            som3 = Fuori90(num3 + Estratto(idEstr,r,pos1))
            som4 = Fuori90(num4 + Estratto(idEstr,r,pos1))
            som5 = Fuori90(num5 + Estratto(idEstr,r,pos1))
            som6 = Fuori90(num6 + Estratto(idEstr,r,pos1))
            som7 = Fuori90(num7 + Estratto(idEstr,r,pos1))
            som8 = Fuori90(num8 + Estratto(idEstr,r,pos1))
            Scrivi som1 & "-" & som2 & "-" & som3 & "-" & som4 & "-" & som5 & "-" & som6 & "-" & som7 & "-" & som8,1
        End If
        If pos = 1 And num = 9 Then
            som1 = Fuori90(num1 + Estratto(idEstr,r,pos1))
            som2 = Fuori90(num2 + Estratto(idEstr,r,pos1))
            som3 = Fuori90(num3 + Estratto(idEstr,r,pos1))
            som4 = Fuori90(num4 + Estratto(idEstr,r,pos1))
            som5 = Fuori90(num5 + Estratto(idEstr,r,pos1))
            som6 = Fuori90(num6 + Estratto(idEstr,r,pos1))
            som7 = Fuori90(num7 + Estratto(idEstr,r,pos1))
            som8 = Fuori90(num8 + Estratto(idEstr,r,pos1))
            som9 = Fuori90(num9 + Estratto(idEstr,r,pos1))
            Scrivi som1 & "-" & som2 & "-" & som3 & "-" & som4 & "-" & som5 & "-" & som6 & "-" & som7 & "-" & som8 & "-" & som9,1
        End If
        If pos = 1 And num = 10 Then
            som1 = Fuori90(num1 + Estratto(idEstr,r,pos1))
            som2 = Fuori90(num2 + Estratto(idEstr,r,pos1))
            som3 = Fuori90(num3 + Estratto(idEstr,r,pos1))
            som4 = Fuori90(num4 + Estratto(idEstr,r,pos1))
            som5 = Fuori90(num5 + Estratto(idEstr,r,pos1))
            som6 = Fuori90(num6 + Estratto(idEstr,r,pos1))
            som7 = Fuori90(num7 + Estratto(idEstr,r,pos1))
            som8 = Fuori90(num8 + Estratto(idEstr,r,pos1))
            som9 = Fuori90(num9 + Estratto(idEstr,r,pos1))
            som10 = Fuori90(num10 + Estratto(idEstr,r,pos1))
            Scrivi som1 & "-" & som2 & "-" & som3 & "-" & som4 & "-" & som5 & "-" & som6 & "-" & som7 & "-" & som8 & "-" & som9 & "-" & som10,1
        End If
        If pos = 1 And num = 11 Then
            som1 = Fuori90(num1 + Estratto(idEstr,r,pos1))
            som2 = Fuori90(num2 + Estratto(idEstr,r,pos1))
            som3 = Fuori90(num3 + Estratto(idEstr,r,pos1))
            som4 = Fuori90(num4 + Estratto(idEstr,r,pos1))
            som5 = Fuori90(num5 + Estratto(idEstr,r,pos1))
            som6 = Fuori90(num6 + Estratto(idEstr,r,pos1))
            som7 = Fuori90(num7 + Estratto(idEstr,r,pos1))
            som8 = Fuori90(num8 + Estratto(idEstr,r,pos1))
            som9 = Fuori90(num9 + Estratto(idEstr,r,pos1))
            som10 = Fuori90(num10 + Estratto(idEstr,r,pos1))
            som11 = Fuori90(num11 + Estratto(idEstr,r,pos1))
            Scrivi som1 & "-" & som2 & "-" & som3 & "-" & som4 & "-" & som5 & "-" & som6 & "-" & som7 & "-" & som8 & "-" & som9 & "-" & som10 & "-" & som11,1
        End If
        If pos = 1 And num = 12 Then
            som1 = Fuori90(num1 + Estratto(idEstr,r,pos1))
            som2 = Fuori90(num2 + Estratto(idEstr,r,pos1))
            som3 = Fuori90(num3 + Estratto(idEstr,r,pos1))
            som4 = Fuori90(num4 + Estratto(idEstr,r,pos1))
            som5 = Fuori90(num5 + Estratto(idEstr,r,pos1))
            som6 = Fuori90(num6 + Estratto(idEstr,r,pos1))
            som7 = Fuori90(num7 + Estratto(idEstr,r,pos1))
            som8 = Fuori90(num8 + Estratto(idEstr,r,pos1))
            som9 = Fuori90(num9 + Estratto(idEstr,r,pos1))
            som10 = Fuori90(num10 + Estratto(idEstr,r,pos1))
            som11 = Fuori90(num11 + Estratto(idEstr,r,pos1))
            som12 = Fuori90(num12 + Estratto(idEstr,r,pos1))
            Scrivi som1 & "-" & som2 & "-" & som3 & "-" & som4 & "-" & som5 & "-" & som6 & "-" & som7 & "-" & som8 & "-" & som9 & "-" & som10 & "-" & som11 & "-" & som12,1
        End If
        If pos = 1 And num = 13 Then
            som1 = Fuori90(num1 + Estratto(idEstr,r,pos1))
            som2 = Fuori90(num2 + Estratto(idEstr,r,pos1))
            som3 = Fuori90(num3 + Estratto(idEstr,r,pos1))
            som4 = Fuori90(num4 + Estratto(idEstr,r,pos1))
            som5 = Fuori90(num5 + Estratto(idEstr,r,pos1))
            som6 = Fuori90(num6 + Estratto(idEstr,r,pos1))
            som7 = Fuori90(num7 + Estratto(idEstr,r,pos1))
            som8 = Fuori90(num8 + Estratto(idEstr,r,pos1))
            som9 = Fuori90(num9 + Estratto(idEstr,r,pos1))
            som10 = Fuori90(num10 + Estratto(idEstr,r,pos1))
            som11 = Fuori90(num11 + Estratto(idEstr,r,pos1))
            som12 = Fuori90(num12 + Estratto(idEstr,r,pos1))
            som13 = Fuori90(num13 + Estratto(idEstr,r,pos1))
            Scrivi som1 & "-" & som2 & "-" & som3 & "-" & som4 & "-" & som5 & "-" & som6 & "-" & som7 & "-" & som8 & "-" & som9 & "-" & som10 & "-" & som11 & "-" & som12 & "-" & som13,1
        End If
        If pos = 1 And num = 14 Then
            som1 = Fuori90(num1 + Estratto(idEstr,r,pos1))
            som2 = Fuori90(num2 + Estratto(idEstr,r,pos1))
            som3 = Fuori90(num3 + Estratto(idEstr,r,pos1))
            som4 = Fuori90(num4 + Estratto(idEstr,r,pos1))
            som5 = Fuori90(num5 + Estratto(idEstr,r,pos1))
            som6 = Fuori90(num6 + Estratto(idEstr,r,pos1))
            som7 = Fuori90(num7 + Estratto(idEstr,r,pos1))
            som8 = Fuori90(num8 + Estratto(idEstr,r,pos1))
            som9 = Fuori90(num9 + Estratto(idEstr,r,pos1))
            som10 = Fuori90(num10 + Estratto(idEstr,r,pos1))
            som11 = Fuori90(num11 + Estratto(idEstr,r,pos1))
            som12 = Fuori90(num12 + Estratto(idEstr,r,pos1))
            som13 = Fuori90(num13 + Estratto(idEstr,r,pos1))
            som14 = Fuori90(num14 + Estratto(idEstr,r,pos1))
            Scrivi som1 & "-" & som2 & "-" & som3 & "-" & som4 & "-" & som5 & "-" & som6 & "-" & som7 & "-" & som8 & "-" & som9 & "-" & som10 & "-" & som11 & "-" & som12 & "-" & som13 & "-" & som14,1
        End If
        If pos = 1 And num = 15 Then
            som1 = Fuori90(num1 + Estratto(idEstr,r,pos1))
            som2 = Fuori90(num2 + Estratto(idEstr,r,pos1))
            som3 = Fuori90(num3 + Estratto(idEstr,r,pos1))
            som4 = Fuori90(num4 + Estratto(idEstr,r,pos1))
            som5 = Fuori90(num5 + Estratto(idEstr,r,pos1))
            som6 = Fuori90(num6 + Estratto(idEstr,r,pos1))
            som7 = Fuori90(num7 + Estratto(idEstr,r,pos1))
            som8 = Fuori90(num8 + Estratto(idEstr,r,pos1))
            som9 = Fuori90(num9 + Estratto(idEstr,r,pos1))
            som10 = Fuori90(num10 + Estratto(idEstr,r,pos1))
            som11 = Fuori90(num11 + Estratto(idEstr,r,pos1))
            som12 = Fuori90(num12 + Estratto(idEstr,r,pos1))
            som13 = Fuori90(num13 + Estratto(idEstr,r,pos1))
            som14 = Fuori90(num14 + Estratto(idEstr,r,pos1))
            som15 = Fuori90(num15 + Estratto(idEstr,r,pos1))
            Scrivi som1 & "-" & som2 & "-" & som3 & "-" & som4 & "-" & som5 & "-" & som6 & "-" & som7 & "-" & som8 & "-" & som9 & "-" & som10 & "-" & som11 & "-" & som12 & "-" & som13 & "-" & som14 & "-" & som15,1
        End If
        If pos = 2 And num = 1 Then
            som1 = Fuori90(num1 + Estratto(idEstr,r,pos1))
            som2 = Fuori90(num1 + Estratto(idEstr,r,pos2))
            Scrivi som1 & "-" & som2
        End If
        If pos = 2 And num = 2 Then
            som1 = Fuori90(num1 + Estratto(idEstr,r,pos1))
            som2 = Fuori90(num1 + Estratto(idEstr,r,pos2))
            som3 = Fuori90(num2 + Estratto(idEstr,r,pos1))
            som4 = Fuori90(num2 + Estratto(idEstr,r,pos2))
            Scrivi som1 & "-" & som2 & " / " & som3 & "-" & som4
        End If
        If pos = 2 And num = 3 Then
            som1 = Fuori90(num1 + Estratto(idEstr,r,pos1))
            som2 = Fuori90(num1 + Estratto(idEstr,r,pos2))
            som3 = Fuori90(num2 + Estratto(idEstr,r,pos1))
            som4 = Fuori90(num2 + Estratto(idEstr,r,pos2))
            som5 = Fuori90(num3 + Estratto(idEstr,r,pos1))
            som6 = Fuori90(num3 + Estratto(idEstr,r,pos2))
            Scrivi som1 & "-" & som2 & " / " & som3 & "-" & som4 & " / " & som5 & "-" & som6
        End If
        If pos = 2 And num = 4 Then
            som1 = Fuori90(num1 + Estratto(idEstr,r,pos1))
            som2 = Fuori90(num1 + Estratto(idEstr,r,pos2))
            som3 = Fuori90(num2 + Estratto(idEstr,r,pos1))
            som4 = Fuori90(num2 + Estratto(idEstr,r,pos2))
            som5 = Fuori90(num3 + Estratto(idEstr,r,pos1))
            som6 = Fuori90(num3 + Estratto(idEstr,r,pos2))
            som7 = Fuori90(num4 + Estratto(idEstr,r,pos1))
            som8 = Fuori90(num4 + Estratto(idEstr,r,pos2))
            Scrivi som1 & "-" & som2 & " / " & som3 & "-" & som4 & " / " & som5 & "-" & som6 & " / " & som7 & "-" & som8
        End If
        If pos = 2 And num = 5 Then
            som1 = Fuori90(num1 + Estratto(idEstr,r,pos1))
            som2 = Fuori90(num1 + Estratto(idEstr,r,pos2))
            som3 = Fuori90(num2 + Estratto(idEstr,r,pos1))
            som4 = Fuori90(num2 + Estratto(idEstr,r,pos2))
            som5 = Fuori90(num3 + Estratto(idEstr,r,pos1))
            som6 = Fuori90(num3 + Estratto(idEstr,r,pos2))
            som7 = Fuori90(num4 + Estratto(idEstr,r,pos1))
            som8 = Fuori90(num4 + Estratto(idEstr,r,pos2))
            som9 = Fuori90(num5 + Estratto(idEstr,r,pos1))
            som10 = Fuori90(num5 + Estratto(idEstr,r,pos2))
            Scrivi som1 & "-" & som2 & " / " & som3 & "-" & som4 & " / " & som5 & "-" & som6 & " / " & som7 & "-" & som8 & " / " & som9 & "-" & som10
        End If
        If pos = 2 And num = 6 Then
            som1 = Fuori90(num1 + Estratto(idEstr,r,pos1))
            som2 = Fuori90(num1 + Estratto(idEstr,r,pos2))
            som3 = Fuori90(num2 + Estratto(idEstr,r,pos1))
            som4 = Fuori90(num2 + Estratto(idEstr,r,pos2))
            som5 = Fuori90(num3 + Estratto(idEstr,r,pos1))
            som6 = Fuori90(num3 + Estratto(idEstr,r,pos2))
            som7 = Fuori90(num4 + Estratto(idEstr,r,pos1))
            som8 = Fuori90(num4 + Estratto(idEstr,r,pos2))
            som9 = Fuori90(num5 + Estratto(idEstr,r,pos1))
            som10 = Fuori90(num5 + Estratto(idEstr,r,pos2))
            som11 = Fuori90(num6 + Estratto(idEstr,r,pos1))
            som12 = Fuori90(num6 + Estratto(idEstr,r,pos2))
            Scrivi som1 & "-" & som2 & " / " & som3 & "-" & som4 & " / " & som5 & "-" & som6 & " / " & som7 & "-" & som8 & " / " & som9 & "-" & som10 & " / " & som11 & "-" & som12
        End If
        If pos = 2 And num = 7 Then
            som1 = Fuori90(num1 + Estratto(idEstr,r,pos1))
            som2 = Fuori90(num1 + Estratto(idEstr,r,pos2))
            som3 = Fuori90(num2 + Estratto(idEstr,r,pos1))
            som4 = Fuori90(num2 + Estratto(idEstr,r,pos2))
            som5 = Fuori90(num3 + Estratto(idEstr,r,pos1))
            som6 = Fuori90(num3 + Estratto(idEstr,r,pos2))
            som7 = Fuori90(num4 + Estratto(idEstr,r,pos1))
            som8 = Fuori90(num4 + Estratto(idEstr,r,pos2))
            som9 = Fuori90(num5 + Estratto(idEstr,r,pos1))
            som10 = Fuori90(num5 + Estratto(idEstr,r,pos2))
            som11 = Fuori90(num6 + Estratto(idEstr,r,pos1))
            som12 = Fuori90(num6 + Estratto(idEstr,r,pos2))
            som13 = Fuori90(num7 + Estratto(idEstr,r,pos1))
            som14 = Fuori90(num7 + Estratto(idEstr,r,pos2))
            Scrivi som1 & "-" & som2 & " / " & som3 & "-" & som4 & " / " & som5 & "-" & som6 & " / " & som7 & "-" & som8 & " / " & som9 & "-" & som10 & " / " & som11 & "-" & som12 & " / " & som13 & "-" & som14
        End If
        If pos = 2 And num = 8 Then
            som1 = Fuori90(num1 + Estratto(idEstr,r,pos1))
            som2 = Fuori90(num1 + Estratto(idEstr,r,pos2))
            som3 = Fuori90(num2 + Estratto(idEstr,r,pos1))
            som4 = Fuori90(num2 + Estratto(idEstr,r,pos2))
            som5 = Fuori90(num3 + Estratto(idEstr,r,pos1))
            som6 = Fuori90(num3 + Estratto(idEstr,r,pos2))
            som7 = Fuori90(num4 + Estratto(idEstr,r,pos1))
            som8 = Fuori90(num4 + Estratto(idEstr,r,pos2))
            som9 = Fuori90(num5 + Estratto(idEstr,r,pos1))
            som10 = Fuori90(num5 + Estratto(idEstr,r,pos2))
            som11 = Fuori90(num6 + Estratto(idEstr,r,pos1))
            som12 = Fuori90(num6 + Estratto(idEstr,r,pos2))
            som13 = Fuori90(num7 + Estratto(idEstr,r,pos1))
            som14 = Fuori90(num7 + Estratto(idEstr,r,pos2))
            som15 = Fuori90(num8 + Estratto(idEstr,r,pos1))
            som16 = Fuori90(num8 + Estratto(idEstr,r,pos2))
            Scrivi som1 & "-" & som2 & " / " & som3 & "-" & som4 & " / " & som5 & "-" & som6 & " / " & som7 & "-" & som8 & " / " & som9 & "-" & som10 & " / " & som11 & "-" & som12 & " / " & som13 & "-" & som14 & " / " & som15 & "-" & som16
        End If
        If pos = 2 And num = 9 Then
            som1 = Fuori90(num1 + Estratto(idEstr,r,pos1))
            som2 = Fuori90(num1 + Estratto(idEstr,r,pos2))
            som3 = Fuori90(num2 + Estratto(idEstr,r,pos1))
            som4 = Fuori90(num2 + Estratto(idEstr,r,pos2))
            som5 = Fuori90(num3 + Estratto(idEstr,r,pos1))
            som6 = Fuori90(num3 + Estratto(idEstr,r,pos2))
            som7 = Fuori90(num4 + Estratto(idEstr,r,pos1))
            som8 = Fuori90(num4 + Estratto(idEstr,r,pos2))
            som9 = Fuori90(num5 + Estratto(idEstr,r,pos1))
            som10 = Fuori90(num5 + Estratto(idEstr,r,pos2))
            som11 = Fuori90(num6 + Estratto(idEstr,r,pos1))
            som12 = Fuori90(num6 + Estratto(idEstr,r,pos2))
            som13 = Fuori90(num7 + Estratto(idEstr,r,pos1))
            som14 = Fuori90(num7 + Estratto(idEstr,r,pos2))
            som15 = Fuori90(num8 + Estratto(idEstr,r,pos1))
            som16 = Fuori90(num8 + Estratto(idEstr,r,pos2))
            som17 = Fuori90(num9 + Estratto(idEstr,r,pos1))
            som18 = Fuori90(num9 + Estratto(idEstr,r,pos2))
            Scrivi som1 & "-" & som2 & " / " & som3 & "-" & som4 & " / " & som5 & "-" & som6 & " / " & som7 & "-" & som8 & " / " & som9 & "-" & som10 & " / " & som11 & "-" & som12 & " / " & som13 & "-" & som14 & " / " & som15 & "-" & som16 & " / " & som17 & "-" & som18
        End If
        If pos = 2 And num = 10 Then
            som1 = Fuori90(num1 + Estratto(idEstr,r,pos1))
            som2 = Fuori90(num1 + Estratto(idEstr,r,pos2))
            som3 = Fuori90(num2 + Estratto(idEstr,r,pos1))
            som4 = Fuori90(num2 + Estratto(idEstr,r,pos2))
            som5 = Fuori90(num3 + Estratto(idEstr,r,pos1))
            som6 = Fuori90(num3 + Estratto(idEstr,r,pos2))
            som7 = Fuori90(num4 + Estratto(idEstr,r,pos1))
            som8 = Fuori90(num4 + Estratto(idEstr,r,pos2))
            som9 = Fuori90(num5 + Estratto(idEstr,r,pos1))
            som10 = Fuori90(num5 + Estratto(idEstr,r,pos2))
            som11 = Fuori90(num6 + Estratto(idEstr,r,pos1))
            som12 = Fuori90(num6 + Estratto(idEstr,r,pos2))
            som13 = Fuori90(num7 + Estratto(idEstr,r,pos1))
            som14 = Fuori90(num7 + Estratto(idEstr,r,pos2))
            som15 = Fuori90(num8 + Estratto(idEstr,r,pos1))
            som16 = Fuori90(num8 + Estratto(idEstr,r,pos2))
            som17 = Fuori90(num9 + Estratto(idEstr,r,pos1))
            som18 = Fuori90(num9 + Estratto(idEstr,r,pos2))
            som19 = Fuori90(num10 + Estratto(idEstr,r,pos1))
            som20 = Fuori90(num10 + Estratto(idEstr,r,pos2))
            Scrivi som1 & "-" & som2 & " / " & som3 & "-" & som4 & " / " & som5 & "-" & som6 & " / " & som7 & "-" & som8 & " / " & som9 & "-" & som10 & " / " & som11 & "-" & som12 & " / " & som13 & "-" & som14 & " / " & som15 & "-" & som16 & " / " & som17 & "-" & som18 & " / " & som19 & "-" & som20
        End If
        If pos = 2 And num = 11 Then
            som1 = Fuori90(num1 + Estratto(idEstr,r,pos1))
            som2 = Fuori90(num1 + Estratto(idEstr,r,pos2))
            som3 = Fuori90(num2 + Estratto(idEstr,r,pos1))
            som4 = Fuori90(num2 + Estratto(idEstr,r,pos2))
            som5 = Fuori90(num3 + Estratto(idEstr,r,pos1))
            som6 = Fuori90(num3 + Estratto(idEstr,r,pos2))
            som7 = Fuori90(num4 + Estratto(idEstr,r,pos1))
            som8 = Fuori90(num4 + Estratto(idEstr,r,pos2))
            som9 = Fuori90(num5 + Estratto(idEstr,r,pos1))
            som10 = Fuori90(num5 + Estratto(idEstr,r,pos2))
            som11 = Fuori90(num6 + Estratto(idEstr,r,pos1))
            som12 = Fuori90(num6 + Estratto(idEstr,r,pos2))
            som13 = Fuori90(num7 + Estratto(idEstr,r,pos1))
            som14 = Fuori90(num7 + Estratto(idEstr,r,pos2))
            som15 = Fuori90(num8 + Estratto(idEstr,r,pos1))
            som16 = Fuori90(num8 + Estratto(idEstr,r,pos2))
            som17 = Fuori90(num9 + Estratto(idEstr,r,pos1))
            som18 = Fuori90(num9 + Estratto(idEstr,r,pos2))
            som19 = Fuori90(num10 + Estratto(idEstr,r,pos1))
            som20 = Fuori90(num10 + Estratto(idEstr,r,pos2))
            som21 = Fuori90(num11 + Estratto(idEstr,r,pos1))
            som22 = Fuori90(num11 + Estratto(idEstr,r,pos2))
            Scrivi som1 & "-" & som2 & " / " & som3 & "-" & som4 & " / " & som5 & "-" & som6 & " / " & som7 & "-" & som8 & " / " & som9 & "-" & som10 & " / " & som11 & "-" & som12 & " / " & som13 & "-" & som14 & " / " & som15 & "-" & som16 & " / " & som17 & "-" & som18 & " / " & som19 & "-" & som20 & " / " & som21 & "-" & som22
        End If
        If pos = 2 And num = 12 Then
            som1 = Fuori90(num1 + Estratto(idEstr,r,pos1))
            som2 = Fuori90(num1 + Estratto(idEstr,r,pos2))
            som3 = Fuori90(num2 + Estratto(idEstr,r,pos1))
            som4 = Fuori90(num2 + Estratto(idEstr,r,pos2))
            som5 = Fuori90(num3 + Estratto(idEstr,r,pos1))
            som6 = Fuori90(num3 + Estratto(idEstr,r,pos2))
            som7 = Fuori90(num4 + Estratto(idEstr,r,pos1))
            som8 = Fuori90(num4 + Estratto(idEstr,r,pos2))
            som9 = Fuori90(num5 + Estratto(idEstr,r,pos1))
            som10 = Fuori90(num5 + Estratto(idEstr,r,pos2))
            som11 = Fuori90(num6 + Estratto(idEstr,r,pos1))
            som12 = Fuori90(num6 + Estratto(idEstr,r,pos2))
            som13 = Fuori90(num7 + Estratto(idEstr,r,pos1))
            som14 = Fuori90(num7 + Estratto(idEstr,r,pos2))
            som15 = Fuori90(num8 + Estratto(idEstr,r,pos1))
            som16 = Fuori90(num8 + Estratto(idEstr,r,pos2))
            som17 = Fuori90(num9 + Estratto(idEstr,r,pos1))
            som18 = Fuori90(num9 + Estratto(idEstr,r,pos2))
            som19 = Fuori90(num10 + Estratto(idEstr,r,pos1))
            som20 = Fuori90(num10 + Estratto(idEstr,r,pos2))
            som21 = Fuori90(num11 + Estratto(idEstr,r,pos1))
            som22 = Fuori90(num11 + Estratto(idEstr,r,pos2))
            som23 = Fuori90(num12 + Estratto(idEstr,r,pos1))
            som24 = Fuori90(num12 + Estratto(idEstr,r,pos2))
            Scrivi som1 & "-" & som2 & " / " & som3 & "-" & som4 & " / " & som5 & "-" & som6 & " / " & som7 & "-" & som8 & " / " & som9 & "-" & som10 & " / " & som11 & "-" & som12 & " / " & som13 & "-" & som14 & " / " & som15 & "-" & som16 & " / " & som17 & "-" & som18 & " / " & som19 & "-" & som20 & " / " & som21 & "-" & som22 & " / " & som23 & "-" & som24
        End If
        If pos = 2 And num = 13 Then
            som1 = Fuori90(num1 + Estratto(idEstr,r,pos1))
            som2 = Fuori90(num1 + Estratto(idEstr,r,pos2))
            som3 = Fuori90(num2 + Estratto(idEstr,r,pos1))
            som4 = Fuori90(num2 + Estratto(idEstr,r,pos2))
            som5 = Fuori90(num3 + Estratto(idEstr,r,pos1))
            som6 = Fuori90(num3 + Estratto(idEstr,r,pos2))
            som7 = Fuori90(num4 + Estratto(idEstr,r,pos1))
            som8 = Fuori90(num4 + Estratto(idEstr,r,pos2))
            som9 = Fuori90(num5 + Estratto(idEstr,r,pos1))
            som10 = Fuori90(num5 + Estratto(idEstr,r,pos2))
            som11 = Fuori90(num6 + Estratto(idEstr,r,pos1))
            som12 = Fuori90(num6 + Estratto(idEstr,r,pos2))
            som13 = Fuori90(num7 + Estratto(idEstr,r,pos1))
            som14 = Fuori90(num7 + Estratto(idEstr,r,pos2))
            som15 = Fuori90(num8 + Estratto(idEstr,r,pos1))
            som16 = Fuori90(num8 + Estratto(idEstr,r,pos2))
            som17 = Fuori90(num9 + Estratto(idEstr,r,pos1))
            som18 = Fuori90(num9 + Estratto(idEstr,r,pos2))
            som19 = Fuori90(num10 + Estratto(idEstr,r,pos1))
            som20 = Fuori90(num10 + Estratto(idEstr,r,pos2))
            som21 = Fuori90(num11 + Estratto(idEstr,r,pos1))
            som22 = Fuori90(num11 + Estratto(idEstr,r,pos2))
            som23 = Fuori90(num12 + Estratto(idEstr,r,pos1))
            som24 = Fuori90(num12 + Estratto(idEstr,r,pos2))
            som25 = Fuori90(num13 + Estratto(idEstr,r,pos1))
            som26 = Fuori90(num13 + Estratto(idEstr,r,pos2))
            Scrivi som1 & "-" & som2 & " / " & som3 & "-" & som4 & " / " & som5 & "-" & som6 & " / " & som7 & "-" & som8 & " / " & som9 & "-" & som10 & " / " & som11 & "-" & som12 & " / " & som13 & "-" & som14 & " / " & som15 & "-" & som16 & " / " & som17 & "-" & som18 & " / " & som19 & "-" & som20 & " / " & som21 & "-" & som22 & " / " & som23 & "-" & som24 & " / " & som25 & "-" & som26
        End If
        If pos = 2 And num = 14 Then
            som1 = Fuori90(num1 + Estratto(idEstr,r,pos1))
            som2 = Fuori90(num1 + Estratto(idEstr,r,pos2))
            som3 = Fuori90(num2 + Estratto(idEstr,r,pos1))
            som4 = Fuori90(num2 + Estratto(idEstr,r,pos2))
            som5 = Fuori90(num3 + Estratto(idEstr,r,pos1))
            som6 = Fuori90(num3 + Estratto(idEstr,r,pos2))
            som7 = Fuori90(num4 + Estratto(idEstr,r,pos1))
            som8 = Fuori90(num4 + Estratto(idEstr,r,pos2))
            som9 = Fuori90(num5 + Estratto(idEstr,r,pos1))
            som10 = Fuori90(num5 + Estratto(idEstr,r,pos2))
            som11 = Fuori90(num6 + Estratto(idEstr,r,pos1))
            som12 = Fuori90(num6 + Estratto(idEstr,r,pos2))
            som13 = Fuori90(num7 + Estratto(idEstr,r,pos1))
            som14 = Fuori90(num7 + Estratto(idEstr,r,pos2))
            som15 = Fuori90(num8 + Estratto(idEstr,r,pos1))
            som16 = Fuori90(num8 + Estratto(idEstr,r,pos2))
            som17 = Fuori90(num9 + Estratto(idEstr,r,pos1))
            som18 = Fuori90(num9 + Estratto(idEstr,r,pos2))
            som19 = Fuori90(num10 + Estratto(idEstr,r,pos1))
            som20 = Fuori90(num10 + Estratto(idEstr,r,pos2))
            som21 = Fuori90(num11 + Estratto(idEstr,r,pos1))
            som22 = Fuori90(num11 + Estratto(idEstr,r,pos2))
            som23 = Fuori90(num12 + Estratto(idEstr,r,pos1))
            som24 = Fuori90(num12 + Estratto(idEstr,r,pos2))
            som25 = Fuori90(num13 + Estratto(idEstr,r,pos1))
            som26 = Fuori90(num13 + Estratto(idEstr,r,pos2))
            som27 = Fuori90(num14 + Estratto(idEstr,r,pos1))
            som28 = Fuori90(num14 + Estratto(idEstr,r,pos2))
            Scrivi som1 & "-" & som2 & " / " & som3 & "-" & som4 & " / " & som5 & "-" & som6 & " / " & som7 & "-" & som8 & " / " & som9 & "-" & som10 & " / " & som11 & "-" & som12 & " / " & som13 & "-" & som14 & " / " & som15 & "-" & som16 & " / " & som17 & "-" & som18 & " / " & som19 & "-" & som20 & " / " & som21 & "-" & som22 & " / " & som23 & "-" & som24 & " / " & som25 & "-" & som26 & " / " & som27 & "-" & som28
        End If
        If pos = 2 And num = 15 Then
            som1 = Fuori90(num1 + Estratto(idEstr,r,pos1))
            som2 = Fuori90(num1 + Estratto(idEstr,r,pos2))
            som3 = Fuori90(num2 + Estratto(idEstr,r,pos1))
            som4 = Fuori90(num2 + Estratto(idEstr,r,pos2))
            som5 = Fuori90(num3 + Estratto(idEstr,r,pos1))
            som6 = Fuori90(num3 + Estratto(idEstr,r,pos2))
            som7 = Fuori90(num4 + Estratto(idEstr,r,pos1))
            som8 = Fuori90(num4 + Estratto(idEstr,r,pos2))
            som9 = Fuori90(num5 + Estratto(idEstr,r,pos1))
            som10 = Fuori90(num5 + Estratto(idEstr,r,pos2))
            som11 = Fuori90(num6 + Estratto(idEstr,r,pos1))
            som12 = Fuori90(num6 + Estratto(idEstr,r,pos2))
            som13 = Fuori90(num7 + Estratto(idEstr,r,pos1))
            som14 = Fuori90(num7 + Estratto(idEstr,r,pos2))
            som15 = Fuori90(num8 + Estratto(idEstr,r,pos1))
            som16 = Fuori90(num8 + Estratto(idEstr,r,pos2))
            som17 = Fuori90(num9 + Estratto(idEstr,r,pos1))
            som18 = Fuori90(num9 + Estratto(idEstr,r,pos2))
            som19 = Fuori90(num10 + Estratto(idEstr,r,pos1))
            som20 = Fuori90(num10 + Estratto(idEstr,r,pos2))
            som21 = Fuori90(num11 + Estratto(idEstr,r,pos1))
            som22 = Fuori90(num11 + Estratto(idEstr,r,pos2))
            som23 = Fuori90(num12 + Estratto(idEstr,r,pos1))
            som24 = Fuori90(num12 + Estratto(idEstr,r,pos2))
            som25 = Fuori90(num13 + Estratto(idEstr,r,pos1))
            som26 = Fuori90(num13 + Estratto(idEstr,r,pos2))
            som27 = Fuori90(num14 + Estratto(idEstr,r,pos1))
            som28 = Fuori90(num14 + Estratto(idEstr,r,pos2))
            som29 = Fuori90(num15 + Estratto(idEstr,r,pos1))
            som30 = Fuori90(num15 + Estratto(idEstr,r,pos2))
            Scrivi som1 & "-" & som2 & " / " & som3 & "-" & som4 & " / " & som5 & "-" & som6 & " / " & som7 & "-" & som8 & " / " & som9 & "-" & som10 & " / " & som11 & "-" & som12 & " / " & som13 & "-" & som14 & " / " & som15 & "-" & som16 & " / " & som17 & "-" & som18 & " / " & som19 & "-" & som20 & " / " & som21 & "-" & som22 & " / " & som23 & "-" & som24 & " / " & som25 & "-" & som26 & " / " & som27 & "-" & som28 & " / " & som29 & "-" & som30
        End If
        If pos = 3 And num = 1 Then
            som1 = Fuori90(num1 + Estratto(idEstr,r,pos1))
            som2 = Fuori90(num1 + Estratto(idEstr,r,pos2))
            som3 = Fuori90(num1 + Estratto(idEstr,r,pos3))
            Scrivi som1 & "-" & som2 & "-" & som3
        End If
        If pos = 3 And num = 2 Then
            som1 = Fuori90(num1 + Estratto(idEstr,r,pos1))
            som2 = Fuori90(num1 + Estratto(idEstr,r,pos2))
            som3 = Fuori90(num1 + Estratto(idEstr,r,pos3))
            som4 = Fuori90(num2 + Estratto(idEstr,r,pos1))
            som5 = Fuori90(num2 + Estratto(idEstr,r,pos2))
            som6 = Fuori90(num2 + Estratto(idEstr,r,pos3))
            Scrivi som1 & "-" & som2 & "-" & som3 & " / " & som4 & " - " & som5 & "-" & som6
        End If
        If pos = 3 And num = 3 Then
            som1 = Fuori90(num1 + Estratto(idEstr,r,pos1))
            som2 = Fuori90(num1 + Estratto(idEstr,r,pos2))
            som3 = Fuori90(num1 + Estratto(idEstr,r,pos3))
            som4 = Fuori90(num2 + Estratto(idEstr,r,pos1))
            som5 = Fuori90(num2 + Estratto(idEstr,r,pos2))
            som6 = Fuori90(num2 + Estratto(idEstr,r,pos3))
            som7 = Fuori90(num3 + Estratto(idEstr,r,pos1))
            som8 = Fuori90(num3 + Estratto(idEstr,r,pos2))
            som9 = Fuori90(num3 + Estratto(idEstr,r,pos3))
            Scrivi som1 & "-" & som2 & "-" & som3 & " / " & som4 & " - " & som5 & "-" & som6 & " / " & som7 & "-" & som8 & " - " & som9
        End If
        If pos = 3 And num = 4 Then
            som1 = Fuori90(num1 + Estratto(idEstr,r,pos1))
            som2 = Fuori90(num1 + Estratto(idEstr,r,pos2))
            som3 = Fuori90(num1 + Estratto(idEstr,r,pos3))
            som4 = Fuori90(num2 + Estratto(idEstr,r,pos1))
            som5 = Fuori90(num2 + Estratto(idEstr,r,pos2))
            som6 = Fuori90(num2 + Estratto(idEstr,r,pos3))
            som7 = Fuori90(num3 + Estratto(idEstr,r,pos1))
            som8 = Fuori90(num3 + Estratto(idEstr,r,pos2))
            som9 = Fuori90(num3 + Estratto(idEstr,r,pos3))
            som10 = Fuori90(num4 + Estratto(idEstr,r,pos1))
            som11 = Fuori90(num4 + Estratto(idEstr,r,pos2))
            som12 = Fuori90(num4 + Estratto(idEstr,r,pos3))
            Scrivi som1 & "-" & som2 & "-" & som3 & " / " & som4 & " - " & som5 & "-" & som6 & " / " & som7 & "-" & som8 & " - " & som9 & " / " & som10 & "-" & som11 & "-" & som12
        End If
        If pos = 3 And num = 5 Then
            som1 = Fuori90(num1 + Estratto(idEstr,r,pos1))
            som2 = Fuori90(num1 + Estratto(idEstr,r,pos2))
            som3 = Fuori90(num1 + Estratto(idEstr,r,pos3))
            som4 = Fuori90(num2 + Estratto(idEstr,r,pos1))
            som5 = Fuori90(num2 + Estratto(idEstr,r,pos2))
            som6 = Fuori90(num2 + Estratto(idEstr,r,pos3))
            som7 = Fuori90(num3 + Estratto(idEstr,r,pos1))
            som8 = Fuori90(num3 + Estratto(idEstr,r,pos2))
            som9 = Fuori90(num3 + Estratto(idEstr,r,pos3))
            som10 = Fuori90(num4 + Estratto(idEstr,r,pos1))
            som11 = Fuori90(num4 + Estratto(idEstr,r,pos2))
            som12 = Fuori90(num4 + Estratto(idEstr,r,pos3))
            som13 = Fuori90(num5 + Estratto(idEstr,r,pos1))
            som14 = Fuori90(num5 + Estratto(idEstr,r,pos2))
            som15 = Fuori90(num5 + Estratto(idEstr,r,pos3))
            Scrivi som1 & "-" & som2 & "-" & som3 & " / " & som4 & " - " & som5 & "-" & som6 & " / " & som7 & "-" & som8 & " - " & som9 & " / " & som10 & "-" & som11 & "-" & som12 & " / " & som13 & "-" & som14 & "-" & som15
        End If
        If pos = 3 And num = 6 Then
            som1 = Fuori90(num1 + Estratto(idEstr,r,pos1))
            som2 = Fuori90(num1 + Estratto(idEstr,r,pos2))
            som3 = Fuori90(num1 + Estratto(idEstr,r,pos3))
            som4 = Fuori90(num2 + Estratto(idEstr,r,pos1))
            som5 = Fuori90(num2 + Estratto(idEstr,r,pos2))
            som6 = Fuori90(num2 + Estratto(idEstr,r,pos3))
            som7 = Fuori90(num3 + Estratto(idEstr,r,pos1))
            som8 = Fuori90(num3 + Estratto(idEstr,r,pos2))
            som9 = Fuori90(num3 + Estratto(idEstr,r,pos3))
            som10 = Fuori90(num4 + Estratto(idEstr,r,pos1))
            som11 = Fuori90(num4 + Estratto(idEstr,r,pos2))
            som12 = Fuori90(num4 + Estratto(idEstr,r,pos3))
            som13 = Fuori90(num5 + Estratto(idEstr,r,pos1))
            som14 = Fuori90(num5 + Estratto(idEstr,r,pos2))
            som15 = Fuori90(num5 + Estratto(idEstr,r,pos3))
            som16 = Fuori90(num6 + Estratto(idEstr,r,pos1))
            som17 = Fuori90(num6 + Estratto(idEstr,r,pos2))
            som18 = Fuori90(num6 + Estratto(idEstr,r,pos3))
            Scrivi som1 & "-" & som2 & "-" & som3 & " / " & som4 & " - " & som5 & "-" & som6 & " / " & som7 & "-" & som8 & " - " & som9 & " / " & som10 & "-" & som11 & "-" & som12 & " / " & som13 & "-" & som14 & "-" & som15 & " / " & som16 & " - " & som17 & "-" & som18
        End If
        If pos = 3 And num = 7 Then
            som1 = Fuori90(num1 + Estratto(idEstr,r,pos1))
            som2 = Fuori90(num1 + Estratto(idEstr,r,pos2))
            som3 = Fuori90(num1 + Estratto(idEstr,r,pos3))
            som4 = Fuori90(num2 + Estratto(idEstr,r,pos1))
            som5 = Fuori90(num2 + Estratto(idEstr,r,pos2))
            som6 = Fuori90(num2 + Estratto(idEstr,r,pos3))
            som7 = Fuori90(num3 + Estratto(idEstr,r,pos1))
            som8 = Fuori90(num3 + Estratto(idEstr,r,pos2))
            som9 = Fuori90(num3 + Estratto(idEstr,r,pos3))
            som10 = Fuori90(num4 + Estratto(idEstr,r,pos1))
            som11 = Fuori90(num4 + Estratto(idEstr,r,pos2))
            som12 = Fuori90(num4 + Estratto(idEstr,r,pos3))
            som13 = Fuori90(num5 + Estratto(idEstr,r,pos1))
            som14 = Fuori90(num5 + Estratto(idEstr,r,pos2))
            som15 = Fuori90(num5 + Estratto(idEstr,r,pos3))
            som16 = Fuori90(num6 + Estratto(idEstr,r,pos1))
            som17 = Fuori90(num6 + Estratto(idEstr,r,pos2))
            som18 = Fuori90(num6 + Estratto(idEstr,r,pos3))
            som19 = Fuori90(num7 + Estratto(idEstr,r,pos1))
            som20 = Fuori90(num7 + Estratto(idEstr,r,pos2))
            som21 = Fuori90(num7 + Estratto(idEstr,r,pos3))
            Scrivi som1 & "-" & som2 & "-" & som3 & " / " & som4 & " - " & som5 & "-" & som6 & " / " & som7 & "-" & som8 & " - " & som9 & " / " & som10 & "-" & som11 & "-" & som12 & " / " & som13 & "-" & som14 & "-" & som15 & " / " & som16 & " - " & som17 & "-" & som18 & " / " & som19 & "-" & som20 & " - " & som21
        End If
        If pos = 3 And num = 8 Then
            som1 = Fuori90(num1 + Estratto(idEstr,r,pos1))
            som2 = Fuori90(num1 + Estratto(idEstr,r,pos2))
            som3 = Fuori90(num1 + Estratto(idEstr,r,pos3))
            som4 = Fuori90(num2 + Estratto(idEstr,r,pos1))
            som5 = Fuori90(num2 + Estratto(idEstr,r,pos2))
            som6 = Fuori90(num2 + Estratto(idEstr,r,pos3))
            som7 = Fuori90(num3 + Estratto(idEstr,r,pos1))
            som8 = Fuori90(num3 + Estratto(idEstr,r,pos2))
            som9 = Fuori90(num3 + Estratto(idEstr,r,pos3))
            som10 = Fuori90(num4 + Estratto(idEstr,r,pos1))
            som11 = Fuori90(num4 + Estratto(idEstr,r,pos2))
            som12 = Fuori90(num4 + Estratto(idEstr,r,pos3))
            som13 = Fuori90(num5 + Estratto(idEstr,r,pos1))
            som14 = Fuori90(num5 + Estratto(idEstr,r,pos2))
            som15 = Fuori90(num5 + Estratto(idEstr,r,pos3))
            som16 = Fuori90(num6 + Estratto(idEstr,r,pos1))
            som17 = Fuori90(num6 + Estratto(idEstr,r,pos2))
            som18 = Fuori90(num6 + Estratto(idEstr,r,pos3))
            som19 = Fuori90(num7 + Estratto(idEstr,r,pos1))
            som20 = Fuori90(num7 + Estratto(idEstr,r,pos2))
            som21 = Fuori90(num7 + Estratto(idEstr,r,pos3))
            som22 = Fuori90(num8 + Estratto(idEstr,r,pos1))
            som23 = Fuori90(num8 + Estratto(idEstr,r,pos2))
            som24 = Fuori90(num8 + Estratto(idEstr,r,pos3))
            Scrivi som1 & "-" & som2 & "-" & som3 & " / " & som4 & " - " & som5 & "-" & som6 & " / " & som7 & "-" & som8 & " - " & som9 & " / " & som10 & "-" & som11 & "-" & som12 & " / " & som13 & "-" & som14 & "-" & som15 & " / " & som16 & " - " & som17 & "-" & som18 & " / " & som19 & "-" & som20 & " - " & som21 & " / " & som22 & "-" & som23 & "-" & som24
        End If
        If pos = 3 And num = 9 Then
            som1 = Fuori90(num1 + Estratto(idEstr,r,pos1))
            som2 = Fuori90(num1 + Estratto(idEstr,r,pos2))
            som3 = Fuori90(num1 + Estratto(idEstr,r,pos3))
            som4 = Fuori90(num2 + Estratto(idEstr,r,pos1))
            som5 = Fuori90(num2 + Estratto(idEstr,r,pos2))
            som6 = Fuori90(num2 + Estratto(idEstr,r,pos3))
            som7 = Fuori90(num3 + Estratto(idEstr,r,pos1))
            som8 = Fuori90(num3 + Estratto(idEstr,r,pos2))
            som9 = Fuori90(num3 + Estratto(idEstr,r,pos3))
            som10 = Fuori90(num4 + Estratto(idEstr,r,pos1))
            som11 = Fuori90(num4 + Estratto(idEstr,r,pos2))
            som12 = Fuori90(num4 + Estratto(idEstr,r,pos3))
            som13 = Fuori90(num5 + Estratto(idEstr,r,pos1))
            som14 = Fuori90(num5 + Estratto(idEstr,r,pos2))
            som15 = Fuori90(num5 + Estratto(idEstr,r,pos3))
            som16 = Fuori90(num6 + Estratto(idEstr,r,pos1))
            som17 = Fuori90(num6 + Estratto(idEstr,r,pos2))
            som18 = Fuori90(num6 + Estratto(idEstr,r,pos3))
            som19 = Fuori90(num7 + Estratto(idEstr,r,pos1))
            som20 = Fuori90(num7 + Estratto(idEstr,r,pos2))
            som21 = Fuori90(num7 + Estratto(idEstr,r,pos3))
            som22 = Fuori90(num8 + Estratto(idEstr,r,pos1))
            som23 = Fuori90(num8 + Estratto(idEstr,r,pos2))
            som24 = Fuori90(num8 + Estratto(idEstr,r,pos3))
            som25 = Fuori90(num9 + Estratto(idEstr,r,pos1))
            som26 = Fuori90(num9 + Estratto(idEstr,r,pos2))
            som27 = Fuori90(num9 + Estratto(idEstr,r,pos3))
            Scrivi som1 & "-" & som2 & "-" & som3 & " / " & som4 & " - " & som5 & "-" & som6 & " / " & som7 & "-" & som8 & " - " & som9 & " / " & som10 & "-" & som11 & "-" & som12 & " / " & som13 & "-" & som14 & "-" & som15 & " / " & som16 & " - " & som17 & "-" & som18 & " / " & som19 & "-" & som20 & " - " & som21 & " / " & som22 & "-" & som23 & "-" & som24 & " / " & som25 & "-" & som26 & "-" & som27
        End If
        If pos = 3 And num = 10 Then
            som1 = Fuori90(num1 + Estratto(idEstr,r,pos1))
            som2 = Fuori90(num1 + Estratto(idEstr,r,pos2))
            som3 = Fuori90(num1 + Estratto(idEstr,r,pos3))
            som4 = Fuori90(num2 + Estratto(idEstr,r,pos1))
            som5 = Fuori90(num2 + Estratto(idEstr,r,pos2))
            som6 = Fuori90(num2 + Estratto(idEstr,r,pos3))
            som7 = Fuori90(num3 + Estratto(idEstr,r,pos1))
            som8 = Fuori90(num3 + Estratto(idEstr,r,pos2))
            som9 = Fuori90(num3 + Estratto(idEstr,r,pos3))
            som10 = Fuori90(num4 + Estratto(idEstr,r,pos1))
            som11 = Fuori90(num4 + Estratto(idEstr,r,pos2))
            som12 = Fuori90(num4 + Estratto(idEstr,r,pos3))
            som13 = Fuori90(num5 + Estratto(idEstr,r,pos1))
            som14 = Fuori90(num5 + Estratto(idEstr,r,pos2))
            som15 = Fuori90(num5 + Estratto(idEstr,r,pos3))
            som16 = Fuori90(num6 + Estratto(idEstr,r,pos1))
            som17 = Fuori90(num6 + Estratto(idEstr,r,pos2))
            som18 = Fuori90(num6 + Estratto(idEstr,r,pos3))
            som19 = Fuori90(num7 + Estratto(idEstr,r,pos1))
            som20 = Fuori90(num7 + Estratto(idEstr,r,pos2))
            som21 = Fuori90(num7 + Estratto(idEstr,r,pos3))
            som22 = Fuori90(num8 + Estratto(idEstr,r,pos1))
            som23 = Fuori90(num8 + Estratto(idEstr,r,pos2))
            som24 = Fuori90(num8 + Estratto(idEstr,r,pos3))
            som25 = Fuori90(num9 + Estratto(idEstr,r,pos1))
            som26 = Fuori90(num9 + Estratto(idEstr,r,pos2))
            som27 = Fuori90(num9 + Estratto(idEstr,r,pos3))
            som28 = Fuori90(num10 + Estratto(idEstr,r,pos1))
            som29 = Fuori90(num10 + Estratto(idEstr,r,pos2))
            som30 = Fuori90(num10 + Estratto(idEstr,r,pos3))
            Scrivi som1 & "-" & som2 & "-" & som3 & " / " & som4 & " - " & som5 & "-" & som6 & " / " & som7 & "-" & som8 & " - " & som9 & " / " & som10 & "-" & som11 & "-" & som12 & " / " & som13 & "-" & som14 & "-" & som15 & " / " & som16 & " - " & som17 & "-" & som18 & " / " & som19 & "-" & som20 & " - " & som21 & " / " & som22 & "-" & som23 & "-" & som24 & " / " & som25 & "-" & som26 & "-" & som27
            Scrivi som28 & "-" & som29 & "-" & som30
        End If
        If pos = 3 And num = 11 Then
            som1 = Fuori90(num1 + Estratto(idEstr,r,pos1))
            som2 = Fuori90(num1 + Estratto(idEstr,r,pos2))
            som3 = Fuori90(num1 + Estratto(idEstr,r,pos3))
            som4 = Fuori90(num2 + Estratto(idEstr,r,pos1))
            som5 = Fuori90(num2 + Estratto(idEstr,r,pos2))
            som6 = Fuori90(num2 + Estratto(idEstr,r,pos3))
            som7 = Fuori90(num3 + Estratto(idEstr,r,pos1))
            som8 = Fuori90(num3 + Estratto(idEstr,r,pos2))
            som9 = Fuori90(num3 + Estratto(idEstr,r,pos3))
            som10 = Fuori90(num4 + Estratto(idEstr,r,pos1))
            som11 = Fuori90(num4 + Estratto(idEstr,r,pos2))
            som12 = Fuori90(num4 + Estratto(idEstr,r,pos3))
            som13 = Fuori90(num5 + Estratto(idEstr,r,pos1))
            som14 = Fuori90(num5 + Estratto(idEstr,r,pos2))
            som15 = Fuori90(num5 + Estratto(idEstr,r,pos3))
            som16 = Fuori90(num6 + Estratto(idEstr,r,pos1))
            som17 = Fuori90(num6 + Estratto(idEstr,r,pos2))
            som18 = Fuori90(num6 + Estratto(idEstr,r,pos3))
            som19 = Fuori90(num7 + Estratto(idEstr,r,pos1))
            som20 = Fuori90(num7 + Estratto(idEstr,r,pos2))
            som21 = Fuori90(num7 + Estratto(idEstr,r,pos3))
            som22 = Fuori90(num8 + Estratto(idEstr,r,pos1))
            som23 = Fuori90(num8 + Estratto(idEstr,r,pos2))
            som24 = Fuori90(num8 + Estratto(idEstr,r,pos3))
            som25 = Fuori90(num9 + Estratto(idEstr,r,pos1))
            som26 = Fuori90(num9 + Estratto(idEstr,r,pos2))
            som27 = Fuori90(num9 + Estratto(idEstr,r,pos3))
            som28 = Fuori90(num10 + Estratto(idEstr,r,pos1))
            som29 = Fuori90(num10 + Estratto(idEstr,r,pos2))
            som30 = Fuori90(num10 + Estratto(idEstr,r,pos3))
            som31 = Fuori90(num11 + Estratto(idEstr,r,pos1))
            som32 = Fuori90(num11 + Estratto(idEstr,r,pos2))
            som33 = Fuori90(num11 + Estratto(idEstr,r,pos3))
            Scrivi som1 & "-" & som2 & "-" & som3 & " / " & som4 & " - " & som5 & "-" & som6 & " / " & som7 & "-" & som8 & " - " & som9 & " / " & som10 & "-" & som11 & "-" & som12 & " / " & som13 & "-" & som14 & "-" & som15 & " / " & som16 & " - " & som17 & "-" & som18 & " / " & som19 & "-" & som20 & " - " & som21 & " / " & som22 & "-" & som23 & "-" & som24 & " / " & som25 & "-" & som26 & "-" & som27
            Scrivi som28 & "-" & som29 & "-" & som30 & " / " & som31 & "-" & som32 & "-" & som33
        End If
        If pos = 3 And num = 12 Then
            som1 = Fuori90(num1 + Estratto(idEstr,r,pos1))
            som2 = Fuori90(num1 + Estratto(idEstr,r,pos2))
            som3 = Fuori90(num1 + Estratto(idEstr,r,pos3))
            som4 = Fuori90(num2 + Estratto(idEstr,r,pos1))
            som5 = Fuori90(num2 + Estratto(idEstr,r,pos2))
            som6 = Fuori90(num2 + Estratto(idEstr,r,pos3))
            som7 = Fuori90(num3 + Estratto(idEstr,r,pos1))
            som8 = Fuori90(num3 + Estratto(idEstr,r,pos2))
            som9 = Fuori90(num3 + Estratto(idEstr,r,pos3))
            som10 = Fuori90(num4 + Estratto(idEstr,r,pos1))
            som11 = Fuori90(num4 + Estratto(idEstr,r,pos2))
            som12 = Fuori90(num4 + Estratto(idEstr,r,pos3))
            som13 = Fuori90(num5 + Estratto(idEstr,r,pos1))
            som14 = Fuori90(num5 + Estratto(idEstr,r,pos2))
            som15 = Fuori90(num5 + Estratto(idEstr,r,pos3))
            som16 = Fuori90(num6 + Estratto(idEstr,r,pos1))
            som17 = Fuori90(num6 + Estratto(idEstr,r,pos2))
            som18 = Fuori90(num6 + Estratto(idEstr,r,pos3))
            som19 = Fuori90(num7 + Estratto(idEstr,r,pos1))
            som20 = Fuori90(num7 + Estratto(idEstr,r,pos2))
            som21 = Fuori90(num7 + Estratto(idEstr,r,pos3))
            som22 = Fuori90(num8 + Estratto(idEstr,r,pos1))
            som23 = Fuori90(num8 + Estratto(idEstr,r,pos2))
            som24 = Fuori90(num8 + Estratto(idEstr,r,pos3))
            som25 = Fuori90(num9 + Estratto(idEstr,r,pos1))
            som26 = Fuori90(num9 + Estratto(idEstr,r,pos2))
            som27 = Fuori90(num9 + Estratto(idEstr,r,pos3))
            som28 = Fuori90(num10 + Estratto(idEstr,r,pos1))
            som29 = Fuori90(num10 + Estratto(idEstr,r,pos2))
            som30 = Fuori90(num10 + Estratto(idEstr,r,pos3))
            som31 = Fuori90(num11 + Estratto(idEstr,r,pos1))
            som32 = Fuori90(num11 + Estratto(idEstr,r,pos2))
            som33 = Fuori90(num11 + Estratto(idEstr,r,pos3))
            som34 = Fuori90(num12 + Estratto(idEstr,r,pos1))
            som35 = Fuori90(num12 + Estratto(idEstr,r,pos2))
            som36 = Fuori90(num12 + Estratto(idEstr,r,pos3))
            Scrivi som1 & "-" & som2 & "-" & som3 & " / " & som4 & " - " & som5 & "-" & som6 & " / " & som7 & "-" & som8 & " - " & som9 & " / " & som10 & "-" & som11 & "-" & som12 & " / " & som13 & "-" & som14 & "-" & som15 & " / " & som16 & " - " & som17 & "-" & som18 & " / " & som19 & "-" & som20 & " - " & som21 & " / " & som22 & "-" & som23 & "-" & som24 & " / " & som25 & "-" & som26 & "-" & som27
            Scrivi som28 & "-" & som29 & "-" & som30 & " / " & som31 & "-" & som32 & "-" & som33 & " / " & som34 & "-" & som35 & "-" & som36
        End If
        If pos = 3 And num = 13 Then
            som1 = Fuori90(num1 + Estratto(idEstr,r,pos1))
            som2 = Fuori90(num1 + Estratto(idEstr,r,pos2))
            som3 = Fuori90(num1 + Estratto(idEstr,r,pos3))
            som4 = Fuori90(num2 + Estratto(idEstr,r,pos1))
            som5 = Fuori90(num2 + Estratto(idEstr,r,pos2))
            som6 = Fuori90(num2 + Estratto(idEstr,r,pos3))
            som7 = Fuori90(num3 + Estratto(idEstr,r,pos1))
            som8 = Fuori90(num3 + Estratto(idEstr,r,pos2))
            som9 = Fuori90(num3 + Estratto(idEstr,r,pos3))
            som10 = Fuori90(num4 + Estratto(idEstr,r,pos1))
            som11 = Fuori90(num4 + Estratto(idEstr,r,pos2))
            som12 = Fuori90(num4 + Estratto(idEstr,r,pos3))
            som13 = Fuori90(num5 + Estratto(idEstr,r,pos1))
            som14 = Fuori90(num5 + Estratto(idEstr,r,pos2))
            som15 = Fuori90(num5 + Estratto(idEstr,r,pos3))
            som16 = Fuori90(num6 + Estratto(idEstr,r,pos1))
            som17 = Fuori90(num6 + Estratto(idEstr,r,pos2))
            som18 = Fuori90(num6 + Estratto(idEstr,r,pos3))
            som19 = Fuori90(num7 + Estratto(idEstr,r,pos1))
            som20 = Fuori90(num7 + Estratto(idEstr,r,pos2))
            som21 = Fuori90(num7 + Estratto(idEstr,r,pos3))
            som22 = Fuori90(num8 + Estratto(idEstr,r,pos1))
            som23 = Fuori90(num8 + Estratto(idEstr,r,pos2))
            som24 = Fuori90(num8 + Estratto(idEstr,r,pos3))
            som25 = Fuori90(num9 + Estratto(idEstr,r,pos1))
            som26 = Fuori90(num9 + Estratto(idEstr,r,pos2))
            som27 = Fuori90(num9 + Estratto(idEstr,r,pos3))
            som28 = Fuori90(num10 + Estratto(idEstr,r,pos1))
            som29 = Fuori90(num10 + Estratto(idEstr,r,pos2))
            som30 = Fuori90(num10 + Estratto(idEstr,r,pos3))
            som31 = Fuori90(num11 + Estratto(idEstr,r,pos1))
            som32 = Fuori90(num11 + Estratto(idEstr,r,pos2))
            som33 = Fuori90(num11 + Estratto(idEstr,r,pos3))
            som34 = Fuori90(num12 + Estratto(idEstr,r,pos1))
            som35 = Fuori90(num12 + Estratto(idEstr,r,pos2))
            som36 = Fuori90(num12 + Estratto(idEstr,r,pos3))
            som37 = Fuori90(num13 + Estratto(idEstr,r,pos1))
            som38 = Fuori90(num13 + Estratto(idEstr,r,pos2))
            som39 = Fuori90(num13 + Estratto(idEstr,r,pos3))
            Scrivi som1 & "-" & som2 & "-" & som3 & " / " & som4 & " - " & som5 & "-" & som6 & " / " & som7 & "-" & som8 & " - " & som9 & " / " & som10 & "-" & som11 & "-" & som12 & " / " & som13 & "-" & som14 & "-" & som15 & " / " & som16 & " - " & som17 & "-" & som18 & " / " & som19 & "-" & som20 & " - " & som21 & " / " & som22 & "-" & som23 & "-" & som24 & " / " & som25 & "-" & som26 & "-" & som27
            Scrivi som28 & "-" & som29 & "-" & som30 & " / " & som31 & "-" & som32 & "-" & som33 & " / " & som34 & "-" & som35 & "-" & som36 & " / " & som37 & "-" & som38 & "-" & som39
        End If
        If pos = 3 And num = 14 Then
            som1 = Fuori90(num1 + Estratto(idEstr,r,pos1))
            som2 = Fuori90(num1 + Estratto(idEstr,r,pos2))
            som3 = Fuori90(num1 + Estratto(idEstr,r,pos3))
            som4 = Fuori90(num2 + Estratto(idEstr,r,pos1))
            som5 = Fuori90(num2 + Estratto(idEstr,r,pos2))
            som6 = Fuori90(num2 + Estratto(idEstr,r,pos3))
            som7 = Fuori90(num3 + Estratto(idEstr,r,pos1))
            som8 = Fuori90(num3 + Estratto(idEstr,r,pos2))
            som9 = Fuori90(num3 + Estratto(idEstr,r,pos3))
            som10 = Fuori90(num4 + Estratto(idEstr,r,pos1))
            som11 = Fuori90(num4 + Estratto(idEstr,r,pos2))
            som12 = Fuori90(num4 + Estratto(idEstr,r,pos3))
            som13 = Fuori90(num5 + Estratto(idEstr,r,pos1))
            som14 = Fuori90(num5 + Estratto(idEstr,r,pos2))
            som15 = Fuori90(num5 + Estratto(idEstr,r,pos3))
            som16 = Fuori90(num6 + Estratto(idEstr,r,pos1))
            som17 = Fuori90(num6 + Estratto(idEstr,r,pos2))
            som18 = Fuori90(num6 + Estratto(idEstr,r,pos3))
            som19 = Fuori90(num7 + Estratto(idEstr,r,pos1))
            som20 = Fuori90(num7 + Estratto(idEstr,r,pos2))
            som21 = Fuori90(num7 + Estratto(idEstr,r,pos3))
            som22 = Fuori90(num8 + Estratto(idEstr,r,pos1))
            som23 = Fuori90(num8 + Estratto(idEstr,r,pos2))
            som24 = Fuori90(num8 + Estratto(idEstr,r,pos3))
            som25 = Fuori90(num9 + Estratto(idEstr,r,pos1))
            som26 = Fuori90(num9 + Estratto(idEstr,r,pos2))
            som27 = Fuori90(num9 + Estratto(idEstr,r,pos3))
            som28 = Fuori90(num10 + Estratto(idEstr,r,pos1))
            som29 = Fuori90(num10 + Estratto(idEstr,r,pos2))
            som30 = Fuori90(num10 + Estratto(idEstr,r,pos3))
            som31 = Fuori90(num11 + Estratto(idEstr,r,pos1))
            som32 = Fuori90(num11 + Estratto(idEstr,r,pos2))
            som33 = Fuori90(num11 + Estratto(idEstr,r,pos3))
            som34 = Fuori90(num12 + Estratto(idEstr,r,pos1))
            som35 = Fuori90(num12 + Estratto(idEstr,r,pos2))
            som36 = Fuori90(num12 + Estratto(idEstr,r,pos3))
            som37 = Fuori90(num13 + Estratto(idEstr,r,pos1))
            som38 = Fuori90(num13 + Estratto(idEstr,r,pos2))
            som39 = Fuori90(num13 + Estratto(idEstr,r,pos3))
            som40 = Fuori90(num14 + Estratto(idEstr,r,pos1))
            som41 = Fuori90(num14 + Estratto(idEstr,r,pos2))
            som42 = Fuori90(num14 + Estratto(idEstr,r,pos3))
            Scrivi som1 & "-" & som2 & "-" & som3 & " / " & som4 & " - " & som5 & "-" & som6 & " / " & som7 & "-" & som8 & " - " & som9 & " / " & som10 & "-" & som11 & "-" & som12 & " / " & som13 & "-" & som14 & "-" & som15 & " / " & som16 & " - " & som17 & "-" & som18 & " / " & som19 & "-" & som20 & " - " & som21 & " / " & som22 & "-" & som23 & "-" & som24 & " / " & som25 & "-" & som26 & "-" & som27
            Scrivi som28 & "-" & som29 & "-" & som30 & " / " & som31 & "-" & som32 & "-" & som33 & " / " & som34 & "-" & som35 & "-" & som36 & " / " & som37 & "-" & som38 & "-" & som39 & " / " & som40 & "-" & som41 & "-" & som42
        End If
        If pos = 3 And num = 15 Then
            som1 = Fuori90(num1 + Estratto(idEstr,r,pos1))
            som2 = Fuori90(num1 + Estratto(idEstr,r,pos2))
            som3 = Fuori90(num1 + Estratto(idEstr,r,pos3))
            som4 = Fuori90(num2 + Estratto(idEstr,r,pos1))
            som5 = Fuori90(num2 + Estratto(idEstr,r,pos2))
            som6 = Fuori90(num2 + Estratto(idEstr,r,pos3))
            som7 = Fuori90(num3 + Estratto(idEstr,r,pos1))
            som8 = Fuori90(num3 + Estratto(idEstr,r,pos2))
            som9 = Fuori90(num3 + Estratto(idEstr,r,pos3))
            som10 = Fuori90(num4 + Estratto(idEstr,r,pos1))
            som11 = Fuori90(num4 + Estratto(idEstr,r,pos2))
            som12 = Fuori90(num4 + Estratto(idEstr,r,pos3))
            som13 = Fuori90(num5 + Estratto(idEstr,r,pos1))
            som14 = Fuori90(num5 + Estratto(idEstr,r,pos2))
            som15 = Fuori90(num5 + Estratto(idEstr,r,pos3))
            som16 = Fuori90(num6 + Estratto(idEstr,r,pos1))
            som17 = Fuori90(num6 + Estratto(idEstr,r,pos2))
            som18 = Fuori90(num6 + Estratto(idEstr,r,pos3))
            som19 = Fuori90(num7 + Estratto(idEstr,r,pos1))
            som20 = Fuori90(num7 + Estratto(idEstr,r,pos2))
            som21 = Fuori90(num7 + Estratto(idEstr,r,pos3))
            som22 = Fuori90(num8 + Estratto(idEstr,r,pos1))
            som23 = Fuori90(num8 + Estratto(idEstr,r,pos2))
            som24 = Fuori90(num8 + Estratto(idEstr,r,pos3))
            som25 = Fuori90(num9 + Estratto(idEstr,r,pos1))
            som26 = Fuori90(num9 + Estratto(idEstr,r,pos2))
            som27 = Fuori90(num9 + Estratto(idEstr,r,pos3))
            som28 = Fuori90(num10 + Estratto(idEstr,r,pos1))
            som29 = Fuori90(num10 + Estratto(idEstr,r,pos2))
            som30 = Fuori90(num10 + Estratto(idEstr,r,pos3))
            som31 = Fuori90(num11 + Estratto(idEstr,r,pos1))
            som32 = Fuori90(num11 + Estratto(idEstr,r,pos2))
            som33 = Fuori90(num11 + Estratto(idEstr,r,pos3))
            som34 = Fuori90(num12 + Estratto(idEstr,r,pos1))
            som35 = Fuori90(num12 + Estratto(idEstr,r,pos2))
            som36 = Fuori90(num12 + Estratto(idEstr,r,pos3))
            som37 = Fuori90(num13 + Estratto(idEstr,r,pos1))
            som38 = Fuori90(num13 + Estratto(idEstr,r,pos2))
            som39 = Fuori90(num13 + Estratto(idEstr,r,pos3))
            som40 = Fuori90(num14 + Estratto(idEstr,r,pos1))
            som41 = Fuori90(num14 + Estratto(idEstr,r,pos2))
            som42 = Fuori90(num14 + Estratto(idEstr,r,pos3))
            som43 = Fuori90(num15 + Estratto(idEstr,r,pos1))
            som44 = Fuori90(num15 + Estratto(idEstr,r,pos2))
            som45 = Fuori90(num15 + Estratto(idEstr,r,pos3))
            Scrivi som1 & "-" & som2 & "-" & som3 & " / " & som4 & " - " & som5 & "-" & som6 & " / " & som7 & "-" & som8 & " - " & som9 & " / " & som10 & "-" & som11 & "-" & som12 & " / " & som13 & "-" & som14 & "-" & som15 & " / " & som16 & " - " & som17 & "-" & som18 & " / " & som19 & "-" & som20 & " - " & som21 & " / " & som22 & "-" & som23 & "-" & som24 & " / " & som25 & "-" & som26 & "-" & som27
            Scrivi som28 & "-" & som29 & "-" & som30 & " / " & som31 & "-" & som32 & "-" & som33 & " / " & som34 & "-" & som35 & "-" & som36 & " / " & som37 & "-" & som38 & "-" & som39 & " / " & som40 & "-" & som41 & "-" & som42 & " / " & som43 & "-" & som44 & " - " & som45
        End If
        If pos = 4 And num = 1 Then
            som1 = Fuori90(num1 + Estratto(idEstr,r,pos1))
            som2 = Fuori90(num1 + Estratto(idEstr,r,pos2))
            som3 = Fuori90(num1 + Estratto(idEstr,r,pos3))
            som4 = Fuori90(num1 + Estratto(idEstr,r,pos4))
            Scrivi som1 & "-" & som2 & "-" & som3 & "-" & som4
        End If
        If pos = 4 And num = 2 Then
            som1 = Fuori90(num1 + Estratto(idEstr,r,pos1))
            som2 = Fuori90(num1 + Estratto(idEstr,r,pos2))
            som3 = Fuori90(num1 + Estratto(idEstr,r,pos3))
            som4 = Fuori90(num1 + Estratto(idEstr,r,pos4))
            som5 = Fuori90(num2 + Estratto(idEstr,r,pos1))
            som6 = Fuori90(num2 + Estratto(idEstr,r,pos2))
            som7 = Fuori90(num2 + Estratto(idEstr,r,pos3))
            som8 = Fuori90(num2 + Estratto(idEstr,r,pos4))
            Scrivi som1 & "-" & som2 & "-" & som3 & "-" & som4 & " / " & som5 & "-" & som6 & "-" & som7 & "-" & som8
        End If
        If pos = 4 And num = 3 Then
            som1 = Fuori90(num1 + Estratto(idEstr,r,pos1))
            som2 = Fuori90(num1 + Estratto(idEstr,r,pos2))
            som3 = Fuori90(num1 + Estratto(idEstr,r,pos3))
            som4 = Fuori90(num1 + Estratto(idEstr,r,pos4))
            som5 = Fuori90(num2 + Estratto(idEstr,r,pos1))
            som6 = Fuori90(num2 + Estratto(idEstr,r,pos2))
            som7 = Fuori90(num2 + Estratto(idEstr,r,pos3))
            som8 = Fuori90(num2 + Estratto(idEstr,r,pos4))
            som9 = Fuori90(num3 + Estratto(idEstr,r,pos1))
            som10 = Fuori90(num3 + Estratto(idEstr,r,pos2))
            som11 = Fuori90(num3 + Estratto(idEstr,r,pos3))
            som12 = Fuori90(num3 + Estratto(idEstr,r,pos4))
            Scrivi som1 & "-" & som2 & "-" & som3 & "-" & som4 & " / " & som5 & "-" & som6 & "-" & som7 & "-" & som8 & " / " & som9 & "-" & som10 & "-" & som11 & "-" & som12
        End If
        If pos = 4 And num = 4 Then
            som1 = Fuori90(num1 + Estratto(idEstr,r,pos1))
            som2 = Fuori90(num1 + Estratto(idEstr,r,pos2))
            som3 = Fuori90(num1 + Estratto(idEstr,r,pos3))
            som4 = Fuori90(num1 + Estratto(idEstr,r,pos4))
            som5 = Fuori90(num2 + Estratto(idEstr,r,pos1))
            som6 = Fuori90(num2 + Estratto(idEstr,r,pos2))
            som7 = Fuori90(num2 + Estratto(idEstr,r,pos3))
            som8 = Fuori90(num2 + Estratto(idEstr,r,pos4))
            som9 = Fuori90(num3 + Estratto(idEstr,r,pos1))
            som10 = Fuori90(num3 + Estratto(idEstr,r,pos2))
            som11 = Fuori90(num3 + Estratto(idEstr,r,pos3))
            som12 = Fuori90(num3 + Estratto(idEstr,r,pos4))
            som13 = Fuori90(num4 + Estratto(idEstr,r,pos1))
            som14 = Fuori90(num4 + Estratto(idEstr,r,pos2))
            som15 = Fuori90(num4 + Estratto(idEstr,r,pos3))
            som16 = Fuori90(num4 + Estratto(idEstr,r,pos4))
            Scrivi som1 & "-" & som2 & "-" & som3 & "-" & som4 & " / " & som5 & "-" & som6 & "-" & som7 & "-" & som8 & " / " & som9 & "-" & som10 & "-" & som11 & "-" & som12 & " / " & som13 & "-" & som14 & "-" & som15 & "-" & som16
        End If
        If pos = 4 And num = 5 Then
            som1 = Fuori90(num1 + Estratto(idEstr,r,pos1))
            som2 = Fuori90(num1 + Estratto(idEstr,r,pos2))
            som3 = Fuori90(num1 + Estratto(idEstr,r,pos3))
            som4 = Fuori90(num1 + Estratto(idEstr,r,pos4))
            som5 = Fuori90(num2 + Estratto(idEstr,r,pos1))
            som6 = Fuori90(num2 + Estratto(idEstr,r,pos2))
            som7 = Fuori90(num2 + Estratto(idEstr,r,pos3))
            som8 = Fuori90(num2 + Estratto(idEstr,r,pos4))
            som9 = Fuori90(num3 + Estratto(idEstr,r,pos1))
            som10 = Fuori90(num3 + Estratto(idEstr,r,pos2))
            som11 = Fuori90(num3 + Estratto(idEstr,r,pos3))
            som12 = Fuori90(num3 + Estratto(idEstr,r,pos4))
            som13 = Fuori90(num4 + Estratto(idEstr,r,pos1))
            som14 = Fuori90(num4 + Estratto(idEstr,r,pos2))
            som15 = Fuori90(num4 + Estratto(idEstr,r,pos3))
            som16 = Fuori90(num4 + Estratto(idEstr,r,pos4))
            som17 = Fuori90(num5 + Estratto(idEstr,r,pos1))
            som18 = Fuori90(num5 + Estratto(idEstr,r,pos2))
            som19 = Fuori90(num5 + Estratto(idEstr,r,pos3))
            som20 = Fuori90(num5 + Estratto(idEstr,r,pos4))
            Scrivi som1 & "-" & som2 & "-" & som3 & "-" & som4 & " / " & som5 & "-" & som6 & "-" & som7 & "-" & som8 & " / " & som9 & "-" & som10 & "-" & som11 & "-" & som12 & " / " & som13 & "-" & som14 & "-" & som15 & "-" & som16 & " / " & som17 & "-" & som18 & "-" & som19 & "-" & som20
        End If
        If pos = 4 And num = 6 Then
            som1 = Fuori90(num1 + Estratto(idEstr,r,pos1))
            som2 = Fuori90(num1 + Estratto(idEstr,r,pos2))
            som3 = Fuori90(num1 + Estratto(idEstr,r,pos3))
            som4 = Fuori90(num1 + Estratto(idEstr,r,pos4))
            som5 = Fuori90(num2 + Estratto(idEstr,r,pos1))
            som6 = Fuori90(num2 + Estratto(idEstr,r,pos2))
            som7 = Fuori90(num2 + Estratto(idEstr,r,pos3))
            som8 = Fuori90(num2 + Estratto(idEstr,r,pos4))
            som9 = Fuori90(num3 + Estratto(idEstr,r,pos1))
            som10 = Fuori90(num3 + Estratto(idEstr,r,pos2))
            som11 = Fuori90(num3 + Estratto(idEstr,r,pos3))
            som12 = Fuori90(num3 + Estratto(idEstr,r,pos4))
            som13 = Fuori90(num4 + Estratto(idEstr,r,pos1))
            som14 = Fuori90(num4 + Estratto(idEstr,r,pos2))
            som15 = Fuori90(num4 + Estratto(idEstr,r,pos3))
            som16 = Fuori90(num4 + Estratto(idEstr,r,pos4))
            som17 = Fuori90(num5 + Estratto(idEstr,r,pos1))
            som18 = Fuori90(num5 + Estratto(idEstr,r,pos2))
            som19 = Fuori90(num5 + Estratto(idEstr,r,pos3))
            som20 = Fuori90(num5 + Estratto(idEstr,r,pos4))
            som21 = Fuori90(num6 + Estratto(idEstr,r,pos1))
            som22 = Fuori90(num6 + Estratto(idEstr,r,pos2))
            som23 = Fuori90(num6 + Estratto(idEstr,r,pos3))
            som24 = Fuori90(num6 + Estratto(idEstr,r,pos4))
            Scrivi som1 & "-" & som2 & "-" & som3 & "-" & som4 & " / " & som5 & "-" & som6 & "-" & som7 & "-" & som8 & " / " & som9 & "-" & som10 & "-" & som11 & "-" & som12 & " / " & som13 & "-" & som14 & "-" & som15 & "-" & som16 & " / " & som17 & "-" & som18 & "-" & som19 & "-" & som20 & " / " & som21 & "-" & som22 & "-" & som23 & "-" & som24
        End If
        If pos = 4 And num = 7 Then
            som1 = Fuori90(num1 + Estratto(idEstr,r,pos1))
            som2 = Fuori90(num1 + Estratto(idEstr,r,pos2))
            som3 = Fuori90(num1 + Estratto(idEstr,r,pos3))
            som4 = Fuori90(num1 + Estratto(idEstr,r,pos4))
            som5 = Fuori90(num2 + Estratto(idEstr,r,pos1))
            som6 = Fuori90(num2 + Estratto(idEstr,r,pos2))
            som7 = Fuori90(num2 + Estratto(idEstr,r,pos3))
            som8 = Fuori90(num2 + Estratto(idEstr,r,pos4))
            som9 = Fuori90(num3 + Estratto(idEstr,r,pos1))
            som10 = Fuori90(num3 + Estratto(idEstr,r,pos2))
            som11 = Fuori90(num3 + Estratto(idEstr,r,pos3))
            som12 = Fuori90(num3 + Estratto(idEstr,r,pos4))
            som13 = Fuori90(num4 + Estratto(idEstr,r,pos1))
            som14 = Fuori90(num4 + Estratto(idEstr,r,pos2))
            som15 = Fuori90(num4 + Estratto(idEstr,r,pos3))
            som16 = Fuori90(num4 + Estratto(idEstr,r,pos4))
            som17 = Fuori90(num5 + Estratto(idEstr,r,pos1))
            som18 = Fuori90(num5 + Estratto(idEstr,r,pos2))
            som19 = Fuori90(num5 + Estratto(idEstr,r,pos3))
            som20 = Fuori90(num5 + Estratto(idEstr,r,pos4))
            som21 = Fuori90(num6 + Estratto(idEstr,r,pos1))
            som22 = Fuori90(num6 + Estratto(idEstr,r,pos2))
            som23 = Fuori90(num6 + Estratto(idEstr,r,pos3))
            som24 = Fuori90(num6 + Estratto(idEstr,r,pos4))
            som25 = Fuori90(num7 + Estratto(idEstr,r,pos1))
            som26 = Fuori90(num7 + Estratto(idEstr,r,pos2))
            som27 = Fuori90(num7 + Estratto(idEstr,r,pos3))
            som28 = Fuori90(num7 + Estratto(idEstr,r,pos4))
            Scrivi som1 & "-" & som2 & "-" & som3 & "-" & som4 & " / " & som5 & "-" & som6 & "-" & som7 & "-" & som8 & " / " & som9 & "-" & som10 & "-" & som11 & "-" & som12 & " / " & som13 & "-" & som14 & "-" & som15 & "-" & som16 & " / " & som17 & "-" & som18 & "-" & som19 & "-" & som20 & " / " & som21 & "-" & som22 & "-" & som23 & "-" & som24 & " / " & som25 & "-" & som26 & "-" & som27 & "-" & som28
        End If
        If pos = 4 And num = 8 Then
            som1 = Fuori90(num1 + Estratto(idEstr,r,pos1))
            som2 = Fuori90(num1 + Estratto(idEstr,r,pos2))
            som3 = Fuori90(num1 + Estratto(idEstr,r,pos3))
            som4 = Fuori90(num1 + Estratto(idEstr,r,pos4))
            som5 = Fuori90(num2 + Estratto(idEstr,r,pos1))
            som6 = Fuori90(num2 + Estratto(idEstr,r,pos2))
            som7 = Fuori90(num2 + Estratto(idEstr,r,pos3))
            som8 = Fuori90(num2 + Estratto(idEstr,r,pos4))
            som9 = Fuori90(num3 + Estratto(idEstr,r,pos1))
            som10 = Fuori90(num3 + Estratto(idEstr,r,pos2))
            som11 = Fuori90(num3 + Estratto(idEstr,r,pos3))
            som12 = Fuori90(num3 + Estratto(idEstr,r,pos4))
            som13 = Fuori90(num4 + Estratto(idEstr,r,pos1))
            som14 = Fuori90(num4 + Estratto(idEstr,r,pos2))
            som15 = Fuori90(num4 + Estratto(idEstr,r,pos3))
            som16 = Fuori90(num4 + Estratto(idEstr,r,pos4))
            som17 = Fuori90(num5 + Estratto(idEstr,r,pos1))
            som18 = Fuori90(num5 + Estratto(idEstr,r,pos2))
            som19 = Fuori90(num5 + Estratto(idEstr,r,pos3))
            som20 = Fuori90(num5 + Estratto(idEstr,r,pos4))
            som21 = Fuori90(num6 + Estratto(idEstr,r,pos1))
            som22 = Fuori90(num6 + Estratto(idEstr,r,pos2))
            som23 = Fuori90(num6 + Estratto(idEstr,r,pos3))
            som24 = Fuori90(num6 + Estratto(idEstr,r,pos4))
            som25 = Fuori90(num7 + Estratto(idEstr,r,pos1))
            som26 = Fuori90(num7 + Estratto(idEstr,r,pos2))
            som27 = Fuori90(num7 + Estratto(idEstr,r,pos3))
            som28 = Fuori90(num7 + Estratto(idEstr,r,pos4))
            som29 = Fuori90(num8 + Estratto(idEstr,r,pos1))
            som30 = Fuori90(num8 + Estratto(idEstr,r,pos2))
            som31 = Fuori90(num8 + Estratto(idEstr,r,pos3))
            som32 = Fuori90(num8 + Estratto(idEstr,r,pos4))
            Scrivi som1 & "-" & som2 & "-" & som3 & "-" & som4 & " / " & som5 & "-" & som6 & "-" & som7 & "-" & som8 & " / " & som9 & "-" & som10 & "-" & som11 & "-" & som12 & " / " & som13 & "-" & som14 & "-" & som15 & "-" & som16 & " / " & som17 & "-" & som18 & "-" & som19 & "-" & som20 & " / " & som21 & "-" & som22 & "-" & som23 & "-" & som24 & " / " & som25 & "-" & som26 & "-" & som27 & "-" & som28
            Scrivi som29 & "-" & som30 & "-" & som31 & "-" & som32
        End If
        If pos = 4 And num = 9 Then
            som1 = Fuori90(num1 + Estratto(idEstr,r,pos1))
            som2 = Fuori90(num1 + Estratto(idEstr,r,pos2))
            som3 = Fuori90(num1 + Estratto(idEstr,r,pos3))
            som4 = Fuori90(num1 + Estratto(idEstr,r,pos4))
            som5 = Fuori90(num2 + Estratto(idEstr,r,pos1))
            som6 = Fuori90(num2 + Estratto(idEstr,r,pos2))
            som7 = Fuori90(num2 + Estratto(idEstr,r,pos3))
            som8 = Fuori90(num2 + Estratto(idEstr,r,pos4))
            som9 = Fuori90(num3 + Estratto(idEstr,r,pos1))
            som10 = Fuori90(num3 + Estratto(idEstr,r,pos2))
            som11 = Fuori90(num3 + Estratto(idEstr,r,pos3))
            som12 = Fuori90(num3 + Estratto(idEstr,r,pos4))
            som13 = Fuori90(num4 + Estratto(idEstr,r,pos1))
            som14 = Fuori90(num4 + Estratto(idEstr,r,pos2))
            som15 = Fuori90(num4 + Estratto(idEstr,r,pos3))
            som16 = Fuori90(num4 + Estratto(idEstr,r,pos4))
            som17 = Fuori90(num5 + Estratto(idEstr,r,pos1))
            som18 = Fuori90(num5 + Estratto(idEstr,r,pos2))
            som19 = Fuori90(num5 + Estratto(idEstr,r,pos3))
            som20 = Fuori90(num5 + Estratto(idEstr,r,pos4))
            som21 = Fuori90(num6 + Estratto(idEstr,r,pos1))
            som22 = Fuori90(num6 + Estratto(idEstr,r,pos2))
            som23 = Fuori90(num6 + Estratto(idEstr,r,pos3))
            som24 = Fuori90(num6 + Estratto(idEstr,r,pos4))
            som25 = Fuori90(num7 + Estratto(idEstr,r,pos1))
            som26 = Fuori90(num7 + Estratto(idEstr,r,pos2))
            som27 = Fuori90(num7 + Estratto(idEstr,r,pos3))
            som28 = Fuori90(num7 + Estratto(idEstr,r,pos4))
            som29 = Fuori90(num8 + Estratto(idEstr,r,pos1))
            som30 = Fuori90(num8 + Estratto(idEstr,r,pos2))
            som31 = Fuori90(num8 + Estratto(idEstr,r,pos3))
            som32 = Fuori90(num8 + Estratto(idEstr,r,pos4))
            som33 = Fuori90(num9 + Estratto(idEstr,r,pos1))
            som34 = Fuori90(num9 + Estratto(idEstr,r,pos2))
            som35 = Fuori90(num9 + Estratto(idEstr,r,pos3))
            som36 = Fuori90(num9 + Estratto(idEstr,r,pos4))
            Scrivi som1 & "-" & som2 & "-" & som3 & "-" & som4 & " / " & som5 & "-" & som6 & "-" & som7 & "-" & som8 & " / " & som9 & "-" & som10 & "-" & som11 & "-" & som12 & " / " & som13 & "-" & som14 & "-" & som15 & "-" & som16 & " / " & som17 & "-" & som18 & "-" & som19 & "-" & som20 & " / " & som21 & "-" & som22 & "-" & som23 & "-" & som24 & " / " & som25 & "-" & som26 & "-" & som27 & "-" & som28
            Scrivi som29 & "-" & som30 & "-" & som31 & "-" & som32 & " / " & som33 & "-" & som34 & "-" & som35 & "-" & som36
        End If
        If pos = 4 And num = 10 Then
            som1 = Fuori90(num1 + Estratto(idEstr,r,pos1))
            som2 = Fuori90(num1 + Estratto(idEstr,r,pos2))
            som3 = Fuori90(num1 + Estratto(idEstr,r,pos3))
            som4 = Fuori90(num1 + Estratto(idEstr,r,pos4))
            som5 = Fuori90(num2 + Estratto(idEstr,r,pos1))
            som6 = Fuori90(num2 + Estratto(idEstr,r,pos2))
            som7 = Fuori90(num2 + Estratto(idEstr,r,pos3))
            som8 = Fuori90(num2 + Estratto(idEstr,r,pos4))
            som9 = Fuori90(num3 + Estratto(idEstr,r,pos1))
            som10 = Fuori90(num3 + Estratto(idEstr,r,pos2))
            som11 = Fuori90(num3 + Estratto(idEstr,r,pos3))
            som12 = Fuori90(num3 + Estratto(idEstr,r,pos4))
            som13 = Fuori90(num4 + Estratto(idEstr,r,pos1))
            som14 = Fuori90(num4 + Estratto(idEstr,r,pos2))
            som15 = Fuori90(num4 + Estratto(idEstr,r,pos3))
            som16 = Fuori90(num4 + Estratto(idEstr,r,pos4))
            som17 = Fuori90(num5 + Estratto(idEstr,r,pos1))
            som18 = Fuori90(num5 + Estratto(idEstr,r,pos2))
            som19 = Fuori90(num5 + Estratto(idEstr,r,pos3))
            som20 = Fuori90(num5 + Estratto(idEstr,r,pos4))
            som21 = Fuori90(num6 + Estratto(idEstr,r,pos1))
            som22 = Fuori90(num6 + Estratto(idEstr,r,pos2))
            som23 = Fuori90(num6 + Estratto(idEstr,r,pos3))
            som24 = Fuori90(num6 + Estratto(idEstr,r,pos4))
            som25 = Fuori90(num7 + Estratto(idEstr,r,pos1))
            som26 = Fuori90(num7 + Estratto(idEstr,r,pos2))
            som27 = Fuori90(num7 + Estratto(idEstr,r,pos3))
            som28 = Fuori90(num7 + Estratto(idEstr,r,pos4))
            som29 = Fuori90(num8 + Estratto(idEstr,r,pos1))
            som30 = Fuori90(num8 + Estratto(idEstr,r,pos2))
            som31 = Fuori90(num8 + Estratto(idEstr,r,pos3))
            som32 = Fuori90(num8 + Estratto(idEstr,r,pos4))
            som33 = Fuori90(num9 + Estratto(idEstr,r,pos1))
            som34 = Fuori90(num9 + Estratto(idEstr,r,pos2))
            som35 = Fuori90(num9 + Estratto(idEstr,r,pos3))
            som36 = Fuori90(num9 + Estratto(idEstr,r,pos4))
            som37 = Fuori90(num10 + Estratto(idEstr,r,pos1))
            som38 = Fuori90(num10 + Estratto(idEstr,r,pos2))
            som39 = Fuori90(num10 + Estratto(idEstr,r,pos3))
            som40 = Fuori90(num10 + Estratto(idEstr,r,pos4))
            Scrivi som1 & "-" & som2 & "-" & som3 & "-" & som4 & " / " & som5 & "-" & som6 & "-" & som7 & "-" & som8 & " / " & som9 & "-" & som10 & "-" & som11 & "-" & som12 & " / " & som13 & "-" & som14 & "-" & som15 & "-" & som16 & " / " & som17 & "-" & som18 & "-" & som19 & "-" & som20 & " / " & som21 & "-" & som22 & "-" & som23 & "-" & som24 & " / " & som25 & "-" & som26 & "-" & som27 & "-" & som28
            Scrivi som29 & "-" & som30 & "-" & som31 & "-" & som32 & " / " & som33 & "-" & som34 & "-" & som35 & "-" & som36 & " / " & som37 & "-" & som38 & "-" & som39 & "-" & som40
        End If
        If pos = 4 And num = 11 Then
            som1 = Fuori90(num1 + Estratto(idEstr,r,pos1))
            som2 = Fuori90(num1 + Estratto(idEstr,r,pos2))
            som3 = Fuori90(num1 + Estratto(idEstr,r,pos3))
            som4 = Fuori90(num1 + Estratto(idEstr,r,pos4))
            som5 = Fuori90(num2 + Estratto(idEstr,r,pos1))
            som6 = Fuori90(num2 + Estratto(idEstr,r,pos2))
            som7 = Fuori90(num2 + Estratto(idEstr,r,pos3))
            som8 = Fuori90(num2 + Estratto(idEstr,r,pos4))
            som9 = Fuori90(num3 + Estratto(idEstr,r,pos1))
            som10 = Fuori90(num3 + Estratto(idEstr,r,pos2))
            som11 = Fuori90(num3 + Estratto(idEstr,r,pos3))
            som12 = Fuori90(num3 + Estratto(idEstr,r,pos4))
            som13 = Fuori90(num4 + Estratto(idEstr,r,pos1))
            som14 = Fuori90(num4 + Estratto(idEstr,r,pos2))
            som15 = Fuori90(num4 + Estratto(idEstr,r,pos3))
            som16 = Fuori90(num4 + Estratto(idEstr,r,pos4))
            som17 = Fuori90(num5 + Estratto(idEstr,r,pos1))
            som18 = Fuori90(num5 + Estratto(idEstr,r,pos2))
            som19 = Fuori90(num5 + Estratto(idEstr,r,pos3))
            som20 = Fuori90(num5 + Estratto(idEstr,r,pos4))
            som21 = Fuori90(num6 + Estratto(idEstr,r,pos1))
            som22 = Fuori90(num6 + Estratto(idEstr,r,pos2))
            som23 = Fuori90(num6 + Estratto(idEstr,r,pos3))
            som24 = Fuori90(num6 + Estratto(idEstr,r,pos4))
            som25 = Fuori90(num7 + Estratto(idEstr,r,pos1))
            som26 = Fuori90(num7 + Estratto(idEstr,r,pos2))
            som27 = Fuori90(num7 + Estratto(idEstr,r,pos3))
            som28 = Fuori90(num7 + Estratto(idEstr,r,pos4))
            som29 = Fuori90(num8 + Estratto(idEstr,r,pos1))
            som30 = Fuori90(num8 + Estratto(idEstr,r,pos2))
            som31 = Fuori90(num8 + Estratto(idEstr,r,pos3))
            som32 = Fuori90(num8 + Estratto(idEstr,r,pos4))
            som33 = Fuori90(num9 + Estratto(idEstr,r,pos1))
            som34 = Fuori90(num9 + Estratto(idEstr,r,pos2))
            som35 = Fuori90(num9 + Estratto(idEstr,r,pos3))
            som36 = Fuori90(num9 + Estratto(idEstr,r,pos4))
            som37 = Fuori90(num10 + Estratto(idEstr,r,pos1))
            som38 = Fuori90(num10 + Estratto(idEstr,r,pos2))
            som39 = Fuori90(num10 + Estratto(idEstr,r,pos3))
            som40 = Fuori90(num10 + Estratto(idEstr,r,pos4))
            som41 = Fuori90(num11 + Estratto(idEstr,r,pos1))
            som42 = Fuori90(num11 + Estratto(idEstr,r,pos2))
            som43 = Fuori90(num11 + Estratto(idEstr,r,pos3))
            som44 = Fuori90(num11 + Estratto(idEstr,r,pos4))
            Scrivi som1 & "-" & som2 & "-" & som3 & "-" & som4 & " / " & som5 & "-" & som6 & "-" & som7 & "-" & som8 & " / " & som9 & "-" & som10 & "-" & som11 & "-" & som12 & " / " & som13 & "-" & som14 & "-" & som15 & "-" & som16 & " / " & som17 & "-" & som18 & "-" & som19 & "-" & som20 & " / " & som21 & "-" & som22 & "-" & som23 & "-" & som24 & " / " & som25 & "-" & som26 & "-" & som27 & "-" & som28
            Scrivi som29 & "-" & som30 & "-" & som31 & "-" & som32 & " / " & som33 & "-" & som34 & "-" & som35 & "-" & som36 & " / " & som37 & "-" & som38 & "-" & som39 & "-" & som40 & " / " & som41 & "-" & som42 & "-" & som43 & "-" & som44
        End If
        If pos = 4 And num = 12 Then
            som1 = Fuori90(num1 + Estratto(idEstr,r,pos1))
            som2 = Fuori90(num1 + Estratto(idEstr,r,pos2))
            som3 = Fuori90(num1 + Estratto(idEstr,r,pos3))
            som4 = Fuori90(num1 + Estratto(idEstr,r,pos4))
            som5 = Fuori90(num2 + Estratto(idEstr,r,pos1))
            som6 = Fuori90(num2 + Estratto(idEstr,r,pos2))
            som7 = Fuori90(num2 + Estratto(idEstr,r,pos3))
            som8 = Fuori90(num2 + Estratto(idEstr,r,pos4))
            som9 = Fuori90(num3 + Estratto(idEstr,r,pos1))
            som10 = Fuori90(num3 + Estratto(idEstr,r,pos2))
            som11 = Fuori90(num3 + Estratto(idEstr,r,pos3))
            som12 = Fuori90(num3 + Estratto(idEstr,r,pos4))
            som13 = Fuori90(num4 + Estratto(idEstr,r,pos1))
            som14 = Fuori90(num4 + Estratto(idEstr,r,pos2))
            som15 = Fuori90(num4 + Estratto(idEstr,r,pos3))
            som16 = Fuori90(num4 + Estratto(idEstr,r,pos4))
            som17 = Fuori90(num5 + Estratto(idEstr,r,pos1))
            som18 = Fuori90(num5 + Estratto(idEstr,r,pos2))
            som19 = Fuori90(num5 + Estratto(idEstr,r,pos3))
            som20 = Fuori90(num5 + Estratto(idEstr,r,pos4))
            som21 = Fuori90(num6 + Estratto(idEstr,r,pos1))
            som22 = Fuori90(num6 + Estratto(idEstr,r,pos2))
            som23 = Fuori90(num6 + Estratto(idEstr,r,pos3))
            som24 = Fuori90(num6 + Estratto(idEstr,r,pos4))
            som25 = Fuori90(num7 + Estratto(idEstr,r,pos1))
            som26 = Fuori90(num7 + Estratto(idEstr,r,pos2))
            som27 = Fuori90(num7 + Estratto(idEstr,r,pos3))
            som28 = Fuori90(num7 + Estratto(idEstr,r,pos4))
            som29 = Fuori90(num8 + Estratto(idEstr,r,pos1))
            som30 = Fuori90(num8 + Estratto(idEstr,r,pos2))
            som31 = Fuori90(num8 + Estratto(idEstr,r,pos3))
            som32 = Fuori90(num8 + Estratto(idEstr,r,pos4))
            som33 = Fuori90(num9 + Estratto(idEstr,r,pos1))
            som34 = Fuori90(num9 + Estratto(idEstr,r,pos2))
            som35 = Fuori90(num9 + Estratto(idEstr,r,pos3))
            som36 = Fuori90(num9 + Estratto(idEstr,r,pos4))
            som37 = Fuori90(num10 + Estratto(idEstr,r,pos1))
            som38 = Fuori90(num10 + Estratto(idEstr,r,pos2))
            som39 = Fuori90(num10 + Estratto(idEstr,r,pos3))
            som40 = Fuori90(num10 + Estratto(idEstr,r,pos4))
            som41 = Fuori90(num11 + Estratto(idEstr,r,pos1))
            som42 = Fuori90(num11 + Estratto(idEstr,r,pos2))
            som43 = Fuori90(num11 + Estratto(idEstr,r,pos3))
            som44 = Fuori90(num11 + Estratto(idEstr,r,pos4))
            som45 = Fuori90(num12 + Estratto(idEstr,r,pos1))
            som46 = Fuori90(num12 + Estratto(idEstr,r,pos2))
            som47 = Fuori90(num12 + Estratto(idEstr,r,pos3))
            som48 = Fuori90(num12 + Estratto(idEstr,r,pos4))
            Scrivi som1 & "-" & som2 & "-" & som3 & "-" & som4 & " / " & som5 & "-" & som6 & "-" & som7 & "-" & som8 & " / " & som9 & "-" & som10 & "-" & som11 & "-" & som12 & " / " & som13 & "-" & som14 & "-" & som15 & "-" & som16 & " / " & som17 & "-" & som18 & "-" & som19 & "-" & som20 & " / " & som21 & "-" & som22 & "-" & som23 & "-" & som24 & " / " & som25 & "-" & som26 & "-" & som27 & "-" & som28
            Scrivi som29 & "-" & som30 & "-" & som31 & "-" & som32 & " / " & som33 & "-" & som34 & "-" & som35 & "-" & som36 & " / " & som37 & "-" & som38 & "-" & som39 & "-" & som40 & " / " & som41 & "-" & som42 & "-" & som43 & "-" & som44 & " / " & som45 & "-" & som46 & "-" & som47 & "-" & som48
        End If
        If pos = 4 And num = 13 Then
            som1 = Fuori90(num1 + Estratto(idEstr,r,pos1))
            som2 = Fuori90(num1 + Estratto(idEstr,r,pos2))
            som3 = Fuori90(num1 + Estratto(idEstr,r,pos3))
            som4 = Fuori90(num1 + Estratto(idEstr,r,pos4))
            som5 = Fuori90(num2 + Estratto(idEstr,r,pos1))
            som6 = Fuori90(num2 + Estratto(idEstr,r,pos2))
            som7 = Fuori90(num2 + Estratto(idEstr,r,pos3))
            som8 = Fuori90(num2 + Estratto(idEstr,r,pos4))
            som9 = Fuori90(num3 + Estratto(idEstr,r,pos1))
            som10 = Fuori90(num3 + Estratto(idEstr,r,pos2))
            som11 = Fuori90(num3 + Estratto(idEstr,r,pos3))
            som12 = Fuori90(num3 + Estratto(idEstr,r,pos4))
            som13 = Fuori90(num4 + Estratto(idEstr,r,pos1))
            som14 = Fuori90(num4 + Estratto(idEstr,r,pos2))
            som15 = Fuori90(num4 + Estratto(idEstr,r,pos3))
            som16 = Fuori90(num4 + Estratto(idEstr,r,pos4))
            som17 = Fuori90(num5 + Estratto(idEstr,r,pos1))
            som18 = Fuori90(num5 + Estratto(idEstr,r,pos2))
            som19 = Fuori90(num5 + Estratto(idEstr,r,pos3))
            som20 = Fuori90(num5 + Estratto(idEstr,r,pos4))
            som21 = Fuori90(num6 + Estratto(idEstr,r,pos1))
            som22 = Fuori90(num6 + Estratto(idEstr,r,pos2))
            som23 = Fuori90(num6 + Estratto(idEstr,r,pos3))
            som24 = Fuori90(num6 + Estratto(idEstr,r,pos4))
            som25 = Fuori90(num7 + Estratto(idEstr,r,pos1))
            som26 = Fuori90(num7 + Estratto(idEstr,r,pos2))
            som27 = Fuori90(num7 + Estratto(idEstr,r,pos3))
            som28 = Fuori90(num7 + Estratto(idEstr,r,pos4))
            som29 = Fuori90(num8 + Estratto(idEstr,r,pos1))
            som30 = Fuori90(num8 + Estratto(idEstr,r,pos2))
            som31 = Fuori90(num8 + Estratto(idEstr,r,pos3))
            som32 = Fuori90(num8 + Estratto(idEstr,r,pos4))
            som33 = Fuori90(num9 + Estratto(idEstr,r,pos1))
            som34 = Fuori90(num9 + Estratto(idEstr,r,pos2))
            som35 = Fuori90(num9 + Estratto(idEstr,r,pos3))
            som36 = Fuori90(num9 + Estratto(idEstr,r,pos4))
            som37 = Fuori90(num10 + Estratto(idEstr,r,pos1))
            som38 = Fuori90(num10 + Estratto(idEstr,r,pos2))
            som39 = Fuori90(num10 + Estratto(idEstr,r,pos3))
            som40 = Fuori90(num10 + Estratto(idEstr,r,pos4))
            som41 = Fuori90(num11 + Estratto(idEstr,r,pos1))
            som42 = Fuori90(num11 + Estratto(idEstr,r,pos2))
            som43 = Fuori90(num11 + Estratto(idEstr,r,pos3))
            som44 = Fuori90(num11 + Estratto(idEstr,r,pos4))
            som45 = Fuori90(num12 + Estratto(idEstr,r,pos1))
            som46 = Fuori90(num12 + Estratto(idEstr,r,pos2))
            som47 = Fuori90(num12 + Estratto(idEstr,r,pos3))
            som48 = Fuori90(num12 + Estratto(idEstr,r,pos4))
            som49 = Fuori90(num13 + Estratto(idEstr,r,pos1))
            som50 = Fuori90(num13 + Estratto(idEstr,r,pos2))
            som51 = Fuori90(num13 + Estratto(idEstr,r,pos3))
            som52 = Fuori90(num13 + Estratto(idEstr,r,pos4))
            Scrivi som1 & "-" & som2 & "-" & som3 & "-" & som4 & " / " & som5 & "-" & som6 & "-" & som7 & "-" & som8 & " / " & som9 & "-" & som10 & "-" & som11 & "-" & som12 & " / " & som13 & "-" & som14 & "-" & som15 & "-" & som16 & " / " & som17 & "-" & som18 & "-" & som19 & "-" & som20 & " / " & som21 & "-" & som22 & "-" & som23 & "-" & som24 & " / " & som25 & "-" & som26 & "-" & som27 & "-" & som28
            Scrivi som29 & "-" & som30 & "-" & som31 & "-" & som32 & " / " & som33 & "-" & som34 & "-" & som35 & "-" & som36 & " / " & som37 & "-" & som38 & "-" & som39 & "-" & som40 & " / " & som41 & "-" & som42 & "-" & som43 & "-" & som44 & " / " & som45 & "-" & som46 & "-" & som47 & "-" & som48 & " / " & som49 & "-" & som50 & "-" & som51 & "-" & som52
        End If
        If pos = 4 And num = 14 Then
            som1 = Fuori90(num1 + Estratto(idEstr,r,pos1))
            som2 = Fuori90(num1 + Estratto(idEstr,r,pos2))
            som3 = Fuori90(num1 + Estratto(idEstr,r,pos3))
            som4 = Fuori90(num1 + Estratto(idEstr,r,pos4))
            som5 = Fuori90(num2 + Estratto(idEstr,r,pos1))
            som6 = Fuori90(num2 + Estratto(idEstr,r,pos2))
            som7 = Fuori90(num2 + Estratto(idEstr,r,pos3))
            som8 = Fuori90(num2 + Estratto(idEstr,r,pos4))
            som9 = Fuori90(num3 + Estratto(idEstr,r,pos1))
            som10 = Fuori90(num3 + Estratto(idEstr,r,pos2))
            som11 = Fuori90(num3 + Estratto(idEstr,r,pos3))
            som12 = Fuori90(num3 + Estratto(idEstr,r,pos4))
            som13 = Fuori90(num4 + Estratto(idEstr,r,pos1))
            som14 = Fuori90(num4 + Estratto(idEstr,r,pos2))
            som15 = Fuori90(num4 + Estratto(idEstr,r,pos3))
            som16 = Fuori90(num4 + Estratto(idEstr,r,pos4))
            som17 = Fuori90(num5 + Estratto(idEstr,r,pos1))
            som18 = Fuori90(num5 + Estratto(idEstr,r,pos2))
            som19 = Fuori90(num5 + Estratto(idEstr,r,pos3))
            som20 = Fuori90(num5 + Estratto(idEstr,r,pos4))
            som21 = Fuori90(num6 + Estratto(idEstr,r,pos1))
            som22 = Fuori90(num6 + Estratto(idEstr,r,pos2))
            som23 = Fuori90(num6 + Estratto(idEstr,r,pos3))
            som24 = Fuori90(num6 + Estratto(idEstr,r,pos4))
            som25 = Fuori90(num7 + Estratto(idEstr,r,pos1))
            som26 = Fuori90(num7 + Estratto(idEstr,r,pos2))
            som27 = Fuori90(num7 + Estratto(idEstr,r,pos3))
            som28 = Fuori90(num7 + Estratto(idEstr,r,pos4))
            som29 = Fuori90(num8 + Estratto(idEstr,r,pos1))
            som30 = Fuori90(num8 + Estratto(idEstr,r,pos2))
            som31 = Fuori90(num8 + Estratto(idEstr,r,pos3))
            som32 = Fuori90(num8 + Estratto(idEstr,r,pos4))
            som33 = Fuori90(num9 + Estratto(idEstr,r,pos1))
            som34 = Fuori90(num9 + Estratto(idEstr,r,pos2))
            som35 = Fuori90(num9 + Estratto(idEstr,r,pos3))
            som36 = Fuori90(num9 + Estratto(idEstr,r,pos4))
            som37 = Fuori90(num10 + Estratto(idEstr,r,pos1))
            som38 = Fuori90(num10 + Estratto(idEstr,r,pos2))
            som39 = Fuori90(num10 + Estratto(idEstr,r,pos3))
            som40 = Fuori90(num10 + Estratto(idEstr,r,pos4))
            som41 = Fuori90(num11 + Estratto(idEstr,r,pos1))
            som42 = Fuori90(num11 + Estratto(idEstr,r,pos2))
            som43 = Fuori90(num11 + Estratto(idEstr,r,pos3))
            som44 = Fuori90(num11 + Estratto(idEstr,r,pos4))
            som45 = Fuori90(num12 + Estratto(idEstr,r,pos1))
            som46 = Fuori90(num12 + Estratto(idEstr,r,pos2))
            som47 = Fuori90(num12 + Estratto(idEstr,r,pos3))
            som48 = Fuori90(num12 + Estratto(idEstr,r,pos4))
            som49 = Fuori90(num13 + Estratto(idEstr,r,pos1))
            som50 = Fuori90(num13 + Estratto(idEstr,r,pos2))
            som51 = Fuori90(num13 + Estratto(idEstr,r,pos3))
            som52 = Fuori90(num13 + Estratto(idEstr,r,pos4))
            som53 = Fuori90(num14 + Estratto(idEstr,r,pos1))
            som54 = Fuori90(num14 + Estratto(idEstr,r,pos2))
            som55 = Fuori90(num14 + Estratto(idEstr,r,pos3))
            som56 = Fuori90(num14 + Estratto(idEstr,r,pos4))
            Scrivi som1 & "-" & som2 & "-" & som3 & "-" & som4 & " / " & som5 & "-" & som6 & "-" & som7 & "-" & som8 & " / " & som9 & "-" & som10 & "-" & som11 & "-" & som12 & " / " & som13 & "-" & som14 & "-" & som15 & "-" & som16 & " / " & som17 & "-" & som18 & "-" & som19 & "-" & som20 & " / " & som21 & "-" & som22 & "-" & som23 & "-" & som24 & " / " & som25 & "-" & som26 & "-" & som27 & "-" & som28
            Scrivi som29 & "-" & som30 & "-" & som31 & "-" & som32 & " / " & som33 & "-" & som34 & "-" & som35 & "-" & som36 & " / " & som37 & "-" & som38 & "-" & som39 & "-" & som40 & " / " & som41 & "-" & som42 & "-" & som43 & "-" & som44 & " / " & som45 & "-" & som46 & "-" & som47 & "-" & som48 & " / " & som49 & "-" & som50 & "-" & som51 & "-" & som52 & " / " & som53 & "-" & som54 & "-" & som55 & "-" & som56
        End If
        If pos = 4 And num = 15 Then
            som1 = Fuori90(num1 + Estratto(idEstr,r,pos1))
            som2 = Fuori90(num1 + Estratto(idEstr,r,pos2))
            som3 = Fuori90(num1 + Estratto(idEstr,r,pos3))
            som4 = Fuori90(num1 + Estratto(idEstr,r,pos4))
            som5 = Fuori90(num2 + Estratto(idEstr,r,pos1))
            som6 = Fuori90(num2 + Estratto(idEstr,r,pos2))
            som7 = Fuori90(num2 + Estratto(idEstr,r,pos3))
            som8 = Fuori90(num2 + Estratto(idEstr,r,pos4))
            som9 = Fuori90(num3 + Estratto(idEstr,r,pos1))
            som10 = Fuori90(num3 + Estratto(idEstr,r,pos2))
            som11 = Fuori90(num3 + Estratto(idEstr,r,pos3))
            som12 = Fuori90(num3 + Estratto(idEstr,r,pos4))
            som13 = Fuori90(num4 + Estratto(idEstr,r,pos1))
            som14 = Fuori90(num4 + Estratto(idEstr,r,pos2))
            som15 = Fuori90(num4 + Estratto(idEstr,r,pos3))
            som16 = Fuori90(num4 + Estratto(idEstr,r,pos4))
            som17 = Fuori90(num5 + Estratto(idEstr,r,pos1))
            som18 = Fuori90(num5 + Estratto(idEstr,r,pos2))
            som19 = Fuori90(num5 + Estratto(idEstr,r,pos3))
            som20 = Fuori90(num5 + Estratto(idEstr,r,pos4))
            som21 = Fuori90(num6 + Estratto(idEstr,r,pos1))
            som22 = Fuori90(num6 + Estratto(idEstr,r,pos2))
            som23 = Fuori90(num6 + Estratto(idEstr,r,pos3))
            som24 = Fuori90(num6 + Estratto(idEstr,r,pos4))
            som25 = Fuori90(num7 + Estratto(idEstr,r,pos1))
            som26 = Fuori90(num7 + Estratto(idEstr,r,pos2))
            som27 = Fuori90(num7 + Estratto(idEstr,r,pos3))
            som28 = Fuori90(num7 + Estratto(idEstr,r,pos4))
            som29 = Fuori90(num8 + Estratto(idEstr,r,pos1))
            som30 = Fuori90(num8 + Estratto(idEstr,r,pos2))
            som31 = Fuori90(num8 + Estratto(idEstr,r,pos3))
            som32 = Fuori90(num8 + Estratto(idEstr,r,pos4))
            som33 = Fuori90(num9 + Estratto(idEstr,r,pos1))
            som34 = Fuori90(num9 + Estratto(idEstr,r,pos2))
            som35 = Fuori90(num9 + Estratto(idEstr,r,pos3))
            som36 = Fuori90(num9 + Estratto(idEstr,r,pos4))
            som37 = Fuori90(num10 + Estratto(idEstr,r,pos1))
            som38 = Fuori90(num10 + Estratto(idEstr,r,pos2))
            som39 = Fuori90(num10 + Estratto(idEstr,r,pos3))
            som40 = Fuori90(num10 + Estratto(idEstr,r,pos4))
            som41 = Fuori90(num11 + Estratto(idEstr,r,pos1))
            som42 = Fuori90(num11 + Estratto(idEstr,r,pos2))
            som43 = Fuori90(num11 + Estratto(idEstr,r,pos3))
            som44 = Fuori90(num11 + Estratto(idEstr,r,pos4))
            som45 = Fuori90(num12 + Estratto(idEstr,r,pos1))
            som46 = Fuori90(num12 + Estratto(idEstr,r,pos2))
            som47 = Fuori90(num12 + Estratto(idEstr,r,pos3))
            som48 = Fuori90(num12 + Estratto(idEstr,r,pos4))
            som49 = Fuori90(num13 + Estratto(idEstr,r,pos1))
            som50 = Fuori90(num13 + Estratto(idEstr,r,pos2))
            som51 = Fuori90(num13 + Estratto(idEstr,r,pos3))
            som52 = Fuori90(num13 + Estratto(idEstr,r,pos4))
            som53 = Fuori90(num14 + Estratto(idEstr,r,pos1))
            som54 = Fuori90(num14 + Estratto(idEstr,r,pos2))
            som55 = Fuori90(num14 + Estratto(idEstr,r,pos3))
            som56 = Fuori90(num14 + Estratto(idEstr,r,pos4))
            som57 = Fuori90(num15 + Estratto(idEstr,r,pos1))
            som58 = Fuori90(num15 + Estratto(idEstr,r,pos2))
            som59 = Fuori90(num15 + Estratto(idEstr,r,pos3))
            som60 = Fuori90(num15 + Estratto(idEstr,r,pos4))
            Scrivi som1 & "-" & som2 & "-" & som3 & "-" & som4 & " / " & som5 & "-" & som6 & "-" & som7 & "-" & som8 & " / " & som9 & "-" & som10 & "-" & som11 & "-" & som12 & " / " & som13 & "-" & som14 & "-" & som15 & "-" & som16 & " / " & som17 & "-" & som18 & "-" & som19 & "-" & som20 & " / " & som21 & "-" & som22 & "-" & som23 & "-" & som24 & " / " & som25 & "-" & som26 & "-" & som27 & "-" & som28
            Scrivi som29 & "-" & som30 & "-" & som31 & "-" & som32 & " / " & som33 & "-" & som34 & "-" & som35 & "-" & som36 & " / " & som37 & "-" & som38 & "-" & som39 & "-" & som40 & " / " & som41 & "-" & som42 & "-" & som43 & "-" & som44 & " / " & som45 & "-" & som46 & "-" & som47 & "-" & som48 & " / " & som49 & "-" & som50 & "-" & som51 & "-" & som52 & " / " & som53 & "-" & som54 & "-" & som55 & "-" & som56 & " / " & som57 & "-" & som58 & "-" & som59 & "-" & som60
        End If
        ColoreTesto 0
        Scrivi String(80,"="),1
        If ScriptInterrotto Then Exit For
    Next
    Scrivi String(100,"*")
    ColoreTesto 2
    Scrivi" Casi elaborati : " & co,1
    ColoreTesto 0
    Scrivi String(100," * ")
    TestoInBandaPassante(" LISTATO BY  B A F F O B L U "),1,3,0
End Sub

rosa962 · 23 Aprile 2012

ciao BAFFO ti dicono di fare 10 e fai 100

non finisci mai di accontentare tutti

grazie di nuovo

e non dimenticare di dirci dove giocare la ottina che hai postato

ciaoo

Baffoblu · 23 Aprile 2012

Informazioni dettagliate nei messaggi precedenti........

Xmike58

Advanced Member >PLATINUM PLUS<

Advanced Member >PLATINUM<

Baffoblu

Guest

Advanced Member

Advanced Member

Baffoblu

Guest

Baffoblu

Guest

Advanced Member

Baffoblu

Guest

Advanced Member

Baffoblu

Guest

Baffoblu

Guest

Advanced Member

Baffoblu

Guest

Advanced Member

Baffoblu

Guest

Advanced Member

Baffoblu

Guest

Advanced Member

Baffoblu

Guest