Script biambo

lotto_tom75 · 30 Aprile 2023

Anche io trovo la tua idea di analizzare i biambi ecc.. su ruota unica... molto allettante Rookie

A proposito di analisi pesantine... sapete dirmi qual'è il limite di capienza d'inizializzazione di una matrice vb e anche il limite di operatività della funzione ordinamatrice e ordinamatriceturbo ? Ve lo chiedo perchè superato un certo limite (di 900k righe) non mi fa + l'ordinamento ma l'analisi della matrice funzia... mentre superati i 6mln di righe non fa manco quella e mi da overflow di memoria... anche con la sola inizializzazione della stessa... del tipo matrice (6000000,6) .

ps: Io , per l'opzione extreme di sviluppo che avrei in mente..., avrei bisogno di una "resistenza" di matrice per 14 milioni di righe ca ovvero pari a quante c5 si sviluppano integralmente by gruppo base di classe 72 ( x classe 5 : 13991544 formazioni )

i legend · 30 Aprile 2023

Se non riesci a utilizzare ordin matrice usa la funzione che ha scritto luigi che shifta i risultati ogni tot .

lotto_tom75 · 30 Aprile 2023

i legend ha scritto:
Se non riesci a utilizzare ordin matrice usa la funzione che ha scritto luigi che shifta i risultati ogni tot .

qual'è?

Io però ora mi sto riferendo a spaziometria non a twinbasic

Cinzia27 · 30 Aprile 2023

Putroppo l'elaborazione dei triambi si è interrotta per overflow
Sono stati esaminati n. 2147480000
I triambi ottenuti sono i seguenti
19.22;8.27;9.19
29.74;8.17;57.86
20.81;46.51;32.45

Complessivamente hanno un ritardo storico massimo di 17

Ritardo	Rit.del Rit.	Fre.
17	467	1
16	704	2
15	75	4
14	516	2
13	441	4
12	757	5
11	141	7
10	378	12
9	161	13
8	130	17
7	361	20
6	29	30
5	8	55
4	20	62
3	25	70
2	17	103
1	15	122
0	14	175

i legend · 30 Aprile 2023

lotto_tom75 ha scritto:
qual'è?

Io però ora mi sto riferendo a spaziometria non a twinbasic

Tom la funzione basta trascriverla in vbscript.
È ancora più semplice.

Cinzia27 · 30 Aprile 2023

Nikor ha scritto:
ehehehe , come dicono nei tribunali ( obbiezzione accolta ) teniamo solo presente che le iterazioni anche se rimangono tali devono sfogliare un congruo di estrazioni proibitive ma non impossibili perchè non saremo più di fronte a 2114 estrazioni circa ma a ben più di ( 6.200 ) !...
metto nel da farsi e me lo segno , poi faremo anche quello
Ciao

Ciao, Nikor. Personalmente preferisco i parametri estrazione iniziale 7440, tutte e Nz.
Ma se intendi fare una ricerca su tutte dalla 3950 ed è l'estensione dell'archivio ad allungare i tempi, potresti fissare ad es. ritardo storico<40 per le ultime 1000 estrazioni.
I triambi ottenuti potrebbero essere filtrati poi dalla 3950 all'estrazione finale sempre es. ritardo storico<40.

lotto_tom75 · 30 Aprile 2023

i legend ha scritto:
Tom la funzione basta trascriverla in vbscript.
È ancora più semplice.

Adesso c'ho capito ancora meno...

edesimone · 30 Aprile 2023

Cinzia27 ha scritto:
Putroppo l'elaborazione dei triambi si è interrotta per overflow
Sono stati esaminati n. 2147480000
I triambi ottenuti sono i seguenti
19.22;8.27;9.19
29.74;8.17;57.86
20.81;46.51;32.45

Complessivamente hanno un ritardo storico massimo di 17

Ritardo
Rit.del Rit.
Fre.
17
467
1
16
704
2
15
75
4
14
516
2
13
441
4
12
757
5
11
141
7
10
378
12
9
161
13
8
130
17
7
361
20
6
29
30
5
8
55
4
20
62
3
25
70
2
17
103
1
15
122
0
14
175

Cinzia27 stesso errore

Cinzia27 · 30 Aprile 2023

Già.
Comunque sono contenta che abbiamo portato a termine i biambi.
Era quello l'obiettivo.

edesimone · 30 Aprile 2023

Cinzia27 i biambi 82 come li controlli con uno script? se puoi metterlo.
Grazie

Cinzia27 · 30 Aprile 2023

Ecco, Edesimone.

Codice:

Option Explicit

Sub Main
Dim ru(11),fr,fr1,fre,fre1,frre,us,us1,usc,cc
Dim r1,r2,r3,r4,r5,r6,r7,r8,r9,r10,r11
Dim n(2),n1(2)
Dim es,m,i,j,i1,j1,frr,rt,rt1

r1 = 1:r2 = 2:r3 = 3:r4 = 4:r5 = 5:r6 = 6:r7 = 7:r8 = 8:r9 = 9:r10 = 10:r11 = 12
ru(1) = r1:ru(2) = r2:ru(3) = r3:ru(4) = r4:ru(5) = r5:ru(6) = r6:ru(7) = r7:ru(8) = r8:ru(9) = r9:ru(10) = r10:ru(11) = r11
Scrivi " RITARDI ATTUALI DEGLI 82 BIAMBI AVENTI MASSIMO STORICO TRA 44  E 49 - Cinzia27 "
Scrivi " Impostato all'estrazionefin-1 per visualizzare i biambi sortiti"
Scrivi
For es = EstrazioneFin - 60 To EstrazioneFin - 1

 i = 1 : j = 5 : i1 = 51 : j1 = 81
 n(1) = i:n(2) = j:n1(1) = i1:n1(2) = j1
 fr = SerieFreqTurbo(es,es,n,ru,2)
 fr1 = SerieFreqTurbo(es,es,n1,ru,2)
 frr = fr + fr1
 If frr > 0 Then
 fre = SerieFreqTurbo(es + 1,EstrazioneFin - 1,n,ru,2)
 fre1 = SerieFreqTurbo(es + 1,EstrazioneFin - 1,n1,ru,2)
 frre = fre + fre1
 If frre = 0 Then
 rt = SerieRitardoTurbo(es - 800,EstrazioneFin - 1,n,ru,2)
 rt1 = SerieRitardoTurbo(es - 800,EstrazioneFin - 1,n1,ru,2)
 m = Minimo(rt,rt1)
 Scrivi FormatSpace(es,4,1) & " " & StringaNumeri(n) & ";" & StringaNumeri(n1) & " at  " & FormatSpace(m,4,1) & " ",0,0
 us = SerieFreqTurbo(EstrazioneFin,EstrazioneFin,n1,ru,2)
us1 = SerieFreqTurbo(EstrazioneFin,EstrazioneFin,n1,ru,2)
usc = us + us1
If usc > 0 Then cc = cc + 1:ColoreTesto 2: Scrivi " sortito" Else Scrivi
ColoreTesto 0
End If
End If

 
 i = 0:j = 0:i1 = 0:j1 = 0:fr = 0:fr1 = 0:frr = 0:rt = 0:rt1 = 0:m = 0
  i = 1 : j = 9 : i1 = 6 : j1 = 89
 n(1) = i:n(2) = j:n1(1) = i1:n1(2) = j1
 fr = SerieFreqTurbo(es,es,n,ru,2)
 fr1 = SerieFreqTurbo(es,es,n1,ru,2)
 frr = fr + fr1
 If frr > 0 Then
 fre = SerieFreqTurbo(es + 1,EstrazioneFin - 1,n,ru,2)
 fre1 = SerieFreqTurbo(es + 1,EstrazioneFin - 1,n1,ru,2)
 frre = fre + fre1
 If frre = 0 Then
 rt = SerieRitardoTurbo(es - 800,EstrazioneFin - 1,n,ru,2)
 rt1 = SerieRitardoTurbo(es - 800,EstrazioneFin - 1,n1,ru,2)
 m = Minimo(rt,rt1)
 Scrivi FormatSpace(es,4,1) & " " & StringaNumeri(n) & ";" & StringaNumeri(n1) & " at  " & FormatSpace(m,4,1) & " ",0,0
 us = SerieFreqTurbo(EstrazioneFin,EstrazioneFin,n1,ru,2)
us1 = SerieFreqTurbo(EstrazioneFin,EstrazioneFin,n1,ru,2)
usc = us + us1
If usc > 0 Then cc = cc + 1:ColoreTesto 2: Scrivi " sortito" Else Scrivi
ColoreTesto 0
End If
End If

  i = 0:j = 0:i1 = 0:j1 = 0:fr = 0:fr1 = 0:frr = 0:rt = 0:rt1 = 0:m = 0
  i = 1 : j = 22 : i1 = 31 : j1 = 52
 n(1) = i:n(2) = j:n1(1) = i1:n1(2) = j1
  fr = SerieFreqTurbo(es,es,n,ru,2)
 fr1 = SerieFreqTurbo(es,es,n1,ru,2)
 frr = fr + fr1
 If frr > 0 Then
 fre = SerieFreqTurbo(es + 1,EstrazioneFin - 1,n,ru,2)
 fre1 = SerieFreqTurbo(es + 1,EstrazioneFin - 1,n1,ru,2)
 frre = fre + fre1
 If frre = 0 Then
 rt = SerieRitardoTurbo(es - 800,EstrazioneFin - 1,n,ru,2)
 rt1 = SerieRitardoTurbo(es - 800,EstrazioneFin - 1,n1,ru,2)
 m = Minimo(rt,rt1)
 Scrivi FormatSpace(es,4,1) & " " & StringaNumeri(n) & ";" & StringaNumeri(n1) & " at  " & FormatSpace(m,4,1) & " ",0,0
 us = SerieFreqTurbo(EstrazioneFin,EstrazioneFin,n1,ru,2)
us1 = SerieFreqTurbo(EstrazioneFin,EstrazioneFin,n1,ru,2)
usc = us + us1
If usc > 0 Then cc = cc + 1:ColoreTesto 2: Scrivi " sortito" Else Scrivi
ColoreTesto 0
End If
End If

  i = 0:j = 0:i1 = 0:j1 = 0:fr = 0:fr1 = 0:frr = 0:rt = 0:rt1 = 0:m = 0
  i = 1 : j = 22 : i1 = 45 : j1 = 74
 n(1) = i:n(2) = j:n1(1) = i1:n1(2) = j1
 fr = SerieFreqTurbo(es,es,n,ru,2)
 fr1 = SerieFreqTurbo(es,es,n1,ru,2)
 frr = fr + fr1
 If frr > 0 Then
 fre = SerieFreqTurbo(es + 1,EstrazioneFin - 1,n,ru,2)
 fre1 = SerieFreqTurbo(es + 1,EstrazioneFin - 1,n1,ru,2)
 frre = fre + fre1
 If frre = 0 Then
 rt = SerieRitardoTurbo(es - 800,EstrazioneFin - 1,n,ru,2)
 rt1 = SerieRitardoTurbo(es - 800,EstrazioneFin - 1,n1,ru,2)
 m = Minimo(rt,rt1)
 Scrivi FormatSpace(es,4,1) & " " & StringaNumeri(n) & ";" & StringaNumeri(n1) & " at  " & FormatSpace(m,4,1) & " ",0,0
 us = SerieFreqTurbo(EstrazioneFin,EstrazioneFin,n1,ru,2)
us1 = SerieFreqTurbo(EstrazioneFin,EstrazioneFin,n1,ru,2)
usc = us + us1
If usc > 0 Then cc = cc + 1:ColoreTesto 2: Scrivi " sortito" Else Scrivi
ColoreTesto 0
End If
End If

  i = 0:j = 0:i1 = 0:j1 = 0:fr = 0:fr1 = 0:frr = 0:rt = 0:rt1 = 0:m = 0
  i = 1 : j = 22 : i1 = 47 : j1 = 55
 n(1) = i:n(2) = j:n1(1) = i1:n1(2) = j1
  fr = SerieFreqTurbo(es,es,n,ru,2)
 fr1 = SerieFreqTurbo(es,es,n1,ru,2)
 frr = fr + fr1
 If frr > 0 Then
 fre = SerieFreqTurbo(es + 1,EstrazioneFin - 1,n,ru,2)
 fre1 = SerieFreqTurbo(es + 1,EstrazioneFin - 1,n1,ru,2)
 frre = fre + fre1
 If frre = 0 Then
 rt = SerieRitardoTurbo(es - 800,EstrazioneFin - 1,n,ru,2)
 rt1 = SerieRitardoTurbo(es - 800,EstrazioneFin - 1,n1,ru,2)
 m = Minimo(rt,rt1)
 Scrivi FormatSpace(es,4,1) & " " & StringaNumeri(n) & ";" & StringaNumeri(n1) & " at  " & FormatSpace(m,4,1) & " ",0,0
 us = SerieFreqTurbo(EstrazioneFin,EstrazioneFin,n1,ru,2)
us1 = SerieFreqTurbo(EstrazioneFin,EstrazioneFin,n1,ru,2)
usc = us + us1
If usc > 0 Then cc = cc + 1:ColoreTesto 2: Scrivi " sortito" Else Scrivi
ColoreTesto 0
End If
End If

  i = 0:j = 0:i1 = 0:j1 = 0:fr = 0:fr1 = 0:frr = 0:rt = 0:rt1 = 0:m = 0
  i = 1 : j = 22 : i1 = 64 : j1 = 74
 n(1) = i:n(2) = j:n1(1) = i1:n1(2) = j1
  fr = SerieFreqTurbo(es,es,n,ru,2)
 fr1 = SerieFreqTurbo(es,es,n1,ru,2)
 frr = fr + fr1
 If frr > 0 Then
 fre = SerieFreqTurbo(es + 1,EstrazioneFin - 1,n,ru,2)
 fre1 = SerieFreqTurbo(es + 1,EstrazioneFin - 1,n1,ru,2)
 frre = fre + fre1
 If frre = 0 Then
 rt = SerieRitardoTurbo(es - 800,EstrazioneFin - 1,n,ru,2)
 rt1 = SerieRitardoTurbo(es - 800,EstrazioneFin - 1,n1,ru,2)
 m = Minimo(rt,rt1)
 Scrivi FormatSpace(es,4,1) & " " & StringaNumeri(n) & ";" & StringaNumeri(n1) & " at  " & FormatSpace(m,4,1) & " ",0,0
 us = SerieFreqTurbo(EstrazioneFin,EstrazioneFin,n1,ru,2)
us1 = SerieFreqTurbo(EstrazioneFin,EstrazioneFin,n1,ru,2)
usc = us + us1
If usc > 0 Then cc = cc + 1:ColoreTesto 2: Scrivi " sortito" Else Scrivi
ColoreTesto 0
End If
End If

  i = 0:j = 0:i1 = 0:j1 = 0:fr = 0:fr1 = 0:frr = 0:rt = 0:rt1 = 0:m = 0
  i = 2 : j = 8 : i1 = 8 : j1 = 42
 n(1) = i:n(2) = j:n1(1) = i1:n1(2) = j1
  fr = SerieFreqTurbo(es,es,n,ru,2)
 fr1 = SerieFreqTurbo(es,es,n1,ru,2)
 frr = fr + fr1
 If frr > 0 Then
 fre = SerieFreqTurbo(es + 1,EstrazioneFin - 1,n,ru,2)
 fre1 = SerieFreqTurbo(es + 1,EstrazioneFin - 1,n1,ru,2)
 frre = fre + fre1
 If frre = 0 Then
 rt = SerieRitardoTurbo(es - 800,EstrazioneFin - 1,n,ru,2)
 rt1 = SerieRitardoTurbo(es - 800,EstrazioneFin - 1,n1,ru,2)
 m = Minimo(rt,rt1)
 Scrivi FormatSpace(es,4,1) & " " & StringaNumeri(n) & ";" & StringaNumeri(n1) & " at  " & FormatSpace(m,4,1) & " ",0,0
 us = SerieFreqTurbo(EstrazioneFin,EstrazioneFin,n1,ru,2)
us1 = SerieFreqTurbo(EstrazioneFin,EstrazioneFin,n1,ru,2)
usc = us + us1
If usc > 0 Then cc = cc + 1:ColoreTesto 2: Scrivi " sortito" Else Scrivi
ColoreTesto 0
End If
End If


  i = 0:j = 0:i1 = 0:j1 = 0:fr = 0:fr1 = 0:frr = 0:rt = 0:rt1 = 0:m = 0
  i = 3 : j = 69 : i1 = 31 : j1 = 67
 n(1) = i:n(2) = j:n1(1) = i1:n1(2) = j1
  fr = SerieFreqTurbo(es,es,n,ru,2)
 fr1 = SerieFreqTurbo(es,es,n1,ru,2)
 frr = fr + fr1
 If frr > 0 Then
 fre = SerieFreqTurbo(es + 1,EstrazioneFin - 1,n,ru,2)
 fre1 = SerieFreqTurbo(es + 1,EstrazioneFin - 1,n1,ru,2)
 frre = fre + fre1
 If frre = 0 Then
 rt = SerieRitardoTurbo(es - 800,EstrazioneFin - 1,n,ru,2)
 rt1 = SerieRitardoTurbo(es - 800,EstrazioneFin - 1,n1,ru,2)
 m = Minimo(rt,rt1)
 Scrivi FormatSpace(es,4,1) & " " & StringaNumeri(n) & ";" & StringaNumeri(n1) & " at  " & FormatSpace(m,4,1) & " ",0,0
 us = SerieFreqTurbo(EstrazioneFin,EstrazioneFin,n1,ru,2)
us1 = SerieFreqTurbo(EstrazioneFin,EstrazioneFin,n1,ru,2)
usc = us + us1
If usc > 0 Then cc = cc + 1:ColoreTesto 2: Scrivi " sortito" Else Scrivi
ColoreTesto 0
End If
End If

  i = 0:j = 0:i1 = 0:j1 = 0:fr = 0:fr1 = 0:frr = 0:rt = 0:rt1 = 0:m = 0
  i = 4 : j = 46 : i1 = 6: j1 = 89
 n(1) = i:n(2) = j:n1(1) = i1:n1(2) = j1
  fr = SerieFreqTurbo(es,es,n,ru,2)
 fr1 = SerieFreqTurbo(es,es,n1,ru,2)
 frr = fr + fr1
 If frr > 0 Then
 fre = SerieFreqTurbo(es + 1,EstrazioneFin - 1,n,ru,2)
 fre1 = SerieFreqTurbo(es + 1,EstrazioneFin - 1,n1,ru,2)
 frre = fre + fre1
 If frre = 0 Then
 rt = SerieRitardoTurbo(es - 800,EstrazioneFin - 1,n,ru,2)
 rt1 = SerieRitardoTurbo(es - 800,EstrazioneFin - 1,n1,ru,2)
 m = Minimo(rt,rt1)
 Scrivi FormatSpace(es,4,1) & " " & StringaNumeri(n) & ";" & StringaNumeri(n1) & " at  " & FormatSpace(m,4,1) & " ",0,0
 us = SerieFreqTurbo(EstrazioneFin,EstrazioneFin,n1,ru,2)
us1 = SerieFreqTurbo(EstrazioneFin,EstrazioneFin,n1,ru,2)
usc = us + us1
If usc > 0 Then cc = cc + 1:ColoreTesto 2: Scrivi " sortito" Else Scrivi
ColoreTesto 0
End If
End If

  i = 0:j = 0:i1 = 0:j1 = 0:fr = 0:fr1 = 0:frr = 0:rt = 0:rt1 = 0:m = 0
  i = 4 : j = 51 : i1 = 6: j1 = 89
 n(1) = i:n(2) = j:n1(1) = i1:n1(2) = j1
 fr = SerieFreqTurbo(es,es,n,ru,2)
 fr1 = SerieFreqTurbo(es,es,n1,ru,2)
 frr = fr + fr1
 If frr > 0 Then
 fre = SerieFreqTurbo(es + 1,EstrazioneFin - 1,n,ru,2)
 fre1 = SerieFreqTurbo(es + 1,EstrazioneFin - 1,n1,ru,2)
 frre = fre + fre1
 If frre = 0 Then
 rt = SerieRitardoTurbo(es - 800,EstrazioneFin - 1,n,ru,2)
 rt1 = SerieRitardoTurbo(es - 800,EstrazioneFin - 1,n1,ru,2)
 m = Minimo(rt,rt1)
 Scrivi FormatSpace(es,4,1) & " " & StringaNumeri(n) & ";" & StringaNumeri(n1) & " at  " & FormatSpace(m,4,1) & " ",0,0
 us = SerieFreqTurbo(EstrazioneFin,EstrazioneFin,n1,ru,2)
us1 = SerieFreqTurbo(EstrazioneFin,EstrazioneFin,n1,ru,2)
usc = us + us1
If usc > 0 Then cc = cc + 1:ColoreTesto 2: Scrivi " sortito" Else Scrivi
ColoreTesto 0
End If
End If

  i = 0:j = 0:i1 = 0:j1 = 0:fr = 0:fr1 = 0:frr = 0:rt = 0:rt1 = 0:m = 0
  i = 4 : j = 51 : i1 = 22 : j1 = 30
 n(1) = i:n(2) = j:n1(1) = i1:n1(2) = j1
 fr = SerieFreqTurbo(es,es,n,ru,2)
 fr1 = SerieFreqTurbo(es,es,n1,ru,2)
 frr = fr + fr1
 If frr > 0 Then
 fre = SerieFreqTurbo(es + 1,EstrazioneFin - 1,n,ru,2)
 fre1 = SerieFreqTurbo(es + 1,EstrazioneFin - 1,n1,ru,2)
 frre = fre + fre1
 If frre = 0 Then
 rt = SerieRitardoTurbo(es - 800,EstrazioneFin - 1,n,ru,2)
 rt1 = SerieRitardoTurbo(es - 800,EstrazioneFin - 1,n1,ru,2)
 m = Minimo(rt,rt1)
 Scrivi FormatSpace(es,4,1) & " " & StringaNumeri(n) & ";" & StringaNumeri(n1) & " at  " & FormatSpace(m,4,1) & " ",0,0
 us = SerieFreqTurbo(EstrazioneFin,EstrazioneFin,n1,ru,2)
us1 = SerieFreqTurbo(EstrazioneFin,EstrazioneFin,n1,ru,2)
usc = us + us1
If usc > 0 Then cc = cc + 1:ColoreTesto 2: Scrivi " sortito" Else Scrivi
ColoreTesto 0
End If
End If

  i = 0:j = 0:i1 = 0:j1 = 0:fr = 0:fr1 = 0:frr = 0:rt = 0:rt1 = 0:m = 0
  i = 4 : j = 51 : i1 = 22 : j1 = 47
 n(1) = i:n(2) = j:n1(1) = i1:n1(2) = j1
 fr = SerieFreqTurbo(es,es,n,ru,2)
 fr1 = SerieFreqTurbo(es,es,n1,ru,2)
 frr = fr + fr1
 If frr > 0 Then
 fre = SerieFreqTurbo(es + 1,EstrazioneFin - 1,n,ru,2)
 fre1 = SerieFreqTurbo(es + 1,EstrazioneFin - 1,n1,ru,2)
 frre = fre + fre1
 If frre = 0 Then
 rt = SerieRitardoTurbo(es - 800,EstrazioneFin - 1,n,ru,2)
 rt1 = SerieRitardoTurbo(es - 800,EstrazioneFin - 1,n1,ru,2)
 m = Minimo(rt,rt1)
 Scrivi FormatSpace(es,4,1) & " " & StringaNumeri(n) & ";" & StringaNumeri(n1) & " at  " & FormatSpace(m,4,1) & " ",0,0
 us = SerieFreqTurbo(EstrazioneFin,EstrazioneFin,n1,ru,2)
us1 = SerieFreqTurbo(EstrazioneFin,EstrazioneFin,n1,ru,2)
usc = us + us1
If usc > 0 Then cc = cc + 1:ColoreTesto 2: Scrivi " sortito" Else Scrivi
ColoreTesto 0
End If
End If

  i = 0:j = 0:i1 = 0:j1 = 0:fr = 0:fr1 = 0:frr = 0:rt = 0:rt1 = 0:m = 0
  i = 4 : j = 61 : i1 = 6 : j1 = 89
 n(1) = i:n(2) = j:n1(1) = i1:n1(2) = j1
 fr = SerieFreqTurbo(es,es,n,ru,2)
 fr1 = SerieFreqTurbo(es,es,n1,ru,2)
 frr = fr + fr1
 If frr > 0 Then
 fre = SerieFreqTurbo(es + 1,EstrazioneFin - 1,n,ru,2)
 fre1 = SerieFreqTurbo(es + 1,EstrazioneFin - 1,n1,ru,2)
 frre = fre + fre1
 If frre = 0 Then
 rt = SerieRitardoTurbo(es - 800,EstrazioneFin - 1,n,ru,2)
 rt1 = SerieRitardoTurbo(es - 800,EstrazioneFin - 1,n1,ru,2)
 m = Minimo(rt,rt1)
 Scrivi FormatSpace(es,4,1) & " " & StringaNumeri(n) & ";" & StringaNumeri(n1) & " at  " & FormatSpace(m,4,1) & " ",0,0
 us = SerieFreqTurbo(EstrazioneFin,EstrazioneFin,n1,ru,2)
us1 = SerieFreqTurbo(EstrazioneFin,EstrazioneFin,n1,ru,2)
usc = us + us1
If usc > 0 Then cc = cc + 1:ColoreTesto 2: Scrivi " sortito" Else Scrivi
ColoreTesto 0
End If
End If

  i = 0:j = 0:i1 = 0:j1 = 0:fr = 0:fr1 = 0:frr = 0:rt = 0:rt1 = 0:m = 0
  i = 6: j = 17 : i1 = 8 : j1 = 61
 n(1) = i:n(2) = j:n1(1) = i1:n1(2) = j1
 fr = SerieFreqTurbo(es,es,n,ru,2)
 fr1 = SerieFreqTurbo(es,es,n1,ru,2)
 frr = fr + fr1
 If frr > 0 Then
 fre = SerieFreqTurbo(es + 1,EstrazioneFin - 1,n,ru,2)
 fre1 = SerieFreqTurbo(es + 1,EstrazioneFin - 1,n1,ru,2)
 frre = fre + fre1
 If frre = 0 Then
 rt = SerieRitardoTurbo(es - 800,EstrazioneFin - 1,n,ru,2)
 rt1 = SerieRitardoTurbo(es - 800,EstrazioneFin - 1,n1,ru,2)
 m = Minimo(rt,rt1)
 Scrivi FormatSpace(es,4,1) & " " & StringaNumeri(n) & ";" & StringaNumeri(n1) & " at  " & FormatSpace(m,4,1) & " ",0,0
 us = SerieFreqTurbo(EstrazioneFin,EstrazioneFin,n1,ru,2)
us1 = SerieFreqTurbo(EstrazioneFin,EstrazioneFin,n1,ru,2)
usc = us + us1
If usc > 0 Then cc = cc + 1:ColoreTesto 2: Scrivi " sortito" Else Scrivi
ColoreTesto 0
End If
End If

  i = 0:j = 0:i1 = 0:j1 = 0:fr = 0:fr1 = 0:frr = 0:rt = 0:rt1 = 0:m = 0
  i = 6: j = 30 : i1 = 63 : j1 = 80
 n(1) = i:n(2) = j:n1(1) = i1:n1(2) = j1
 fr = SerieFreqTurbo(es,es,n,ru,2)
 fr1 = SerieFreqTurbo(es,es,n1,ru,2)
 frr = fr + fr1
 If frr > 0 Then
 fre = SerieFreqTurbo(es + 1,EstrazioneFin - 1,n,ru,2)
 fre1 = SerieFreqTurbo(es + 1,EstrazioneFin - 1,n1,ru,2)
 frre = fre + fre1
 If frre = 0 Then
 rt = SerieRitardoTurbo(es - 800,EstrazioneFin - 1,n,ru,2)
 rt1 = SerieRitardoTurbo(es - 800,EstrazioneFin - 1,n1,ru,2)
 m = Minimo(rt,rt1)
 Scrivi FormatSpace(es,4,1) & " " & StringaNumeri(n) & ";" & StringaNumeri(n1) & " at  " & FormatSpace(m,4,1) & " ",0,0
 us = SerieFreqTurbo(EstrazioneFin,EstrazioneFin,n1,ru,2)
us1 = SerieFreqTurbo(EstrazioneFin,EstrazioneFin,n1,ru,2)
usc = us + us1
If usc > 0 Then cc = cc + 1:ColoreTesto 2: Scrivi " sortito" Else Scrivi
ColoreTesto 0
End If
End If

  i = 0:j = 0:i1 = 0:j1 = 0:fr = 0:fr1 = 0:frr = 0:rt = 0:rt1 = 0:m = 0
  i = 6: j = 57 : i1 = 26 : j1 = 30
 n(1) = i:n(2) = j:n1(1) = i1:n1(2) = j1
 fr = SerieFreqTurbo(es,es,n,ru,2)
 fr1 = SerieFreqTurbo(es,es,n1,ru,2)
 frr = fr + fr1
 If frr > 0 Then
 fre = SerieFreqTurbo(es + 1,EstrazioneFin - 1,n,ru,2)
 fre1 = SerieFreqTurbo(es + 1,EstrazioneFin - 1,n1,ru,2)
 frre = fre + fre1
 If frre = 0 Then
 rt = SerieRitardoTurbo(es - 800,EstrazioneFin - 1,n,ru,2)
 rt1 = SerieRitardoTurbo(es - 800,EstrazioneFin - 1,n1,ru,2)
 m = Minimo(rt,rt1)
 Scrivi FormatSpace(es,4,1) & " " & StringaNumeri(n) & ";" & StringaNumeri(n1) & " at  " & FormatSpace(m,4,1) & " ",0,0
 us = SerieFreqTurbo(EstrazioneFin,EstrazioneFin,n1,ru,2)
us1 = SerieFreqTurbo(EstrazioneFin,EstrazioneFin,n1,ru,2)
usc = us + us1
If usc > 0 Then cc = cc + 1:ColoreTesto 2: Scrivi " sortito" Else Scrivi
ColoreTesto 0
End If
End If

  i = 0:j = 0:i1 = 0:j1 = 0:fr = 0:fr1 = 0:frr = 0:rt = 0:rt1 = 0:m = 0
  i = 6: j = 77 : i1 = 10 : j1 = 13
 n(1) = i:n(2) = j:n1(1) = i1:n1(2) = j1
 fr = SerieFreqTurbo(es,es,n,ru,2)
 fr1 = SerieFreqTurbo(es,es,n1,ru,2)
 frr = fr + fr1
 If frr > 0 Then
 fre = SerieFreqTurbo(es + 1,EstrazioneFin - 1,n,ru,2)
 fre1 = SerieFreqTurbo(es + 1,EstrazioneFin - 1,n1,ru,2)
 frre = fre + fre1
 If frre = 0 Then
 rt = SerieRitardoTurbo(es - 800,EstrazioneFin - 1,n,ru,2)
 rt1 = SerieRitardoTurbo(es - 800,EstrazioneFin - 1,n1,ru,2)
 m = Minimo(rt,rt1)
 Scrivi FormatSpace(es,4,1) & " " & StringaNumeri(n) & ";" & StringaNumeri(n1) & " at  " & FormatSpace(m,4,1) & " ",0,0
 us = SerieFreqTurbo(EstrazioneFin,EstrazioneFin,n1,ru,2)
us1 = SerieFreqTurbo(EstrazioneFin,EstrazioneFin,n1,ru,2)
usc = us + us1
If usc > 0 Then cc = cc + 1:ColoreTesto 2: Scrivi " sortito" Else Scrivi
ColoreTesto 0
End If
End If

  i = 0:j = 0:i1 = 0:j1 = 0:fr = 0:fr1 = 0:frr = 0:rt = 0:rt1 = 0:m = 0
  i = 6: j = 84 : i1 = 54 : j1 = 65
 n(1) = i:n(2) = j:n1(1) = i1:n1(2) = j1
 fr = SerieFreqTurbo(es,es,n,ru,2)
 fr1 = SerieFreqTurbo(es,es,n1,ru,2)
 frr = fr + fr1
 If frr > 0 Then
 fre = SerieFreqTurbo(es + 1,EstrazioneFin - 1,n,ru,2)
 fre1 = SerieFreqTurbo(es + 1,EstrazioneFin - 1,n1,ru,2)
 frre = fre + fre1
 If frre = 0 Then
 rt = SerieRitardoTurbo(es - 800,EstrazioneFin - 1,n,ru,2)
 rt1 = SerieRitardoTurbo(es - 800,EstrazioneFin - 1,n1,ru,2)
 m = Minimo(rt,rt1)
 Scrivi FormatSpace(es,4,1) & " " & StringaNumeri(n) & ";" & StringaNumeri(n1) & " at  " & FormatSpace(m,4,1) & " ",0,0
 us = SerieFreqTurbo(EstrazioneFin,EstrazioneFin,n1,ru,2)
us1 = SerieFreqTurbo(EstrazioneFin,EstrazioneFin,n1,ru,2)
usc = us + us1
If usc > 0 Then cc = cc + 1:ColoreTesto 2: Scrivi " sortito" Else Scrivi
ColoreTesto 0
End If
End If
 
  i = 0:j = 0:i1 = 0:j1 = 0:fr = 0:fr1 = 0:frr = 0:rt = 0:rt1 = 0:m = 0
  i = 6: j = 89 : i1 = 15 : j1 = 34
 n(1) = i:n(2) = j:n1(1) = i1:n1(2) = j1
 fr = SerieFreqTurbo(es,es,n,ru,2)
 fr1 = SerieFreqTurbo(es,es,n1,ru,2)
 frr = fr + fr1
 If frr > 0 Then
 fre = SerieFreqTurbo(es + 1,EstrazioneFin - 1,n,ru,2)
 fre1 = SerieFreqTurbo(es + 1,EstrazioneFin - 1,n1,ru,2)
 frre = fre + fre1
 If frre = 0 Then
 rt = SerieRitardoTurbo(es - 800,EstrazioneFin - 1,n,ru,2)
 rt1 = SerieRitardoTurbo(es - 800,EstrazioneFin - 1,n1,ru,2)
 m = Minimo(rt,rt1)
 Scrivi FormatSpace(es,4,1) & " " & StringaNumeri(n) & ";" & StringaNumeri(n1) & " at  " & FormatSpace(m,4,1) & " ",0,0
 us = SerieFreqTurbo(EstrazioneFin,EstrazioneFin,n1,ru,2)
us1 = SerieFreqTurbo(EstrazioneFin,EstrazioneFin,n1,ru,2)
usc = us + us1
If usc > 0 Then cc = cc + 1:ColoreTesto 2: Scrivi " sortito" Else Scrivi
ColoreTesto 0
End If
End If

  i = 0:j = 0:i1 = 0:j1 = 0:fr = 0:fr1 = 0:frr = 0:rt = 0:rt1 = 0:m = 0
  i = 6: j = 89 : i1 = 27 : j1 = 66
 n(1) = i:n(2) = j:n1(1) = i1:n1(2) = j1
 fr = SerieFreqTurbo(es,es,n,ru,2)
 fr1 = SerieFreqTurbo(es,es,n1,ru,2)
 frr = fr + fr1
 If frr > 0 Then
 fre = SerieFreqTurbo(es + 1,EstrazioneFin - 1,n,ru,2)
 fre1 = SerieFreqTurbo(es + 1,EstrazioneFin - 1,n1,ru,2)
 frre = fre + fre1
 If frre = 0 Then
 rt = SerieRitardoTurbo(es - 800,EstrazioneFin - 1,n,ru,2)
 rt1 = SerieRitardoTurbo(es - 800,EstrazioneFin - 1,n1,ru,2)
 m = Minimo(rt,rt1)
 Scrivi FormatSpace(es,4,1) & " " & StringaNumeri(n) & ";" & StringaNumeri(n1) & " at  " & FormatSpace(m,4,1) & " ",0,0
 us = SerieFreqTurbo(EstrazioneFin,EstrazioneFin,n1,ru,2)
us1 = SerieFreqTurbo(EstrazioneFin,EstrazioneFin,n1,ru,2)
usc = us + us1
If usc > 0 Then cc = cc + 1:ColoreTesto 2: Scrivi " sortito" Else Scrivi
ColoreTesto 0
End If
End If

  i = 0:j = 0:i1 = 0:j1 = 0:fr = 0:fr1 = 0:frr = 0:rt = 0:rt1 = 0:m = 0
  i = 6: j = 89 : i1 = 33 : j1 = 36
 n(1) = i:n(2) = j:n1(1) = i1:n1(2) = j1
 fr = SerieFreqTurbo(es,es,n,ru,2)
 fr1 = SerieFreqTurbo(es,es,n1,ru,2)
 frr = fr + fr1
 If frr > 0 Then
 fre = SerieFreqTurbo(es + 1,EstrazioneFin - 1,n,ru,2)
 fre1 = SerieFreqTurbo(es + 1,EstrazioneFin - 1,n1,ru,2)
 frre = fre + fre1
 If frre = 0 Then
 rt = SerieRitardoTurbo(es - 800,EstrazioneFin - 1,n,ru,2)
 rt1 = SerieRitardoTurbo(es - 800,EstrazioneFin - 1,n1,ru,2)
 m = Minimo(rt,rt1)
 Scrivi FormatSpace(es,4,1) & " " & StringaNumeri(n) & ";" & StringaNumeri(n1) & " at  " & FormatSpace(m,4,1) & " ",0,0
 us = SerieFreqTurbo(EstrazioneFin,EstrazioneFin,n1,ru,2)
us1 = SerieFreqTurbo(EstrazioneFin,EstrazioneFin,n1,ru,2)
usc = us + us1
If usc > 0 Then cc = cc + 1:ColoreTesto 2: Scrivi " sortito" Else Scrivi
ColoreTesto 0
End If
End If

  i = 0:j = 0:i1 = 0:j1 = 0:fr = 0:fr1 = 0:frr = 0:rt = 0:rt1 = 0:m = 0
  i = 6: j = 89 : i1 = 36 : j1 = 74
 n(1) = i:n(2) = j:n1(1) = i1:n1(2) = j1
 fr = SerieFreqTurbo(es,es,n,ru,2)
 fr1 = SerieFreqTurbo(es,es,n1,ru,2)
 frr = fr + fr1
 If frr > 0 Then
 fre = SerieFreqTurbo(es + 1,EstrazioneFin - 1,n,ru,2)
 fre1 = SerieFreqTurbo(es + 1,EstrazioneFin - 1,n1,ru,2)
 frre = fre + fre1
 If frre = 0 Then
 rt = SerieRitardoTurbo(es - 800,EstrazioneFin - 1,n,ru,2)
 rt1 = SerieRitardoTurbo(es - 800,EstrazioneFin - 1,n1,ru,2)
 m = Minimo(rt,rt1)
 Scrivi FormatSpace(es,4,1) & " " & StringaNumeri(n) & ";" & StringaNumeri(n1) & " at  " & FormatSpace(m,4,1) & " ",0,0
 us = SerieFreqTurbo(EstrazioneFin,EstrazioneFin,n1,ru,2)
us1 = SerieFreqTurbo(EstrazioneFin,EstrazioneFin,n1,ru,2)
usc = us + us1
If usc > 0 Then cc = cc + 1:ColoreTesto 2: Scrivi " sortito" Else Scrivi
ColoreTesto 0
End If
End If

  i = 0:j = 0:i1 = 0:j1 = 0:fr = 0:fr1 = 0:frr = 0:rt = 0:rt1 = 0:m = 0
  i = 6: j = 89 : i1 = 40 : j1 = 82
 n(1) = i:n(2) = j:n1(1) = i1:n1(2) = j1
 fr = SerieFreqTurbo(es,es,n,ru,2)
 fr1 = SerieFreqTurbo(es,es,n1,ru,2)
 frr = fr + fr1
 If frr > 0 Then
 fre = SerieFreqTurbo(es + 1,EstrazioneFin - 1,n,ru,2)
 fre1 = SerieFreqTurbo(es + 1,EstrazioneFin - 1,n1,ru,2)
 frre = fre + fre1
 If frre = 0 Then
 rt = SerieRitardoTurbo(es - 800,EstrazioneFin - 1,n,ru,2)
 rt1 = SerieRitardoTurbo(es - 800,EstrazioneFin - 1,n1,ru,2)
 m = Minimo(rt,rt1)
 Scrivi FormatSpace(es,4,1) & " " & StringaNumeri(n) & ";" & StringaNumeri(n1) & " at  " & FormatSpace(m,4,1) & " ",0,0
 us = SerieFreqTurbo(EstrazioneFin,EstrazioneFin,n1,ru,2)
us1 = SerieFreqTurbo(EstrazioneFin,EstrazioneFin,n1,ru,2)
usc = us + us1
If usc > 0 Then cc = cc + 1:ColoreTesto 2: Scrivi " sortito" Else Scrivi
ColoreTesto 0
End If
End If

  i = 0:j = 0:i1 = 0:j1 = 0:fr = 0:fr1 = 0:frr = 0:rt = 0:rt1 = 0:m = 0
  i = 7: j = 48 : i1 = 38 : j1 = 61
 n(1) = i:n(2) = j:n1(1) = i1:n1(2) = j1
 fr = SerieFreqTurbo(es,es,n,ru,2)
 fr1 = SerieFreqTurbo(es,es,n1,ru,2)
 frr = fr + fr1
 If frr > 0 Then
 fre = SerieFreqTurbo(es + 1,EstrazioneFin - 1,n,ru,2)
 fre1 = SerieFreqTurbo(es + 1,EstrazioneFin - 1,n1,ru,2)
 frre = fre + fre1
 If frre = 0 Then
 rt = SerieRitardoTurbo(es - 800,EstrazioneFin - 1,n,ru,2)
 rt1 = SerieRitardoTurbo(es - 800,EstrazioneFin - 1,n1,ru,2)
 m = Minimo(rt,rt1)
 Scrivi FormatSpace(es,4,1) & " " & StringaNumeri(n) & ";" & StringaNumeri(n1) & " at  " & FormatSpace(m,4,1) & " ",0,0
 us = SerieFreqTurbo(EstrazioneFin,EstrazioneFin,n1,ru,2)
us1 = SerieFreqTurbo(EstrazioneFin,EstrazioneFin,n1,ru,2)
usc = us + us1
If usc > 0 Then cc = cc + 1:ColoreTesto 2: Scrivi " sortito" Else Scrivi
ColoreTesto 0
End If
End If
 
  i = 0:j = 0:i1 = 0:j1 = 0:fr = 0:fr1 = 0:frr = 0:rt = 0:rt1 = 0:m = 0
  i = 8: j = 18 : i1 = 48 : j1 = 67
 n(1) = i:n(2) = j:n1(1) = i1:n1(2) = j1
 fr = SerieFreqTurbo(es,es,n,ru,2)
 fr1 = SerieFreqTurbo(es,es,n1,ru,2)
 frr = fr + fr1
 If frr > 0 Then
 fre = SerieFreqTurbo(es + 1,EstrazioneFin - 1,n,ru,2)
 fre1 = SerieFreqTurbo(es + 1,EstrazioneFin - 1,n1,ru,2)
 frre = fre + fre1
 If frre = 0 Then
 rt = SerieRitardoTurbo(es - 800,EstrazioneFin - 1,n,ru,2)
 rt1 = SerieRitardoTurbo(es - 800,EstrazioneFin - 1,n1,ru,2)
 m = Minimo(rt,rt1)
 Scrivi FormatSpace(es,4,1) & " " & StringaNumeri(n) & ";" & StringaNumeri(n1) & " at  " & FormatSpace(m,4,1) & " ",0,0
 us = SerieFreqTurbo(EstrazioneFin,EstrazioneFin,n1,ru,2)
us1 = SerieFreqTurbo(EstrazioneFin,EstrazioneFin,n1,ru,2)
usc = us + us1
If usc > 0 Then cc = cc + 1:ColoreTesto 2: Scrivi " sortito" Else Scrivi
ColoreTesto 0
End If
End If
 
  i = 0:j = 0:i1 = 0:j1 = 0:fr = 0:fr1 = 0:frr = 0:rt = 0:rt1 = 0:m = 0
  i = 8: j = 62 : i1 = 9: j1 = 56
 n(1) = i:n(2) = j:n1(1) = i1:n1(2) = j1
 fr = SerieFreqTurbo(es,es,n,ru,2)
 fr1 = SerieFreqTurbo(es,es,n1,ru,2)
 frr = fr + fr1
 If frr > 0 Then
 fre = SerieFreqTurbo(es + 1,EstrazioneFin - 1,n,ru,2)
 fre1 = SerieFreqTurbo(es + 1,EstrazioneFin - 1,n1,ru,2)
 frre = fre + fre1
 If frre = 0 Then
 rt = SerieRitardoTurbo(es - 800,EstrazioneFin - 1,n,ru,2)
 rt1 = SerieRitardoTurbo(es - 800,EstrazioneFin - 1,n1,ru,2)
 m = Minimo(rt,rt1)
 Scrivi FormatSpace(es,4,1) & " " & StringaNumeri(n) & ";" & StringaNumeri(n1) & " at  " & FormatSpace(m,4,1) & " ",0,0
 us = SerieFreqTurbo(EstrazioneFin,EstrazioneFin,n1,ru,2)
us1 = SerieFreqTurbo(EstrazioneFin,EstrazioneFin,n1,ru,2)
usc = us + us1
If usc > 0 Then cc = cc + 1:ColoreTesto 2: Scrivi " sortito" Else Scrivi
ColoreTesto 0
End If
End If

  i = 0:j = 0:i1 = 0:j1 = 0:fr = 0:fr1 = 0:frr = 0:rt = 0:rt1 = 0:m = 0
  i = 8: j = 63 : i1 = 20: j1 = 51
 n(1) = i:n(2) = j:n1(1) = i1:n1(2) = j1
 fr = SerieFreqTurbo(es,es,n,ru,2)
 fr1 = SerieFreqTurbo(es,es,n1,ru,2)
 frr = fr + fr1
 If frr > 0 Then
 fre = SerieFreqTurbo(es + 1,EstrazioneFin - 1,n,ru,2)
 fre1 = SerieFreqTurbo(es + 1,EstrazioneFin - 1,n1,ru,2)
 frre = fre + fre1
 If frre = 0 Then
 rt = SerieRitardoTurbo(es - 800,EstrazioneFin - 1,n,ru,2)
 rt1 = SerieRitardoTurbo(es - 800,EstrazioneFin - 1,n1,ru,2)
 m = Minimo(rt,rt1)
 Scrivi FormatSpace(es,4,1) & " " & StringaNumeri(n) & ";" & StringaNumeri(n1) & " at  " & FormatSpace(m,4,1) & " ",0,0
 us = SerieFreqTurbo(EstrazioneFin,EstrazioneFin,n1,ru,2)
us1 = SerieFreqTurbo(EstrazioneFin,EstrazioneFin,n1,ru,2)
usc = us + us1
If usc > 0 Then cc = cc + 1:ColoreTesto 2: Scrivi " sortito" Else Scrivi
ColoreTesto 0
End If
End If

  i = 0:j = 0:i1 = 0:j1 = 0:fr = 0:fr1 = 0:frr = 0:rt = 0:rt1 = 0:m = 0
  i = 8: j = 85 : i1 = 57: j1 = 80
 n(1) = i:n(2) = j:n1(1) = i1:n1(2) = j1
 fr = SerieFreqTurbo(es,es,n,ru,2)
 fr1 = SerieFreqTurbo(es,es,n1,ru,2)
 frr = fr + fr1
 If frr > 0 Then
 fre = SerieFreqTurbo(es + 1,EstrazioneFin - 1,n,ru,2)
 fre1 = SerieFreqTurbo(es + 1,EstrazioneFin - 1,n1,ru,2)
 frre = fre + fre1
 If frre = 0 Then
 rt = SerieRitardoTurbo(es - 800,EstrazioneFin - 1,n,ru,2)
 rt1 = SerieRitardoTurbo(es - 800,EstrazioneFin - 1,n1,ru,2)
 m = Minimo(rt,rt1)
 Scrivi FormatSpace(es,4,1) & " " & StringaNumeri(n) & ";" & StringaNumeri(n1) & " at  " & FormatSpace(m,4,1) & " ",0,0
 us = SerieFreqTurbo(EstrazioneFin,EstrazioneFin,n1,ru,2)
us1 = SerieFreqTurbo(EstrazioneFin,EstrazioneFin,n1,ru,2)
usc = us + us1
If usc > 0 Then cc = cc + 1:ColoreTesto 2: Scrivi " sortito" Else Scrivi
ColoreTesto 0
End If
End If

  i = 0:j = 0:i1 = 0:j1 = 0:fr = 0:fr1 = 0:frr = 0:rt = 0:rt1 = 0:m = 0
  i = 9: j = 45 : i1 = 75: j1 = 82
 n(1) = i:n(2) = j:n1(1) = i1:n1(2) = j1
 fr = SerieFreqTurbo(es,es,n,ru,2)
 fr1 = SerieFreqTurbo(es,es,n1,ru,2)
 frr = fr + fr1
 If frr > 0 Then
 fre = SerieFreqTurbo(es + 1,EstrazioneFin - 1,n,ru,2)
 fre1 = SerieFreqTurbo(es + 1,EstrazioneFin - 1,n1,ru,2)
 frre = fre + fre1
 If frre = 0 Then
 rt = SerieRitardoTurbo(es - 800,EstrazioneFin - 1,n,ru,2)
 rt1 = SerieRitardoTurbo(es - 800,EstrazioneFin - 1,n1,ru,2)
 m = Minimo(rt,rt1)
 Scrivi FormatSpace(es,4,1) & " " & StringaNumeri(n) & ";" & StringaNumeri(n1) & " at  " & FormatSpace(m,4,1) & " ",0,0
 us = SerieFreqTurbo(EstrazioneFin,EstrazioneFin,n1,ru,2)
us1 = SerieFreqTurbo(EstrazioneFin,EstrazioneFin,n1,ru,2)
usc = us + us1
If usc > 0 Then cc = cc + 1:ColoreTesto 2: Scrivi " sortito" Else Scrivi
ColoreTesto 0
End If
End If

  i = 0:j = 0:i1 = 0:j1 = 0:fr = 0:fr1 = 0:frr = 0:rt = 0:rt1 = 0:m = 0
  i = 10: j = 13 : i1 = 61: j1 = 69
 n(1) = i:n(2) = j:n1(1) = i1:n1(2) = j1
 fr = SerieFreqTurbo(es,es,n,ru,2)
 fr1 = SerieFreqTurbo(es,es,n1,ru,2)
 frr = fr + fr1
 If frr > 0 Then
 fre = SerieFreqTurbo(es + 1,EstrazioneFin - 1,n,ru,2)
 fre1 = SerieFreqTurbo(es + 1,EstrazioneFin - 1,n1,ru,2)
 frre = fre + fre1
 If frre = 0 Then
 rt = SerieRitardoTurbo(es - 800,EstrazioneFin - 1,n,ru,2)
 rt1 = SerieRitardoTurbo(es - 800,EstrazioneFin - 1,n1,ru,2)
 m = Minimo(rt,rt1)
 Scrivi FormatSpace(es,4,1) & " " & StringaNumeri(n) & ";" & StringaNumeri(n1) & " at  " & FormatSpace(m,4,1) & " ",0,0
 us = SerieFreqTurbo(EstrazioneFin,EstrazioneFin,n1,ru,2)
us1 = SerieFreqTurbo(EstrazioneFin,EstrazioneFin,n1,ru,2)
usc = us + us1
If usc > 0 Then cc = cc + 1:ColoreTesto 2: Scrivi " sortito" Else Scrivi
ColoreTesto 0
End If
End If

  i = 0:j = 0:i1 = 0:j1 = 0:fr = 0:fr1 = 0:frr = 0:rt = 0:rt1 = 0:m = 0
  i = 10: j = 13 : i1 = 82: j1 = 86
 n(1) = i:n(2) = j:n1(1) = i1:n1(2) = j1
 fr = SerieFreqTurbo(es,es,n,ru,2)
 fr1 = SerieFreqTurbo(es,es,n1,ru,2)
 frr = fr + fr1
 If frr > 0 Then
 fre = SerieFreqTurbo(es + 1,EstrazioneFin - 1,n,ru,2)
 fre1 = SerieFreqTurbo(es + 1,EstrazioneFin - 1,n1,ru,2)
 frre = fre + fre1
 If frre = 0 Then
 rt = SerieRitardoTurbo(es - 800,EstrazioneFin - 1,n,ru,2)
 rt1 = SerieRitardoTurbo(es - 800,EstrazioneFin - 1,n1,ru,2)
 m = Minimo(rt,rt1)
 Scrivi FormatSpace(es,4,1) & " " & StringaNumeri(n) & ";" & StringaNumeri(n1) & " at  " & FormatSpace(m,4,1) & " ",0,0
 us = SerieFreqTurbo(EstrazioneFin,EstrazioneFin,n1,ru,2)
us1 = SerieFreqTurbo(EstrazioneFin,EstrazioneFin,n1,ru,2)
usc = us + us1
If usc > 0 Then cc = cc + 1:ColoreTesto 2: Scrivi " sortito" Else Scrivi
ColoreTesto 0
End If
End If

  i = 0:j = 0:i1 = 0:j1 = 0:fr = 0:fr1 = 0:frr = 0:rt = 0:rt1 = 0:m = 0
  i = 10: j = 34 : i1 = 75: j1 = 82
 n(1) = i:n(2) = j:n1(1) = i1:n1(2) = j1
 fr = SerieFreqTurbo(es,es,n,ru,2)
 fr1 = SerieFreqTurbo(es,es,n1,ru,2)
 frr = fr + fr1
 If frr > 0 Then
 fre = SerieFreqTurbo(es + 1,EstrazioneFin - 1,n,ru,2)
 fre1 = SerieFreqTurbo(es + 1,EstrazioneFin - 1,n1,ru,2)
 frre = fre + fre1
 If frre = 0 Then
 rt = SerieRitardoTurbo(es - 800,EstrazioneFin - 1,n,ru,2)
 rt1 = SerieRitardoTurbo(es - 800,EstrazioneFin - 1,n1,ru,2)
 m = Minimo(rt,rt1)
 Scrivi FormatSpace(es,4,1) & " " & StringaNumeri(n) & ";" & StringaNumeri(n1) & " at  " & FormatSpace(m,4,1) & " ",0,0
 us = SerieFreqTurbo(EstrazioneFin,EstrazioneFin,n1,ru,2)
us1 = SerieFreqTurbo(EstrazioneFin,EstrazioneFin,n1,ru,2)
usc = us + us1
If usc > 0 Then cc = cc + 1:ColoreTesto 2: Scrivi " sortito" Else Scrivi
ColoreTesto 0
End If
End If

  i = 0:j = 0:i1 = 0:j1 = 0:fr = 0:fr1 = 0:frr = 0:rt = 0:rt1 = 0:m = 0
  i = 10: j = 44 : i1 = 64: j1 = 78
 n(1) = i:n(2) = j:n1(1) = i1:n1(2) = j1
 fr = SerieFreqTurbo(es,es,n,ru,2)
 fr1 = SerieFreqTurbo(es,es,n1,ru,2)
 frr = fr + fr1
 If frr > 0 Then
 fre = SerieFreqTurbo(es + 1,EstrazioneFin - 1,n,ru,2)
 fre1 = SerieFreqTurbo(es + 1,EstrazioneFin - 1,n1,ru,2)
 frre = fre + fre1
 If frre = 0 Then
 rt = SerieRitardoTurbo(es - 800,EstrazioneFin - 1,n,ru,2)
 rt1 = SerieRitardoTurbo(es - 800,EstrazioneFin - 1,n1,ru,2)
 m = Minimo(rt,rt1)
 Scrivi FormatSpace(es,4,1) & " " & StringaNumeri(n) & ";" & StringaNumeri(n1) & " at  " & FormatSpace(m,4,1) & " ",0,0
 us = SerieFreqTurbo(EstrazioneFin,EstrazioneFin,n1,ru,2)
us1 = SerieFreqTurbo(EstrazioneFin,EstrazioneFin,n1,ru,2)
usc = us + us1
If usc > 0 Then cc = cc + 1:ColoreTesto 2: Scrivi " sortito" Else Scrivi
ColoreTesto 0
End If
End If

  i = 0:j = 0:i1 = 0:j1 = 0:fr = 0:fr1 = 0:frr = 0:rt = 0:rt1 = 0:m = 0
  i = 10: j = 70 : i1 = 33: j1 = 36
 n(1) = i:n(2) = j:n1(1) = i1:n1(2) = j1
 fr = SerieFreqTurbo(es,es,n,ru,2)
 fr1 = SerieFreqTurbo(es,es,n1,ru,2)
 frr = fr + fr1
 If frr > 0 Then
 fre = SerieFreqTurbo(es + 1,EstrazioneFin - 1,n,ru,2)
 fre1 = SerieFreqTurbo(es + 1,EstrazioneFin - 1,n1,ru,2)
 frre = fre + fre1
 If frre = 0 Then
 rt = SerieRitardoTurbo(es - 800,EstrazioneFin - 1,n,ru,2)
 rt1 = SerieRitardoTurbo(es - 800,EstrazioneFin - 1,n1,ru,2)
 m = Minimo(rt,rt1)
 Scrivi FormatSpace(es,4,1) & " " & StringaNumeri(n) & ";" & StringaNumeri(n1) & " at  " & FormatSpace(m,4,1) & " ",0,0
 us = SerieFreqTurbo(EstrazioneFin,EstrazioneFin,n1,ru,2)
us1 = SerieFreqTurbo(EstrazioneFin,EstrazioneFin,n1,ru,2)
usc = us + us1
If usc > 0 Then cc = cc + 1:ColoreTesto 2: Scrivi " sortito" Else Scrivi
ColoreTesto 0
End If
End If

  i = 0:j = 0:i1 = 0:j1 = 0:fr = 0:fr1 = 0:frr = 0:rt = 0:rt1 = 0:m = 0
  i = 11: j = 16 : i1 = 32: j1 = 76
 n(1) = i:n(2) = j:n1(1) = i1:n1(2) = j1
 fr = SerieFreqTurbo(es,es,n,ru,2)
 fr1 = SerieFreqTurbo(es,es,n1,ru,2)
 frr = fr + fr1
 If frr > 0 Then
 fre = SerieFreqTurbo(es + 1,EstrazioneFin - 1,n,ru,2)
 fre1 = SerieFreqTurbo(es + 1,EstrazioneFin - 1,n1,ru,2)
 frre = fre + fre1
 If frre = 0 Then
 rt = SerieRitardoTurbo(es - 800,EstrazioneFin - 1,n,ru,2)
 rt1 = SerieRitardoTurbo(es - 800,EstrazioneFin - 1,n1,ru,2)
 m = Minimo(rt,rt1)
 Scrivi FormatSpace(es,4,1) & " " & StringaNumeri(n) & ";" & StringaNumeri(n1) & " at  " & FormatSpace(m,4,1) & " ",0,0
 us = SerieFreqTurbo(EstrazioneFin,EstrazioneFin,n1,ru,2)
us1 = SerieFreqTurbo(EstrazioneFin,EstrazioneFin,n1,ru,2)
usc = us + us1
If usc > 0 Then cc = cc + 1:ColoreTesto 2: Scrivi " sortito" Else Scrivi
ColoreTesto 0
End If
End If

  i = 0:j = 0:i1 = 0:j1 = 0:fr = 0:fr1 = 0:frr = 0:rt = 0:rt1 = 0:m = 0
  i = 11: j = 29 : i1 = 15: j1 = 21
 n(1) = i:n(2) = j:n1(1) = i1:n1(2) = j1
 fr = SerieFreqTurbo(es,es,n,ru,2)
 fr1 = SerieFreqTurbo(es,es,n1,ru,2)
 frr = fr + fr1
 If frr > 0 Then
 fre = SerieFreqTurbo(es + 1,EstrazioneFin - 1,n,ru,2)
 fre1 = SerieFreqTurbo(es + 1,EstrazioneFin - 1,n1,ru,2)
 frre = fre + fre1
 If frre = 0 Then
 rt = SerieRitardoTurbo(es - 800,EstrazioneFin - 1,n,ru,2)
 rt1 = SerieRitardoTurbo(es - 800,EstrazioneFin - 1,n1,ru,2)
 m = Minimo(rt,rt1)
 Scrivi FormatSpace(es,4,1) & " " & StringaNumeri(n) & ";" & StringaNumeri(n1) & " at  " & FormatSpace(m,4,1) & " ",0,0
 us = SerieFreqTurbo(EstrazioneFin,EstrazioneFin,n1,ru,2)
us1 = SerieFreqTurbo(EstrazioneFin,EstrazioneFin,n1,ru,2)
usc = us + us1
If usc > 0 Then cc = cc + 1:ColoreTesto 2: Scrivi " sortito" Else Scrivi
ColoreTesto 0
End If
End If

  i = 0:j = 0:i1 = 0:j1 = 0:fr = 0:fr1 = 0:frr = 0:rt = 0:rt1 = 0:m = 0
  i = 12: j = 49 : i1 = 16: j1 = 51
 n(1) = i:n(2) = j:n1(1) = i1:n1(2) = j1
 fr = SerieFreqTurbo(es,es,n,ru,2)
 fr1 = SerieFreqTurbo(es,es,n1,ru,2)
 frr = fr + fr1
 If frr > 0 Then
 fre = SerieFreqTurbo(es + 1,EstrazioneFin - 1,n,ru,2)
 fre1 = SerieFreqTurbo(es + 1,EstrazioneFin - 1,n1,ru,2)
 frre = fre + fre1
 If frre = 0 Then
 rt = SerieRitardoTurbo(es - 800,EstrazioneFin - 1,n,ru,2)
 rt1 = SerieRitardoTurbo(es - 800,EstrazioneFin - 1,n1,ru,2)
 m = Minimo(rt,rt1)
 Scrivi FormatSpace(es,4,1) & " " & StringaNumeri(n) & ";" & StringaNumeri(n1) & " at  " & FormatSpace(m,4,1) & " ",0,0
 us = SerieFreqTurbo(EstrazioneFin,EstrazioneFin,n1,ru,2)
us1 = SerieFreqTurbo(EstrazioneFin,EstrazioneFin,n1,ru,2)
usc = us + us1
If usc > 0 Then cc = cc + 1:ColoreTesto 2: Scrivi " sortito" Else Scrivi
ColoreTesto 0
End If
End If

  i = 0:j = 0:i1 = 0:j1 = 0:fr = 0:fr1 = 0:frr = 0:rt = 0:rt1 = 0:m = 0
  i = 12: j = 62 : i1 = 22: j1 = 47
 n(1) = i:n(2) = j:n1(1) = i1:n1(2) = j1
 fr = SerieFreqTurbo(es,es,n,ru,2)
 fr1 = SerieFreqTurbo(es,es,n1,ru,2)
 frr = fr + fr1
 If frr > 0 Then
 fre = SerieFreqTurbo(es + 1,EstrazioneFin - 1,n,ru,2)
 fre1 = SerieFreqTurbo(es + 1,EstrazioneFin - 1,n1,ru,2)
 frre = fre + fre1
 If frre = 0 Then
 rt = SerieRitardoTurbo(es - 800,EstrazioneFin - 1,n,ru,2)
 rt1 = SerieRitardoTurbo(es - 800,EstrazioneFin - 1,n1,ru,2)
 m = Minimo(rt,rt1)
 Scrivi FormatSpace(es,4,1) & " " & StringaNumeri(n) & ";" & StringaNumeri(n1) & " at  " & FormatSpace(m,4,1) & " ",0,0
 us = SerieFreqTurbo(EstrazioneFin,EstrazioneFin,n1,ru,2)
us1 = SerieFreqTurbo(EstrazioneFin,EstrazioneFin,n1,ru,2)
usc = us + us1
If usc > 0 Then cc = cc + 1:ColoreTesto 2: Scrivi " sortito" Else Scrivi
ColoreTesto 0
End If
End If

  i = 0:j = 0:i1 = 0:j1 = 0:fr = 0:fr1 = 0:frr = 0:rt = 0:rt1 = 0:m = 0
  i = 13: j = 47 : i1 = 43: j1 = 51
 n(1) = i:n(2) = j:n1(1) = i1:n1(2) = j1
 fr = SerieFreqTurbo(es,es,n,ru,2)
 fr1 = SerieFreqTurbo(es,es,n1,ru,2)
 frr = fr + fr1
 If frr > 0 Then
 fre = SerieFreqTurbo(es + 1,EstrazioneFin - 1,n,ru,2)
 fre1 = SerieFreqTurbo(es + 1,EstrazioneFin - 1,n1,ru,2)
 frre = fre + fre1
 If frre = 0 Then
 rt = SerieRitardoTurbo(es - 800,EstrazioneFin - 1,n,ru,2)
 rt1 = SerieRitardoTurbo(es - 800,EstrazioneFin - 1,n1,ru,2)
 m = Minimo(rt,rt1)
 Scrivi FormatSpace(es,4,1) & " " & StringaNumeri(n) & ";" & StringaNumeri(n1) & " at  " & FormatSpace(m,4,1) & " ",0,0
 us = SerieFreqTurbo(EstrazioneFin,EstrazioneFin,n1,ru,2)
us1 = SerieFreqTurbo(EstrazioneFin,EstrazioneFin,n1,ru,2)
usc = us + us1
If usc > 0 Then cc = cc + 1:ColoreTesto 2: Scrivi " sortito" Else Scrivi
ColoreTesto 0
End If
End If

  i = 0:j = 0:i1 = 0:j1 = 0:fr = 0:fr1 = 0:frr = 0:rt = 0:rt1 = 0:m = 0
  i = 13: j = 47 : i1 = 61: j1 = 69
 n(1) = i:n(2) = j:n1(1) = i1:n1(2) = j1
 fr = SerieFreqTurbo(es,es,n,ru,2)
 fr1 = SerieFreqTurbo(es,es,n1,ru,2)
 frr = fr + fr1
 If frr > 0 Then
 fre = SerieFreqTurbo(es + 1,EstrazioneFin - 1,n,ru,2)
 fre1 = SerieFreqTurbo(es + 1,EstrazioneFin - 1,n1,ru,2)
 frre = fre + fre1
 If frre = 0 Then
 rt = SerieRitardoTurbo(es - 800,EstrazioneFin - 1,n,ru,2)
 rt1 = SerieRitardoTurbo(es - 800,EstrazioneFin - 1,n1,ru,2)
 m = Minimo(rt,rt1)
 Scrivi FormatSpace(es,4,1) & " " & StringaNumeri(n) & ";" & StringaNumeri(n1) & " at  " & FormatSpace(m,4,1) & " ",0,0
 us = SerieFreqTurbo(EstrazioneFin,EstrazioneFin,n1,ru,2)
us1 = SerieFreqTurbo(EstrazioneFin,EstrazioneFin,n1,ru,2)
usc = us + us1
If usc > 0 Then cc = cc + 1:ColoreTesto 2: Scrivi " sortito" Else Scrivi
ColoreTesto 0
End If
End If
  i = 0:j = 0:i1 = 0:j1 = 0:fr = 0:fr1 = 0:frr = 0:rt = 0:rt1 = 0:m = 0
  i = 14: j = 29 : i1 = 75: j1 = 82
 n(1) = i:n(2) = j:n1(1) = i1:n1(2) = j1
 fr = SerieFreqTurbo(es,es,n,ru,2)
 fr1 = SerieFreqTurbo(es,es,n1,ru,2)
 frr = fr + fr1
 If frr > 0 Then
 fre = SerieFreqTurbo(es + 1,EstrazioneFin - 1,n,ru,2)
 fre1 = SerieFreqTurbo(es + 1,EstrazioneFin - 1,n1,ru,2)
 frre = fre + fre1
 If frre = 0 Then
 rt = SerieRitardoTurbo(es - 800,EstrazioneFin - 1,n,ru,2)
 rt1 = SerieRitardoTurbo(es - 800,EstrazioneFin - 1,n1,ru,2)
 m = Minimo(rt,rt1)
 Scrivi FormatSpace(es,4,1) & " " & StringaNumeri(n) & ";" & StringaNumeri(n1) & " at  " & FormatSpace(m,4,1) & " ",0,0
 us = SerieFreqTurbo(EstrazioneFin,EstrazioneFin,n1,ru,2)
us1 = SerieFreqTurbo(EstrazioneFin,EstrazioneFin,n1,ru,2)
usc = us + us1
If usc > 0 Then cc = cc + 1:ColoreTesto 2: Scrivi " sortito" Else Scrivi
ColoreTesto 0
End If
End If

  i = 0:j = 0:i1 = 0:j1 = 0:fr = 0:fr1 = 0:frr = 0:rt = 0:rt1 = 0:m = 0
  i = 14: j = 63 : i1 = 74: j1 = 90
 n(1) = i:n(2) = j:n1(1) = i1:n1(2) = j1
 fr = SerieFreqTurbo(es,es,n,ru,2)
 fr1 = SerieFreqTurbo(es,es,n1,ru,2)
 frr = fr + fr1
 If frr > 0 Then
 fre = SerieFreqTurbo(es + 1,EstrazioneFin - 1,n,ru,2)
 fre1 = SerieFreqTurbo(es + 1,EstrazioneFin - 1,n1,ru,2)
 frre = fre + fre1
 If frre = 0 Then
 rt = SerieRitardoTurbo(es - 800,EstrazioneFin - 1,n,ru,2)
 rt1 = SerieRitardoTurbo(es - 800,EstrazioneFin - 1,n1,ru,2)
 m = Minimo(rt,rt1)
 Scrivi FormatSpace(es,4,1) & " " & StringaNumeri(n) & ";" & StringaNumeri(n1) & " at  " & FormatSpace(m,4,1) & " ",0,0
 us = SerieFreqTurbo(EstrazioneFin,EstrazioneFin,n1,ru,2)
us1 = SerieFreqTurbo(EstrazioneFin,EstrazioneFin,n1,ru,2)
usc = us + us1
If usc > 0 Then cc = cc + 1:ColoreTesto 2: Scrivi " sortito" Else Scrivi
ColoreTesto 0
End If
End If

  i = 0:j = 0:i1 = 0:j1 = 0:fr = 0:fr1 = 0:frr = 0:rt = 0:rt1 = 0:m = 0
  i = 14: j = 85 : i1 = 70: j1 = 80
 n(1) = i:n(2) = j:n1(1) = i1:n1(2) = j1
 fr = SerieFreqTurbo(es,es,n,ru,2)
 fr1 = SerieFreqTurbo(es,es,n1,ru,2)
 frr = fr + fr1
 If frr > 0 Then
 fre = SerieFreqTurbo(es + 1,EstrazioneFin - 1,n,ru,2)
 fre1 = SerieFreqTurbo(es + 1,EstrazioneFin - 1,n1,ru,2)
 frre = fre + fre1
 If frre = 0 Then
 rt = SerieRitardoTurbo(es - 800,EstrazioneFin - 1,n,ru,2)
 rt1 = SerieRitardoTurbo(es - 800,EstrazioneFin - 1,n1,ru,2)
 m = Minimo(rt,rt1)
 Scrivi FormatSpace(es,4,1) & " " & StringaNumeri(n) & ";" & StringaNumeri(n1) & " at  " & FormatSpace(m,4,1) & " ",0,0
 us = SerieFreqTurbo(EstrazioneFin,EstrazioneFin,n1,ru,2)
us1 = SerieFreqTurbo(EstrazioneFin,EstrazioneFin,n1,ru,2)
usc = us + us1
If usc > 0 Then cc = cc + 1:ColoreTesto 2: Scrivi " sortito" Else Scrivi
ColoreTesto 0
End If
End If

  i = 0:j = 0:i1 = 0:j1 = 0:fr = 0:fr1 = 0:frr = 0:rt = 0:rt1 = 0:m = 0
  i = 15: j = 82 : i1 = 37: j1 = 41
 n(1) = i:n(2) = j:n1(1) = i1:n1(2) = j1
 fr = SerieFreqTurbo(es,es,n,ru,2)
 fr1 = SerieFreqTurbo(es,es,n1,ru,2)
 frr = fr + fr1
 If frr > 0 Then
 fre = SerieFreqTurbo(es + 1,EstrazioneFin - 1,n,ru,2)
 fre1 = SerieFreqTurbo(es + 1,EstrazioneFin - 1,n1,ru,2)
 frre = fre + fre1
 If frre = 0 Then
 rt = SerieRitardoTurbo(es - 800,EstrazioneFin - 1,n,ru,2)
 rt1 = SerieRitardoTurbo(es - 800,EstrazioneFin - 1,n1,ru,2)
 m = Minimo(rt,rt1)
 Scrivi FormatSpace(es,4,1) & " " & StringaNumeri(n) & ";" & StringaNumeri(n1) & " at  " & FormatSpace(m,4,1) & " ",0,0
 us = SerieFreqTurbo(EstrazioneFin,EstrazioneFin,n1,ru,2)
us1 = SerieFreqTurbo(EstrazioneFin,EstrazioneFin,n1,ru,2)
usc = us + us1
If usc > 0 Then cc = cc + 1:ColoreTesto 2: Scrivi " sortito" Else Scrivi
ColoreTesto 0
End If
End If

  i = 0:j = 0:i1 = 0:j1 = 0:fr = 0:fr1 = 0:frr = 0:rt = 0:rt1 = 0:m = 0
  i = 16: j = 68 : i1 = 51: j1 = 81
 n(1) = i:n(2) = j:n1(1) = i1:n1(2) = j1
 fr = SerieFreqTurbo(es,es,n,ru,2)
 fr1 = SerieFreqTurbo(es,es,n1,ru,2)
 frr = fr + fr1
 If frr > 0 Then
 fre = SerieFreqTurbo(es + 1,EstrazioneFin - 1,n,ru,2)
 fre1 = SerieFreqTurbo(es + 1,EstrazioneFin - 1,n1,ru,2)
 frre = fre + fre1
 If frre = 0 Then
 rt = SerieRitardoTurbo(es - 800,EstrazioneFin - 1,n,ru,2)
 rt1 = SerieRitardoTurbo(es - 800,EstrazioneFin - 1,n1,ru,2)
 m = Minimo(rt,rt1)
 Scrivi FormatSpace(es,4,1) & " " & StringaNumeri(n) & ";" & StringaNumeri(n1) & " at  " & FormatSpace(m,4,1) & " ",0,0
 us = SerieFreqTurbo(EstrazioneFin,EstrazioneFin,n1,ru,2)
us1 = SerieFreqTurbo(EstrazioneFin,EstrazioneFin,n1,ru,2)
usc = us + us1
If usc > 0 Then cc = cc + 1:ColoreTesto 2: Scrivi " sortito" Else Scrivi
ColoreTesto 0
End If
End If

  i = 0:j = 0:i1 = 0:j1 = 0:fr = 0:fr1 = 0:frr = 0:rt = 0:rt1 = 0:m = 0
  i = 17: j = 22 : i1 = 29: j1 = 34
 n(1) = i:n(2) = j:n1(1) = i1:n1(2) = j1
 fr = SerieFreqTurbo(es,es,n,ru,2)
 fr1 = SerieFreqTurbo(es,es,n1,ru,2)
 frr = fr + fr1
 If frr > 0 Then
 fre = SerieFreqTurbo(es + 1,EstrazioneFin - 1,n,ru,2)
 fre1 = SerieFreqTurbo(es + 1,EstrazioneFin - 1,n1,ru,2)
 frre = fre + fre1
 If frre = 0 Then
 rt = SerieRitardoTurbo(es - 800,EstrazioneFin - 1,n,ru,2)
 rt1 = SerieRitardoTurbo(es - 800,EstrazioneFin - 1,n1,ru,2)
 m = Minimo(rt,rt1)
 Scrivi FormatSpace(es,4,1) & " " & StringaNumeri(n) & ";" & StringaNumeri(n1) & " at  " & FormatSpace(m,4,1) & " ",0,0
 us = SerieFreqTurbo(EstrazioneFin,EstrazioneFin,n1,ru,2)
us1 = SerieFreqTurbo(EstrazioneFin,EstrazioneFin,n1,ru,2)
usc = us + us1
If usc > 0 Then cc = cc + 1:ColoreTesto 2: Scrivi " sortito" Else Scrivi
ColoreTesto 0
End If
End If

  i = 0:j = 0:i1 = 0:j1 = 0:fr = 0:fr1 = 0:frr = 0:rt = 0:rt1 = 0:m = 0
  i = 18: j = 52 : i1 = 43: j1 = 73
 n(1) = i:n(2) = j:n1(1) = i1:n1(2) = j1
 fr = SerieFreqTurbo(es,es,n,ru,2)
 fr1 = SerieFreqTurbo(es,es,n1,ru,2)
 frr = fr + fr1
 If frr > 0 Then
 fre = SerieFreqTurbo(es + 1,EstrazioneFin - 1,n,ru,2)
 fre1 = SerieFreqTurbo(es + 1,EstrazioneFin - 1,n1,ru,2)
 frre = fre + fre1
 If frre = 0 Then
 rt = SerieRitardoTurbo(es - 800,EstrazioneFin - 1,n,ru,2)
 rt1 = SerieRitardoTurbo(es - 800,EstrazioneFin - 1,n1,ru,2)
 m = Minimo(rt,rt1)
 Scrivi FormatSpace(es,4,1) & " " & StringaNumeri(n) & ";" & StringaNumeri(n1) & " at  " & FormatSpace(m,4,1) & " ",0,0
 us = SerieFreqTurbo(EstrazioneFin,EstrazioneFin,n1,ru,2)
us1 = SerieFreqTurbo(EstrazioneFin,EstrazioneFin,n1,ru,2)
usc = us + us1
If usc > 0 Then cc = cc + 1:ColoreTesto 2: Scrivi " sortito" Else Scrivi
ColoreTesto 0
End If
End If

  i = 0:j = 0:i1 = 0:j1 = 0:fr = 0:fr1 = 0:frr = 0:rt = 0:rt1 = 0:m = 0
  i = 20: j = 39 : i1 = 33: j1 = 48
 n(1) = i:n(2) = j:n1(1) = i1:n1(2) = j1
 fr = SerieFreqTurbo(es,es,n,ru,2)
 fr1 = SerieFreqTurbo(es,es,n1,ru,2)
 frr = fr + fr1
 If frr > 0 Then
 fre = SerieFreqTurbo(es + 1,EstrazioneFin - 1,n,ru,2)
 fre1 = SerieFreqTurbo(es + 1,EstrazioneFin - 1,n1,ru,2)
 frre = fre + fre1
 If frre = 0 Then
 rt = SerieRitardoTurbo(es - 800,EstrazioneFin - 1,n,ru,2)
 rt1 = SerieRitardoTurbo(es - 800,EstrazioneFin - 1,n1,ru,2)
 m = Minimo(rt,rt1)
 Scrivi FormatSpace(es,4,1) & " " & StringaNumeri(n) & ";" & StringaNumeri(n1) & " at  " & FormatSpace(m,4,1) & " ",0,0
 us = SerieFreqTurbo(EstrazioneFin,EstrazioneFin,n1,ru,2)
us1 = SerieFreqTurbo(EstrazioneFin,EstrazioneFin,n1,ru,2)
usc = us + us1
If usc > 0 Then cc = cc + 1:ColoreTesto 2: Scrivi " sortito" Else Scrivi
ColoreTesto 0
End If
End If

  i = 0:j = 0:i1 = 0:j1 = 0:fr = 0:fr1 = 0:frr = 0:rt = 0:rt1 = 0:m = 0
  i = 20: j = 51 : i1 = 42: j1 = 60
 n(1) = i:n(2) = j:n1(1) = i1:n1(2) = j1
 fr = SerieFreqTurbo(es,es,n,ru,2)
 fr1 = SerieFreqTurbo(es,es,n1,ru,2)
 frr = fr + fr1
 If frr > 0 Then
 fre = SerieFreqTurbo(es + 1,EstrazioneFin - 1,n,ru,2)
 fre1 = SerieFreqTurbo(es + 1,EstrazioneFin - 1,n1,ru,2)
 frre = fre + fre1
 If frre = 0 Then
 rt = SerieRitardoTurbo(es - 800,EstrazioneFin - 1,n,ru,2)
 rt1 = SerieRitardoTurbo(es - 800,EstrazioneFin - 1,n1,ru,2)
 m = Minimo(rt,rt1)
 Scrivi FormatSpace(es,4,1) & " " & StringaNumeri(n) & ";" & StringaNumeri(n1) & " at  " & FormatSpace(m,4,1) & " ",0,0
 us = SerieFreqTurbo(EstrazioneFin,EstrazioneFin,n1,ru,2)
us1 = SerieFreqTurbo(EstrazioneFin,EstrazioneFin,n1,ru,2)
usc = us + us1
If usc > 0 Then cc = cc + 1:ColoreTesto 2: Scrivi " sortito" Else Scrivi
ColoreTesto 0
End If
End If

  i = 0:j = 0:i1 = 0:j1 = 0:fr = 0:fr1 = 0:frr = 0:rt = 0:rt1 = 0:m = 0
  i = 20: j = 51 : i1 = 63: j1 = 80
 n(1) = i:n(2) = j:n1(1) = i1:n1(2) = j1
 fr = SerieFreqTurbo(es,es,n,ru,2)
 fr1 = SerieFreqTurbo(es,es,n1,ru,2)
 frr = fr + fr1
 If frr > 0 Then
 fre = SerieFreqTurbo(es + 1,EstrazioneFin - 1,n,ru,2)
 fre1 = SerieFreqTurbo(es + 1,EstrazioneFin - 1,n1,ru,2)
 frre = fre + fre1
 If frre = 0 Then
 rt = SerieRitardoTurbo(es - 800,EstrazioneFin - 1,n,ru,2)
 rt1 = SerieRitardoTurbo(es - 800,EstrazioneFin - 1,n1,ru,2)
 m = Minimo(rt,rt1)
 Scrivi FormatSpace(es,4,1) & " " & StringaNumeri(n) & ";" & StringaNumeri(n1) & " at  " & FormatSpace(m,4,1) & " ",0,0
 us = SerieFreqTurbo(EstrazioneFin,EstrazioneFin,n1,ru,2)
us1 = SerieFreqTurbo(EstrazioneFin,EstrazioneFin,n1,ru,2)
usc = us + us1
If usc > 0 Then cc = cc + 1:ColoreTesto 2: Scrivi " sortito" Else Scrivi
ColoreTesto 0
End If
End If

  i = 0:j = 0:i1 = 0:j1 = 0:fr = 0:fr1 = 0:frr = 0:rt = 0:rt1 = 0:m = 0
  i = 20: j = 54 : i1 = 30: j1 = 85
 n(1) = i:n(2) = j:n1(1) = i1:n1(2) = j1
 fr = SerieFreqTurbo(es,es,n,ru,2)
 fr1 = SerieFreqTurbo(es,es,n1,ru,2)
 frr = fr + fr1
 If frr > 0 Then
 fre = SerieFreqTurbo(es + 1,EstrazioneFin - 1,n,ru,2)
 fre1 = SerieFreqTurbo(es + 1,EstrazioneFin - 1,n1,ru,2)
 frre = fre + fre1
 If frre = 0 Then
 rt = SerieRitardoTurbo(es - 800,EstrazioneFin - 1,n,ru,2)
 rt1 = SerieRitardoTurbo(es - 800,EstrazioneFin - 1,n1,ru,2)
 m = Minimo(rt,rt1)
 Scrivi FormatSpace(es,4,1) & " " & StringaNumeri(n) & ";" & StringaNumeri(n1) & " at  " & FormatSpace(m,4,1) & " ",0,0
 us = SerieFreqTurbo(EstrazioneFin,EstrazioneFin,n1,ru,2)
us1 = SerieFreqTurbo(EstrazioneFin,EstrazioneFin,n1,ru,2)
usc = us + us1
If usc > 0 Then cc = cc + 1:ColoreTesto 2: Scrivi " sortito" Else Scrivi
ColoreTesto 0
End If
End If

  i = 0:j = 0:i1 = 0:j1 = 0:fr = 0:fr1 = 0:frr = 0:rt = 0:rt1 = 0:m = 0
  i = 20: j = 55 : i1 = 58: j1 = 90
 n(1) = i:n(2) = j:n1(1) = i1:n1(2) = j1
 fr = SerieFreqTurbo(es,es,n,ru,2)
 fr1 = SerieFreqTurbo(es,es,n1,ru,2)
 frr = fr + fr1
 If frr > 0 Then
 fre = SerieFreqTurbo(es + 1,EstrazioneFin - 1,n,ru,2)
 fre1 = SerieFreqTurbo(es + 1,EstrazioneFin - 1,n1,ru,2)
 frre = fre + fre1
 If frre = 0 Then
 rt = SerieRitardoTurbo(es - 800,EstrazioneFin - 1,n,ru,2)
 rt1 = SerieRitardoTurbo(es - 800,EstrazioneFin - 1,n1,ru,2)
 m = Minimo(rt,rt1)
 Scrivi FormatSpace(es,4,1) & " " & StringaNumeri(n) & ";" & StringaNumeri(n1) & " at  " & FormatSpace(m,4,1) & " ",0,0
 us = SerieFreqTurbo(EstrazioneFin,EstrazioneFin,n1,ru,2)
us1 = SerieFreqTurbo(EstrazioneFin,EstrazioneFin,n1,ru,2)
usc = us + us1
If usc > 0 Then cc = cc + 1:ColoreTesto 2: Scrivi " sortito" Else Scrivi
ColoreTesto 0
End If
End If

  i = 0:j = 0:i1 = 0:j1 = 0:fr = 0:fr1 = 0:frr = 0:rt = 0:rt1 = 0:m = 0
  i = 20: j = 81 : i1 = 65: j1 = 69
 n(1) = i:n(2) = j:n1(1) = i1:n1(2) = j1
 fr = SerieFreqTurbo(es,es,n,ru,2)
 fr1 = SerieFreqTurbo(es,es,n1,ru,2)
 frr = fr + fr1
 If frr > 0 Then
 fre = SerieFreqTurbo(es + 1,EstrazioneFin - 1,n,ru,2)
 fre1 = SerieFreqTurbo(es + 1,EstrazioneFin - 1,n1,ru,2)
 frre = fre + fre1
 If frre = 0 Then
 rt = SerieRitardoTurbo(es - 800,EstrazioneFin - 1,n,ru,2)
 rt1 = SerieRitardoTurbo(es - 800,EstrazioneFin - 1,n1,ru,2)
 m = Minimo(rt,rt1)
 Scrivi FormatSpace(es,4,1) & " " & StringaNumeri(n) & ";" & StringaNumeri(n1) & " at  " & FormatSpace(m,4,1) & " ",0,0
 us = SerieFreqTurbo(EstrazioneFin,EstrazioneFin,n1,ru,2)
us1 = SerieFreqTurbo(EstrazioneFin,EstrazioneFin,n1,ru,2)
usc = us + us1
If usc > 0 Then cc = cc + 1:ColoreTesto 2: Scrivi " sortito" Else Scrivi
ColoreTesto 0
End If
End If

  i = 0:j = 0:i1 = 0:j1 = 0:fr = 0:fr1 = 0:frr = 0:rt = 0:rt1 = 0:m = 0
  i = 23: j = 54 : i1 = 36: j1 = 74
 n(1) = i:n(2) = j:n1(1) = i1:n1(2) = j1
 fr = SerieFreqTurbo(es,es,n,ru,2)
 fr1 = SerieFreqTurbo(es,es,n1,ru,2)
 frr = fr + fr1
 If frr > 0 Then
 fre = SerieFreqTurbo(es + 1,EstrazioneFin - 1,n,ru,2)
 fre1 = SerieFreqTurbo(es + 1,EstrazioneFin - 1,n1,ru,2)
 frre = fre + fre1
 If frre = 0 Then
 rt = SerieRitardoTurbo(es - 800,EstrazioneFin - 1,n,ru,2)
 rt1 = SerieRitardoTurbo(es - 800,EstrazioneFin - 1,n1,ru,2)
 m = Minimo(rt,rt1)
 Scrivi FormatSpace(es,4,1) & " " & StringaNumeri(n) & ";" & StringaNumeri(n1) & " at  " & FormatSpace(m,4,1) & " ",0,0
 us = SerieFreqTurbo(EstrazioneFin,EstrazioneFin,n1,ru,2)
us1 = SerieFreqTurbo(EstrazioneFin,EstrazioneFin,n1,ru,2)
usc = us + us1
If usc > 0 Then cc = cc + 1:ColoreTesto 2: Scrivi " sortito" Else Scrivi
ColoreTesto 0
End If
End If

  i = 0:j = 0:i1 = 0:j1 = 0:fr = 0:fr1 = 0:frr = 0:rt = 0:rt1 = 0:m = 0
  i = 24: j = 72 : i1 = 65: j1 = 79
 n(1) = i:n(2) = j:n1(1) = i1:n1(2) = j1
 fr = SerieFreqTurbo(es,es,n,ru,2)
 fr1 = SerieFreqTurbo(es,es,n1,ru,2)
 frr = fr + fr1
 If frr > 0 Then
 fre = SerieFreqTurbo(es + 1,EstrazioneFin - 1,n,ru,2)
 fre1 = SerieFreqTurbo(es + 1,EstrazioneFin - 1,n1,ru,2)
 frre = fre + fre1
 If frre = 0 Then
 rt = SerieRitardoTurbo(es - 800,EstrazioneFin - 1,n,ru,2)
 rt1 = SerieRitardoTurbo(es - 800,EstrazioneFin - 1,n1,ru,2)
 m = Minimo(rt,rt1)
 Scrivi FormatSpace(es,4,1) & " " & StringaNumeri(n) & ";" & StringaNumeri(n1) & " at  " & FormatSpace(m,4,1) & " ",0,0
 us = SerieFreqTurbo(EstrazioneFin,EstrazioneFin,n1,ru,2)
us1 = SerieFreqTurbo(EstrazioneFin,EstrazioneFin,n1,ru,2)
usc = us + us1
If usc > 0 Then cc = cc + 1:ColoreTesto 2: Scrivi " sortito" Else Scrivi
ColoreTesto 0
End If
End If

  i = 0:j = 0:i1 = 0:j1 = 0:fr = 0:fr1 = 0:frr = 0:rt = 0:rt1 = 0:m = 0
  i = 25: j = 89 : i1 = 42: j1 = 79
 n(1) = i:n(2) = j:n1(1) = i1:n1(2) = j1
 fr = SerieFreqTurbo(es,es,n,ru,2)
 fr1 = SerieFreqTurbo(es,es,n1,ru,2)
 frr = fr + fr1
 If frr > 0 Then
 fre = SerieFreqTurbo(es + 1,EstrazioneFin - 1,n,ru,2)
 fre1 = SerieFreqTurbo(es + 1,EstrazioneFin - 1,n1,ru,2)
 frre = fre + fre1
 If frre = 0 Then
 rt = SerieRitardoTurbo(es - 800,EstrazioneFin - 1,n,ru,2)
 rt1 = SerieRitardoTurbo(es - 800,EstrazioneFin - 1,n1,ru,2)
 m = Minimo(rt,rt1)
 Scrivi FormatSpace(es,4,1) & " " & StringaNumeri(n) & ";" & StringaNumeri(n1) & " at  " & FormatSpace(m,4,1) & " ",0,0
 us = SerieFreqTurbo(EstrazioneFin,EstrazioneFin,n1,ru,2)
us1 = SerieFreqTurbo(EstrazioneFin,EstrazioneFin,n1,ru,2)
usc = us + us1
If usc > 0 Then cc = cc + 1:ColoreTesto 2: Scrivi " sortito" Else Scrivi
ColoreTesto 0
End If
End If

  i = 0:j = 0:i1 = 0:j1 = 0:fr = 0:fr1 = 0:frr = 0:rt = 0:rt1 = 0:m = 0
  i = 26: j = 71 : i1 = 47: j1 = 62
 n(1) = i:n(2) = j:n1(1) = i1:n1(2) = j1
 fr = SerieFreqTurbo(es,es,n,ru,2)
 fr1 = SerieFreqTurbo(es,es,n1,ru,2)
 frr = fr + fr1
 If frr > 0 Then
 fre = SerieFreqTurbo(es + 1,EstrazioneFin - 1,n,ru,2)
 fre1 = SerieFreqTurbo(es + 1,EstrazioneFin - 1,n1,ru,2)
 frre = fre + fre1
 If frre = 0 Then
 rt = SerieRitardoTurbo(es - 800,EstrazioneFin - 1,n,ru,2)
 rt1 = SerieRitardoTurbo(es - 800,EstrazioneFin - 1,n1,ru,2)
 m = Minimo(rt,rt1)
 Scrivi FormatSpace(es,4,1) & " " & StringaNumeri(n) & ";" & StringaNumeri(n1) & " at  " & FormatSpace(m,4,1) & " ",0,0
 us = SerieFreqTurbo(EstrazioneFin,EstrazioneFin,n1,ru,2)
us1 = SerieFreqTurbo(EstrazioneFin,EstrazioneFin,n1,ru,2)
usc = us + us1
If usc > 0 Then cc = cc + 1:ColoreTesto 2: Scrivi " sortito" Else Scrivi
ColoreTesto 0
End If
End If

  i = 0:j = 0:i1 = 0:j1 = 0:fr = 0:fr1 = 0:frr = 0:rt = 0:rt1 = 0:m = 0
  i = 26: j = 71 : i1 = 59: j1 = 63
 n(1) = i:n(2) = j:n1(1) = i1:n1(2) = j1
 fr = SerieFreqTurbo(es,es,n,ru,2)
 fr1 = SerieFreqTurbo(es,es,n1,ru,2)
 frr = fr + fr1
 If frr > 0 Then
 fre = SerieFreqTurbo(es + 1,EstrazioneFin - 1,n,ru,2)
 fre1 = SerieFreqTurbo(es + 1,EstrazioneFin - 1,n1,ru,2)
 frre = fre + fre1
 If frre = 0 Then
 rt = SerieRitardoTurbo(es - 800,EstrazioneFin - 1,n,ru,2)
 rt1 = SerieRitardoTurbo(es - 800,EstrazioneFin - 1,n1,ru,2)
 m = Minimo(rt,rt1)
 Scrivi FormatSpace(es,4,1) & " " & StringaNumeri(n) & ";" & StringaNumeri(n1) & " at  " & FormatSpace(m,4,1) & " ",0,0
 us = SerieFreqTurbo(EstrazioneFin,EstrazioneFin,n1,ru,2)
us1 = SerieFreqTurbo(EstrazioneFin,EstrazioneFin,n1,ru,2)
usc = us + us1
If usc > 0 Then cc = cc + 1:ColoreTesto 2: Scrivi " sortito" Else Scrivi
ColoreTesto 0
End If
End If

  i = 0:j = 0:i1 = 0:j1 = 0:fr = 0:fr1 = 0:frr = 0:rt = 0:rt1 = 0:m = 0
  i = 29: j = 31 : i1 = 32: j1 = 58
 n(1) = i:n(2) = j:n1(1) = i1:n1(2) = j1
 fr = SerieFreqTurbo(es,es,n,ru,2)
 fr1 = SerieFreqTurbo(es,es,n1,ru,2)
 frr = fr + fr1
 If frr > 0 Then
 fre = SerieFreqTurbo(es + 1,EstrazioneFin - 1,n,ru,2)
 fre1 = SerieFreqTurbo(es + 1,EstrazioneFin - 1,n1,ru,2)
 frre = fre + fre1
 If frre = 0 Then
 rt = SerieRitardoTurbo(es - 800,EstrazioneFin - 1,n,ru,2)
 rt1 = SerieRitardoTurbo(es - 800,EstrazioneFin - 1,n1,ru,2)
 m = Minimo(rt,rt1)
 Scrivi FormatSpace(es,4,1) & " " & StringaNumeri(n) & ";" & StringaNumeri(n1) & " at  " & FormatSpace(m,4,1) & " ",0,0
 us = SerieFreqTurbo(EstrazioneFin,EstrazioneFin,n1,ru,2)
us1 = SerieFreqTurbo(EstrazioneFin,EstrazioneFin,n1,ru,2)
usc = us + us1
If usc > 0 Then cc = cc + 1:ColoreTesto 2: Scrivi " sortito" Else Scrivi
ColoreTesto 0
End If
End If

  i = 0:j = 0:i1 = 0:j1 = 0:fr = 0:fr1 = 0:frr = 0:rt = 0:rt1 = 0:m = 0
  i = 29: j = 50 : i1 = 63: j1 = 80
 n(1) = i:n(2) = j:n1(1) = i1:n1(2) = j1
 fr = SerieFreqTurbo(es,es,n,ru,2)
 fr1 = SerieFreqTurbo(es,es,n1,ru,2)
 frr = fr + fr1
 If frr > 0 Then
 fre = SerieFreqTurbo(es + 1,EstrazioneFin - 1,n,ru,2)
 fre1 = SerieFreqTurbo(es + 1,EstrazioneFin - 1,n1,ru,2)
 frre = fre + fre1
 If frre = 0 Then
 rt = SerieRitardoTurbo(es - 800,EstrazioneFin - 1,n,ru,2)
 rt1 = SerieRitardoTurbo(es - 800,EstrazioneFin - 1,n1,ru,2)
 m = Minimo(rt,rt1)
 Scrivi FormatSpace(es,4,1) & " " & StringaNumeri(n) & ";" & StringaNumeri(n1) & " at  " & FormatSpace(m,4,1) & " ",0,0
 us = SerieFreqTurbo(EstrazioneFin,EstrazioneFin,n1,ru,2)
us1 = SerieFreqTurbo(EstrazioneFin,EstrazioneFin,n1,ru,2)
usc = us + us1
If usc > 0 Then cc = cc + 1:ColoreTesto 2: Scrivi " sortito" Else Scrivi
ColoreTesto 0
End If
End If

  i = 0:j = 0:i1 = 0:j1 = 0:fr = 0:fr1 = 0:frr = 0:rt = 0:rt1 = 0:m = 0
  i = 29: j = 56 : i1 = 82: j1 = 86
 n(1) = i:n(2) = j:n1(1) = i1:n1(2) = j1
 fr = SerieFreqTurbo(es,es,n,ru,2)
 fr1 = SerieFreqTurbo(es,es,n1,ru,2)
 frr = fr + fr1
 If frr > 0 Then
 fre = SerieFreqTurbo(es + 1,EstrazioneFin - 1,n,ru,2)
 fre1 = SerieFreqTurbo(es + 1,EstrazioneFin - 1,n1,ru,2)
 frre = fre + fre1
 If frre = 0 Then
 rt = SerieRitardoTurbo(es - 800,EstrazioneFin - 1,n,ru,2)
 rt1 = SerieRitardoTurbo(es - 800,EstrazioneFin - 1,n1,ru,2)
 m = Minimo(rt,rt1)
 Scrivi FormatSpace(es,4,1) & " " & StringaNumeri(n) & ";" & StringaNumeri(n1) & " at  " & FormatSpace(m,4,1) & " ",0,0
 us = SerieFreqTurbo(EstrazioneFin,EstrazioneFin,n1,ru,2)
us1 = SerieFreqTurbo(EstrazioneFin,EstrazioneFin,n1,ru,2)
usc = us + us1
If usc > 0 Then cc = cc + 1:ColoreTesto 2: Scrivi " sortito" Else Scrivi
ColoreTesto 0
End If
End If

  i = 0:j = 0:i1 = 0:j1 = 0:fr = 0:fr1 = 0:frr = 0:rt = 0:rt1 = 0:m = 0
  i = 29: j = 86 : i1 = 42: j1 = 87
 n(1) = i:n(2) = j:n1(1) = i1:n1(2) = j1
 fr = SerieFreqTurbo(es,es,n,ru,2)
 fr1 = SerieFreqTurbo(es,es,n1,ru,2)
 frr = fr + fr1
 If frr > 0 Then
 fre = SerieFreqTurbo(es + 1,EstrazioneFin - 1,n,ru,2)
 fre1 = SerieFreqTurbo(es + 1,EstrazioneFin - 1,n1,ru,2)
 frre = fre + fre1
 If frre = 0 Then
 rt = SerieRitardoTurbo(es - 800,EstrazioneFin - 1,n,ru,2)
 rt1 = SerieRitardoTurbo(es - 800,EstrazioneFin - 1,n1,ru,2)
 m = Minimo(rt,rt1)
 Scrivi FormatSpace(es,4,1) & " " & StringaNumeri(n) & ";" & StringaNumeri(n1) & " at  " & FormatSpace(m,4,1) & " ",0,0
 us = SerieFreqTurbo(EstrazioneFin,EstrazioneFin,n1,ru,2)
us1 = SerieFreqTurbo(EstrazioneFin,EstrazioneFin,n1,ru,2)
usc = us + us1
If usc > 0 Then cc = cc + 1:ColoreTesto 2: Scrivi " sortito" Else Scrivi
ColoreTesto 0
End If
End If

  i = 0:j = 0:i1 = 0:j1 = 0:fr = 0:fr1 = 0:frr = 0:rt = 0:rt1 = 0:m = 0
  i = 30: j = 59 : i1 = 44: j1 = 63
 n(1) = i:n(2) = j:n1(1) = i1:n1(2) = j1
 fr = SerieFreqTurbo(es,es,n,ru,2)
 fr1 = SerieFreqTurbo(es,es,n1,ru,2)
 frr = fr + fr1
 If frr > 0 Then
 fre = SerieFreqTurbo(es + 1,EstrazioneFin - 1,n,ru,2)
 fre1 = SerieFreqTurbo(es + 1,EstrazioneFin - 1,n1,ru,2)
 frre = fre + fre1
 If frre = 0 Then
 rt = SerieRitardoTurbo(es - 800,EstrazioneFin - 1,n,ru,2)
 rt1 = SerieRitardoTurbo(es - 800,EstrazioneFin - 1,n1,ru,2)
 m = Minimo(rt,rt1)
 Scrivi FormatSpace(es,4,1) & " " & StringaNumeri(n) & ";" & StringaNumeri(n1) & " at  " & FormatSpace(m,4,1) & " ",0,0
 us = SerieFreqTurbo(EstrazioneFin,EstrazioneFin,n1,ru,2)
us1 = SerieFreqTurbo(EstrazioneFin,EstrazioneFin,n1,ru,2)
usc = us + us1
If usc > 0 Then cc = cc + 1:ColoreTesto 2: Scrivi " sortito" Else Scrivi
ColoreTesto 0
End If
End If

  i = 0:j = 0:i1 = 0:j1 = 0:fr = 0:fr1 = 0:frr = 0:rt = 0:rt1 = 0:m = 0
  i = 30: j = 87 : i1 = 63: j1 = 80
 n(1) = i:n(2) = j:n1(1) = i1:n1(2) = j1
 fr = SerieFreqTurbo(es,es,n,ru,2)
 fr1 = SerieFreqTurbo(es,es,n1,ru,2)
 frr = fr + fr1
 If frr > 0 Then
 fre = SerieFreqTurbo(es + 1,EstrazioneFin - 1,n,ru,2)
 fre1 = SerieFreqTurbo(es + 1,EstrazioneFin - 1,n1,ru,2)
 frre = fre + fre1
 If frre = 0 Then
 rt = SerieRitardoTurbo(es - 800,EstrazioneFin - 1,n,ru,2)
 rt1 = SerieRitardoTurbo(es - 800,EstrazioneFin - 1,n1,ru,2)
 m = Minimo(rt,rt1)
 Scrivi FormatSpace(es,4,1) & " " & StringaNumeri(n) & ";" & StringaNumeri(n1) & " at  " & FormatSpace(m,4,1) & " ",0,0
 us = SerieFreqTurbo(EstrazioneFin,EstrazioneFin,n1,ru,2)
us1 = SerieFreqTurbo(EstrazioneFin,EstrazioneFin,n1,ru,2)
usc = us + us1
If usc > 0 Then cc = cc + 1:ColoreTesto 2: Scrivi " sortito" Else Scrivi
ColoreTesto 0
End If
End If

  i = 0:j = 0:i1 = 0:j1 = 0:fr = 0:fr1 = 0:frr = 0:rt = 0:rt1 = 0:m = 0
  i = 31: j = 77 : i1 = 34: j1 = 53
 n(1) = i:n(2) = j:n1(1) = i1:n1(2) = j1
 fr = SerieFreqTurbo(es,es,n,ru,2)
 fr1 = SerieFreqTurbo(es,es,n1,ru,2)
 frr = fr + fr1
 If frr > 0 Then
 fre = SerieFreqTurbo(es + 1,EstrazioneFin - 1,n,ru,2)
 fre1 = SerieFreqTurbo(es + 1,EstrazioneFin - 1,n1,ru,2)
 frre = fre + fre1
 If frre = 0 Then
 rt = SerieRitardoTurbo(es - 800,EstrazioneFin - 1,n,ru,2)
 rt1 = SerieRitardoTurbo(es - 800,EstrazioneFin - 1,n1,ru,2)
 m = Minimo(rt,rt1)
 Scrivi FormatSpace(es,4,1) & " " & StringaNumeri(n) & ";" & StringaNumeri(n1) & " at  " & FormatSpace(m,4,1) & " ",0,0
 us = SerieFreqTurbo(EstrazioneFin,EstrazioneFin,n1,ru,2)
us1 = SerieFreqTurbo(EstrazioneFin,EstrazioneFin,n1,ru,2)
usc = us + us1
If usc > 0 Then cc = cc + 1:ColoreTesto 2: Scrivi " sortito" Else Scrivi
ColoreTesto 0
End If
End If

  i = 0:j = 0:i1 = 0:j1 = 0:fr = 0:fr1 = 0:frr = 0:rt = 0:rt1 = 0:m = 0
  i = 31: j = 90 : i1 = 79: j1 = 86
 n(1) = i:n(2) = j:n1(1) = i1:n1(2) = j1
 fr = SerieFreqTurbo(es,es,n,ru,2)
 fr1 = SerieFreqTurbo(es,es,n1,ru,2)
 frr = fr + fr1
 If frr > 0 Then
 fre = SerieFreqTurbo(es + 1,EstrazioneFin - 1,n,ru,2)
 fre1 = SerieFreqTurbo(es + 1,EstrazioneFin - 1,n1,ru,2)
 frre = fre + fre1
 If frre = 0 Then
 rt = SerieRitardoTurbo(es - 800,EstrazioneFin - 1,n,ru,2)
 rt1 = SerieRitardoTurbo(es - 800,EstrazioneFin - 1,n1,ru,2)
 m = Minimo(rt,rt1)
 Scrivi FormatSpace(es,4,1) & " " & StringaNumeri(n) & ";" & StringaNumeri(n1) & " at  " & FormatSpace(m,4,1) & " ",0,0
 us = SerieFreqTurbo(EstrazioneFin,EstrazioneFin,n1,ru,2)
us1 = SerieFreqTurbo(EstrazioneFin,EstrazioneFin,n1,ru,2)
usc = us + us1
If usc > 0 Then cc = cc + 1:ColoreTesto 2: Scrivi " sortito" Else Scrivi
ColoreTesto 0
End If
End If

  i = 0:j = 0:i1 = 0:j1 = 0:fr = 0:fr1 = 0:frr = 0:rt = 0:rt1 = 0:m = 0
  i = 32: j = 57 : i1 = 65: j1 = 83
 n(1) = i:n(2) = j:n1(1) = i1:n1(2) = j1
 fr = SerieFreqTurbo(es,es,n,ru,2)
 fr1 = SerieFreqTurbo(es,es,n1,ru,2)
 frr = fr + fr1
 If frr > 0 Then
 fre = SerieFreqTurbo(es + 1,EstrazioneFin - 1,n,ru,2)
 fre1 = SerieFreqTurbo(es + 1,EstrazioneFin - 1,n1,ru,2)
 frre = fre + fre1
 If frre = 0 Then
 rt = SerieRitardoTurbo(es - 800,EstrazioneFin - 1,n,ru,2)
 rt1 = SerieRitardoTurbo(es - 800,EstrazioneFin - 1,n1,ru,2)
 m = Minimo(rt,rt1)
 Scrivi FormatSpace(es,4,1) & " " & StringaNumeri(n) & ";" & StringaNumeri(n1) & " at  " & FormatSpace(m,4,1) & " ",0,0
 us = SerieFreqTurbo(EstrazioneFin,EstrazioneFin,n1,ru,2)
us1 = SerieFreqTurbo(EstrazioneFin,EstrazioneFin,n1,ru,2)
usc = us + us1
If usc > 0 Then cc = cc + 1:ColoreTesto 2: Scrivi " sortito" Else Scrivi
ColoreTesto 0
End If
End If

  i = 0:j = 0:i1 = 0:j1 = 0:fr = 0:fr1 = 0:frr = 0:rt = 0:rt1 = 0:m = 0
  i = 32: j = 79 : i1 = 57: j1 = 80
 n(1) = i:n(2) = j:n1(1) = i1:n1(2) = j1
 fr = SerieFreqTurbo(es,es,n,ru,2)
 fr1 = SerieFreqTurbo(es,es,n1,ru,2)
 frr = fr + fr1
 If frr > 0 Then
 fre = SerieFreqTurbo(es + 1,EstrazioneFin - 1,n,ru,2)
 fre1 = SerieFreqTurbo(es + 1,EstrazioneFin - 1,n1,ru,2)
 frre = fre + fre1
 If frre = 0 Then
 rt = SerieRitardoTurbo(es - 800,EstrazioneFin - 1,n,ru,2)
 rt1 = SerieRitardoTurbo(es - 800,EstrazioneFin - 1,n1,ru,2)
 m = Minimo(rt,rt1)
 Scrivi FormatSpace(es,4,1) & " " & StringaNumeri(n) & ";" & StringaNumeri(n1) & " at  " & FormatSpace(m,4,1) & " ",0,0
 us = SerieFreqTurbo(EstrazioneFin,EstrazioneFin,n1,ru,2)
us1 = SerieFreqTurbo(EstrazioneFin,EstrazioneFin,n1,ru,2)
usc = us + us1
If usc > 0 Then cc = cc + 1:ColoreTesto 2: Scrivi " sortito" Else Scrivi
ColoreTesto 0
End If
End If

  i = 0:j = 0:i1 = 0:j1 = 0:fr = 0:fr1 = 0:frr = 0:rt = 0:rt1 = 0:m = 0
  i = 33: j = 38 : i1 = 43: j1 = 50
 n(1) = i:n(2) = j:n1(1) = i1:n1(2) = j1
 fr = SerieFreqTurbo(es,es,n,ru,2)
 fr1 = SerieFreqTurbo(es,es,n1,ru,2)
 frr = fr + fr1
 If frr > 0 Then
 fre = SerieFreqTurbo(es + 1,EstrazioneFin - 1,n,ru,2)
 fre1 = SerieFreqTurbo(es + 1,EstrazioneFin - 1,n1,ru,2)
 frre = fre + fre1
 If frre = 0 Then
 rt = SerieRitardoTurbo(es - 800,EstrazioneFin - 1,n,ru,2)
 rt1 = SerieRitardoTurbo(es - 800,EstrazioneFin - 1,n1,ru,2)
 m = Minimo(rt,rt1)
 Scrivi FormatSpace(es,4,1) & " " & StringaNumeri(n) & ";" & StringaNumeri(n1) & " at  " & FormatSpace(m,4,1) & " ",0,0
 us = SerieFreqTurbo(EstrazioneFin,EstrazioneFin,n1,ru,2)
us1 = SerieFreqTurbo(EstrazioneFin,EstrazioneFin,n1,ru,2)
usc = us + us1
If usc > 0 Then cc = cc + 1:ColoreTesto 2: Scrivi " sortito" Else Scrivi
ColoreTesto 0
End If
End If

  i = 0:j = 0:i1 = 0:j1 = 0:fr = 0:fr1 = 0:frr = 0:rt = 0:rt1 = 0:m = 0
  i = 33: j = 38 : i1 = 68: j1 = 81
 n(1) = i:n(2) = j:n1(1) = i1:n1(2) = j1
 fr = SerieFreqTurbo(es,es,n,ru,2)
 fr1 = SerieFreqTurbo(es,es,n1,ru,2)
 frr = fr + fr1
 If frr > 0 Then
 fre = SerieFreqTurbo(es + 1,EstrazioneFin - 1,n,ru,2)
 fre1 = SerieFreqTurbo(es + 1,EstrazioneFin - 1,n1,ru,2)
 frre = fre + fre1
 If frre = 0 Then
 rt = SerieRitardoTurbo(es - 800,EstrazioneFin - 1,n,ru,2)
 rt1 = SerieRitardoTurbo(es - 800,EstrazioneFin - 1,n1,ru,2)
 m = Minimo(rt,rt1)
 Scrivi FormatSpace(es,4,1) & " " & StringaNumeri(n) & ";" & StringaNumeri(n1) & " at  " & FormatSpace(m,4,1) & " ",0,0
 us = SerieFreqTurbo(EstrazioneFin,EstrazioneFin,n1,ru,2)
us1 = SerieFreqTurbo(EstrazioneFin,EstrazioneFin,n1,ru,2)
usc = us + us1
If usc > 0 Then cc = cc + 1:ColoreTesto 2: Scrivi " sortito" Else Scrivi
ColoreTesto 0
End If
End If

  i = 0:j = 0:i1 = 0:j1 = 0:fr = 0:fr1 = 0:frr = 0:rt = 0:rt1 = 0:m = 0
  i = 34: j = 53 : i1 = 37: j1 = 39
 n(1) = i:n(2) = j:n1(1) = i1:n1(2) = j1
 fr = SerieFreqTurbo(es,es,n,ru,2)
 fr1 = SerieFreqTurbo(es,es,n1,ru,2)
 frr = fr + fr1
 If frr > 0 Then
 fre = SerieFreqTurbo(es + 1,EstrazioneFin - 1,n,ru,2)
 fre1 = SerieFreqTurbo(es + 1,EstrazioneFin - 1,n1,ru,2)
 frre = fre + fre1
 If frre = 0 Then
 rt = SerieRitardoTurbo(es - 800,EstrazioneFin - 1,n,ru,2)
 rt1 = SerieRitardoTurbo(es - 800,EstrazioneFin - 1,n1,ru,2)
 m = Minimo(rt,rt1)
 Scrivi FormatSpace(es,4,1) & " " & StringaNumeri(n) & ";" & StringaNumeri(n1) & " at  " & FormatSpace(m,4,1) & " ",0,0
 us = SerieFreqTurbo(EstrazioneFin,EstrazioneFin,n1,ru,2)
us1 = SerieFreqTurbo(EstrazioneFin,EstrazioneFin,n1,ru,2)
usc = us + us1
If usc > 0 Then cc = cc + 1:ColoreTesto 2: Scrivi " sortito" Else Scrivi
ColoreTesto 0
End If
End If

  i = 0:j = 0:i1 = 0:j1 = 0:fr = 0:fr1 = 0:frr = 0:rt = 0:rt1 = 0:m = 0
  i = 37: j = 41 : i1 = 39: j1 = 55
 n(1) = i:n(2) = j:n1(1) = i1:n1(2) = j1
 fr = SerieFreqTurbo(es,es,n,ru,2)
 fr1 = SerieFreqTurbo(es,es,n1,ru,2)
 frr = fr + fr1
 If frr > 0 Then
 fre = SerieFreqTurbo(es + 1,EstrazioneFin - 1,n,ru,2)
 fre1 = SerieFreqTurbo(es + 1,EstrazioneFin - 1,n1,ru,2)
 frre = fre + fre1
 If frre = 0 Then
 rt = SerieRitardoTurbo(es - 800,EstrazioneFin - 1,n,ru,2)
 rt1 = SerieRitardoTurbo(es - 800,EstrazioneFin - 1,n1,ru,2)
 m = Minimo(rt,rt1)
 Scrivi FormatSpace(es,4,1) & " " & StringaNumeri(n) & ";" & StringaNumeri(n1) & " at  " & FormatSpace(m,4,1) & " ",0,0
 us = SerieFreqTurbo(EstrazioneFin,EstrazioneFin,n1,ru,2)
us1 = SerieFreqTurbo(EstrazioneFin,EstrazioneFin,n1,ru,2)
usc = us + us1
If usc > 0 Then cc = cc + 1:ColoreTesto 2: Scrivi " sortito" Else Scrivi
ColoreTesto 0
End If
End If

  i = 0:j = 0:i1 = 0:j1 = 0:fr = 0:fr1 = 0:frr = 0:rt = 0:rt1 = 0:m = 0
  i = 37: j = 47 : i1 = 43: j1 = 87
 n(1) = i:n(2) = j:n1(1) = i1:n1(2) = j1
 fr = SerieFreqTurbo(es,es,n,ru,2)
 fr1 = SerieFreqTurbo(es,es,n1,ru,2)
 frr = fr + fr1
 If frr > 0 Then
 fre = SerieFreqTurbo(es + 1,EstrazioneFin - 1,n,ru,2)
 fre1 = SerieFreqTurbo(es + 1,EstrazioneFin - 1,n1,ru,2)
 frre = fre + fre1
 If frre = 0 Then
 rt = SerieRitardoTurbo(es - 800,EstrazioneFin - 1,n,ru,2)
 rt1 = SerieRitardoTurbo(es - 800,EstrazioneFin - 1,n1,ru,2)
 m = Minimo(rt,rt1)
 Scrivi FormatSpace(es,4,1) & " " & StringaNumeri(n) & ";" & StringaNumeri(n1) & " at  " & FormatSpace(m,4,1) & " ",0,0
 us = SerieFreqTurbo(EstrazioneFin,EstrazioneFin,n1,ru,2)
us1 = SerieFreqTurbo(EstrazioneFin,EstrazioneFin,n1,ru,2)
usc = us + us1
If usc > 0 Then cc = cc + 1:ColoreTesto 2: Scrivi " sortito" Else Scrivi
ColoreTesto 0
End If
End If

  i = 0:j = 0:i1 = 0:j1 = 0:fr = 0:fr1 = 0:frr = 0:rt = 0:rt1 = 0:m = 0
  i = 37: j = 49 : i1 = 48: j1 = 67
 n(1) = i:n(2) = j:n1(1) = i1:n1(2) = j1
 fr = SerieFreqTurbo(es,es,n,ru,2)
 fr1 = SerieFreqTurbo(es,es,n1,ru,2)
 frr = fr + fr1
 If frr > 0 Then
 fre = SerieFreqTurbo(es + 1,EstrazioneFin - 1,n,ru,2)
 fre1 = SerieFreqTurbo(es + 1,EstrazioneFin - 1,n1,ru,2)
 frre = fre + fre1
 If frre = 0 Then
 rt = SerieRitardoTurbo(es - 800,EstrazioneFin - 1,n,ru,2)
 rt1 = SerieRitardoTurbo(es - 800,EstrazioneFin - 1,n1,ru,2)
 m = Minimo(rt,rt1)
 Scrivi FormatSpace(es,4,1) & " " & StringaNumeri(n) & ";" & StringaNumeri(n1) & " at  " & FormatSpace(m,4,1) & " ",0,0
 us = SerieFreqTurbo(EstrazioneFin,EstrazioneFin,n1,ru,2)
us1 = SerieFreqTurbo(EstrazioneFin,EstrazioneFin,n1,ru,2)
usc = us + us1
If usc > 0 Then cc = cc + 1:ColoreTesto 2: Scrivi " sortito" Else Scrivi
ColoreTesto 0
End If
End If

  i = 0:j = 0:i1 = 0:j1 = 0:fr = 0:fr1 = 0:frr = 0:rt = 0:rt1 = 0:m = 0
  i = 37: j = 73 : i1 = 45: j1 = 74
 n(1) = i:n(2) = j:n1(1) = i1:n1(2) = j1
 fr = SerieFreqTurbo(es,es,n,ru,2)
 fr1 = SerieFreqTurbo(es,es,n1,ru,2)
 frr = fr + fr1
 If frr > 0 Then
 fre = SerieFreqTurbo(es + 1,EstrazioneFin - 1,n,ru,2)
 fre1 = SerieFreqTurbo(es + 1,EstrazioneFin - 1,n1,ru,2)
 frre = fre + fre1
 If frre = 0 Then
 rt = SerieRitardoTurbo(es - 800,EstrazioneFin - 1,n,ru,2)
 rt1 = SerieRitardoTurbo(es - 800,EstrazioneFin - 1,n1,ru,2)
 m = Minimo(rt,rt1)
 Scrivi FormatSpace(es,4,1) & " " & StringaNumeri(n) & ";" & StringaNumeri(n1) & " at  " & FormatSpace(m,4,1) & " ",0,0
 us = SerieFreqTurbo(EstrazioneFin,EstrazioneFin,n1,ru,2)
us1 = SerieFreqTurbo(EstrazioneFin,EstrazioneFin,n1,ru,2)
usc = us + us1
If usc > 0 Then cc = cc + 1:ColoreTesto 2: Scrivi " sortito" Else Scrivi
ColoreTesto 0
End If
End If

  i = 0:j = 0:i1 = 0:j1 = 0:fr = 0:fr1 = 0:frr = 0:rt = 0:rt1 = 0:m = 0
  i = 38: j = 65 : i1 = 82: j1 = 86
 n(1) = i:n(2) = j:n1(1) = i1:n1(2) = j1
 fr = SerieFreqTurbo(es,es,n,ru,2)
 fr1 = SerieFreqTurbo(es,es,n1,ru,2)
 frr = fr + fr1
 If frr > 0 Then
 fre = SerieFreqTurbo(es + 1,EstrazioneFin - 1,n,ru,2)
 fre1 = SerieFreqTurbo(es + 1,EstrazioneFin - 1,n1,ru,2)
 frre = fre + fre1
 If frre = 0 Then
 rt = SerieRitardoTurbo(es - 800,EstrazioneFin - 1,n,ru,2)
 rt1 = SerieRitardoTurbo(es - 800,EstrazioneFin - 1,n1,ru,2)
 m = Minimo(rt,rt1)
 Scrivi FormatSpace(es,4,1) & " " & StringaNumeri(n) & ";" & StringaNumeri(n1) & " at  " & FormatSpace(m,4,1) & " ",0,0
 us = SerieFreqTurbo(EstrazioneFin,EstrazioneFin,n1,ru,2)
us1 = SerieFreqTurbo(EstrazioneFin,EstrazioneFin,n1,ru,2)
usc = us + us1
If usc > 0 Then cc = cc + 1:ColoreTesto 2: Scrivi " sortito" Else Scrivi
ColoreTesto 0
End If
End If

  i = 0:j = 0:i1 = 0:j1 = 0:fr = 0:fr1 = 0:frr = 0:rt = 0:rt1 = 0:m = 0
  i = 39: j = 74 : i1 = 59: j1 = 61
 n(1) = i:n(2) = j:n1(1) = i1:n1(2) = j1
 fr = SerieFreqTurbo(es,es,n,ru,2)
 fr1 = SerieFreqTurbo(es,es,n1,ru,2)
 frr = fr + fr1
 If frr > 0 Then
 fre = SerieFreqTurbo(es + 1,EstrazioneFin - 1,n,ru,2)
 fre1 = SerieFreqTurbo(es + 1,EstrazioneFin - 1,n1,ru,2)
 frre = fre + fre1
 If frre = 0 Then
 rt = SerieRitardoTurbo(es - 800,EstrazioneFin - 1,n,ru,2)
 rt1 = SerieRitardoTurbo(es - 800,EstrazioneFin - 1,n1,ru,2)
 m = Minimo(rt,rt1)
 Scrivi FormatSpace(es,4,1) & " " & StringaNumeri(n) & ";" & StringaNumeri(n1) & " at  " & FormatSpace(m,4,1) & " ",0,0
 us = SerieFreqTurbo(EstrazioneFin,EstrazioneFin,n1,ru,2)
us1 = SerieFreqTurbo(EstrazioneFin,EstrazioneFin,n1,ru,2)
usc = us + us1
If usc > 0 Then cc = cc + 1:ColoreTesto 2: Scrivi " sortito" Else Scrivi
ColoreTesto 0
End If
End If

  i = 0:j = 0:i1 = 0:j1 = 0:fr = 0:fr1 = 0:frr = 0:rt = 0:rt1 = 0:m = 0
  i = 42: j = 77 : i1 = 85: j1 = 88
 n(1) = i:n(2) = j:n1(1) = i1:n1(2) = j1
 fr = SerieFreqTurbo(es,es,n,ru,2)
 fr1 = SerieFreqTurbo(es,es,n1,ru,2)
 frr = fr + fr1
 If frr > 0 Then
 fre = SerieFreqTurbo(es + 1,EstrazioneFin - 1,n,ru,2)
 fre1 = SerieFreqTurbo(es + 1,EstrazioneFin - 1,n1,ru,2)
 frre = fre + fre1
 If frre = 0 Then
 rt = SerieRitardoTurbo(es - 800,EstrazioneFin - 1,n,ru,2)
 rt1 = SerieRitardoTurbo(es - 800,EstrazioneFin - 1,n1,ru,2)
 m = Minimo(rt,rt1)
 Scrivi FormatSpace(es,4,1) & " " & StringaNumeri(n) & ";" & StringaNumeri(n1) & " at  " & FormatSpace(m,4,1) & " ",0,0
 us = SerieFreqTurbo(EstrazioneFin,EstrazioneFin,n1,ru,2)
us1 = SerieFreqTurbo(EstrazioneFin,EstrazioneFin,n1,ru,2)
usc = us + us1
If usc > 0 Then cc = cc + 1:ColoreTesto 2: Scrivi " sortito" Else Scrivi
ColoreTesto 0
End If
End If

  i = 0:j = 0:i1 = 0:j1 = 0:fr = 0:fr1 = 0:frr = 0:rt = 0:rt1 = 0:m = 0
  i = 47: j = 54 : i1 = 73: j1 = 89
 n(1) = i:n(2) = j:n1(1) = i1:n1(2) = j1
 fr = SerieFreqTurbo(es,es,n,ru,2)
 fr1 = SerieFreqTurbo(es,es,n1,ru,2)
 frr = fr + fr1
 If frr > 0 Then
 fre = SerieFreqTurbo(es + 1,EstrazioneFin - 1,n,ru,2)
 fre1 = SerieFreqTurbo(es + 1,EstrazioneFin - 1,n1,ru,2)
 frre = fre + fre1
 If frre = 0 Then
 rt = SerieRitardoTurbo(es - 800,EstrazioneFin - 1,n,ru,2)
 rt1 = SerieRitardoTurbo(es - 800,EstrazioneFin - 1,n1,ru,2)
 m = Minimo(rt,rt1)
 Scrivi FormatSpace(es,4,1) & " " & StringaNumeri(n) & ";" & StringaNumeri(n1) & " at  " & FormatSpace(m,4,1) & " ",0,0
 us = SerieFreqTurbo(EstrazioneFin,EstrazioneFin,n1,ru,2)
us1 = SerieFreqTurbo(EstrazioneFin,EstrazioneFin,n1,ru,2)
usc = us + us1
If usc > 0 Then cc = cc + 1:ColoreTesto 2: Scrivi " sortito" Else Scrivi
ColoreTesto 0
End If
End If

  i = 0:j = 0:i1 = 0:j1 = 0:fr = 0:fr1 = 0:frr = 0:rt = 0:rt1 = 0:m = 0
  i = 54: j = 84 : i1 = 80: j1 = 82
 n(1) = i:n(2) = j:n1(1) = i1:n1(2) = j1
 fr = SerieFreqTurbo(es,es,n,ru,2)
 fr1 = SerieFreqTurbo(es,es,n1,ru,2)
 frr = fr + fr1
 If frr > 0 Then
 fre = SerieFreqTurbo(es + 1,EstrazioneFin - 1,n,ru,2)
 fre1 = SerieFreqTurbo(es + 1,EstrazioneFin - 1,n1,ru,2)
 frre = fre + fre1
 If frre = 0 Then
 rt = SerieRitardoTurbo(es - 800,EstrazioneFin - 1,n,ru,2)
 rt1 = SerieRitardoTurbo(es - 800,EstrazioneFin - 1,n1,ru,2)
 m = Minimo(rt,rt1)
 Scrivi FormatSpace(es,4,1) & " " & StringaNumeri(n) & ";" & StringaNumeri(n1) & " at  " & FormatSpace(m,4,1) & " ",0,0
 us = SerieFreqTurbo(EstrazioneFin,EstrazioneFin,n1,ru,2)
us1 = SerieFreqTurbo(EstrazioneFin,EstrazioneFin,n1,ru,2)
usc = us + us1
If usc > 0 Then cc = cc + 1:ColoreTesto 2: Scrivi " sortito" Else Scrivi
ColoreTesto 0
End If
End If

  i = 0:j = 0:i1 = 0:j1 = 0:fr = 0:fr1 = 0:frr = 0:rt = 0:rt1 = 0:m = 0
  i = 60: j = 88 : i1 = 73: j1 = 89
 n(1) = i:n(2) = j:n1(1) = i1:n1(2) = j1
 fr = SerieFreqTurbo(es,es,n,ru,2)
 fr1 = SerieFreqTurbo(es,es,n1,ru,2)
 frr = fr + fr1
 If frr > 0 Then
 fre = SerieFreqTurbo(es + 1,EstrazioneFin - 1,n,ru,2)
 fre1 = SerieFreqTurbo(es + 1,EstrazioneFin - 1,n1,ru,2)
 frre = fre + fre1
 If frre = 0 Then
 rt = SerieRitardoTurbo(es - 800,EstrazioneFin - 1,n,ru,2)
 rt1 = SerieRitardoTurbo(es - 800,EstrazioneFin - 1,n1,ru,2)
 m = Minimo(rt,rt1)
 Scrivi FormatSpace(es,4,1) & " " & StringaNumeri(n) & ";" & StringaNumeri(n1) & " at  " & FormatSpace(m,4,1) & " ",0,0
 us = SerieFreqTurbo(EstrazioneFin,EstrazioneFin,n1,ru,2)
us1 = SerieFreqTurbo(EstrazioneFin,EstrazioneFin,n1,ru,2)
usc = us + us1
If usc > 0 Then cc = cc + 1:ColoreTesto 2: Scrivi " sortito" Else Scrivi
ColoreTesto 0
End If
End If

  i = 0:j = 0:i1 = 0:j1 = 0:fr = 0:fr1 = 0:frr = 0:rt = 0:rt1 = 0:m = 0
  i = 73: j = 87 : i1 = 85: j1 = 88
 n(1) = i:n(2) = j:n1(1) = i1:n1(2) = j1
 fr = SerieFreqTurbo(es,es,n,ru,2)
 fr1 = SerieFreqTurbo(es,es,n1,ru,2)
 frr = fr + fr1
 If frr > 0 Then
 fre = SerieFreqTurbo(es + 1,EstrazioneFin - 1,n,ru,2)
 fre1 = SerieFreqTurbo(es + 1,EstrazioneFin - 1,n1,ru,2)
 frre = fre + fre1
 If frre = 0 Then
 rt = SerieRitardoTurbo(es - 800,EstrazioneFin - 1,n,ru,2)
 rt1 = SerieRitardoTurbo(es - 800,EstrazioneFin - 1,n1,ru,2)
 m = Minimo(rt,rt1)
 Scrivi FormatSpace(es,4,1) & " " & StringaNumeri(n) & ";" & StringaNumeri(n1) & " at  " & FormatSpace(m,4,1) & " ",0,0
 us = SerieFreqTurbo(EstrazioneFin,EstrazioneFin,n1,ru,2)
us1 = SerieFreqTurbo(EstrazioneFin,EstrazioneFin,n1,ru,2)
usc = us + us1
If usc > 0 Then cc = cc + 1:ColoreTesto 2: Scrivi " sortito" Else Scrivi
ColoreTesto 0
End If
End If
Next
Scrivi
Scrivi "Biambi sortiti  " & cc
End Sub

LuigiB · 30 Aprile 2023

ciao a tutti , ho fattto un aggiornamento

XAmbi

MediaFire is a simple to use free service that lets you put all your photos, documents, music, and video in a single place so you can access them anywhere and share them everywhere.

www.mediafire.com

Cinzia27 · 30 Aprile 2023

A me da spesso questo problema. Anche ora

LuigiB · 30 Aprile 2023

la risposta è la stessa dell'altra volta , cambia browser

LuigiB · 30 Aprile 2023

riguardo la ricerca dei minimi ho fatto dei tentativi combinando gl iambi con ritardo max piu basso , sulrange indicato da Nikor non trovo 28 ma trovo valori di 30 , quindi non funzona.

Il problema è che un triambo potrebbe essere costituito da 2 ambi con ritardo max basso e uno che magari è uscito pochissime volte , ritardo max altissimo ma è uscito proprio in quelle estrazioni che si incastrano bene con le estrazioni cperte dagli altri due .. in definitiva un triambo puo essere costitito da 3 qulsiasi degliambi possibili e si ritona al discrso che bisognerebbe esplorarli tutti

Cinzia27 · 30 Aprile 2023

Prima di postare avevo già provato. Comunque, a me va benissimo quello che ho già, elabora i biambi, che erano quelli che volevo.
Ancora grazie di tutto.

LuigiB · 30 Aprile 2023

non va benissimo perche ti ridarebbe overflow dopo 21 miliardi ..

Cinzia27 · 30 Aprile 2023

Anche con 22 numeri?

Cinzia27 · 30 Aprile 2023

aa(1) = Array(0,83,73,74,38,19,16,64,28,15,51,26,29,68,11,58,90,65,79,12,9,23,42)'st 0 fr 17721

Biambi da [07440] [ 36] 04.05.2005 a [10231] [ 51] 29.04.2023
Ruote : BA-CA-FI-GE-MI-NA-PA-RO-TO-VE-NZ
Sviluppate in classe : 11
Analizza per Ritardo storico
Migliori valori Massimi

Formazione	Presenze	Ritardo	RitardoMax	Esito	Colpi	Ruote
09.23-65.79	177	5	55			BA.CA.FI.GE.MI.NA.PA.RO.TO.VE.NZ
28.90-42.90	182	46	54			BA.CA.FI.GE.MI.NA.PA.RO.TO.VE.NZ
16.73-26.28	157	10	54			BA.CA.FI.GE.MI.NA.PA.RO.TO.VE.NZ
11.29-64.74	165	7	50			BA.CA.FI.GE.MI.NA.PA.RO.TO.VE.NZ
09.15-16.19	170	9	50			BA.CA.FI.GE.MI.NA.PA.RO.TO.VE.NZ

Tempo impiegato 00:00:01

LuigiB · 30 Aprile 2023

i numeri vanno inseriti con il separatore . (punto) non , (virgola)
magari in un prossimo aggiornamento , metto anche la virgola.

Script biambo

Advanced Premium Member

Premium Member

Advanced Premium Member

Premium Member

Premium Member

Premium Member

Advanced Premium Member

Advanced Member >PLATINUM<

Allegati

Premium Member

Advanced Member >PLATINUM<

Premium Member

LuigiB

Guest

Premium Member

LuigiB

Guest

LuigiB

Guest

Premium Member

LuigiB

Guest

Premium Member

Premium Member

LuigiB

Guest