LottoGAM Forum

BIAMBI a TUTTE + NZ con Ritardo Minimo Storico Impostabile, Output su TXT e ricerca frazionabile

« Older   Newer »
  Share  
Cinzia28
view post Posted on 15/5/2023, 23:30 by: Cinzia28

Top Member

Group:
Member
Posts:
246

Status:


Grazie per aver portato qui questa ricerca, Gam.
Da quando l'abbiamo iniziata 2 biambi hanno oltrepessato lo storico di 49.
Pertanto, li ho esclusi. Da 82 sono diventati 80.
Posto lo script per chi volesse tenerli d'occhio.

SPOILER (clicca per visualizzare)
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 81 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 = SerieFreq(es,es,n,ru,2)
fr1 = SerieFreq(es,es,n1,ru,2)
frr = fr + fr1
If frr > 0 Then
fre = SerieFreq(es + 1,EstrazioneFin - 1,n,ru,2)
fre1 = SerieFreq(es + 1,EstrazioneFin - 1,n1,ru,2)
frre = fre + fre1
If frre = 0 Then
rt = SerieRitardo(es - 800,EstrazioneFin - 1,n,ru,2)
rt1 = SerieRitardo(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 = SerieFreq(EstrazioneFin,EstrazioneFin,n1,ru,2)
us1 = SerieFreq(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 = SerieFreq(es,es,n,ru,2)
fr1 = SerieFreq(es,es,n1,ru,2)
frr = fr + fr1
If frr > 0 Then
fre = SerieFreq(es + 1,EstrazioneFin - 1,n,ru,2)
fre1 = SerieFreq(es + 1,EstrazioneFin - 1,n1,ru,2)
frre = fre + fre1
If frre = 0 Then
rt = SerieRitardo(es - 800,EstrazioneFin - 1,n,ru,2)
rt1 = SerieRitardo(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 = SerieFreq(EstrazioneFin,EstrazioneFin,n1,ru,2)
us1 = SerieFreq(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 = SerieFreq(es,es,n,ru,2)
fr1 = SerieFreq(es,es,n1,ru,2)
frr = fr + fr1
If frr > 0 Then
fre = SerieFreq(es + 1,EstrazioneFin - 1,n,ru,2)
fre1 = SerieFreq(es + 1,EstrazioneFin - 1,n1,ru,2)
frre = fre + fre1
If frre = 0 Then
rt = SerieRitardo(es - 800,EstrazioneFin - 1,n,ru,2)
rt1 = SerieRitardo(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 = SerieFreq(EstrazioneFin,EstrazioneFin,n1,ru,2)
us1 = SerieFreq(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 = SerieFreq(es,es,n,ru,2)
fr1 = SerieFreq(es,es,n1,ru,2)
frr = fr + fr1
If frr > 0 Then
fre = SerieFreq(es + 1,EstrazioneFin - 1,n,ru,2)
fre1 = SerieFreq(es + 1,EstrazioneFin - 1,n1,ru,2)
frre = fre + fre1
If frre = 0 Then
rt = SerieRitardo(es - 800,EstrazioneFin - 1,n,ru,2)
rt1 = SerieRitardo(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 = SerieFreq(EstrazioneFin,EstrazioneFin,n1,ru,2)
us1 = SerieFreq(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 = SerieFreq(es,es,n,ru,2)
fr1 = SerieFreq(es,es,n1,ru,2)
frr = fr + fr1
If frr > 0 Then
fre = SerieFreq(es + 1,EstrazioneFin - 1,n,ru,2)
fre1 = SerieFreq(es + 1,EstrazioneFin - 1,n1,ru,2)
frre = fre + fre1
If frre = 0 Then
rt = SerieRitardo(es - 800,EstrazioneFin - 1,n,ru,2)
rt1 = SerieRitardo(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 = SerieFreq(EstrazioneFin,EstrazioneFin,n1,ru,2)
us1 = SerieFreq(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 = SerieFreq(es,es,n,ru,2)
fr1 = SerieFreq(es,es,n1,ru,2)
frr = fr + fr1
If frr > 0 Then
fre = SerieFreq(es + 1,EstrazioneFin - 1,n,ru,2)
fre1 = SerieFreq(es + 1,EstrazioneFin - 1,n1,ru,2)
frre = fre + fre1
If frre = 0 Then
rt = SerieRitardo(es - 800,EstrazioneFin - 1,n,ru,2)
rt1 = SerieRitardo(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 = SerieFreq(EstrazioneFin,EstrazioneFin,n1,ru,2)
us1 = SerieFreq(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 = SerieFreq(es,es,n,ru,2)
fr1 = SerieFreq(es,es,n1,ru,2)
frr = fr + fr1
If frr > 0 Then
fre = SerieFreq(es + 1,EstrazioneFin - 1,n,ru,2)
fre1 = SerieFreq(es + 1,EstrazioneFin - 1,n1,ru,2)
frre = fre + fre1
If frre = 0 Then
rt = SerieRitardo(es - 800,EstrazioneFin - 1,n,ru,2)
rt1 = SerieRitardo(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 = SerieFreq(EstrazioneFin,EstrazioneFin,n1,ru,2)
us1 = SerieFreq(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 = SerieFreq(es,es,n,ru,2)
fr1 = SerieFreq(es,es,n1,ru,2)
frr = fr + fr1
If frr > 0 Then
fre = SerieFreq(es + 1,EstrazioneFin - 1,n,ru,2)
fre1 = SerieFreq(es + 1,EstrazioneFin - 1,n1,ru,2)
frre = fre + fre1
If frre = 0 Then
rt = SerieRitardo(es - 800,EstrazioneFin - 1,n,ru,2)
rt1 = SerieRitardo(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 = SerieFreq(EstrazioneFin,EstrazioneFin,n1,ru,2)
us1 = SerieFreq(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 = SerieFreq(es,es,n,ru,2)
fr1 = SerieFreq(es,es,n1,ru,2)
frr = fr + fr1
If frr > 0 Then
fre = SerieFreq(es + 1,EstrazioneFin - 1,n,ru,2)
fre1 = SerieFreq(es + 1,EstrazioneFin - 1,n1,ru,2)
frre = fre + fre1
If frre = 0 Then
rt = SerieRitardo(es - 800,EstrazioneFin - 1,n,ru,2)
rt1 = SerieRitardo(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 = SerieFreq(EstrazioneFin,EstrazioneFin,n1,ru,2)
us1 = SerieFreq(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 = SerieFreq(es,es,n,ru,2)
fr1 = SerieFreq(es,es,n1,ru,2)
frr = fr + fr1
If frr > 0 Then
fre = SerieFreq(es + 1,EstrazioneFin - 1,n,ru,2)
fre1 = SerieFreq(es + 1,EstrazioneFin - 1,n1,ru,2)
frre = fre + fre1
If frre = 0 Then
rt = SerieRitardo(es - 800,EstrazioneFin - 1,n,ru,2)
rt1 = SerieRitardo(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 = SerieFreq(EstrazioneFin,EstrazioneFin,n1,ru,2)
us1 = SerieFreq(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 = SerieFreq(es,es,n,ru,2)
fr1 = SerieFreq(es,es,n1,ru,2)
frr = fr + fr1
If frr > 0 Then
fre = SerieFreq(es + 1,EstrazioneFin - 1,n,ru,2)
fre1 = SerieFreq(es + 1,EstrazioneFin - 1,n1,ru,2)
frre = fre + fre1
If frre = 0 Then
rt = SerieRitardo(es - 800,EstrazioneFin - 1,n,ru,2)
rt1 = SerieRitardo(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 = SerieFreq(EstrazioneFin,EstrazioneFin,n1,ru,2)
us1 = SerieFreq(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 = SerieFreq(es,es,n,ru,2)
fr1 = SerieFreq(es,es,n1,ru,2)
frr = fr + fr1
If frr > 0 Then
fre = SerieFreq(es + 1,EstrazioneFin - 1,n,ru,2)
fre1 = SerieFreq(es + 1,EstrazioneFin - 1,n1,ru,2)
frre = fre + fre1
If frre = 0 Then
rt = SerieRitardo(es - 800,EstrazioneFin - 1,n,ru,2)
rt1 = SerieRitardo(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 = SerieFreq(EstrazioneFin,EstrazioneFin,n1,ru,2)
us1 = SerieFreq(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 = SerieFreq(es,es,n,ru,2)
fr1 = SerieFreq(es,es,n1,ru,2)
frr = fr + fr1
If frr > 0 Then
fre = SerieFreq(es + 1,EstrazioneFin - 1,n,ru,2)
fre1 = SerieFreq(es + 1,EstrazioneFin - 1,n1,ru,2)
frre = fre + fre1
If frre = 0 Then
rt = SerieRitardo(es - 800,EstrazioneFin - 1,n,ru,2)
rt1 = SerieRitardo(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 = SerieFreq(EstrazioneFin,EstrazioneFin,n1,ru,2)
us1 = SerieFreq(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 = SerieFreq(es,es,n,ru,2)
fr1 = SerieFreq(es,es,n1,ru,2)
frr = fr + fr1
If frr > 0 Then
fre = SerieFreq(es + 1,EstrazioneFin - 1,n,ru,2)
fre1 = SerieFreq(es + 1,EstrazioneFin - 1,n1,ru,2)
frre = fre + fre1
If frre = 0 Then
rt = SerieRitardo(es - 800,EstrazioneFin - 1,n,ru,2)
rt1 = SerieRitardo(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 = SerieFreq(EstrazioneFin,EstrazioneFin,n1,ru,2)
us1 = SerieFreq(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 = SerieFreq(es,es,n,ru,2)
fr1 = SerieFreq(es,es,n1,ru,2)
frr = fr + fr1
If frr > 0 Then
fre = SerieFreq(es + 1,EstrazioneFin - 1,n,ru,2)
fre1 = SerieFreq(es + 1,EstrazioneFin - 1,n1,ru,2)
frre = fre + fre1
If frre = 0 Then
rt = SerieRitardo(es - 800,EstrazioneFin - 1,n,ru,2)
rt1 = SerieRitardo(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 = SerieFreq(EstrazioneFin,EstrazioneFin,n1,ru,2)
us1 = SerieFreq(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 = SerieFreq(es,es,n,ru,2)
fr1 = SerieFreq(es,es,n1,ru,2)
frr = fr + fr1
If frr > 0 Then
fre = SerieFreq(es + 1,EstrazioneFin - 1,n,ru,2)
fre1 = SerieFreq(es + 1,EstrazioneFin - 1,n1,ru,2)
frre = fre + fre1
If frre = 0 Then
rt = SerieRitardo(es - 800,EstrazioneFin - 1,n,ru,2)
rt1 = SerieRitardo(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 = SerieFreq(EstrazioneFin,EstrazioneFin,n1,ru,2)
us1 = SerieFreq(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 = SerieFreq(es,es,n,ru,2)
fr1 = SerieFreq(es,es,n1,ru,2)
frr = fr + fr1
If frr > 0 Then
fre = SerieFreq(es + 1,EstrazioneFin - 1,n,ru,2)
fre1 = SerieFreq(es + 1,EstrazioneFin - 1,n1,ru,2)
frre = fre + fre1
If frre = 0 Then
rt = SerieRitardo(es - 800,EstrazioneFin - 1,n,ru,2)
rt1 = SerieRitardo(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 = SerieFreq(EstrazioneFin,EstrazioneFin,n1,ru,2)
us1 = SerieFreq(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 = SerieFreq(es,es,n,ru,2)
fr1 = SerieFreq(es,es,n1,ru,2)
frr = fr + fr1
If frr > 0 Then
fre = SerieFreq(es + 1,EstrazioneFin - 1,n,ru,2)
fre1 = SerieFreq(es + 1,EstrazioneFin - 1,n1,ru,2)
frre = fre + fre1
If frre = 0 Then
rt = SerieRitardo(es - 800,EstrazioneFin - 1,n,ru,2)
rt1 = SerieRitardo(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 = SerieFreq(EstrazioneFin,EstrazioneFin,n1,ru,2)
us1 = SerieFreq(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 = SerieFreq(es,es,n,ru,2)
fr1 = SerieFreq(es,es,n1,ru,2)
frr = fr + fr1
If frr > 0 Then
fre = SerieFreq(es + 1,EstrazioneFin - 1,n,ru,2)
fre1 = SerieFreq(es + 1,EstrazioneFin - 1,n1,ru,2)
frre = fre + fre1
If frre = 0 Then
rt = SerieRitardo(es - 800,EstrazioneFin - 1,n,ru,2)
rt1 = SerieRitardo(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 = SerieFreq(EstrazioneFin,EstrazioneFin,n1,ru,2)
us1 = SerieFreq(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 = SerieFreq(es,es,n,ru,2)
fr1 = SerieFreq(es,es,n1,ru,2)
frr = fr + fr1
If frr > 0 Then
fre = SerieFreq(es + 1,EstrazioneFin - 1,n,ru,2)
fre1 = SerieFreq(es + 1,EstrazioneFin - 1,n1,ru,2)
frre = fre + fre1
If frre = 0 Then
rt = SerieRitardo(es - 800,EstrazioneFin - 1,n,ru,2)
rt1 = SerieRitardo(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 = SerieFreq(EstrazioneFin,EstrazioneFin,n1,ru,2)
us1 = SerieFreq(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 = SerieFreq(es,es,n,ru,2)
fr1 = SerieFreq(es,es,n1,ru,2)
frr = fr + fr1
If frr > 0 Then
fre = SerieFreq(es + 1,EstrazioneFin - 1,n,ru,2)
fre1 = SerieFreq(es + 1,EstrazioneFin - 1,n1,ru,2)
frre = fre + fre1
If frre = 0 Then
rt = SerieRitardo(es - 800,EstrazioneFin - 1,n,ru,2)
rt1 = SerieRitardo(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 = SerieFreq(EstrazioneFin,EstrazioneFin,n1,ru,2)
us1 = SerieFreq(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 = SerieFreq(es,es,n,ru,2)
fr1 = SerieFreq(es,es,n1,ru,2)
frr = fr + fr1
If frr > 0 Then
fre = SerieFreq(es + 1,EstrazioneFin - 1,n,ru,2)
fre1 = SerieFreq(es + 1,EstrazioneFin - 1,n1,ru,2)
frre = fre + fre1
If frre = 0 Then
rt = SerieRitardo(es - 800,EstrazioneFin - 1,n,ru,2)
rt1 = SerieRitardo(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 = SerieFreq(EstrazioneFin,EstrazioneFin,n1,ru,2)
us1 = SerieFreq(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 = SerieFreq(es,es,n,ru,2)
fr1 = SerieFreq(es,es,n1,ru,2)
frr = fr + fr1
If frr > 0 Then
fre = SerieFreq(es + 1,EstrazioneFin - 1,n,ru,2)
fre1 = SerieFreq(es + 1,EstrazioneFin - 1,n1,ru,2)
frre = fre + fre1
If frre = 0 Then
rt = SerieRitardo(es - 800,EstrazioneFin - 1,n,ru,2)
rt1 = SerieRitardo(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 = SerieFreq(EstrazioneFin,EstrazioneFin,n1,ru,2)
us1 = SerieFreq(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 = SerieFreq(es,es,n,ru,2)
fr1 = SerieFreq(es,es,n1,ru,2)
frr = fr + fr1
If frr > 0 Then
fre = SerieFreq(es + 1,EstrazioneFin - 1,n,ru,2)
fre1 = SerieFreq(es + 1,EstrazioneFin - 1,n1,ru,2)
frre = fre + fre1
If frre = 0 Then
rt = SerieRitardo(es - 800,EstrazioneFin - 1,n,ru,2)
rt1 = SerieRitardo(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 = SerieFreq(EstrazioneFin,EstrazioneFin,n1,ru,2)
us1 = SerieFreq(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 = SerieFreq(es,es,n,ru,2)
fr1 = SerieFreq(es,es,n1,ru,2)
frr = fr + fr1
If frr > 0 Then
fre = SerieFreq(es + 1,EstrazioneFin - 1,n,ru,2)
fre1 = SerieFreq(es + 1,EstrazioneFin - 1,n1,ru,2)
frre = fre + fre1
If frre = 0 Then
rt = SerieRitardo(es - 800,EstrazioneFin - 1,n,ru,2)
rt1 = SerieRitardo(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 = SerieFreq(EstrazioneFin,EstrazioneFin,n1,ru,2)
us1 = SerieFreq(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 = SerieFreq(es,es,n,ru,2)
fr1 = SerieFreq(es,es,n1,ru,2)
frr = fr + fr1
If frr > 0 Then
fre = SerieFreq(es + 1,EstrazioneFin - 1,n,ru,2)
fre1 = SerieFreq(es + 1,EstrazioneFin - 1,n1,ru,2)
frre = fre + fre1
If frre = 0 Then
rt = SerieRitardo(es - 800,EstrazioneFin - 1,n,ru,2)
rt1 = SerieRitardo(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 = SerieFreq(EstrazioneFin,EstrazioneFin,n1,ru,2)
us1 = SerieFreq(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 = SerieFreq(es,es,n,ru,2)
fr1 = SerieFreq(es,es,n1,ru,2)
frr = fr + fr1
If frr > 0 Then
fre = SerieFreq(es + 1,EstrazioneFin - 1,n,ru,2)
fre1 = SerieFreq(es + 1,EstrazioneFin - 1,n1,ru,2)
frre = fre + fre1
If frre = 0 Then
rt = SerieRitardo(es - 800,EstrazioneFin - 1,n,ru,2)
rt1 = SerieRitardo(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 = SerieFreq(EstrazioneFin,EstrazioneFin,n1,ru,2)
us1 = SerieFreq(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 = SerieFreq(es,es,n,ru,2)
fr1 = SerieFreq(es,es,n1,ru,2)
frr = fr + fr1
If frr > 0 Then
fre = SerieFreq(es + 1,EstrazioneFin - 1,n,ru,2)
fre1 = SerieFreq(es + 1,EstrazioneFin - 1,n1,ru,2)
frre = fre + fre1
If frre = 0 Then
rt = SerieRitardo(es - 800,EstrazioneFin - 1,n,ru,2)
rt1 = SerieRitardo(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 = SerieFreq(EstrazioneFin,EstrazioneFin,n1,ru,2)
us1 = SerieFreq(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 = SerieFreq(es,es,n,ru,2)
fr1 = SerieFreq(es,es,n1,ru,2)
frr = fr + fr1
If frr > 0 Then
fre = SerieFreq(es + 1,EstrazioneFin - 1,n,ru,2)
fre1 = SerieFreq(es + 1,EstrazioneFin - 1,n1,ru,2)
frre = fre + fre1
If frre = 0 Then
rt = SerieRitardo(es - 800,EstrazioneFin - 1,n,ru,2)
rt1 = SerieRitardo(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 = SerieFreq(EstrazioneFin,EstrazioneFin,n1,ru,2)
us1 = SerieFreq(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 = SerieFreq(es,es,n,ru,2)
fr1 = SerieFreq(es,es,n1,ru,2)
frr = fr + fr1
If frr > 0 Then
fre = SerieFreq(es + 1,EstrazioneFin - 1,n,ru,2)
fre1 = SerieFreq(es + 1,EstrazioneFin - 1,n1,ru,2)
frre = fre + fre1
If frre = 0 Then
rt = SerieRitardo(es - 800,EstrazioneFin - 1,n,ru,2)
rt1 = SerieRitardo(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 = SerieFreq(EstrazioneFin,EstrazioneFin,n1,ru,2)
us1 = SerieFreq(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 = SerieFreq(es,es,n,ru,2)
fr1 = SerieFreq(es,es,n1,ru,2)
frr = fr + fr1
If frr > 0 Then
fre = SerieFreq(es + 1,EstrazioneFin - 1,n,ru,2)
fre1 = SerieFreq(es + 1,EstrazioneFin - 1,n1,ru,2)
frre = fre + fre1
If frre = 0 Then
rt = SerieRitardo(es - 800,EstrazioneFin - 1,n,ru,2)
rt1 = SerieRitardo(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 = SerieFreq(EstrazioneFin,EstrazioneFin,n1,ru,2)
us1 = SerieFreq(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 = SerieFreq(es,es,n,ru,2)
fr1 = SerieFreq(es,es,n1,ru,2)
frr = fr + fr1
If frr > 0 Then
fre = SerieFreq(es + 1,EstrazioneFin - 1,n,ru,2)
fre1 = SerieFreq(es + 1,EstrazioneFin - 1,n1,ru,2)
frre = fre + fre1
If frre = 0 Then
rt = SerieRitardo(es - 800,EstrazioneFin - 1,n,ru,2)
rt1 = SerieRitardo(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 = SerieFreq(EstrazioneFin,EstrazioneFin,n1,ru,2)
us1 = SerieFreq(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 = SerieFreq(es,es,n,ru,2)
fr1 = SerieFreq(es,es,n1,ru,2)
frr = fr + fr1
If frr > 0 Then
fre = SerieFreq(es + 1,EstrazioneFin - 1,n,ru,2)
fre1 = SerieFreq(es + 1,EstrazioneFin - 1,n1,ru,2)
frre = fre + fre1
If frre = 0 Then
rt = SerieRitardo(es - 800,EstrazioneFin - 1,n,ru,2)
rt1 = SerieRitardo(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 = SerieFreq(EstrazioneFin,EstrazioneFin,n1,ru,2)
us1 = SerieFreq(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 = SerieFreq(es,es,n,ru,2)
fr1 = SerieFreq(es,es,n1,ru,2)
frr = fr + fr1
If frr > 0 Then
fre = SerieFreq(es + 1,EstrazioneFin - 1,n,ru,2)
fre1 = SerieFreq(es + 1,EstrazioneFin - 1,n1,ru,2)
frre = fre + fre1
If frre = 0 Then
rt = SerieRitardo(es - 800,EstrazioneFin - 1,n,ru,2)
rt1 = SerieRitardo(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 = SerieFreq(EstrazioneFin,EstrazioneFin,n1,ru,2)
us1 = SerieFreq(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 = SerieFreq(es,es,n,ru,2)
fr1 = SerieFreq(es,es,n1,ru,2)
frr = fr + fr1
If frr > 0 Then
fre = SerieFreq(es + 1,EstrazioneFin - 1,n,ru,2)
fre1 = SerieFreq(es + 1,EstrazioneFin - 1,n1,ru,2)
frre = fre + fre1
If frre = 0 Then
rt = SerieRitardo(es - 800,EstrazioneFin - 1,n,ru,2)
rt1 = SerieRitardo(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 = SerieFreq(EstrazioneFin,EstrazioneFin,n1,ru,2)
us1 = SerieFreq(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 = SerieFreq(es,es,n,ru,2)
fr1 = SerieFreq(es,es,n1,ru,2)
frr = fr + fr1
If frr > 0 Then
fre = SerieFreq(es + 1,EstrazioneFin - 1,n,ru,2)
fre1 = SerieFreq(es + 1,EstrazioneFin - 1,n1,ru,2)
frre = fre + fre1
If frre = 0 Then
rt = SerieRitardo(es - 800,EstrazioneFin - 1,n,ru,2)
rt1 = SerieRitardo(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 = SerieFreq(EstrazioneFin,EstrazioneFin,n1,ru,2)
us1 = SerieFreq(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 = SerieFreq(es,es,n,ru,2)
fr1 = SerieFreq(es,es,n1,ru,2)
frr = fr + fr1
If frr > 0 Then
fre = SerieFreq(es + 1,EstrazioneFin - 1,n,ru,2)
fre1 = SerieFreq(es + 1,EstrazioneFin - 1,n1,ru,2)
frre = fre + fre1
If frre = 0 Then
rt = SerieRitardo(es - 800,EstrazioneFin - 1,n,ru,2)
rt1 = SerieRitardo(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 = SerieFreq(EstrazioneFin,EstrazioneFin,n1,ru,2)
us1 = SerieFreq(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 = SerieFreq(es,es,n,ru,2)
fr1 = SerieFreq(es,es,n1,ru,2)
frr = fr + fr1
If frr > 0 Then
fre = SerieFreq(es + 1,EstrazioneFin - 1,n,ru,2)
fre1 = SerieFreq(es + 1,EstrazioneFin - 1,n1,ru,2)
frre = fre + fre1
If frre = 0 Then
rt = SerieRitardo(es - 800,EstrazioneFin - 1,n,ru,2)
rt1 = SerieRitardo(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 = SerieFreq(EstrazioneFin,EstrazioneFin,n1,ru,2)
us1 = SerieFreq(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 = SerieFreq(es,es,n,ru,2)
fr1 = SerieFreq(es,es,n1,ru,2)
frr = fr + fr1
If frr > 0 Then
fre = SerieFreq(es + 1,EstrazioneFin - 1,n,ru,2)
fre1 = SerieFreq(es + 1,EstrazioneFin - 1,n1,ru,2)
frre = fre + fre1
If frre = 0 Then
rt = SerieRitardo(es - 800,EstrazioneFin - 1,n,ru,2)
rt1 = SerieRitardo(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 = SerieFreq(EstrazioneFin,EstrazioneFin,n1,ru,2)
us1 = SerieFreq(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 = SerieFreq(es,es,n,ru,2)
fr1 = SerieFreq(es,es,n1,ru,2)
frr = fr + fr1
If frr > 0 Then
fre = SerieFreq(es + 1,EstrazioneFin - 1,n,ru,2)
fre1 = SerieFreq(es + 1,EstrazioneFin - 1,n1,ru,2)
frre = fre + fre1
If frre = 0 Then
rt = SerieRitardo(es - 800,EstrazioneFin - 1,n,ru,2)
rt1 = SerieRitardo(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 = SerieFreq(EstrazioneFin,EstrazioneFin,n1,ru,2)
us1 = SerieFreq(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 = SerieFreq(es,es,n,ru,2)
fr1 = SerieFreq(es,es,n1,ru,2)
frr = fr + fr1
If frr > 0 Then
fre = SerieFreq(es + 1,EstrazioneFin - 1,n,ru,2)
fre1 = SerieFreq(es + 1,EstrazioneFin - 1,n1,ru,2)
frre = fre + fre1
If frre = 0 Then
rt = SerieRitardo(es - 800,EstrazioneFin - 1,n,ru,2)
rt1 = SerieRitardo(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 = SerieFreq(EstrazioneFin,EstrazioneFin,n1,ru,2)
us1 = SerieFreq(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 = SerieFreq(es,es,n,ru,2)
fr1 = SerieFreq(es,es,n1,ru,2)
frr = fr + fr1
If frr > 0 Then
fre = SerieFreq(es + 1,EstrazioneFin - 1,n,ru,2)
fre1 = SerieFreq(es + 1,EstrazioneFin - 1,n1,ru,2)
frre = fre + fre1
If frre = 0 Then
rt = SerieRitardo(es - 800,EstrazioneFin - 1,n,ru,2)
rt1 = SerieRitardo(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 = SerieFreq(EstrazioneFin,EstrazioneFin,n1,ru,2)
us1 = SerieFreq(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 = SerieFreq(es,es,n,ru,2)
fr1 = SerieFreq(es,es,n1,ru,2)
frr = fr + fr1
If frr > 0 Then
fre = SerieFreq(es + 1,EstrazioneFin - 1,n,ru,2)
fre1 = SerieFreq(es + 1,EstrazioneFin - 1,n1,ru,2)
frre = fre + fre1
If frre = 0 Then
rt = SerieRitardo(es - 800,EstrazioneFin - 1,n,ru,2)
rt1 = SerieRitardo(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 = SerieFreq(EstrazioneFin,EstrazioneFin,n1,ru,2)
us1 = SerieFreq(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 = SerieFreq(es,es,n,ru,2)
fr1 = SerieFreq(es,es,n1,ru,2)
frr = fr + fr1
If frr > 0 Then
fre = SerieFreq(es + 1,EstrazioneFin - 1,n,ru,2)
fre1 = SerieFreq(es + 1,EstrazioneFin - 1,n1,ru,2)
frre = fre + fre1
If frre = 0 Then
rt = SerieRitardo(es - 800,EstrazioneFin - 1,n,ru,2)
rt1 = SerieRitardo(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 = SerieFreq(EstrazioneFin,EstrazioneFin,n1,ru,2)
us1 = SerieFreq(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 = SerieFreq(es,es,n,ru,2)
fr1 = SerieFreq(es,es,n1,ru,2)
frr = fr + fr1
If frr > 0 Then
fre = SerieFreq(es + 1,EstrazioneFin - 1,n,ru,2)
fre1 = SerieFreq(es + 1,EstrazioneFin - 1,n1,ru,2)
frre = fre + fre1
If frre = 0 Then
rt = SerieRitardo(es - 800,EstrazioneFin - 1,n,ru,2)
rt1 = SerieRitardo(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 = SerieFreq(EstrazioneFin,EstrazioneFin,n1,ru,2)
us1 = SerieFreq(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 = SerieFreq(es,es,n,ru,2)
fr1 = SerieFreq(es,es,n1,ru,2)
frr = fr + fr1
If frr > 0 Then
fre = SerieFreq(es + 1,EstrazioneFin - 1,n,ru,2)
fre1 = SerieFreq(es + 1,EstrazioneFin - 1,n1,ru,2)
frre = fre + fre1
If frre = 0 Then
rt = SerieRitardo(es - 800,EstrazioneFin - 1,n,ru,2)
rt1 = SerieRitardo(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 = SerieFreq(EstrazioneFin,EstrazioneFin,n1,ru,2)
us1 = SerieFreq(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 = SerieFreq(es,es,n,ru,2)
fr1 = SerieFreq(es,es,n1,ru,2)
frr = fr + fr1
If frr > 0 Then
fre = SerieFreq(es + 1,EstrazioneFin - 1,n,ru,2)
fre1 = SerieFreq(es + 1,EstrazioneFin - 1,n1,ru,2)
frre = fre + fre1
If frre = 0 Then
rt = SerieRitardo(es - 800,EstrazioneFin - 1,n,ru,2)
rt1 = SerieRitardo(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 = SerieFreq(EstrazioneFin,EstrazioneFin,n1,ru,2)
us1 = SerieFreq(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 = SerieFreq(es,es,n,ru,2)
fr1 = SerieFreq(es,es,n1,ru,2)
frr = fr + fr1
If frr > 0 Then
fre = SerieFreq(es + 1,EstrazioneFin - 1,n,ru,2)
fre1 = SerieFreq(es + 1,EstrazioneFin - 1,n1,ru,2)
frre = fre + fre1
If frre = 0 Then
rt = SerieRitardo(es - 800,EstrazioneFin - 1,n,ru,2)
rt1 = SerieRitardo(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 = SerieFreq(EstrazioneFin,EstrazioneFin,n1,ru,2)
us1 = SerieFreq(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 = SerieFreq(es,es,n,ru,2)
fr1 = SerieFreq(es,es,n1,ru,2)
frr = fr + fr1
If frr > 0 Then
fre = SerieFreq(es + 1,EstrazioneFin - 1,n,ru,2)
fre1 = SerieFreq(es + 1,EstrazioneFin - 1,n1,ru,2)
frre = fre + fre1
If frre = 0 Then
rt = SerieRitardo(es - 800,EstrazioneFin - 1,n,ru,2)
rt1 = SerieRitardo(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 = SerieFreq(EstrazioneFin,EstrazioneFin,n1,ru,2)
us1 = SerieFreq(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 = SerieFreq(es,es,n,ru,2)
fr1 = SerieFreq(es,es,n1,ru,2)
frr = fr + fr1
If frr > 0 Then
fre = SerieFreq(es + 1,EstrazioneFin - 1,n,ru,2)
fre1 = SerieFreq(es + 1,EstrazioneFin - 1,n1,ru,2)
frre = fre + fre1
If frre = 0 Then
rt = SerieRitardo(es - 800,EstrazioneFin - 1,n,ru,2)
rt1 = SerieRitardo(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 = SerieFreq(EstrazioneFin,EstrazioneFin,n1,ru,2)
us1 = SerieFreq(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 = SerieFreq(es,es,n,ru,2)
fr1 = SerieFreq(es,es,n1,ru,2)
frr = fr + fr1
If frr > 0 Then
fre = SerieFreq(es + 1,EstrazioneFin - 1,n,ru,2)
fre1 = SerieFreq(es + 1,EstrazioneFin - 1,n1,ru,2)
frre = fre + fre1
If frre = 0 Then
rt = SerieRitardo(es - 800,EstrazioneFin - 1,n,ru,2)
rt1 = SerieRitardo(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 = SerieFreq(EstrazioneFin,EstrazioneFin,n1,ru,2)
us1 = SerieFreq(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 = SerieFreq(es,es,n,ru,2)
fr1 = SerieFreq(es,es,n1,ru,2)
frr = fr + fr1
If frr > 0 Then
fre = SerieFreq(es + 1,EstrazioneFin - 1,n,ru,2)
fre1 = SerieFreq(es + 1,EstrazioneFin - 1,n1,ru,2)
frre = fre + fre1
If frre = 0 Then
rt = SerieRitardo(es - 800,EstrazioneFin - 1,n,ru,2)
rt1 = SerieRitardo(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 = SerieFreq(EstrazioneFin,EstrazioneFin,n1,ru,2)
us1 = SerieFreq(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 = SerieFreq(es,es,n,ru,2)
fr1 = SerieFreq(es,es,n1,ru,2)
frr = fr + fr1
If frr > 0 Then
fre = SerieFreq(es + 1,EstrazioneFin - 1,n,ru,2)
fre1 = SerieFreq(es + 1,EstrazioneFin - 1,n1,ru,2)
frre = fre + fre1
If frre = 0 Then
rt = SerieRitardo(es - 800,EstrazioneFin - 1,n,ru,2)
rt1 = SerieRitardo(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 = SerieFreq(EstrazioneFin,EstrazioneFin,n1,ru,2)
us1 = SerieFreq(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 = SerieFreq(es,es,n,ru,2)
fr1 = SerieFreq(es,es,n1,ru,2)
frr = fr + fr1
If frr > 0 Then
fre = SerieFreq(es + 1,EstrazioneFin - 1,n,ru,2)
fre1 = SerieFreq(es + 1,EstrazioneFin - 1,n1,ru,2)
frre = fre + fre1
If frre = 0 Then
rt = SerieRitardo(es - 800,EstrazioneFin - 1,n,ru,2)
rt1 = SerieRitardo(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 = SerieFreq(EstrazioneFin,EstrazioneFin,n1,ru,2)
us1 = SerieFreq(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 = SerieFreq(es,es,n,ru,2)
fr1 = SerieFreq(es,es,n1,ru,2)
frr = fr + fr1
If frr > 0 Then
fre = SerieFreq(es + 1,EstrazioneFin - 1,n,ru,2)
fre1 = SerieFreq(es + 1,EstrazioneFin - 1,n1,ru,2)
frre = fre + fre1
If frre = 0 Then
rt = SerieRitardo(es - 800,EstrazioneFin - 1,n,ru,2)
rt1 = SerieRitardo(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 = SerieFreq(EstrazioneFin,EstrazioneFin,n1,ru,2)
us1 = SerieFreq(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 = SerieFreq(es,es,n,ru,2)
fr1 = SerieFreq(es,es,n1,ru,2)
frr = fr + fr1
If frr > 0 Then
fre = SerieFreq(es + 1,EstrazioneFin - 1,n,ru,2)
fre1 = SerieFreq(es + 1,EstrazioneFin - 1,n1,ru,2)
frre = fre + fre1
If frre = 0 Then
rt = SerieRitardo(es - 800,EstrazioneFin - 1,n,ru,2)
rt1 = SerieRitardo(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 = SerieFreq(EstrazioneFin,EstrazioneFin,n1,ru,2)
us1 = SerieFreq(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 = SerieFreq(es,es,n,ru,2)
fr1 = SerieFreq(es,es,n1,ru,2)
frr = fr + fr1
If frr > 0 Then
fre = SerieFreq(es + 1,EstrazioneFin - 1,n,ru,2)
fre1 = SerieFreq(es + 1,EstrazioneFin - 1,n1,ru,2)
frre = fre + fre1
If frre = 0 Then
rt = SerieRitardo(es - 800,EstrazioneFin - 1,n,ru,2)
rt1 = SerieRitardo(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 = SerieFreq(EstrazioneFin,EstrazioneFin,n1,ru,2)
us1 = SerieFreq(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 = SerieFreq(es,es,n,ru,2)
fr1 = SerieFreq(es,es,n1,ru,2)
frr = fr + fr1
If frr > 0 Then
fre = SerieFreq(es + 1,EstrazioneFin - 1,n,ru,2)
fre1 = SerieFreq(es + 1,EstrazioneFin - 1,n1,ru,2)
frre = fre + fre1
If frre = 0 Then
rt = SerieRitardo(es - 800,EstrazioneFin - 1,n,ru,2)
rt1 = SerieRitardo(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 = SerieFreq(EstrazioneFin,EstrazioneFin,n1,ru,2)
us1 = SerieFreq(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 = SerieFreq(es,es,n,ru,2)
fr1 = SerieFreq(es,es,n1,ru,2)
frr = fr + fr1
If frr > 0 Then
fre = SerieFreq(es + 1,EstrazioneFin - 1,n,ru,2)
fre1 = SerieFreq(es + 1,EstrazioneFin - 1,n1,ru,2)
frre = fre + fre1
If frre = 0 Then
rt = SerieRitardo(es - 800,EstrazioneFin - 1,n,ru,2)
rt1 = SerieRitardo(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 = SerieFreq(EstrazioneFin,EstrazioneFin,n1,ru,2)
us1 = SerieFreq(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 = SerieFreq(es,es,n,ru,2)
fr1 = SerieFreq(es,es,n1,ru,2)
frr = fr + fr1
If frr > 0 Then
fre = SerieFreq(es + 1,EstrazioneFin - 1,n,ru,2)
fre1 = SerieFreq(es + 1,EstrazioneFin - 1,n1,ru,2)
frre = fre + fre1
If frre = 0 Then
rt = SerieRitardo(es - 800,EstrazioneFin - 1,n,ru,2)
rt1 = SerieRitardo(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 = SerieFreq(EstrazioneFin,EstrazioneFin,n1,ru,2)
us1 = SerieFreq(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 = SerieFreq(es,es,n,ru,2)
fr1 = SerieFreq(es,es,n1,ru,2)
frr = fr + fr1
If frr > 0 Then
fre = SerieFreq(es + 1,EstrazioneFin - 1,n,ru,2)
fre1 = SerieFreq(es + 1,EstrazioneFin - 1,n1,ru,2)
frre = fre + fre1
If frre = 0 Then
rt = SerieRitardo(es - 800,EstrazioneFin - 1,n,ru,2)
rt1 = SerieRitardo(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 = SerieFreq(EstrazioneFin,EstrazioneFin,n1,ru,2)
us1 = SerieFreq(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 = SerieFreq(es,es,n,ru,2)
fr1 = SerieFreq(es,es,n1,ru,2)
frr = fr + fr1
If frr > 0 Then
fre = SerieFreq(es + 1,EstrazioneFin - 1,n,ru,2)
fre1 = SerieFreq(es + 1,EstrazioneFin - 1,n1,ru,2)
frre = fre + fre1
If frre = 0 Then
rt = SerieRitardo(es - 800,EstrazioneFin - 1,n,ru,2)
rt1 = SerieRitardo(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 = SerieFreq(EstrazioneFin,EstrazioneFin,n1,ru,2)
us1 = SerieFreq(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 = SerieFreq(es,es,n,ru,2)
fr1 = SerieFreq(es,es,n1,ru,2)
frr = fr + fr1
If frr > 0 Then
fre = SerieFreq(es + 1,EstrazioneFin - 1,n,ru,2)
fre1 = SerieFreq(es + 1,EstrazioneFin - 1,n1,ru,2)
frre = fre + fre1
If frre = 0 Then
rt = SerieRitardo(es - 800,EstrazioneFin - 1,n,ru,2)
rt1 = SerieRitardo(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 = SerieFreq(EstrazioneFin,EstrazioneFin,n1,ru,2)
us1 = SerieFreq(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 = SerieFreq(es,es,n,ru,2)
fr1 = SerieFreq(es,es,n1,ru,2)
frr = fr + fr1
If frr > 0 Then
fre = SerieFreq(es + 1,EstrazioneFin - 1,n,ru,2)
fre1 = SerieFreq(es + 1,EstrazioneFin - 1,n1,ru,2)
frre = fre + fre1
If frre = 0 Then
rt = SerieRitardo(es - 800,EstrazioneFin - 1,n,ru,2)
rt1 = SerieRitardo(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 = SerieFreq(EstrazioneFin,EstrazioneFin,n1,ru,2)
us1 = SerieFreq(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 = SerieFreq(es,es,n,ru,2)
fr1 = SerieFreq(es,es,n1,ru,2)
frr = fr + fr1
If frr > 0 Then
fre = SerieFreq(es + 1,EstrazioneFin - 1,n,ru,2)
fre1 = SerieFreq(es + 1,EstrazioneFin - 1,n1,ru,2)
frre = fre + fre1
If frre = 0 Then
rt = SerieRitardo(es - 800,EstrazioneFin - 1,n,ru,2)
rt1 = SerieRitardo(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 = SerieFreq(EstrazioneFin,EstrazioneFin,n1,ru,2)
us1 = SerieFreq(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 = SerieFreq(es,es,n,ru,2)
fr1 = SerieFreq(es,es,n1,ru,2)
frr = fr + fr1
If frr > 0 Then
fre = SerieFreq(es + 1,EstrazioneFin - 1,n,ru,2)
fre1 = SerieFreq(es + 1,EstrazioneFin - 1,n1,ru,2)
frre = fre + fre1
If frre = 0 Then
rt = SerieRitardo(es - 800,EstrazioneFin - 1,n,ru,2)
rt1 = SerieRitardo(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 = SerieFreq(EstrazioneFin,EstrazioneFin,n1,ru,2)
us1 = SerieFreq(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 = SerieFreq(es,es,n,ru,2)
fr1 = SerieFreq(es,es,n1,ru,2)
frr = fr + fr1
If frr > 0 Then
fre = SerieFreq(es + 1,EstrazioneFin - 1,n,ru,2)
fre1 = SerieFreq(es + 1,EstrazioneFin - 1,n1,ru,2)
frre = fre + fre1
If frre = 0 Then
rt = SerieRitardo(es - 800,EstrazioneFin - 1,n,ru,2)
rt1 = SerieRitardo(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 = SerieFreq(EstrazioneFin,EstrazioneFin,n1,ru,2)
us1 = SerieFreq(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 = SerieFreq(es,es,n,ru,2)
fr1 = SerieFreq(es,es,n1,ru,2)
frr = fr + fr1
If frr > 0 Then
fre = SerieFreq(es + 1,EstrazioneFin - 1,n,ru,2)
fre1 = SerieFreq(es + 1,EstrazioneFin - 1,n1,ru,2)
frre = fre + fre1
If frre = 0 Then
rt = SerieRitardo(es - 800,EstrazioneFin - 1,n,ru,2)
rt1 = SerieRitardo(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 = SerieFreq(EstrazioneFin,EstrazioneFin,n1,ru,2)
us1 = SerieFreq(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 = SerieFreq(es,es,n,ru,2)
fr1 = SerieFreq(es,es,n1,ru,2)
frr = fr + fr1
If frr > 0 Then
fre = SerieFreq(es + 1,EstrazioneFin - 1,n,ru,2)
fre1 = SerieFreq(es + 1,EstrazioneFin - 1,n1,ru,2)
frre = fre + fre1
If frre = 0 Then
rt = SerieRitardo(es - 800,EstrazioneFin - 1,n,ru,2)
rt1 = SerieRitardo(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 = SerieFreq(EstrazioneFin,EstrazioneFin,n1,ru,2)
us1 = SerieFreq(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 = SerieFreq(es,es,n,ru,2)
fr1 = SerieFreq(es,es,n1,ru,2)
frr = fr + fr1
If frr > 0 Then
fre = SerieFreq(es + 1,EstrazioneFin - 1,n,ru,2)
fre1 = SerieFreq(es + 1,EstrazioneFin - 1,n1,ru,2)
frre = fre + fre1
If frre = 0 Then
rt = SerieRitardo(es - 800,EstrazioneFin - 1,n,ru,2)
rt1 = SerieRitardo(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 = SerieFreq(EstrazioneFin,EstrazioneFin,n1,ru,2)
us1 = SerieFreq(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 = SerieFreq(es,es,n,ru,2)
fr1 = SerieFreq(es,es,n1,ru,2)
frr = fr + fr1
If frr > 0 Then
fre = SerieFreq(es + 1,EstrazioneFin - 1,n,ru,2)
fre1 = SerieFreq(es + 1,EstrazioneFin - 1,n1,ru,2)
frre = fre + fre1
If frre = 0 Then
rt = SerieRitardo(es - 800,EstrazioneFin - 1,n,ru,2)
rt1 = SerieRitardo(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 = SerieFreq(EstrazioneFin,EstrazioneFin,n1,ru,2)
us1 = SerieFreq(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 = SerieFreq(es,es,n,ru,2)
fr1 = SerieFreq(es,es,n1,ru,2)
frr = fr + fr1
If frr > 0 Then
fre = SerieFreq(es + 1,EstrazioneFin - 1,n,ru,2)
fre1 = SerieFreq(es + 1,EstrazioneFin - 1,n1,ru,2)
frre = fre + fre1
If frre = 0 Then
rt = SerieRitardo(es - 800,EstrazioneFin - 1,n,ru,2)
rt1 = SerieRitardo(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 = SerieFreq(EstrazioneFin,EstrazioneFin,n1,ru,2)
us1 = SerieFreq(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 = SerieFreq(es,es,n,ru,2)
fr1 = SerieFreq(es,es,n1,ru,2)
frr = fr + fr1
If frr > 0 Then
fre = SerieFreq(es + 1,EstrazioneFin - 1,n,ru,2)
fre1 = SerieFreq(es + 1,EstrazioneFin - 1,n1,ru,2)
frre = fre + fre1
If frre = 0 Then
rt = SerieRitardo(es - 800,EstrazioneFin - 1,n,ru,2)
rt1 = SerieRitardo(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 = SerieFreq(EstrazioneFin,EstrazioneFin,n1,ru,2)
us1 = SerieFreq(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 = SerieFreq(es,es,n,ru,2)
fr1 = SerieFreq(es,es,n1,ru,2)
frr = fr + fr1
If frr > 0 Then
fre = SerieFreq(es + 1,EstrazioneFin - 1,n,ru,2)
fre1 = SerieFreq(es + 1,EstrazioneFin - 1,n1,ru,2)
frre = fre + fre1
If frre = 0 Then
rt = SerieRitardo(es - 800,EstrazioneFin - 1,n,ru,2)
rt1 = SerieRitardo(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 = SerieFreq(EstrazioneFin,EstrazioneFin,n1,ru,2)
us1 = SerieFreq(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 = SerieFreq(es,es,n,ru,2)
fr1 = SerieFreq(es,es,n1,ru,2)
frr = fr + fr1
If frr > 0 Then
fre = SerieFreq(es + 1,EstrazioneFin - 1,n,ru,2)
fre1 = SerieFreq(es + 1,EstrazioneFin - 1,n1,ru,2)
frre = fre + fre1
If frre = 0 Then
rt = SerieRitardo(es - 800,EstrazioneFin - 1,n,ru,2)
rt1 = SerieRitardo(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 = SerieFreq(EstrazioneFin,EstrazioneFin,n1,ru,2)
us1 = SerieFreq(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 = SerieFreq(es,es,n,ru,2)
fr1 = SerieFreq(es,es,n1,ru,2)
frr = fr + fr1
If frr > 0 Then
fre = SerieFreq(es + 1,EstrazioneFin - 1,n,ru,2)
fre1 = SerieFreq(es + 1,EstrazioneFin - 1,n1,ru,2)
frre = fre + fre1
If frre = 0 Then
rt = SerieRitardo(es - 800,EstrazioneFin - 1,n,ru,2)
rt1 = SerieRitardo(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 = SerieFreq(EstrazioneFin,EstrazioneFin,n1,ru,2)
us1 = SerieFreq(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 = SerieFreq(es,es,n,ru,2)
fr1 = SerieFreq(es,es,n1,ru,2)
frr = fr + fr1
If frr > 0 Then
fre = SerieFreq(es + 1,EstrazioneFin - 1,n,ru,2)
fre1 = SerieFreq(es + 1,EstrazioneFin - 1,n1,ru,2)
frre = fre + fre1
If frre = 0 Then
rt = SerieRitardo(es - 800,EstrazioneFin - 1,n,ru,2)
rt1 = SerieRitardo(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 = SerieFreq(EstrazioneFin,EstrazioneFin,n1,ru,2)
us1 = SerieFreq(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 = SerieFreq(es,es,n,ru,2)
fr1 = SerieFreq(es,es,n1,ru,2)
frr = fr + fr1
If frr > 0 Then
fre = SerieFreq(es + 1,EstrazioneFin - 1,n,ru,2)
fre1 = SerieFreq(es + 1,EstrazioneFin - 1,n1,ru,2)
frre = fre + fre1
If frre = 0 Then
rt = SerieRitardo(es - 800,EstrazioneFin - 1,n,ru,2)
rt1 = SerieRitardo(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 = SerieFreq(EstrazioneFin,EstrazioneFin,n1,ru,2)
us1 = SerieFreq(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 = SerieFreq(es,es,n,ru,2)
fr1 = SerieFreq(es,es,n1,ru,2)
frr = fr + fr1
If frr > 0 Then
fre = SerieFreq(es + 1,EstrazioneFin - 1,n,ru,2)
fre1 = SerieFreq(es + 1,EstrazioneFin - 1,n1,ru,2)
frre = fre + fre1
If frre = 0 Then
rt = SerieRitardo(es - 800,EstrazioneFin - 1,n,ru,2)
rt1 = SerieRitardo(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 = SerieFreq(EstrazioneFin,EstrazioneFin,n1,ru,2)
us1 = SerieFreq(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 = SerieFreq(es,es,n,ru,2)
fr1 = SerieFreq(es,es,n1,ru,2)
frr = fr + fr1
If frr > 0 Then
fre = SerieFreq(es + 1,EstrazioneFin - 1,n,ru,2)
fre1 = SerieFreq(es + 1,EstrazioneFin - 1,n1,ru,2)
frre = fre + fre1
If frre = 0 Then
rt = SerieRitardo(es - 800,EstrazioneFin - 1,n,ru,2)
rt1 = SerieRitardo(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 = SerieFreq(EstrazioneFin,EstrazioneFin,n1,ru,2)
us1 = SerieFreq(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
 
Top
7 replies since 18/4/2023, 08:39   257 views
  Share  
 

Software SpazioMetria - Listati&Discussioni
 

Create your forum and your blog! · Top Forum · Categories · Help · Status · Contacts · Powered by ForumFree