Script biambo

[Cinzia27]

Splendido. Grazie, Tom

 

[mirapep]

sinceramnte non lo so , dal mio punto di vista è come una curiosità , una situazione capitata in quel momento , se uno cambia range anche di poco le formazioni trovate cambiano ..

Ciao, buongiorno

Anche io per curiosità ho eseguito alcune prove. Impostate 100 estrazioni di range, ruote Tutte, trova 19 combinazioni utili per storico 0. Verrebbe da pensare che una estrazione in più non dovrebbe stravolgere la situazione, quindi con quota netta 23 contro una spesa di 19 sarei in vincita.............Bhè su 5 prove portando il range di 100 avanti di uno, ne avesse centrata una. Ma non avevo dubbi.............l'esperienza archivi virtuali docet. Storici con migliaia di estrazioni di resistenza puntualmente battuti all'atto del gioco.................
Ecco perchè chiedevo se ci fosse uno step successivo, altrimenti come dice qualcuno, è solo allenamento per i neuroni...............

 

[LuigiB]

solo un ingenuo potrebeb pensare che giocando quei 19 ambi ci siano piu probabilità di vinecere nelle prossime estrazioni... , daltra perte basta fare la ricerca con un'estrazione indietro e vedere se in quella avanzata è sortito qualcosa ..

 

[mirapep]

solo un ingenuo potrebeb pensare che giocando quei 19 ambi ci siano piu probabilità di vinecere nelle prossime estrazioni... , daltra perte basta fare la ricerca con un'estrazione indietro e vedere se in quella avanzata è sortito qualcosa ..

E' quello che ho fatto. Ma ripeto è la stessa cosa degli 83 ambi, ce ne sarà sempre qualcuno che supererà lo storico e tu non sai quale

 

[LuigiB]

vuoi convincere me che tutte ste robe ai fini di vincere qualcosa siano del tutto inutili ?

 

[mirapep]

vuoi convincere me che tutte ste robe ai fini di vincere qualcosa siano del tutto inutili ?

Nooo, te proprio no. So bene il tuo pensiero in merito al gioco. La mia domanda era rivolta ad altri. Ora che hanno trovato le formazioni con ritardo 0 che fanno?

 

[LuigiB]

e poi dici che non vuoi fare polemica e che devono fare ? gli alchimisti come un po tutti quelli che giocano al lotto ..almeno qualcuno si impara a programmare .... qualcuno ...

 

[mirapep]

Luigi è da un pò che frequento il forum, non è polemica e non voglio essere distruttivo anzi. Bene l'esercitazione alla programmazione, può essere un obiettivo. Ma mi chiedevo se alla base di questo studio sui biambi e poi sulle formazioni a rs 0 ci sia qualcosa che possa orientarmi su altri percorsi, giusto per perdere un altro pò di tempo. Non vorrei essere ripetitivo, ma da tempo rigiro la frittata degli storici con un gioco continuo su quelli prossimi allo sfaldamento. Quante combinazioni consecutivamente supereranno lo storico che ha retto per migliaia di estrazioni? I risultati in termini di ritardo complessivo sono buoni ma non abbastanza per una pratica strategia di gioco

 

[i legend]

e poi dici che non vuoi fare polemica e che devono fare ? gli alchimisti come un po tutti quelli che giocano al lotto ..almeno qualcuno si impara a programmare .... qualcuno ...

Concordo con ogni singola lettera scritta da Luigi, incluse faccine e punti .

🙂👍

 

[Cinzia27]

questi sono i 525 terni di cui parlavo. pure qui non ho fatto la controverifica.

Confermo lo storico 0 anche di questi, Luigi.
Mi pare però che ora siano a ritardo attuale 2.

Pos​

Formazione​

Note​

Ba​

Ca​

Fi​

Ge​

Mi​

Na​

Pa​

Ro​

To​

Ve​

Nz​

Unite​

1​

'51.79.89​

​

22​

0​

225​

0​

2294​

0​

2095​

0​

0​

0​

0​

1869​

2​

'26.29.61​

​

2077​

0​

0​

0​

2032​

0​

1838​

0​

0​

0​

2659​

1838​

3​

'28.54.85​

​

0​

0​

655​

0​

0​

2319​

0​

0​

364​

805​

0​

1731​

4​

'40.46.68​

​

0​

192​

0​

0​

0​

166​

0​

0​

120​

1729​

0​

1729​

5​

'06.59.80​

​

124​

2321​

0​

0​

0​

0​

0​

0​

2048​

0​

327​

1720​

6​

'20.40.63​

​

2178​

0​

0​

0​

1690​

1832​

2360​

2650​

0​

2686​

0​

1690​

7​

'03.46.74​

​

1724​

0​

0​

0​

0​

2107​

0​

52​

2319​

0​

1968​

1671​

8​

'39.75.88​

​

147​

0​

144​

0​

0​

0​

0​

2485​

815​

0​

0​

1669​

9​

'37.43.77​

​

0​

0​

0​

2781​

2653​

0​

0​

0​

0​

2776​

1668​

1668​

10​

'31.61.82​

​

0​

608​

0​

2250​

323​

532​

2712​

213​

2744​

0​

0​

1641​

11​

'61.63.66​

​

1606​

2184​

315​

0​

2557​

0​

488​

0​

122​

0​

142​

1606​

12​

'09.71.80​

​

0​

0​

1645​

0​

50​

0​

0​

2660​

2275​

2125​

0​

1594​

13​

'31.56.80​

​

0​

0​

2005​

2441​

1775​

0​

0​

1951​

0​

356​

0​

1594​

14​

'09.14.27​

​

0​

0​

0​

1697​

0​

1794​

2250​

0​

0​

1565​

1662​

1565​

15​

'07.26.76​

​

0​

0​

0​

0​

2000​

313​

0​

0​

2434​

1702​

0​

1544​

16​

'65.72.90​

​

0​

0​

0​

0​

953​

1543​

0​

0​

2625​

0​

0​

1536​

17​

'17.19.69​

​

332​

0​

0​

2418​

0​

0​

2157​

0​

2154​

245​

0​

1529​

18​

'17.24.50​

​

1824​

698​

1965​

622​

2387​

0​

29​

0​

0​

0​

368​

1523​

19​

'17.63.89​

​

0​

2580​

1082​

97​

75​

775​

0​

0​

1088​

0​

0​

1491​

20​

'09.18.31​

​

0​

0​

0​

2012​

0​

1866​

0​

72​

0​

392​

2589​

1473​

21​

'41.79.83​

​

2790​

1690​

0​

433​

0​

0​

2309​

0​

0​

0​

0​

1471​

22​

'30.42.46​

​

0​

0​

0​

484​

1467​

0​

0​

0​

0​

0​

376​

1465​

23​

'19.22.42​

​

1085​

1200​

0​

0​

0​

2652​

0​

0​

0​

1156​

544​

1451​

24​

'10.35.69​

​

0​

2205​

1782​

0​

577​

0​

0​

62​

0​

0​

748​

1441​

25​

'28.68.87​

​

0​

385​

1984​

0​

0​

2183​

0​

1826​

2068​

0​

52​

1440​

26​

'14.34.44​

​

0​

2434​

103​

0​

1556​

0​

131​

0​

749​

633​

0​

1440​

27​

'03.31.81​

​

0​

2197​

0​

0​

2747​

1433​

0​

0​

0​

0​

0​

1433​

28​

'10.30.43​

​

0​

2090​

2478​

1430​

0​

0​

2318​

0​

0​

1811​

0​

1430​

29​

'20.28.80​

​

962​

0​

1583​

0​

1278​

0​

2753​

0​

796​

0​

0​

1405​

30​

'23.45.80​

​

0​

2062​

2302​

0​

483​

0​

2123​

0​

2211​

2343​

2152​

1401​

31​

'13.68.80​

​

0​

0​

2013​

0​

0​

0​

328​

0​

0​

0​

1405​

1399​

32​

'09.10.80​

​

628​

1393​

0​

0​

2647​

0​

0​

415​

0​

210​

2330​

1393​

33​

'40.47.84​

​

0​

534​

2419​

0​

1030​

1597​

635​

0​

0​

90​

0​

1388​

34​

'12.13.30​

​

0​

2524​

0​

0​

0​

659​

2458​

597​

676​

0​

0​

1387​

35​

'15.18.61​

​

1152​

0​

0​

0​

0​

0​

564​

1308​

2791​

248​

0​

1376​

36​

'10.84.87​

​

0​

1927​

0​

1616​

2166​

0​

1752​

0​

0​

1371​

0​

1371​

37​

'37.67.72​

​

0​

0​

0​

0​

0​

2360​

0​

1370​

492​

1​

929​

1370​

38​

'05.21.47​

​

0​

0​

0​

1825​

454​

0​

0​

2445​

0​

42​

138​

1370​

39​

'26.58.85​

​

880​

2681​

904​

0​

34​

0​

377​

0​

0​

0​

0​

1366​

40​

'52.58.89​

​

803​

48​

145​

0​

0​

0​

0​

0​

0​

2321​

1366​

1366​

41​

'39.46.81​

​

1828​

1361​

0​

2053​

1663​

0​

0​

0​

1481​

0​

1869​

1361​

42​

'13.15.82​

​

0​

2432​

0​

1506​

2400​

1912​

0​

2159​

2506​

0​

1355​

1355​

43​

'43.73.85​

​

1608​

0​

233​

0​

2696​

2260​

0​

100​

0​

255​

0​

1352​

44​

'22.48.87​

​

0​

2360​

0​

1815​

0​

0​

0​

2603​

2683​

2173​

1346​

1346​

45​

'03.10.81​

​

0​

1584​

0​

0​

0​

242​

0​

2340​

2130​

128​

0​

1341​

46​

'41.62.64​

​

765​

523​

0​

2371​

0​

0​

0​

2103​

0​

0​

0​

1337​

47​

'27.47.58​

​

0​

0​

0​

0​

0​

2307​

0​

0​

0​

440​

970​

1336​

48​

'20.30.33​

​

610​

2406​

0​

0​

1942​

0​

515​

0​

416​

0​

374​

1331​

49​

'36.57.80​

​

0​

1103​

0​

0​

481​

464​

383​

744​

0​

2425​

187​

1321​

50​

'71.75.90​

​

0​

551​

53​

696​

0​

0​

659​

0​

1143​

0​

1625​

1312​

51​

'53.55.74​

​

1390​

1167​

1412​

193​

469​

1458​

0​

0​

0​

0​

0​

1296​

52​

'44.47.73​

​

2511​

1504​

0​

0​

1656​

0​

1295​

0​

1785​

0​

0​

1295​

53​

'29.45.53​

​

0​

41​

2459​

2343​

1544​

0​

0​

0​

1331​

0​

0​

1289​

54​

'67.72.82​

​

314​

2636​

1289​

2574​

0​

0​

0​

1639​

2430​

0​

929​

1289​

55​

'48.75.89​

​

0​

0​

37​

0​

1959​

2283​

0​

1424​

1323​

0​

0​

1285​

56​

'31.32.89​

​

0​

0​

185​

2558​

335​

2397​

1693​

1660​

0​

0​

0​

1274​

57​

'15.19.35​

​

717​

0​

0​

325​

0​

0​

1644​

1992​

0​

0​

286​

1274​

58​

'05.63.85​

​

0​

1272​

0​

1622​

0​

0​

2520​

1289​

2440​

0​

2280​

1272​

59​

'28.44.50​

​

0​

0​

668​

1444​

0​

0​

2716​

0​

619​

0​

0​

1271​

60​

'07.09.83​

​

394​

1337​

98​

1319​

2644​

997​

0​

0​

0​

0​

0​

1264​

61​

'03.36.69​

​

0​

1771​

253​

2240​

1517​

0​

0​

2677​

0​

0​

2532​

1263​

62​

'04.27.31​

​

2327​

0​

0​

0​

0​

0​

1260​

0​

0​

2634​

1585​

1260​

63​

'05.06.81​

​

0​

2300​

0​

333​

189​

2301​

862​

2789​

2116​

62​

0​

1253​

64​

'66.69.75​

​

105​

0​

0​

0​

1865​

616​

0​

77​

2559​

0​

1986​

1248​

65​

'01.41.58​

​

0​

422​

0​

1945​

1739​

1671​

0​

0​

0​

0​

2746​

1248​

66​

'33.54.71​

​

1854​

0​

0​

1348​

1779​

2092​

0​

2725​

1247​

0​

0​

1247​

67​

'33.49.88​

​

0​

1060​

1422​

712​

0​

0​

9​

0​

2670​

0​

656​

1247​

68​

'15.35.50​

​

1931​

517​

0​

1761​

0​

0​

0​

0​

0​

0​

2234​

1243​

69​

'38.48.86​

​

2505​

0​

1221​

0​

1808​

0​

0​

0​

0​

0​

0​

1221​

70​

'17.32.86​

​

196​

0​

0​

1340​

0​

0​

1050​

0​

0​

1812​

0​

1211​

71​

'37.49.78​

​

0​

1906​

1771​

0​

0​

0​

1759​

0​

2512​

1206​

1975​

1206​

72​

'08.20.80​

​

542​

0​

428​

0​

0​

191​

0​

0​

2101​

2573​

0​

1192​

73​

'07.11.33​

​

0​

0​

620​

2699​

1467​

0​

2387​

0​

824​

2756​

0​

1191​

74​

'27.51.55​

​

826​

2457​

0​

0​

0​

0​

1022​

0​

0​

0​

2276​

1188​

75​

'25.65.84​

​

0​

0​

2379​

0​

1640​

0​

0​

2397​

0​

0​

2298​

1187​

76​

'38.46.82​

​

0​

0​

0​

0​

0​

0​

1305​

0​

0​

0​

1618​

1181​

77​

'04.70.84​

​

0​

503​

0​

0​

0​

2050​

868​

194​

0​

0​

1961​

1181​

78​

'43.50.83​

​

719​

2377​

0​

2563​

792​

1509​

0​

0​

0​

2326​

2355​

1179​

79​

'20.25.71​

​

1145​

0​

0​

2667​

0​

1492​

0​

0​

1028​

0​

0​

1174​

80​

'71.80.90​

​

539​

0​

53​

983​

1407​

0​

0​

2171​

0​

0​

0​

1165​

81​

'49.60.61​

​

1370​

2453​

1252​

0​

1157​

0​

0​

0​

0​

2168​

0​

1157​

82​

'34.60.61​

​

1919​

0​

0​

0​

1157​

1168​

0​

0​

1283​

0​

1997​

1157​

83​

'24.59.87​

​

1477​

1215​

0​

0​

0​

0​

1661​

0​

0​

0​

1154​

1154​

84​

'28.39.86​

​

0​

0​

1284​

1163​

0​

0​

1153​

0​

1253​

0​

0​

1153​

85​

'10.30.56​

​

769​

2687​

0​

2391​

0​

0​

849​

0​

0​

0​

2590​

1153​

86​

'38.76.83​

​

1901​

0​

0​

0​

1977​

0​

1152​

0​

1454​

0​

2403​

1152​

87​

'61.62.69​

​

0​

0​

2446​

207​

2123​

0​

0​

980​

606​

0​

0​

1142​

88​

'18.39.52​

​

789​

0​

0​

641​

2489​

2097​

0​

0​

1929​

0​

2402​

1139​

89​

'08.27.37​

​

0​

1571​

1240​

0​

0​

1550​

2742​

0​

0​

1139​

0​

1139​

90​

'31.41.60​

​

0​

2201​

0​

0​

0​

0​

1966​

0​

1140​

0​

2539​

1137​

91​

'12.13.62​

​

0​

0​

2498​

0​

0​

2148​

0​

307​

782​

0​

0​

1134​

92​

'28.43.76​

​

0​

0​

0​

0​

858​

1458​

0​

1205​

2591​

742​

0​

1132​

93​

'17.22.80​

​

2418​

870​

882​

764​

0​

1287​

0​

512​

0​

2435​

0​

1130​

94​

'40.76.89​

​

0​

704​

0​

2448​

0​

0​

1321​

0​

0​

0​

0​

1126​

95​

'13.44.53​

​

85​

2096​

0​

0​

496​

0​

2513​

2370​

0​

977​

2577​

1118​

96​

'06.76.89​

​

0​

0​

0​

856​

637​

0​

624​

0​

1973​

1577​

0​

1116​

97​

'06.37.73​

​

0​

1479​

0​

1520​

0​

0​

1124​

0​

0​

7​

1640​

1116​

98​

'31.74.77​

​

2458​

0​

0​

2337​

971​

0​

2086​

0​

571​

0​

0​

1114​

99​

'37.55.58​

​

0​

0​

1769​

0​

220​

0​

0​

1334​

0​

56​

0​

1113​

100​

'01.72.79​

​

0​

2690​

0​

0​

0​

1480​

6​

1117​

0​

0​

1727​

1110​

101​

'24.35.45​

​

0​

2720​

0​

1508​

0​

1255​

0​

1910​

1650​

0​

0​

1109​

102​

'03.14.18​

​

532​

290​

526​

0​

2311​

0​

2027​

760​

918​

2600​

0​

1108​

103​

'06.29.31​

​

0​

0​

1944​

1267​

17​

1125​

1782​

0​

1142​

0​

0​

1107​

104​

'63.80.86​

​

0​

502​

0​

0​

0​

1130​

0​

81​

365​

2238​

2607​

1107​

105​

'21.61.83​

​

0​

0​

2721​

0​

0​

797​

1048​

892​

0​

1549​

72​

1105​

106​

'17.25.28​

​

0​

0​

421​

0​

0​

1570​

1527​

0​

1362​

351​

0​

1105​

107​

'27.63.78​

​

0​

2412​

0​

1697​

1215​

1675​

0​

0​

2578​

2305​

110​

1104​

108​

'18.25.52​

​

0​

0​

991​

0​

0​

0​

1657​

920​

2761​

0​

1097​

1103​

109​

'18.23.49​

​

2392​

0​

1103​

259​

0​

147​

0​

612​

0​

0​

0​

1103​

110​

'26.47.62​

​

0​

0​

0​

0​

1483​

0​

2623​

1936​

1598​

0​

1702​

1102​

111​

'22.32.35​

​

0​

5​

1670​

1107​

0​

2424​

0​

0​

0​

2175​

2153​

1101​

112​

'12.29.74​

​

0​

365​

0​

0​

0​

0​

1465​

0​

2273​

0​

0​

1099​

113​

'04.26.65​

​

0​

0​

0​

0​

0​

0​

2115​

378​

0​

1018​

828​

1096​

114​

'15.56.84​

​

226​

0​

2608​

1245​

0​

944​

0​

0​

0​

0​

0​

1095​

115​

'27.49.66​

​

0​

1314​

2495​

2325​

0​

0​

1436​

0​

2102​

2267​

140​

1091​

116​

'01.12.90​

​

0​

230​

863​

0​

2713​

0​

0​

0​

2466​

1954​

1685​

1090​

117​

'13.76.78​

​

493​

0​

1578​

2228​

0​

448​

0​

1761​

0​

0​

0​

1084​

118​

'07.45.83​

​

0​

0​

1134​

0​

979​

2215​

0​

2113​

0​

0​

0​

1080​

119​

'41.46.71​

​

0​

1887​

0​

1507​

0​

1079​

0​

0​

1822​

2274​

2239​

1079​

120​

'16.55.68​

​

0​

0​

0​

1367​

0​

2550​

0​

440​

0​

0​

1880​

1076​

121​

'02.05.60​

​

0​

0​

0​

510​

0​

774​

0​

558​

539​

1209​

1369​

1075​

122​

'47.55.89​

​

2184​

2042​

0​

0​

0​

0​

0​

1564​

1073​

2160​

0​

1073​

123​

'41.43.48​

​

2771​

0​

104​

0​

0​

1232​

268​

0​

1702​

999​

406​

1068​

124​

'30.83.87​

​

0​

0​

0​

0​

331​

1924​

521​

2180​

0​

0​

2529​

1066​

125​

'47.66.80​

​

1581​

150​

520​

0​

0​

165​

398​

0​

0​

2226​

0​

1060​

126​

'01.09.19​

​

2278​

0​

0​

1059​

0​

0​

2252​

1859​

632​

0​

0​

1059​

127​

'06.30.53​

​

1344​

0​

1811​

0​

1872​

1598​

1263​

0​

0​

0​

0​

1056​

128​

'27.65.82​

​

0​

1562​

0​

2428​

0​

1055​

0​

0​

0​

1418​

0​

1055​

129​

'24.50.53​

​

0​

1472​

1392​

0​

2178​

0​

1596​

2124​

0​

1898​

0​

1054​

130​

'05.13.46​

​

581​

1883​

667​

0​

2545​

0​

0​

1720​

1486​

570​

1798​

1052​

131​

'42.49.79​

​

0​

1533​

935​

0​

0​

452​

0​

0​

0​

0​

2586​

1043​

132​

'34.40.49​

​

566​

172​

1779​

0​

688​

0​

1731​

0​

0​

0​

0​

1042​

133​

'06.15.27​

​

1781​

1808​

0​

0​

0​

0​

1673​

0​

2485​

2504​

0​

1042​

134​

'29.67.69​

​

843​

0​

0​

709​

84​

0​

2769​

1164​

2521​

1483​

0​

1037​

135​

'51.57.80​

​

0​

1723​

1745​

0​

0​

2493​

0​

2373​

0​

0​

2010​

1031​

136​

'43.50.51​

​

2056​

1024​

0​

0​

0​

388​

0​

239​

2174​

0​

11​

1031​

137​

'12.23.78​

​

1051​

0​

2081​

0​

2174​

1000​

0​

0​

0​

0​

961​

1029​

138​

'02.23.69​

​

0​

2661​

0​

743​

0​

0​

0​

0​

0​

0​

1277​

1027​

139​

'05.29.84​

​

0​

2038​

0​

0​

2418​

2199​

2468​

0​

1026​

0​

0​

1026​

140​

'30.37.39​

​

0​

0​

0​

0​

2708​

390​

1406​

445​

902​

2379​

0​

1022​

141​

'14.23.54​

​

994​

0​

0​

1207​

2413​

2230​

0​

2454​

0​

0​

0​

1022​

142​

'40.61.81​

​

2291​

71​

0​

0​

2730​

379​

2726​

0​

1268​

0​

1256​

1022​

143​

'02.16.81​

​

0​

1756​

936​

0​

0​

0​

0​

0​

1316​

1805​

847​

1021​

144​

'14.36.88​

​

79​

654​

2432​

0​

0​

0​

0​

1123​

0​

1902​

399​

1018​

145​

'51.64.83​

​

2471​

0​

2422​

1688​

669​

0​

0​

0​

119​

512​

0​

1018​

146​

'14.49.90​

​

2639​

124​

0​

0​

2396​

769​

0​

0​

913​

0​

1153​

1014​

147​

'03.54.55​

​

0​

1279​

0​

0​

1248​

1023​

0​

1112​

0​

1576​

1011​

1011​

148​

'36.73.86​

​

2630​

0​

0​

0​

0​

635​

1809​

798​

2530​

772​

0​

1010​

149​

'26.66.74​

​

2380​

0​

0​

0​

1010​

0​

1808​

0​

2344​

0​

2683​

1010​

150​

'52.78.84​

​

0​

998​

644​

910​

0​

0​

0​

265​

0​

1193​

2203​

1009​

151​

'33.40.89​

​

1740​

203​

0​

0​

1749​

0​

0​

1212​

0​

1751​

2451​

1008​

152​

'04.30.61​

​

2272​

0​

2070​

2749​

1510​

0​

2496​

1382​

1007​

0​

2487​

1007​

153​

'36.52.77​

​

0​

2150​

1982​

0​

1006​

0​

2464​

0​

1878​

0​

0​

1006​

154​

'51.78.80​

​

2140​

0​

0​

0​

0​

2177​

0​

473​

1133​

2545​

0​

1006​

155​

'08.46.55​

​

2686​

1038​

0​

2045​

0​

0​

0​

454​

0​

0​

2697​

1006​

156​

'37.42.46​

​

0​

0​

786​

0​

0​

0​

2013​

642​

2243​

618​

1360​

1004​

157​

'34.40.47​

​

1607​

0​

0​

0​

385​

2658​

1731​

0​

727​

1856​

0​

1003​

158​

'28.53.76​

​

1946​

175​

0​

914​

0​

0​

2120​

1918​

0​

2388​

814​

1003​

159​

'06.10.50​

​

1167​

0​

0​

0​

446​

0​

507​

0​

1409​

0​

2619​

1002​

160​

'02.17.70​

​

2093​

0​

0​

525​

0​

0​

2109​

0​

0​

1525​

2501​

999​

161​

'14.40.52​

​

2065​

1972​

0​

0​

0​

1066​

2335​

0​

0​

349​

0​

998​

162​

'62.71.73​

​

957​

0​

0​

0​

0​

0​

0​

0​

0​

2145​

1955​

997​

163​

'48.68.78​

​

0​

658​

0​

1655​

2169​

0​

0​

0​

0​

461​

2227​

996​

164​

'21.64.90​

​

633​

0​

0​

0​

2264​

0​

1072​

1269​

2356​

442​

2462​

994​

165​

'73.88.89​

​

0​

2046​

2074​

0​

0​

992​

1356​

0​

1286​

2014​

0​

992​

166​

'04.68.78​

​

123​

1917​

0​

0​

1701​

548​

0​

0​

0​

0​

0​

991​

167​

'43.85.90​

​

1649​

0​

0​

0​

0​

0​

54​

0​

19​

1928​

1046​

991​

168​

'16.46.51​

​

0​

504​

110​

0​

285​

0​

2206​

0​

1179​

1215​

2243​

990​

169​

'07.29.40​

​

990​

0​

0​

0​

1304​

0​

0​

1909​

1860​

1922​

0​

990​

170​

'34.53.90​

​

1460​

503​

434​

0​

0​

0​

259​

0​

1852​

2040​

0​

989​

171​

'04.14.61​

​

0​

2642​

1884​

1528​

1458​

0​

0​

2643​

0​

0​

0​

987​

172​

'32.51.70​

​

1079​

0​

918​

0​

0​

0​

0​

2633​

2723​

1451​

0​

986​

173​

'11.20.58​

​

1446​

1589​

0​

0​

0​

0​

1636​

0​

1685​

1101​

120​

980​

174​

'62.64.85​

​

0​

0​

1242​

0​

1896​

1011​

0​

0​

1447​

0​

1725​

979​

175​

'21.28.77​

​

0​

1453​

0​

0​

0​

334​

0​

1965​

0​

0​

0​

977​

176​

'01.34.63​

​

596​

0​

209​

0​

0​

0​

1810​

0​

812​

2421​

0​

976​

177​

'12.41.50​

​

0​

2110​

975​

0​

0​

0​

0​

0​

0​

1300​

0​

975​

178​

'24.37.71​

​

0​

514​

1244​

0​

1834​

0​

40​

0​

859​

0​

0​

974​

179​

'13.44.63​

​

0​

0​

2486​

0​

496​

1413​

0​

0​

1511​

0​

0​

974​

180​

'07.70.86​

​

0​

973​

1765​

2236​

0​

0​

0​

1043​

1017​

0​

2209​

973​

181​

'02.42.69​

​

0​

0​

1200​

711​

0​

1067​

0​

1282​

653​

0​

0​

973​

182​

'16.63.87​

​

0​

2461​

469​

1135​

730​

0​

0​

0​

0​

1487​

0​

973​

183​

'24.45.54​

​

0​

0​

0​

2354​

332​

172​

0​

1320​

1582​

0​

1561​

971​

184​

'30.43.69​

​

2164​

0​

0​

0​

0​

0​

0​

893​

1206​

341​

0​

971​

185​

'31.76.90​

​

752​

1302​

47​

0​

1161​

0​

0​

1270​

708​

2546​

1575​

970​

186​

'08.61.89​

​

0​

0​

0​

1329​

0​

1180​

0​

0​

1467​

0​

0​

970​

187​

'09.51.58​

​

1559​

693​

0​

1567​

0​

0​

0​

0​

0​

506​

1699​

969​

188​

'21.45.56​

​

968​

2001​

0​

0​

1377​

0​

2083​

0​

1967​

0​

0​

968​

189​

'44.56.71​

​

0​

0​

1176​

0​

0​

0​

966​

0​

0​

0​

0​

966​

190​

'28.52.53​

​

1521​

965​

0​

0​

0​

0​

0​

0​

0​

1961​

0​

965​

191​

'30.87.89​

​

0​

0​

0​

0​

2171​

0​

2257​

0​

2006​

0​

1318​

964​

192​

'23.44.47​

​

0​

2091​

2133​

998​

0​

0​

662​

0​

0​

0​

434​

959​

193​

'03.08.42​

​

1661​

702​

25​

1709​

0​

0​

0​

0​

2232​

2568​

0​

958​

194​

'31.38.90​

​

983​

0​

1223​

0​

1017​

2407​

0​

0​

0​

0​

0​

958​

195​

'24.60.82​

​

0​

2485​

1944​

0​

0​

0​

530​

1149​

70​

2398​

198​

956​

196​

'66.76.81​

​

0​

0​

375​

0​

1420​

0​

719​

0​

0​

0​

1693​

956​

197​

'30.64.77​

​

0​

579​

1534​

0​

2618​

0​

0​

0​

2315​

1754​

437​

954​

198​

'20.29.53​

​

1689​

0​

0​

1914​

0​

0​

0​

1571​

346​

0​

1571​

953​

199​

'71.76.80​

​

0​

0​

53​

0​

804​

929​

1445​

2636​

0​

2538​

938​

951​

200​

'29.60.62​

​

1295​

0​

2210​

0​

209​

987​

0​

146​

0​

0​

0​

949​

201​

'30.76.78​

​

2026​

0​

0​

1974​

0​

330​

948​

0​

2671​

0​

0​

948​

202​

'12.39.74​

​

0​

2043​

0​

0​

2436​

0​

453​

46​

1996​

1401​

0​

947​

203​

'15.29.56​

​

2535​

493​

1441​

2499​

0​

0​

0​

1605​

0​

0​

456​

947​

204​

'56.68.84​

​

2195​

2305​

1218​

581​

2166​

2593​

0​

0​

0​

0​

0​

947​

205​

'29.42.78​

​

0​

0​

122​

215​

1122​

0​

0​

960​

0​

1922​

0​

945​

206​

'03.27.35​

​

816​

0​

989​

0​

0​

947​

0​

1935​

0​

714​

0​

945​

207​

'39.78.83​

​

0​

0​

522​

337​

1326​

0​

0​

0​

392​

2128​

0​

944​

208​

'19.63.90​

​

0​

0​

0​

0​

2335​

1016​

1987​

1474​

0​

943​

0​

943​

209​

'11.53.64​

​

1468​

0​

629​

0​

872​

0​

932​

0​

462​

2355​

0​

940​

210​

'32.36.68​

​

0​

0​

2470​

2540​

554​

773​

2704​

815​

1883​

0​

0​

940​

211​

'32.66.78​

​

2528​

1678​

0​

0​

2481​

2471​

685​

741​

171​

0​

0​

936​

212​

'16.18.56​

​

0​

1103​

1946​

0​

0​

0​

0​

0​

0​

1191​

1866​

934​

213​

'05.14.49​

​

1128​

673​

0​

0​

0​

2422​

0​

2754​

2364​

0​

0​

934​

214​

'35.54.70​

​

2561​

0​

0​

0​

2161​

0​

1697​

0​

0​

1597​

2617​

927​

215​

'27.44.71​

​

0​

0​

0​

1475​

2548​

827​

0​

0​

0​

1554​

794​

927​

216​

'56.75.78​

​

0​

2750​

1641​

734​

0​

0​

0​

1888​

777​

0​

0​

927​

217​

'34.39.53​

​

2685​

0​

2415​

1821​

0​

1528​

1967​

0​

2026​

0​

0​

927​

218​

'15.25.54​

​

0​

1155​

0​

0​

1249​

1374​

2695​

0​

925​

1665​

2242​

925​

219​

'11.15.51​

​

0​

2388​

0​

0​

1796​

2624​

871​

0​

2447​

0​

0​

924​

220​

'19.47.64​

​

0​

1262​

339​

2151​

2764​

0​

143​

1619​

0​

0​

0​

922​

221​

'65.76.90​

​

0​

0​

290​

1490​

742​

0​

1624​

0​

214​

2546​

0​

921​

222​

'14.45.66​

​

1880​

0​

261​

0​

809​

2713​

0​

0​

0​

959​

0​

920​

223​

'23.48.78​

​

0​

2392​

0​

324​

1177​

2584​

1180​

2100​

0​

0​

0​

919​

224​

'18.64.67​

​

0​

0​

0​

2249​

1086​

2018​

0​

1708​

0​

1660​

0​

917​

225​

'16.66.82​

​

0​

309​

0​

783​

0​

0​

1231​

2148​

554​

3​

981​

916​

226​

'40.48.74​

​

1368​

0​

1570​

319​

958​

0​

0​

0​

0​

1489​

0​

915​

227​

'04.43.49​

​

0​

2770​

0​

1018​

0​

0​

1355​

136​

1569​

940​

0​

911​

228​

'05.31.45​

​

0​

0​

0​

0​

1209​

909​

0​

1644​

2199​

1500​

2575​

909​

229​

'22.54.84​

​

142​

0​

0​

0​

0​

1244​

0​

0​

0​

732​

0​

908​

230​

'31.55.78​

​

497​

2522​

0​

0​

0​

1113​

967​

0​

2020​

2345​

2114​

906​

231​

'20.39.89​

​

2369​

1462​

2788​

370​

1419​

0​

598​

524​

1020​

0​

0​

906​

232​

'02.04.61​

​

0​

0​

2182​

1603​

1848​

0​

2084​

0​

699​

2601​

623​

903​

233​

'20.42.89​

​

0​

0​

0​

2450​

676​

0​

1833​

0​

903​

1887​

0​

903​

234​

'42.56.78​

​

0​

1172​

2698​

817​

1427​

969​

1762​

0​

0​

111​

0​

903​

235​

'32.37.51​

​

0​

2022​

450​

2253​

0​

500​

2534​

0​

901​

0​

0​

901​

236​

'06.60.71​

​

0​

0​

0​

1916​

1819​

0​

0​

0​

1315​

898​

0​

898​

237​

'04.53.68​

​

1104​

0​

0​

659​

1701​

0​

0​

0​

1153​

1121​

2598​

896​

238​

'08.85.87​

​

0​

0​

2030​

0​

895​

1934​

0​

1014​

0​

2249​

0​

895​

239​

'01.23.71​

​

0​

2287​

0​

0​

2378​

0​

0​

0​

532​

1723​

0​

893​

240​

'03.08.79​

​

0​

2222​

0​

2013​

565​

1454​

1981​

1536​

0​

1704​

0​

888​

241​

'19.26.68​

​

0​

0​

78​

0​

1251​

0​

0​

0​

2137​

2064​

967​

888​

242​

'01.16.79​

​

1159​

0​

0​

0​

0​

0​

1724​

0​

1967​

2106​

0​

885​

243​

'01.20.51​

​

0​

1322​

988​

39​

0​

1012​

0​

0​

0​

2347​

0​

884​

244​

'27.67.70​

​

1466​

0​

1391​

2701​

828​

0​

930​

0​

0​

2350​

0​

883​

245​

'06.73.89​

​

0​

1547​

240​

471​

0​

883​

0​

117​

0​

0​

0​

883​

246​

'59.78.87​

​

0​

1069​

0​

0​

0​

188​

13​

1259​

0​

2035​

0​

880​

247​

'20.38.81​

​

0​

913​

0​

0​

1729​

2147​

2365​

1028​

0​

1538​

0​

879​

248​

'05.33.90​

​

223​

0​

0​

1774​

0​

0​

0​

2405​

0​

0​

1103​

879​

249​

'08.77.83​

​

0​

1754​

0​

0​

0​

490​

212​

1084​

0​

0​

0​

879​

250​

'37.53.78​

​

0​

1232​

0​

2016​

0​

0​

0​

1081​

2163​

0​

1885​

878​

251​

'65.76.81​

​

0​

0​

2234​

1947​

0​

1488​

0​

0​

0​

1347​

876​

876​

252​

'06.12.32​

​

0​

0​

2573​

0​

970​

1196​

0​

1460​

884​

0​

0​

875​

253​

'15.34.49​

​

1717​

254​

1779​

1280​

0​

0​

1129​

0​

0​

2204​

0​

874​

254​

'20.31.45​

​

2023​

0​

2179​

0​

2223​

0​

1565​

2438​

690​

0​

2610​

874​

255​

'38.53.75​

​

2422​

0​

0​

0​

0​

0​

1120​

0​

896​

0​

435​

873​

256​

'15.20.51​

​

0​

861​

0​

114​

0​

0​

69​

295​

0​

1864​

0​

872​

257​

'01.58.69​

​

0​

0​

0​

0​

0​

0​

0​

1431​

0​

0​

1561​

872​

258​

'09.32.63​

​

0​

2297​

0​

0​

1963​

2553​

2608​

1090​

319​

2548​

432​

872​

259​

'03.53.77​

​

1170​

787​

0​

421​

2242​

0​

147​

0​

2042​

2718​

0​

871​

260​

'09.15.84​

​

1603​

1353​

0​

0​

0​

0​

0​

546​

1795​

664​

1394​

870​

261​

'10.36.86​

​

0​

1945​

2367​

1030​

0​

0​

0​

0​

0​

1071​

0​

869​

262​

'28.72.84​

​

0​

867​

1514​

0​

0​

0​

0​

0​

1002​

0​

905​

867​

263​

'21.39.89​

​

395​

389​

1358​

359​

2226​

0​

137​

0​

0​

0​

840​

867​

264​

'30.88.90​

​

1320​

0​

2272​

1354​

0​

0​

0​

115​

754​

0​

0​

864​

265​

'45.47.84​

​

0​

1873​

0​

0​

1793​

1255​

0​

0​

391​

2236​

0​

863​

266​

'03.45.68​

​

2075​

1541​

0​

0​

910​

0​

1105​

164​

2245​

0​

0​

863​

267​

'33.50.77​

​

0​

0​

0​

859​

2262​

1298​

0​

0​

0​

2752​

1890​

859​

268​

'01.11.59​

​

0​

2017​

1407​

2575​

0​

1762​

948​

0​

0​

972​

1380​

857​

269​

'34.38.55​

​

2258​

0​

0​

0​

0​

1591​

0​

0​

737​

1624​

1673​

853​

270​

'14.50.84​

​

1960​

2510​

1715​

0​

0​

1972​

0​

0​

354​

0​

0​

853​

271​

'14.24.49​

​

0​

0​

1025​

238​

375​

1879​

0​

97​

0​

588​

648​

853​

272​

'03.04.51​

​

851​

2566​

0​

0​

2005​

0​

1784​

0​

2479​

0​

2410​

851​

273​

'16.36.69​

​

0​

1908​

0​

2240​

790​

0​

1431​

0​

0​

296​

0​

850​

274​

'10.37.39​

​

1254​

0​

0​

0​

0​

1080​

1523​

0​

0​

1548​

0​

850​

275​

'44.65.73​

​

0​

0​

1660​

0​

2467​

0​

1298​

0​

0​

740​

2741​

848​

276​

'13.42.47​

​

0​

0​

1887​

1669​

0​

0​

0​

0​

647​

0​

857​

845​

277​

'18.29.61​

​

1414​

2312​

1748​

0​

0​

1063​

1559​

2161​

844​

0​

2621​

844​

278​

'19.68.88​

​

901​

0​

799​

0​

1951​

0​

0​

1746​

2469​

2064​

2526​

844​

279​

'06.51.84​

​

0​

1391​

1389​

0​

190​

0​

0​

0​

0​

1034​

0​

843​

280​

'16.25.61​

​

0​

2215​

2575​

1714​

0​

1113​

257​

0​

0​

0​

0​

837​

281​

'13.20.84​

​

1139​

0​

0​

0​

0​

2597​

1323​

1954​

0​

302​

2203​

836​

282​

'12.55.86​

​

1501​

0​

0​

0​

819​

2500​

0​

0​

0​

0​

974​

835​

283​

'14.63.74​

​

1731​

0​

780​

0​

1616​

0​

0​

0​

0​

2724​

0​

835​

284​

'65.75.86​

​

1657​

0​

2246​

0​

0​

0​

0​

1324​

0​

0​

2036​

835​

285​

'06.16.78​

​

2229​

0​

387​

0​

0​

1871​

1702​

0​

808​

0​

1408​

831​

286​

'14.66.85​

​

0​

0​

830​

0​

0​

1102​

1194​

0​

1222​

0​

0​

830​

287​

'13.42.88​

​

0​

0​

0​

1706​

1791​

538​

1399​

1369​

0​

279​

1971​

830​

288​

'30.83.85​

​

0​

2292​

985​

0​

0​

1814​

521​

1936​

0​

1895​

0​

828​

289​

'46.65.75​

​

0​

2620​

0​

0​

1059​

0​

0​

838​

399​

0​

1718​

826​

290​

'16.81.84​

​

754​

1233​

0​

0​

1579​

2066​

0​

2404​

943​

0​

0​

824​

291​

'03.17.30​

​

2424​

2575​

0​

0​

0​

0​

1958​

1714​

782​

0​

1606​

823​

292​

'19.27.64​

​

0​

0​

1844​

0​

0​

0​

0​

1316​

438​

1292​

0​

822​

293​

'24.35.54​

​

2786​

2016​

0​

145​

0​

0​

1302​

1910​

0​

2673​

371​

822​

294​

'19.56.61​

​

2362​

2138​

0​

1158​

0​

2194​

0​

1726​

0​

0​

0​

821​

295​

'55.59.67​

​

0​

1986​

718​

2344​

283​

1998​

0​

1957​

487​

2072​

0​

820​

296​

'07.83.86​

​

97​

0​

0​

0​

987​

0​

106​

2351​

0​

0​

1389​

818​

297​

'30.35.40​

​

1825​

1230​

0​

0​

296​

308​

0​

2069​

411​

0​

0​

818​

298​

'30.45.69​

​

0​

565​

149​

1768​

0​

1752​

543​

0​

0​

2442​

86​

818​

299​

'07.37.48​

​

1197​

818​

0​

0​

0​

2006​

1311​

0​

1408​

0​

0​

818​

300​

'15.82.87​

​

1405​

2044​

0​

1855​

587​

1470​

0​

2605​

0​

1885​

0​

817​

301​

'01.18.20​

​

1094​

1228​

2129​

280​

0​

2570​

943​

1556​

0​

0​

156​

813​

302​

'06.17.20​

​

0​

919​

1087​

0​

1143​

0​

2509​

176​

1438​

0​

374​

810​

303​

'51.56.87​

​

1582​

0​

2375​

0​

0​

0​

1959​

0​

0​

0​

1669​

808​

304​

'02.06.18​

​

2263​

0​

2552​

0​

2654​

0​

1415​

0​

0​

1498​

0​

808​

305​

'20.51.79​

​

1599​

0​

0​

0​

990​

0​

1805​

2550​

0​

0​

2614​

808​

306​

'66.68.89​

​

1884​

2013​

0​

1711​

1076​

0​

0​

0​

1020​

0​

687​

807​

307​

'29.61.69​

​

0​

1036​

0​

0​

979​

587​

2706​

0​

0​

2316​

0​

807​

308​

'30.40.76​

​

1482​

0​

0​

1974​

0​

1619​

0​

0​

0​

604​

1461​

805​

309​

'27.47.73​

​

874​

1680​

573​

0​

0​

1803​

0​

0​

1817​

0​

0​

805​

310​

'14.26.83​

​

0​

396​

154​

0​

2149​

0​

1294​

847​

0​

0​

2299​

804​

311​

'21.25.38​

​

0​

2694​

540​

0​

0​

0​

0​

0​

1093​

0​

1768​

802​

312​

'10.29.42​

​

0​

0​

0​

1733​

1195​

0​

2090​

0​

842​

1599​

0​

801​

313​

'08.75.87​

​

0​

2306​

0​

0​

1831​

0​

736​

156​

806​

0​

0​

801​

314​

'43.50.76​

​

1994​

1728​

0​

0​

999​

805​

0​

0​

0​

0​

716​

800​

315​

'12.56.71​

​

0​

2760​

0​

0​

1366​

1118​

320​

2310​

0​

0​

0​

797​

316​

'10.25.74​

​

1009​

1092​

1821​

2664​

2118​

0​

2295​

0​

0​

2086​

0​

797​

317​

'58.59.84​

​

0​

0​

1213​

1643​

1222​

413​

0​

1637​

0​

0​

0​

796​

318​

'35.63.64​

​

0​

0​

2444​

0​

0​

925​

1683​

795​

0​

0​

2517​

795​

319​

'14.62.69​

​

0​

621​

2465​

0​

2767​

0​

1671​

0​

512​

0​

0​

793​

320​

'25.57.66​

​

978​

1269​

2307​

1987​

0​

0​

0​

1792​

0​

0​

0​

790​

321​

'05.37.71​

​

0​

2397​

2380​

1409​

1225​

0​

1251​

0​

1421​

0​

0​

790​

322​

'17.57.87​

​

892​

0​

0​

0​

1301​

0​

0​

726​

2119​

0​

1617​

788​

323​

'41.54.80​

​

0​

0​

0​

2602​

0​

0​

1385​

0​

0​

0​

1159​

786​

324​

'05.33.35​

​

1787​

2680​

0​

0​

1737​

0​

0​

0​

1398​

0​

0​

786​

325​

'03.37.69​

​

834​

0​

0​

2216​

0​

0​

1849​

47​

0​

1595​

1003​

786​

326​

'57.78.81​

​

2759​

0​

684​

0​

2591​

2567​

0​

0​

0​

1473​

0​

786​

327​

'59.60.73​

​

0​

1613​

0​

2520​

0​

1676​

1569​

2533​

0​

0​

2235​

785​

328​

'04.11.67​

​

607​

0​

0​

2098​

1917​

1868​

2097​

2122​

0​

0​

0​

784​

329​

'51.60.78​

​

1755​

0​

1115​

0​

0​

1247​

0​

1348​

0​

0​

0​

783​

330​

'32.72.73​

​

781​

1336​

0​

0​

0​

0​

0​

0​

1669​

0​

2452​

782​

331​

'15.61.63​

​

0​

638​

315​

0​

2225​

1505​

0​

2269​

0​

0​

1326​

781​

332​

'16.48.74​

​

1970​

0​

0​

0​

0​

0​

1091​

1027​

0​

1851​

1603​

781​

333​

'01.21.73​

​

0​

180​

0​

766​

0​

0​

848​

0​

1665​

2236​

0​

780​

334​

'10.11.65​

​

674​

952​

942​

1476​

2014​

1239​

0​

0​

0​

0​

2688​

774​

335​

'59.75.76​

​

0​

1257​

2078​

2668​

1182​

474​

258​

0​

0​

1835​

0​

769​

336​

'05.13.60​

​

0​

1660​

0​

1282​

0​

1220​

0​

2020​

2743​

0​

767​

767​

337​

'40.41.71​

​

0​

0​

1956​

1358​

1545​

0​

0​

0​

1223​

778​

141​

766​

338​

'23.82.89​

​

2370​

0​

876​

1357​

0​

2136​

0​

0​

2423​

0​

0​

766​

339​

'03.52.68​

​

1652​

0​

1241​

2711​

0​

0​

718​

971​

0​

2417​

657​

764​

340​

'01.23.67​

​

0​

0​

0​

0​

2024​

0​

0​

1783​

696​

1089​

0​

764​

341​

'46.84.87​

​

0​

762​

0​

1341​

1696​

0​

0​

0​

1629​

0​

1515​

762​

342​

'06.73.76​

​

801​

1713​

0​

2475​

0​

1386​

0​

911​

625​

0​

0​

761​

343​

'37.67.85​

​

1930​

1799​

0​

725​

0​

0​

0​

825​

0​

326​

0​

761​

344​

'38.64.84​

​

1552​

757​

0​

826​

1680​

0​

0​

1269​

1961​

0​

0​

757​

345​

'23.51.75​

​

248​

1164​

1005​

0​

0​

0​

2703​

159​

1766​

0​

1116​

756​

346​

'05.35.66​

​

697​

2220​

1768​

0​

0​

1956​

0​

0​

2714​

2636​

1453​

755​

347​

'17.34.48​

​

1270​

0​

0​

0​

2508​

0​

1137​

0​

0​

1492​

366​

753​

348​

'65.72.89​

​

1400​

2416​

1978​

1218​

0​

0​

0​

1066​

2672​

2589​

0​

749​

349​

'35.54.86​

​

0​

1112​

1926​

0​

0​

0​

0​

0​

2491​

0​

1489​

749​

350​

'10.11.51​

​

1899​

645​

0​

1290​

2089​

0​

0​

0​

1340​

0​

0​

748​

351​

'11.34.90​

​

2127​

1227​

0​

0​

1614​

0​

259​

0​

1247​

2571​

0​

747​

352​

'31.35.67​

​

529​

1403​

0​

1338​

711​

0​

1960​

1518​

129​

1635​

0​

747​

353​

'08.54.60​

​

1742​

413​

0​

0​

2112​

0​

0​

0​

1192​

0​

0​

746​

354​

'07.12.48​

​

0​

1601​

0​

1932​

0​

0​

2401​

746​

0​

1457​

0​

746​

355​

'13.25.77​

​

0​

0​

1930​

1287​

0​

1285​

0​

0​

2482​

0​

823​

745​

356​

'48.62.74​

​

1368​

0​

2514​

0​

2785​

0​

952​

0​

1048​

0​

0​

744​

357​

'04.16.78​

​

0​

0​

852​

962​

0​

743​

0​

0​

1463​

0​

0​

743​

358​

'09.26.68​

​

1928​

0​

0​

0​

426​

1188​

0​

1547​

408​

0​

2398​

740​

359​

'10.37.41​

​

0​

0​

1403​

740​

0​

0​

790​

0​

1502​

2323​

0​

740​

360​

'01.81.90​

​

2728​

0​

557​

1670​

1988​

1543​

0​

0​

0​

1750​

1194​

739​

361​

'15.32.75​

​

738​

0​

1223​

1107​

0​

0​

1032​

0​

0​

1722​

0​

738​

362​

'17.37.86​

​

0​

0​

0​

1443​

0​

1042​

0​

0​

0​

585​

288​

737​

363​

'25.49.75​

​

113​

1150​

195​

1623​

173​

933​

0​

0​

0​

0​

0​

737​

364​

'01.48.86​

​

839​

1497​

736​

0​

0​

0​

0​

0​

832​

2616​

1949​

736​

365​

'44.47.86​

​

1641​

0​

0​

1368​

1859​

0​

1692​

735​

0​

2034​

0​

735​

366​

'60.73.78​

​

0​

1938​

1512​

1705​

0​

26​

0​

2259​

0​

762​

1419​

735​

367​

'05.36.79​

​

1138​

1095​

0​

0​

734​

911​

0​

0​

0​

822​

0​

734​

368​

'11.16.38​

​

1304​

1349​

0​

0​

0​

2450​

0​

0​

2539​

1762​

2404​

732​

369​

'01.39.67​

​

0​

0​

0​

0​

2114​

318​

0​

948​

0​

651​

0​

732​

370​

'04.60.67​

​

0​

0​

1084​

0​

0​

1612​

0​

1940​

1630​

788​

284​

731​

371​

'29.39.74​

​

0​

0​

1333​

0​

0​

133​

2394​

0​

0​

204​

1236​

731​

372​

'05.15.85​

​

0​

0​

0​

0​

0​

1503​

0​

731​

1861​

1332​

0​

731​

373​

'33.49.55​

​

0​

0​

202​

1824​

934​

0​

0​

0​

0​

0​

1532​

731​

374​

'10.14.61​

​

0​

0​

728​

0​

1681​

1521​

2404​

0​

0​

0​

0​

728​

375​

'23.64.73​

​

1855​

0​

0​

0​

0​

4​

724​

895​

0​

0​

1306​

727​

376​

'26.52.66​

​

0​

2068​

2678​

377​

0​

993​

774​

0​

2344​

1719​

0​

725​

377​

'07.34.76​

​

0​

0​

0​

2715​

0​

0​

381​

1659​

1563​

564​

0​

724​

378​

'05.12.60​

​

1410​

0​

1188​

0​

2407​

1563​

0​

845​

1142​

0​

0​

724​

379​

'05.38.60​

​

851​

0​

1648​

127​

0​

0​

34​

0​

1021​

869​

1371​

723​

380​

'07.51.74​

​

1264​

1388​

2049​

1850​

891​

0​

0​

1797​

167​

0​

0​

723​

381​

'02.32.78​

​

2328​

1362​

302​

1704​

1991​

1268​

472​

0​

0​

0​

0​

722​

382​

'56.66.70​

​

2679​

0​

775​

899​

0​

0​

721​

0​

2165​

1274​

0​

721​

383​

'08.23.63​

​

0​

2073​

1957​

401​

1085​

2088​

0​

0​

1236​

0​

0​

720​

384​

'02.24.67​

​

0​

118​

687​

0​

0​

1604​

0​

0​

0​

0​

0​

718​

385​

'17.23.73​

​

1037​

0​

0​

0​

0​

1754​

1445​

1417​

0​

1756​

1165​

714​

386​

'09.40.73​

​

0​

0​

359​

0​

0​

26​

0​

1072​

1538​

0​

0​

712​

387​

'02.28.48​

​

0​

1401​

0​

0​

0​

1744​

2154​

300​

0​

1597​

0​

708​

388​

'23.73.80​

​

0​

0​

2257​

0​

0​

1767​

1029​

0​

1737​

0​

322​

707​

389​

'11.55.60​

​

0​

0​

1722​

1552​

0​

0​

881​

0​

0​

1008​

0​

705​

390​

'33.34.46​

​

1089​

0​

239​

1795​

0​

0​

0​

386​

36​

0​

0​

705​

391​

'14.23.81​

​

1416​

0​

0​

0​

0​

363​

805​

595​

0​

0​

1064​

704​

392​

'33.62.68​

​

1625​

1317​

0​

0​

1150​

1628​

0​

703​

0​

0​

0​

703​

393​

'64.68.87​

​

0​

1165​

383​

0​

0​

1256​

1202​

0​

0​

2248​

0​

701​

394​

'45.76.85​

​

0​

1770​

0​

1199​

0​

1092​

0​

0​

0​

1235​

0​

700​

395​

'09.72.74​

​

1763​

0​

1855​

1127​

0​

0​

932​

0​

2555​

0​

1686​

699​

396​

'17.57.64​

​

1882​

222​

0​

0​

2177​

0​

0​

1309​

0​

2157​

2476​

694​

397​

'32.42.90​

​

1364​

1392​

0​

0​

0​

1898​

1123​

0​

0​

1225​

0​

694​

398​

'01.51.56​

​

2132​

1271​

2090​

1392​

1272​

1966​

0​

0​

0​

480​

982​

693​

399​

'76.77.79​

​

0​

0​

2729​

295​

174​

1187​

0​

2425​

474​

1166​

0​

691​

400​

'12.29.83​

​

0​

0​

399​

1234​

1649​

1802​

0​

0​

0​

235​

543​

690​

401​

'29.45.61​

​

0​

1791​

2053​

1199​

0​

0​

0​

0​

196​

2316​

2350​

689​

402​

'16.65.79​

​

1145​

0​

0​

0​

0​

279​

0​

0​

0​

2171​

1344​

689​

403​

'20.54.90​

​

747​

2519​

276​

2029​

0​

0​

2484​

0​

2286​

0​

1495​

687​

404​

'12.38.65​

​

0​

2045​

0​

0​

1275​

1120​

0​

685​

2358​

1587​

984​

685​

405​

'17.41.54​

​

1232​

0​

2420​

0​

532​

0​

21​

96​

1736​

1279​

598​

683​

406​

'27.49.81​

​

366​

1428​

1330​

1274​

2087​

30​

0​

0​

0​

0​

0​

683​

407​

'38.79.82​

​

0​

0​

0​

0​

984​

0​

1563​

2579​

0​

0​

139​

683​

408​

'35.39.44​

​

460​

267​

2135​

0​

578​

0​

1258​

0​

0​

0​

1635​

679​

409​

'03.59.87​

​

1257​

0​

867​

2596​

0​

0​

1381​

529​

0​

0​

0​

679​

410​

'10.72.80​

​

0​

922​

0​

1583​

1672​

0​

0​

57​

1384​

1378​

2146​

675​

411​

'02.25.37​

​

0​

2497​

0​

824​

0​

161​

890​

189​

555​

0​

1893​

675​

412​

'37.45.70​

​

0​

0​

0​

1658​

2482​

1616​

843​

0​

975​

0​

2014​

674​

413​

'04.43.61​

​

0​

0​

1594​

1603​

1546​

2722​

0​

1298​

0​

0​

1687​

670​

414​

'37.46.73​

​

1674​

0​

0​

172​

0​

1907​

998​

2057​

221​

0​

1003​

670​

415​

'03.73.74​

​

1616​

0​

298​

945​

0​

0​

2085​

0​

2060​

0​

0​

670​

416​

'01.15.21​

​

1705​

0​

760​

0​

1036​

0​

0​

0​

0​

1624​

1449​

668​

417​

'09.34.84​

​

785​

1909​

0​

2187​

0​

2023​

814​

0​

968​

0​

0​

668​

418​

'02.27.83​

​

0​

942​

0​

0​

0​

1660​

666​

2047​

1163​

0​

0​

666​

419​

'57.65.87​

​

0​

1904​

1473​

665​

0​

2764​

1516​

913​

0​

0​

1140​

665​

420​

'06.07.36​

​

0​

1670​

640​

538​

1460​

582​

0​

0​

1491​

795​

0​

664​

421​

'12.47.67​

​

0​

813​

0​

148​

0​

0​

1847​

0​

1395​

0​

0​

664​

422​

'08.38.85​

​

0​

884​

0​

1989​

0​

0​

560​

1793​

0​

0​

1132​

660​

423​

'33.58.90​

​

0​

0​

2588​

1039​

2326​

0​

1020​

0​

885​

959​

0​

659​

424​

'14.20.44​

​

0​

0​

0​

1604​

1434​

0​

1690​

1335​

2503​

1665​

860​

659​

425​

'11.74.89​

​

888​

1174​

1576​

0​

0​

0​

466​

0​

1980​

0​

0​

658​

426​

'78.79.89​

​

0​

0​

0​

2215​

1560​

0​

1478​

0​

0​

543​

1137​

654​

427​

'07.18.26​

​

0​

0​

0​

573​

423​

322​

1171​

1825​

0​

0​

1​

653​

428​

'39.45.85​

​

0​

16​

1592​

412​

0​

0​

0​

0​

1331​

0​

1397​

651​

429​

'23.44.84​

​

0​

0​

0​

0​

1823​

0​

83​

0​

649​

0​

0​

649​

430​

'03.61.76​

​

0​

413​

1486​

0​

0​

1075​

61​

0​

0​

2059​

2708​

648​

431​

'18.61.82​

​

917​

0​

878​

0​

0​

1538​

564​

0​

0​

0​

1788​

643​

432​

'25.31.75​

​

1157​

1040​

0​

2408​

1291​

0​

439​

0​

0​

0​

0​

641​

433​

'03.48.89​

​

1707​

0​

0​

558​

2181​

0​

0​

663​

0​

108​

0​

641​

434​

'31.33.46​

​

0​

0​

2372​

0​

1273​

0​

1425​

151​

2303​

0​

0​

640​

435​

'16.45.81​

​

0​

0​

0​

702​

1531​

2026​

0​

2104​

1342​

616​

1572​

639​

436​

'10.29.31​

​

1191​

0​

1695​

0​

0​

1499​

485​

1327​

1080​

0​

0​

639​

437​

'10.57.65​

​

2371​

0​

405​

0​

0​

1126​

344​

1363​

0​

0​

0​

638​

438​

'09.57.70​

​

2094​

0​

0​

0​

0​

0​

0​

199​

711​

1057​

0​

637​

439​

'23.76.81​

​

0​

0​

430​

2208​

337​

939​

531​

0​

0​

0​

961​

637​

440​

'60.73.90​

​

0​

0​

1968​

1450​

347​

410​

0​

0​

1911​

955​

2784​

636​

441​

'07.50.89​

​

747​

0​

625​

1383​

0​

2130​

728​

0​

2353​

0​

1676​

635​

442​

'38.46.79​

​

343​

831​

1227​

0​

552​

0​

2180​

0​

1863​

2004​

0​

635​

443​

'41.56.71​

​

0​

0​

0​

0​

1393​

0​

1537​

0​

634​

0​

0​

634​

444​

'24.73.89​

​

0​

0​

1060​

1529​

1700​

768​

0​

0​

134​

0​

0​

633​

445​

'06.65.85​

​

1356​

0​

0​

0​

0​

676​

1079​

2645​

0​

0​

102​

629​

446​

'02.54.85​

​

956​

2014​

1222​

0​

0​

0​

0​

0​

0​

1126​

0​

626​

447​

'33.43.70​

​

1900​

135​

2143​

0​

1767​

1143​

0​

272​

0​

584​

569​

623​

448​

'10.44.75​

​

0​

1836​

7​

1049​

0​

908​

0​

0​

0​

0​

2348​

622​

449​

'06.16.17​

​

96​

0​

0​

0​

72​

1494​

1698​

853​

0​

0​

853​

621​

450​

'22.26.77​

​

1202​

201​

0​

0​

0​

2154​

1639​

796​

0​

0​

2183​

621​

451​

'08.26.42​

​

0​

1447​

759​

0​

1922​

2644​

2352​

0​

0​

0​

1269​

620​

452​

'59.61.69​

​

1335​

1945​

715​

0​

2045​

0​

1725​

0​

0​

0​

2332​

619​

453​

'08.27.43​

​

275​

0​

935​

489​

1171​

880​

0​

1038​

0​

1275​

1439​

619​

454​

'33.58.62​

​

0​

0​

706​

0​

0​

0​

2160​

938​

0​

537​

1180​

618​

455​

'19.27.73​

​

0​

2334​

1214​

2763​

1181​

0​

1778​

0​

0​

1582​

556​

617​

456​

'05.39.57​

​

0​

1483​

2231​

498​

846​

0​

0​

0​

0​

0​

828​

615​

457​

'04.15.51​

​

0​

1173​

0​

0​

0​

0​

0​

49​

559​

1864​

0​

613​

458​

'13.52.68​

​

0​

0​

0​

367​

0​

0​

1336​

0​

1950​

0​

2003​

613​

459​

'31.54.68​

​

2415​

0​

675​

0​

0​

608​

1379​

1189​

0​

1818​

2342​

608​

460​

'10.22.75​

​

1078​

0​

970​

1384​

0​

2066​

286​

0​

0​

1983​

0​

606​

461​

'43.46.60​

​

0​

1964​

0​

2055​

0​

0​

1013​

850​

1019​

1807​

0​

606​

462​

'05.28.78​

​

0​

1369​

1700​

1570​

0​

0​

1948​

1456​

0​

0​

0​

606​

463​

'45.82.86​

​

0​

0​

707​

1178​

0​

1390​

2443​

887​

0​

0​

1496​

605​

464​

'17.35.55​

​

186​

0​

303​

0​

0​

854​

0​

1729​

596​

1190​

923​

605​

465​

'53.68.72​

​

603​

0​

0​

1304​

0​

1766​

0​

1224​

896​

1001​

2384​

603​

466​

'10.11.44​

​

0​

0​

0​

2624​

746​

0​

0​

1384​

617​

1000​

955​

603​

467​

'20.32.67​

​

0​

1427​

0​

1884​

620​

0​

0​

0​

17​

0​

1292​

602​

468​

'06.39.55​

​

1875​

940​

1858​

1542​

475​

2052​

0​

0​

2454​

0​

0​

601​

469​

'15.48.65​

​

545​

2143​

0​

1541​

0​

519​

0​

956​

0​

234​

0​

601​

470​

'43.54.63​

​

0​

0​

0​

1301​

0​

0​

0​

307​

1203​

907​

0​

599​

471​

'17.41.45​

​

1816​

0​

0​

0​

467​

0​

0​

1627​

0​

1028​

0​

598​

472​

'33.35.48​

​

2340​

0​

0​

2026​

0​

1289​

313​

1653​

0​

1643​

696​

592​

473​

'68.80.82​

​

279​

0​

2529​

0​

751​

0​

1920​

0​

0​

1679​

0​

590​

474​

'22.24.75​

​

511​

0​

0​

631​

0​

0​

1372​

0​

1360​

0​

993​

589​

475​

'19.26.52​

​

0​

0​

0​

1521​

682​

0​

321​

833​

1461​

0​

0​

587​

476​

'19.29.50​

​

0​

1921​

1923​

0​

2758​

0​

157​

2111​

0​

0​

1339​

583​

477​

'26.46.76​

​

0​

0​

0​

0​

1170​

1826​

0​

219​

1157​

0​

0​

581​

478​

'67.73.90​

​

2011​

0​

0​

0​

0​

1626​

0​

0​

672​

0​

1064​

580​

479​

'05.65.66​

​

0​

1400​

1601​

0​

986​

0​

0​

0​

0​

0​

2779​

578​

480​

'10.38.47​

​

0​

1711​

0​

0​

1953​

0​

1394​

818​

2522​

297​

0​

575​

481​

'17.26.74​

​

0​

859​

1857​

0​

0​

0​

0​

0​

1773​

0​

1087​

573​

482​

'03.13.88​

​

0​

1215​

1111​

1918​

2219​

538​

0​

0​

0​

0​

87​

572​

483​

'07.67.84​

​

0​

0​

0​

2183​

1550​

0​

479​

0​

0​

938​

605​

571​

484​

'18.63.88​

​

0​

1452​

0​

0​

458​

1509​

1017​

0​

0​

1834​

0​

558​

485​

'19.29.35​

​

88​

1052​

655​

0​

0​

0​

657​

0​

0​

2357​

1590​

555​

486​

'63.79.88​

​

1669​

1559​

0​

0​

1137​

0​

0​

1472​

0​

0​

0​

555​

487​

'03.06.47​

​

0​

1001​

2139​

0​

554​

0​

2208​

1398​

1557​

0​

0​

555​

488​

'23.32.61​

​

427​

0​

0​

0​

0​

1757​

847​

441​

0​

737​

670​

553​

489​

'06.61.74​

​

0​

0​

1580​

1314​

0​

1979​

1835​

812​

0​

0​

0​

553​

490​

'60.69.86​

​

0​

0​

1412​

1914​

403​

0​

0​

0​

1485​

1269​

1822​

550​

491​

'04.11.51​

​

2092​

1845​

636​

0​

0​

0​

1134​

2117​

1340​

1932​

0​

542​

492​

'15.33.78​

​

0​

0​

0​

505​

0​

1047​

1889​

1888​

2409​

0​

1100​

541​

493​

'55.57.67​

​

0​

0​

0​

2006​

0​

1998​

929​

1083​

0​

1044​

0​

539​

494​

'08.48.78​

​

0​

1932​

0​

0​

1112​

440​

1651​

0​

0​

1937​

2423​

538​

495​

'06.10.35​

​

0​

0​

0​

0​

727​

1144​

0​

0​

1671​

606​

0​

537​

496​

'22.47.65​

​

0​

1459​

0​

576​

0​

107​

973​

0​

0​

0​

0​

537​

497​

'26.45.51​

​

855​

0​

1106​

0​

0​

0​

2156​

2693​

2766​

1201​

431​

536​

498​

'22.37.39​

​

1207​

0​

1734​

1061​

0​

392​

1186​

0​

1004​

0​

800​

526​

499​

'01.25.38​

​

1281​

1437​

0​

0​

0​

0​

574​

659​

0​

0​

917​

519​

500​

'13.40.84​

​

2074​

306​

0​

2324​

0​

0​

725​

1990​

1903​

0​

1241​

515​

501​

'13.43.63​

​

1628​

2574​

0​

1257​

0​

1169​

420​

0​

0​

0​

0​

512​

502​

'63.77.81​

​

2060​

1351​

0​

1863​

0​

0​

499​

0​

2768​

951​

2071​

506​

503​

'30.75.83​

​

2308​

0​

1610​

1870​

504​

0​

995​

1266​

0​

0​

0​

504​

504​

'33.46.60​

​

1089​

0​

0​

0​

0​

817​

1451​

534​

1350​

0​

0​

501​

505​

'57.80.85​

​

1216​

0​

0​

114​

0​

1226​

0​

1444​

0​

0​

360​

493​

506​

'23.81.89​

​

864​

0​

80​

0​

2200​

0​

1747​

0​

2470​

1848​

864​

492​

507​

'09.45.77​

​

0​

1328​

0​

0​

967​

1261​

0​

0​

0​

971​

0​

491​

508​

'08.32.40​

​

727​

1767​

477​

1796​

161​

1522​

2182​

968​

0​

0​

0​

490​

509​

'22.27.86​

​

0​

0​

1566​

1910​

0​

0​

516​

0​

0​

468​

1310​

482​

510​

'62.68.90​

​

0​

0​

0​

580​

0​

822​

0​

58​

1423​

0​

0​

477​

511​

'06.10.86​

​

1288​

0​

725​

873​

452​

2111​

1642​

0​

49​

0​

0​

468​

512​

'18.30.54​

​

0​

0​

184​

0​

1777​

994​

0​

0​

652​

0​

0​

467​

513​

'47.74.88​

​

1323​

1383​

0​

0​

1042​

0​

1555​

0​

475​

1439​

0​

465​

514​

'11.33.47​

​

1106​

399​

0​

1342​

0​

0​

0​

0​

669​

0​

0​

461​

515​

'30.51.67​

​

1000​

834​

0​

237​

0​

2244​

372​

0​

1429​

2445​

1783​

461​

516​

'13.28.39​

​

0​

802​

989​

1365​

0​

0​

1775​

0​

0​

1344​

577​

455​

517​

'08.57.67​

​

901​

0​

917​

0​

0​

333​

0​

0​

886​

0​

1014​

454​

518​

'10.34.89​

​

1878​

0​

0​

1574​

0​

0​

0​

2322​

266​

671​

715​

451​

519​

'37.41.83​

​

1438​

0​

0​

0​

721​

2205​

2100​

1455​

1113​

0​

1303​

437​

520​

'03.53.72​

​

1763​

1874​

0​

685​

312​

2224​

0​

1119​

2622​

0​

0​

433​

521​

'06.58.63​

​

1533​

0​

0​

1087​

0​

0​

1026​

911​

509​

0​

0​

433​

522​

'25.64.89​

​

1091​

0​

568​

0​

1420​

722​

0​

1299​

0​

796​

459​

431​

523​

'15.17.20​

​

1343​

498​

1840​

947​

329​

1491​

0​

495​

0​

0​

664​

395​

524​

'01.25.67​

​

0​

0​

0​

0​

378​

0​

0​

1067​

0​

0​

0​

378​

525​

'18.54.90​

​

964​

183​

0​

447​

0​

794​

671​

0​

821​

0​

0​

271​

​

​

​

​

​

​

​

​

​

​

​

​

​

​

​

​

​

​

50​

47​

41​

57​

45​

43​

41​

38​

34​

33​

76​

0​

 

[Cinzia27]

Ecco il ritardo cronologico dei 525 terni

Pos​

Formazione​

Note​

Ba​

Ca​

Fi​

Ge​

Mi​

Na​

Pa​

Ro​

To​

Ve​

Nz​

Unite​

1​

'01.25.67​

​

2795​

2795​

2795​

2795​

2105​

2795​

2795​

1727​

2795​

2795​

2795​

1727​

2​

'44.56.71​

​

2795​

2795​

1618​

2795​

2795​

2795​

1749​

2795​

2795​

2795​

2795​

1618​

3​

'28.39.86​

​

2795​

2795​

1510​

1631​

2795​

2795​

1548​

2795​

1541​

2795​

2795​

1510​

4​

'05.36.79​

​

1656​

1699​

2795​

2795​

2060​

1883​

2795​

2795​

2795​

1467​

2795​

1467​

5​

'18.54.90​

​

1830​

2611​

2795​

2347​

2795​

1445​

1915​

2795​

1973​

2795​

2795​

1445​

6​

'62.68.90​

​

2795​

2795​

2795​

1736​

2795​

1720​

2795​

2736​

1371​

2795​

2795​

1371​

7​

'22.47.65​

​

2795​

1335​

2795​

1680​

2795​

2687​

1636​

2795​

2795​

2795​

2795​

1335​

8​

'41.56.71​

​

2795​

2795​

2795​

2795​

1401​

2795​

1257​

2795​

1568​

2795​

2795​

1257​

9​

'25.64.89​

​

1703​

2795​

2226​

2795​

1248​

2072​

2795​

1495​

2795​

1970​

2335​

1248​

10​

'03.54.55​

​

2795​

1515​

2795​

2795​

1546​

1771​

2795​

1682​

2795​

1218​

1783​

1218​

11​

'01.25.38​

​

1195​

1317​

2795​

2795​

2795​

2795​

2220​

2135​

2795​

2795​

1877​

1195​

12​

'08.57.67​

​

1698​

2795​

1877​

2795​

2795​

2461​

2795​

2795​

1171​

2795​

1243​

1171​

13​

'25.49.75​

​

2681​

1609​

2599​

1171​

2621​

1861​

2795​

2795​

2795​

2795​

2795​

1171​

14​

'05.38.60​

​

1943​

2795​

1146​

2667​

2795​

2795​

2760​

2795​

1773​

1925​

1423​

1146​

15​

'10.37.39​

​

1310​

2795​

2795​

2795​

2795​

1130​

1271​

2795​

2795​

1246​

2795​

1130​

16​

'06.10.35​

​

2795​

2795​

2795​

2795​

1551​

1435​

2795​

2795​

1123​

2188​

2795​

1123​

17​

'08.61.89​

​

2795​

2795​

2795​

1465​

2795​

1614​

2795​

2795​

1117​

2795​

2795​

1117​

18​

'10.29.31​

​

1603​

2795​

1099​

2795​

2795​

1295​

2309​

1467​

1162​

2795​

2795​

1099​

19​

'06.16.17​

​

2698​

2795​

2795​

2795​

2722​

1300​

1096​

1941​

2795​

2795​

1319​

1096​

20​

'06.37.73​

​

2795​

1315​

2795​

1084​

2795​

2795​

1179​

2795​

2795​

2787​

1154​

1084​

21​

'06.58.63​

​

1261​

2795​

2795​

1078​

2795​

2795​

1768​

1449​

2285​

2795​

2795​

1078​

22​

'15.32.75​

​

2056​

2795​

1571​

1687​

2795​

2795​

1762​

2795​

2795​

1072​

2795​

1072​

23​

'11.55.60​

​

2795​

2795​

1072​

1242​

2795​

2795​

1913​

2795​

2795​

1610​

2795​

1072​

24​

'22.37.39​

​

1587​

2795​

1060​

1733​

2795​

2011​

1608​

2795​

1594​

2795​

1994​

1060​

25​

'11.20.58​

​

1348​

1205​

2795​

2795​

2795​

2795​

1059​

2795​

1109​

1693​

2674​

1059​

26​

'17.23.73​

​

1757​

2795​

2795​

2795​

2795​

1040​

1349​

1377​

2795​

1038​

1306​

1038​

27​

'23.32.61​

​

2367​

2795​

2795​

2795​

2795​

1037​

1947​

2353​

2795​

2057​

1591​

1037​

28​

'17.25.28​

​

2795​

2795​

2373​

2795​

2795​

1224​

1267​

2795​

1034​

2443​

2795​

1034​

29​

'22.24.75​

​

2283​

2795​

2795​

2163​

2795​

2795​

1025​

2795​

1434​

2795​

1030​

1025​

30​

'37.55.58​

​

2795​

2795​

1025​

2795​

2574​

2795​

2795​

1460​

2795​

2738​

2795​

1025​

31​

'13.28.39​

​

2795​

1992​

1683​

1429​

2795​

2795​

1019​

2795​

2795​

1450​

2217​

1019​

32​

'04.16.78​

​

2795​

2795​

1942​

1009​

2795​

2051​

2795​

2795​

1331​

2795​

2795​

1009​

33​

'18.61.82​

​

1877​

2795​

1916​

2795​

2795​

1233​

2230​

2795​

2795​

2795​

1006​

1006​

34​

'09.40.73​

​

2795​

2795​

2435​

2795​

2795​

2768​

2795​

995​

994​

2795​

2795​

994​

35​

'12.29.83​

​

2795​

2795​

2395​

1560​

1145​

992​

2795​

2795​

2795​

2559​

2251​

992​

36​

'27.47.73​

​

1920​

1114​

2156​

2795​

2795​

991​

2795​

2795​

977​

2795​

2795​

977​

37​

'23.44.84​

​

2795​

2795​

2795​

2795​

971​

2795​

2711​

2795​

1240​

2795​

2795​

971​

38​

'07.18.26​

​

2795​

2795​

2795​

2221​

2371​

2472​

1623​

969​

2795​

2795​

2793​

969​

39​

'06.07.36​

​

2795​

969​

2154​

2256​

1334​

2212​

2795​

2795​

1303​

1999​

2795​

969​

40​

'26.46.76​

​

2795​

2795​

2795​

2795​

1624​

968​

2795​

2575​

1042​

2795​

2795​

968​

41​

'18.63.88​

​

2795​

1226​

2795​

2795​

2336​

1285​

1777​

2795​

2795​

960​

2795​

960​

42​

'15.17.20​

​

1451​

2296​

954​

1847​

2465​

1303​

2795​

2299​

2795​

2795​

2130​

954​

43​

'33.46.60​

​

1705​

2795​

2795​

2795​

2795​

1977​

951​

1018​

1444​

2795​

2795​

951​

44​

'19.27.64​

​

2795​

2795​

950​

2795​

2795​

2795​

2795​

1478​

2356​

1008​

2795​

950​

45​

'12.47.67​

​

2795​

1981​

2795​

2646​

2795​

2795​

947​

2795​

1399​

2795​

2795​

947​

46​

'18.30.54​

​

2795​

2795​

2610​

2795​

941​

1178​

2795​

2795​

1583​

2795​

2795​

941​

47​

'15.20.51​

​

2795​

1803​

2795​

2657​

2795​

2795​

2725​

2449​

2795​

930​

2795​

930​

48​

'43.54.63​

​

2795​

2795​

2795​

927​

2795​

2795​

2795​

2487​

1419​

1887​

2795​

927​

49​

'14.24.49​

​

2795​

2795​

1769​

2556​

2419​

915​

2795​

2697​

2795​

1818​

2146​

915​

50​

'47.74.88​

​

913​

1411​

2795​

2795​

1752​

2795​

1239​

2795​

1853​

1355​

2795​

913​

51​

'06.51.84​

​

2795​

909​

1405​

2795​

2604​

2795​

2795​

2795​

2795​

967​

2795​

909​

52​

'17.26.74​

​

2795​

1421​

937​

2795​

2795​

2795​

2795​

2795​

1021​

2795​

893​

893​

53​

'06.60.71​

​

2795​

2795​

2795​

878​

975​

2795​

2795​

2795​

1479​

1896​

2795​

878​

54​

'43.85.90​

​

1145​

2795​

2795​

2795​

2795​

2795​

2740​

2795​

2756​

866​

1748​

866​

55​

'03.27.35​

​

1978​

2795​

1805​

2795​

2795​

1814​

2795​

859​

2795​

2080​

2795​

859​

56​

'02.24.67​

​

2795​

2676​

1561​

2795​

2795​

842​

2795​

2795​

2795​

2795​

2795​

842​

57​

'38.64.84​

​

1242​

1045​

2795​

1968​

957​

2795​

2795​

1525​

833​

2795​

2795​

833​

58​

'45.76.85​

​

2795​

1024​

2795​

894​

2795​

813​

2795​

2795​

2795​

1559​

2795​

813​

59​

'08.38.85​

​

2795​

1910​

2795​

805​

2795​

2795​

2234​

1001​

2795​

2795​

1662​

805​

60​

'14.66.85​

​

2795​

2795​

1964​

2795​

2795​

799​

1600​

2795​

1572​

2795​

2795​

799​

61​

'15.19.35​

​

2077​

2795​

2795​

2469​

2795​

2795​

799​

802​

2795​

2795​

2508​

799​

62​

'34.60.61​

​

875​

2795​

2795​

2795​

1637​

1626​

2795​

2795​

1013​

2795​

797​

797​

63​

'17.41.45​

​

978​

2795​

2795​

2795​

2302​

2795​

2795​

792​

2795​

1766​

2795​

792​

64​

'07.37.48​

​

1597​

1976​

2795​

2795​

2795​

788​

1483​

2795​

1386​

2795​

2795​

788​

65​

'33.62.68​

​

1169​

1477​

2795​

2795​

788​

1166​

2795​

2091​

2795​

2795​

2795​

788​

66​

'24.37.71​

​

2795​

2280​

785​

2795​

960​

2795​

2754​

2795​

1935​

2795​

2795​

785​

67​

'06.76.89​

​

2795​

2795​

2795​

1938​

2157​

2795​

2170​

2795​

821​

773​

2795​

773​

68​

'24.73.89​

​

2795​

2795​

763​

1265​

1094​

2026​

2795​

2795​

2660​

2795​

2795​

763​

69​

'63.79.88​

​

1125​

953​

2795​

2795​

740​

2795​

2795​

1322​

2795​

2795​

2795​

740​

70​

'39.46.81​

​

966​

907​

2795​

737​

1131​

2795​

2795​

2795​

1313​

2795​

925​

737​

71​

'10.22.75​

​

1418​

2795​

1824​

731​

2795​

728​

2508​

2795​

2795​

811​

2795​

728​

72​

'08.27.43​

​

2519​

2795​

1859​

2305​

725​

1345​

2795​

1643​

2795​

1519​

1355​

725​

73​

'30.35.40​

​

809​

1564​

2795​

2795​

2498​

2486​

2795​

725​

2383​

2795​

2795​

725​

74​

'06.29.31​

​

2795​

2795​

850​

1527​

2777​

1669​

1012​

2795​

718​

2795​

2795​

718​

75​

'03.73.74​

​

823​

2795​

2496​

1849​

2795​

2795​

709​

2795​

734​

2795​

2795​

709​

76​

'08.23.63​

​

2795​

721​

837​

2393​

1709​

706​

2795​

2795​

1558​

2795​

2795​

706​

77​

'39.45.85​

​

2795​

2778​

692​

2115​

2795​

2795​

2795​

2795​

1463​

2795​

1397​

692​

78​

'06.10.86​

​

1284​

2795​

1565​

1921​

2061​

683​

1152​

2795​

2745​

2795​

2795​

683​

79​

'14.23.81​

​

1378​

2795​

2795​

2795​

2795​

2431​

1989​

2199​

2795​

2795​

673​

673​

80​

'33.34.46​

​

666​

2795​

2555​

999​

2795​

2795​

2795​

2408​

2758​

2795​

2795​

666​

81​

'19.26.68​

​

2795​

2795​

2716​

2795​

1543​

2795​

2795​

2795​

657​

730​

1827​

657​

82​

'15.48.65​

​

2249​

651​

2795​

1253​

2795​

2275​

2795​

1838​

2795​

2560​

2795​

651​

83​

'33.43.70​

​

894​

2659​

651​

2795​

1027​

1651​

2795​

2522​

2795​

2210​

2225​

651​

84​

'16.66.82​

​

2795​

2485​

2795​

1759​

2795​

2795​

1563​

646​

2240​

2791​

1813​

646​

85​

'40.46.68​

​

2795​

2602​

2795​

2795​

2795​

2628​

2795​

2795​

2674​

646​

2795​

646​

86​

'66.76.81​

​

2795​

2795​

2390​

2795​

637​

2795​

2075​

2795​

2795​

2795​

1101​

637​

87​

'37.46.73​

​

1120​

2795​

2795​

2622​

2795​

887​

1061​

636​

2487​

2795​

1791​

636​

88​

'37.53.78​

​

2795​

1359​

2795​

778​

2795​

2795​

2795​

1713​

631​

2795​

909​

631​

89​

'12.23.78​

​

1743​

2795​

713​

2795​

620​

1794​

2795​

2795​

2795​

2795​

1833​

620​

90​

'57.80.85​

​

619​

2795​

2795​

2680​

2795​

1103​

2795​

860​

2795​

2795​

2434​

619​

91​

'38.46.79​

​

2261​

1873​

1567​

2795​

2242​

2795​

614​

2795​

931​

790​

2795​

614​

92​

'07.67.84​

​

2795​

2795​

2795​

611​

770​

2795​

2315​

2795​

2795​

809​

1767​

611​

93​

'08.54.60​

​

818​

2381​

2795​

2795​

682​

2795​

2795​

2795​

606​

2795​

2795​

606​

94​

'16.18.56​

​

2795​

605​

848​

2795​

2795​

2795​

2795​

2795​

2795​

668​

928​

605​

95​

'06.30.53​

​

1450​

2795​

776​

2795​

922​

1196​

592​

2795​

2795​

2795​

2795​

592​

96​

'52.78.84​

​

2795​

1796​

2150​

1884​

2795​

2795​

2795​

2529​

2795​

1601​

591​

591​

97​

'15.34.49​

​

766​

2540​

1015​

1514​

2795​

2795​

1220​

2795​

2795​

590​

2795​

590​

98​

'19.26.52​

​

2795​

2795​

2795​

1102​

2112​

2795​

2473​

1373​

587​

2795​

2795​

587​

99​

'03.06.47​

​

2795​

1793​

655​

2795​

2240​

2795​

586​

1096​

1237​

2795​

2795​

586​

100​

'23.76.81​

​

2795​

2795​

2364​

586​

2444​

1195​

2019​

2795​

2795​

2795​

1833​

586​

101​

'29.60.62​

​

737​

2795​

584​

2795​

2585​

857​

2795​

2648​

2795​

2795​

2795​

584​

102​

'01.58.69​

​

2795​

2795​

2795​

2795​

2795​

2795​

2795​

1270​

2795​

2795​

581​

581​

103​

'51.60.78​

​

575​

2795​

1323​

2795​

2795​

1547​

2795​

1297​

2795​

2795​

2795​

575​

104​

'03.13.88​

​

2795​

1153​

1683​

590​

575​

2256​

2795​

2795​

2795​

2795​

2707​

575​

105​

'22.26.77​

​

574​

2593​

2795​

2795​

2795​

640​

873​

1894​

2795​

2795​

611​

574​

106​

'05.15.85​

​

2795​

2795​

2795​

2795​

2795​

1147​

2795​

2063​

933​

571​

2795​

571​

107​

'02.42.69​

​

2795​

2795​

1594​

1544​

2795​

1727​

2795​

570​

1844​

2795​

2795​

570​

108​

'17.35.55​

​

2608​

2795​

2491​

2795​

2795​

1671​

2795​

1065​

2198​

570​

1871​

570​

109​

'47.66.80​

​

1213​

2644​

2274​

2795​

2795​

2629​

2396​

2795​

2795​

568​

2795​

568​

110​

'13.76.78​

​

2301​

2795​

1216​

566​

2795​

2346​

2795​

1033​

2795​

2795​

2795​

566​

111​

'65.76.81​

​

2795​

2795​

560​

847​

2795​

1306​

2795​

2795​

2795​

1447​

1918​

560​

112​

'15.35.50​

​

863​

2277​

2795​

1033​

2795​

2795​

2795​

2795​

2795​

2795​

560​

560​

113​

'28.72.84​

​

2795​

1927​

551​

2795​

2795​

2795​

2795​

2795​

1598​

2795​

1889​

551​

114​

'37.42.46​

​

2795​

2795​

2008​

2795​

2795​

2795​

781​

1786​

551​

2176​

627​

551​

115​

'16.46.51​

​

2795​

2263​

2684​

2795​

2509​

2795​

588​

2795​

1615​

1579​

551​

551​

116​

'03.45.68​

​

719​

1253​

2795​

2795​

1642​

2795​

1689​

2630​

549​

2795​

2795​

549​

117​

'01.15.21​

​

1089​

2795​

2034​

2795​

1758​

2795​

2795​

2795​

2795​

868​

547​

547​

118​

'64.68.87​

​

2795​

1629​

2331​

2795​

2795​

1538​

1173​

2795​

2795​

546​

2795​

546​

119​

'07.51.74​

​

1530​

1406​

745​

528​

1903​

2795​

2795​

997​

2627​

2795​

2795​

528​

120​

'01.39.67​

​

2795​

2795​

2795​

2795​

521​

2271​

2795​

1082​

2795​

1815​

2795​

521​

121​

'41.46.71​

​

2795​

880​

2795​

1287​

2795​

1482​

2795​

2795​

972​

520​

555​

520​

122​

'09.14.27​

​

2795​

2795​

2795​

1097​

2795​

1000​

544​

2795​

2795​

1168​

517​

517​

123​

'29.42.78​

​

2795​

2795​

2672​

2579​

695​

2795​

2795​

1834​

2795​

517​

2795​

517​

124​

'02.05.60​

​

2795​

2795​

2795​

2284​

2795​

2020​

2795​

2236​

2255​

1585​

509​

509​

125​

'13.42.88​

​

2795​

2795​

2795​

1088​

1003​

2256​

1395​

505​

2795​

2515​

823​

505​

126​

'02.28.48​

​

2795​

1393​

2795​

2795​

2795​

1050​

640​

2494​

2795​

504​

2795​

504​

127​

'40.48.74​

​

853​

2795​

1224​

2475​

490​

2795​

2795​

2795​

2795​

943​

2795​

490​

128​

'08.75.87​

​

2795​

488​

2795​

2795​

963​

2795​

1987​

2638​

1185​

2795​

2795​

488​

129​

'30.75.83​

​

486​

2795​

1184​

924​

2290​

2795​

953​

858​

2795​

2795​

2795​

486​

130​

'34.38.55​

​

536​

2795​

2795​

2795​

2795​

949​

2795​

2795​

2057​

1170​

481​

481​

131​

'09.45.77​

​

2795​

474​

2795​

2795​

1335​

1533​

2795​

2795​

2795​

1823​

2795​

474​

132​

'06.59.80​

​

2670​

473​

2795​

2795​

2795​

2795​

2795​

2795​

746​

2795​

2467​

473​

133​

'10.34.89​

​

663​

2795​

2795​

1220​

2795​

2795​

2795​

472​

2528​

2123​

1672​

472​

134​

'10.37.41​

​

2795​

2795​

580​

2054​

2795​

2795​

2004​

2795​

1292​

471​

2795​

471​

135​

'59.78.87​

​

2795​

1266​

2795​

2795​

2795​

2606​

2781​

1535​

2795​

470​

2795​

470​

136​

'13.40.84​

​

720​

2488​

2795​

470​

2795​

2795​

2069​

804​

830​

2795​

1201​

470​

137​

'51.79.89​

​

2772​

2795​

2569​

2795​

458​

2795​

699​

2795​

2795​

2795​

2795​

458​

138​

'23.73.80​

​

2795​

2795​

537​

2795​

2795​

456​

1765​

2795​

1057​

2795​

2472​

456​

139​

'28.68.87​

​

2795​

2409​

810​

2795​

2795​

611​

2795​

968​

455​

2795​

2742​

455​

140​

'33.35.48​

​

454​

2795​

2795​

768​

2795​

953​

2481​

1141​

2795​

1151​

2098​

454​

141​

'55.59.67​

​

2795​

706​

1658​

450​

2511​

796​

2795​

510​

2307​

722​

2795​

450​

142​

'48.75.89​

​

2795​

2795​

2757​

2795​

835​

511​

2795​

448​

1471​

2795​

2795​

448​

143​

'02.54.85​

​

1211​

780​

447​

2795​

2795​

2795​

2795​

2795​

2795​

1668​

2795​

447​

144​

'01.20.51​

​

2795​

1151​

745​

2755​

2795​

1782​

2795​

2795​

2795​

447​

2795​

447​

145​

'10.44.75​

​

2795​

958​

2787​

1455​

2795​

1169​

2795​

2795​

2795​

2795​

446​

446​

146​

'07.70.86​

​

2795​

1821​

1029​

558​

2795​

2795​

2795​

443​

875​

2795​

585​

443​

147​

'07.83.86​

​

2697​

2795​

2795​

2795​

1156​

2795​

2688​

443​

2795​

2795​

585​

443​

148​

'07.50.89​

​

2047​

2795​

2169​

1411​

2795​

664​

2066​

2795​

441​

2795​

739​

441​

149​

'01.51.56​

​

662​

1523​

704​

440​

1522​

828​

2795​

2795​

2795​

2314​

1812​

440​

150​

'06.16.78​

​

565​

2795​

2407​

2795​

2795​

923​

431​

2795​

1986​

2795​

702​

431​

151​

'10.36.86​

​

2795​

688​

427​

1489​

2795​

2795​

2795​

2795​

2795​

1723​

2795​

427​

152​

'60.69.86​

​

2795​

2795​

427​

880​

2391​

2795​

2795​

2795​

1309​

1525​

972​

427​

153​

'78.79.89​

​

2795​

2795​

2795​

579​

1234​

2795​

1316​

2795​

2795​

2222​

426​

426​

154​

'10.57.65​

​

423​

2795​

2039​

2795​

2795​

1668​

2450​

1062​

2795​

2795​

2795​

423​

155​

'30.42.46​

​

2795​

2795​

2795​

2310​

418​

2795​

2795​

2795​

2795​

2795​

2418​

418​

156​

'43.50.76​

​

800​

417​

2795​

2795​

825​

1989​

2795​

2795​

2795​

2795​

1626​

417​

157​

'01.23.71​

​

2795​

507​

2795​

2795​

416​

2795​

2795​

2795​

1695​

801​

2795​

416​

158​

'62.64.85​

​

2795​

2795​

1552​

2795​

898​

1520​

2795​

2795​

1347​

2795​

413​

413​

159​

'53.68.72​

​

2191​

2795​

2795​

1490​

2795​

602​

2795​

879​

1898​

1793​

410​

410​

160​

'60.73.78​

​

2795​

856​

1282​

409​

2795​

2768​

2795​

535​

2795​

2032​

411​

409​

161​

'10.35.69​

​

2795​

589​

408​

2795​

2217​

2795​

2795​

2732​

2795​

2795​

2046​

408​

162​

'04.15.51​

​

2795​

406​

2795​

2795​

2795​

2795​

2795​

2745​

2235​

930​

2795​

406​

163​

'04.11.51​

​

702​

406​

2158​

2795​

2795​

2795​

1660​

677​

1120​

862​

2795​

406​

164​

'06.61.74​

​

2795​

2795​

1214​

1480​

2795​

405​

959​

1982​

2795​

2795​

2795​

405​

165​

'16.65.79​

​

994​

2795​

2795​

2795​

2795​

2515​

2795​

2795​

2795​

404​

817​

404​

166​

'18.23.49​

​

402​

2795​

1041​

2535​

2795​

2647​

2795​

2182​

2795​

2795​

2795​

402​

167​

'22.27.86​

​

2795​

2795​

1228​

884​

2795​

2795​

1953​

2795​

2795​

2326​

401​

401​

168​

'39.78.83​

​

2795​

2795​

2230​

2457​

523​

2795​

2795​

2795​

2109​

401​

2795​

401​

169​

'17.24.50​

​

399​

2096​

572​

2172​

407​

2795​

2765​

2795​

2795​

2795​

2426​

399​

170​

'05.37.71​

​

2795​

397​

414​

1385​

582​

2795​

1543​

2795​

1373​

2795​

2795​

397​

171​

'30.43.69​

​

630​

2795​

2795​

2795​

2795​

2795​

2795​

1901​

395​

2453​

2795​

395​

172​

'38.76.83​

​

893​

2795​

2795​

2795​

817​

2795​

1529​

2795​

1340​

2795​

391​

391​

173​

'10.14.61​

​

2795​

2795​

1587​

2795​

1113​

1014​

390​

2795​

2795​

2795​

2795​

390​

174​

'05.33.90​

​

2571​

2795​

2795​

1020​

2795​

2795​

2795​

389​

2795​

2795​

1197​

389​

175​

'31.38.90​

​

1811​

2795​

1346​

2795​

1777​

387​

2795​

2795​

2795​

2795​

2795​

387​

176​

'25.31.75​

​

861​

1754​

2795​

386​

1503​

2795​

2355​

2795​

2795​

2795​

2795​

386​

177​

'15.33.78​

​

2795​

2795​

2795​

2289​

2795​

1420​

905​

906​

385​

2795​

1512​

385​

178​

'55.57.67​

​

2795​

2795​

2795​

788​

2795​

796​

1325​

384​

2795​

1750​

2795​

384​

179​

'21.45.56​

​

1826​

793​

2795​

2795​

383​

2795​

711​

2795​

827​

2795​

2795​

383​

180​

'31.54.68​

​

379​

2795​

2119​

2795​

2795​

2186​

1415​

1605​

2795​

976​

452​

379​

181​

'17.19.69​

​

2170​

2795​

2795​

376​

2795​

2795​

637​

2795​

640​

2549​

2795​

376​

182​

'20.38.81​

​

2795​

1881​

2795​

2795​

1065​

613​

429​

1275​

2795​

376​

2795​

376​

183​

'17.41.54​

​

1562​

2795​

374​

2795​

1944​

2795​

2773​

2698​

1058​

1515​

2196​

374​

184​

'01.34.63​

​

1961​

2795​

2403​

2795​

2795​

2795​

984​

2795​

1982​

373​

2795​

373​

185​

'08.48.78​

​

2795​

513​

2795​

2795​

1682​

2109​

1143​

2795​

2795​

857​

371​

371​

186​

'22.32.35​

​

2795​

2789​

1124​

1687​

2795​

370​

2795​

2795​

2795​

619​

632​

370​

187​

'36.57.80​

​

2795​

1691​

2795​

2795​

2313​

2330​

2411​

2050​

2795​

369​

2607​

369​

188​

'08.32.40​

​

1100​

1027​

2317​

851​

2481​

369​

612​

1826​

2795​

2795​

2795​

369​

189​

'33.49.55​

​

2795​

2795​

2592​

767​

1860​

2795​

2795​

2795​

2795​

2795​

367​

367​

190​

'27.65.82​

​

2795​

1232​

2795​

366​

2795​

1739​

2795​

2795​

2795​

1376​

2795​

366​

191​

'14.36.88​

​

2715​

2015​

362​

2795​

2795​

2795​

2795​

787​

2795​

892​

2395​

362​

192​

'58.59.84​

​

2795​

2795​

1022​

1151​

361​

2381​

2795​

1157​

2795​

2795​

2795​

361​

193​

'23.64.73​

​

939​

2795​

2795​

2795​

2795​

2790​

1983​

1899​

2795​

2795​

360​

360​

194​

'07.26.76​

​

2795​

2795​

2795​

2795​

650​

2481​

2795​

2795​

360​

936​

2795​

360​

195​

'01.21.73​

​

2795​

2614​

2795​

2028​

2795​

2795​

1165​

2795​

1129​

360​

2795​

360​

196​

'20.30.33​

​

2184​

388​

2795​

2795​

357​

2795​

2279​

2795​

2378​

2795​

2420​

357​

197​

'33.58.62​

​

2795​

2795​

1590​

2795​

2795​

2795​

355​

974​

2795​

2257​

1614​

355​

198​

'15.61.63​

​

2795​

2156​

2479​

2795​

569​

1216​

2795​

525​

2795​

2795​

354​

354​

199​

'21.28.77​

​

2795​

353​

2795​

2795​

2795​

2460​

2795​

739​

2795​

2795​

2795​

353​

200​

'45.82.86​

​

2795​

2795​

2087​

1616​

2795​

683​

351​

1907​

2795​

2795​

1221​

351​

201​

'30.51.67​

​

1696​

1960​

2795​

2557​

2795​

550​

2422​

2795​

952​

349​

1011​

349​

202​

'40.76.89​

​

2795​

1596​

2795​

346​

2795​

2795​

1473​

2795​

2795​

2795​

2795​

346​

203​

'33.40.89​

​

1054​

2591​

2795​

2795​

1045​

2795​

2795​

1582​

2795​

1043​

343​

343​

204​

'49.60.61​

​

1424​

341​

1542​

2795​

1581​

2795​

2795​

2795​

2795​

626​

2795​

341​

205​

'14.23.54​

​

1800​

2795​

2795​

1587​

381​

564​

2795​

340​

2795​

2795​

2795​

340​

206​

'71.75.90​

​

2795​

2118​

2741​

2098​

2795​

2795​

2135​

2795​

1651​

2795​

338​

338​

207​

'27.51.55​

​

1707​

337​

2795​

2795​

2795​

2795​

1772​

2795​

2795​

2795​

518​

337​

208​

'12.29.74​

​

2795​

2429​

2795​

2795​

2795​

2795​

1329​

2795​

334​

2795​

2795​

334​

209​

'16.63.87​

​

2795​

333​

2325​

1659​

2064​

2795​

2795​

2795​

2795​

1307​

2795​

333​

210​

'21.64.90​

​

2161​

2795​

2795​

2795​

530​

2795​

1722​

1525​

438​

2352​

332​

332​

211​

'36.52.77​

​

2795​

644​

812​

2795​

1788​

2795​

330​

2795​

916​

2795​

2795​

330​

212​

'27.47.58​

​

2795​

2795​

2795​

2795​

2795​

328​

2795​

2795​

2795​

2293​

1824​

328​

213​

'23.81.89​

​

1540​

2795​

2714​

2795​

594​

2795​

1047​

2795​

324​

946​

1930​

324​

214​

'51.64.83​

​

323​

2795​

339​

1106​

2125​

2795​

2795​

2795​

2675​

2197​

2795​

323​

215​

'06.73.89​

​

2795​

1247​

2554​

2323​

2795​

322​

2795​

2677​

2795​

2795​

2795​

322​

216​

'06.73.76​

​

1993​

1081​

2795​

319​

2795​

1408​

2795​

1883​

1578​

2795​

2795​

319​

217​

'10.30.43​

​

2795​

704​

316​

1138​

2795​

2795​

476​

2795​

2795​

983​

2795​

316​

218​

'04.26.65​

​

2795​

2795​

2795​

2795​

2795​

2795​

314​

2084​

2795​

1776​

1966​

314​

219​

'13.25.77​

​

2795​

2795​

864​

1507​

2795​

1509​

2795​

2795​

312​

2795​

1064​

312​

220​

'04.70.84​

​

2795​

1929​

2795​

2795​

2795​

744​

1926​

2600​

2795​

2795​

311​

311​

221​

'28.53.76​

​

848​

2619​

2795​

1880​

2795​

2795​

674​

876​

2795​

311​

1965​

311​

222​

'13.44.63​

​

2795​

2795​

308​

2795​

2298​

1381​

2795​

2795​

1283​

2795​

2795​

308​

223​

'35.54.86​

​

2795​

1682​

824​

2795​

2795​

2795​

2795​

2795​

303​

2795​

932​

303​

224​

'47.55.89​

​

610​

752​

2795​

2795​

2795​

2795​

2795​

302​

1721​

634​

2795​

302​

225​

'11.33.47​

​

299​

2026​

2795​

895​

2795​

2795​

2795​

2795​

2125​

2795​

2795​

299​

226​

'04.60.67​

​

2795​

2795​

1710​

2795​

2795​

783​

2795​

854​

298​

1487​

2510​

298​

227​

'02.25.37​

​

2795​

297​

2795​

1970​

2795​

2633​

1577​

2425​

2239​

2795​

901​

297​

228​

'12.13.62​

​

2795​

2795​

296​

2795​

2795​

646​

2795​

2450​

1781​

2795​

2795​

296​

229​

'24.45.54​

​

2795​

2795​

2795​

294​

2462​

2622​

2795​

884​

1212​

2795​

1233​

294​

230​

'02.17.70​

​

701​

2795​

2795​

2269​

2795​

2795​

685​

2795​

2795​

1269​

293​

293​

231​

'03.10.81​

​

2795​

1210​

2795​

2795​

2795​

2552​

2795​

454​

292​

2666​

2795​

292​

232​

'14.20.44​

​

2795​

2795​

2795​

1190​

743​

2795​

1104​

1459​

291​

928​

1934​

291​

233​

'38.48.86​

​

289​

2795​

609​

2795​

986​

2795​

2795​

2795​

2795​

2795​

2795​

289​

234​

'13.15.82​

​

2795​

362​

2795​

1288​

394​

882​

2795​

635​

288​

2795​

982​

288​

235​

'03.46.74​

​

1070​

2795​

2795​

2795​

2795​

667​

2795​

2742​

287​

2795​

826​

287​

236​

'17.34.48​

​

903​

2795​

2795​

2795​

286​

2795​

1657​

2795​

2795​

287​

2428​

286​

237​

'06.17.20​

​

2795​

1741​

1096​

2795​

1632​

2795​

285​

2618​

1356​

2795​

2420​

285​

238​

'12.41.50​

​

2795​

284​

1819​

2795​

2795​

2795​

2795​

2795​

2795​

1494​

2795​

284​

239​

'14.50.84​

​

834​

284​

1079​

2795​

2795​

822​

2795​

2795​

1933​

2795​

2795​

284​

240​

'37.41.83​

​

1356​

2795​

2795​

2795​

2073​

284​

485​

1339​

1075​

2795​

923​

284​

241​

'44.47.73​

​

283​

1114​

2795​

2795​

1138​

2795​

1499​

2795​

656​

2795​

2795​

283​

242​

'37.49.78​

​

2795​

888​

1023​

2795​

2795​

2795​

1035​

2795​

282​

1588​

819​

282​

243​

'07.12.48​

​

2795​

1193​

2795​

862​

2795​

2795​

278​

2048​

2795​

320​

2795​

278​

244​

'35.63.64​

​

2795​

2795​

350​

2795​

2795​

1679​

1111​

1999​

2795​

2795​

277​

277​

245​

'13.52.68​

​

2795​

2795​

2795​

1957​

2795​

2795​

1458​

2795​

276​

2795​

791​

276​

246​

'20.54.90​

​

1830​

275​

2518​

607​

2795​

2795​

310​

2795​

508​

2795​

1299​

275​

247​

'05.63.85​

​

2795​

573​

2795​

1172​

2795​

2795​

274​

1505​

354​

2795​

514​

274​

248​

'09.26.68​

​

273​

2795​

2795​

2795​

2368​

506​

2795​

442​

2386​

2795​

396​

273​

249​

'23.44.47​

​

2795​

703​

273​

1663​

2795​

2795​

2132​

2795​

2795​

2795​

2063​

273​

250​

'31.55.78​

​

2297​

272​

2795​

2795​

2795​

663​

1827​

2795​

774​

449​

680​

272​

251​

'10.38.47​

​

2795​

1083​

2795​

2795​

676​

2795​

1400​

1976​

272​

2497​

2795​

272​

252​

'12.13.30​

​

2795​

270​

2795​

2795​

2795​

1798​

336​

1724​

2118​

2795​

2795​

270​

253​

'19.68.88​

​

1893​

2795​

1995​

2795​

843​

2795​

2795​

1048​

325​

730​

268​

268​

254​

'24.50.53​

​

2795​

267​

1402​

2795​

616​

2795​

760​

670​

2795​

896​

2795​

267​

255​

'32.66.78​

​

266​

1116​

2795​

2795​

313​

323​

2109​

2053​

2623​

2795​

2795​

266​

256​

'68.80.82​

​

2515​

2795​

265​

2795​

1432​

2795​

524​

2795​

2795​

1115​

2795​

265​

257​

'62.71.73​

​

1837​

2795​

2795​

2795​

2795​

2795​

2795​

2795​

2795​

263​

839​

263​

258​

'59.60.73​

​

2795​

1181​

2795​

274​

2795​

332​

1225​

261​

2795​

2795​

559​

261​

259​

'03.37.69​

​

1217​

2795​

2795​

260​

2795​

2795​

945​

2747​

2795​

1199​

1791​

260​

260​

'32.37.51​

​

2795​

772​

2344​

541​

2795​

2294​

260​

2795​

1235​

2795​

2795​

260​

261​

'10.29.42​

​

2795​

2795​

2795​

1061​

1599​

2795​

259​

2795​

1952​

1091​

2795​

259​

262​

'15.29.56​

​

259​

2301​

1353​

295​

2795​

2795​

2795​

1189​

2795​

2795​

2338​

259​

263​

'19.29.35​

​

2706​

258​

1956​

2795​

2795​

2795​

2137​

2795​

2795​

437​

267​

258​

264​

'28.54.85​

​

2795​

2795​

2139​

2795​

2795​

257​

2795​

2795​

2430​

1989​

2795​

257​

265​

'11.16.38​

​

1490​

578​

2795​

2795​

2795​

344​

2795​

2795​

255​

757​

390​

255​

266​

'31.41.60​

​

2795​

593​

2795​

2795​

2795​

2795​

828​

2795​

515​

2795​

252​

252​

267​

'38.53.75​

​

372​

2795​

2795​

2795​

2795​

2795​

251​

2795​

714​

2795​

2359​

251​

268​

'34.40.49​

​

2160​

2540​

1015​

2795​

2106​

2795​

250​

2795​

2795​

2795​

2795​

250​

269​

'51.78.80​

​

654​

2795​

2795​

2795​

2795​

617​

2795​

2321​

1661​

249​

2795​

249​

270​

'05.13.46​

​

2213​

911​

2127​

2795​

249​

2795​

2795​

1074​

1042​

2224​

996​

249​

271​

'65.76.90​

​

2795​

2795​

2504​

1304​

2052​

2795​

1170​

2795​

2554​

248​

2795​

248​

272​

'40.41.71​

​

2795​

2795​

248​

712​

1249​

2795​

2795​

2795​

799​

2016​

2653​

248​

273​

'31.76.90​

​

2042​

1492​

2747​

2795​

1633​

2795​

2795​

1524​

1586​

248​

1219​

248​

274​

'27.49.66​

​

2795​

247​

299​

469​

2795​

2795​

1358​

2795​

692​

527​

2654​

247​

275​

'27.44.71​

​

2795​

2795​

2795​

1174​

246​

1967​

2795​

2795​

2795​

1240​

2000​

246​

276​

'19.63.90​

​

2795​

2795​

2795​

2795​

459​

1778​

807​

245​

2795​

1851​

2795​

245​

277​

'16.55.68​

​

2795​

2795​

2795​

1427​

2795​

244​

2795​

2227​

2795​

2795​

350​

244​

278​

'14.34.44​

​

2795​

360​

2691​

2795​

244​

2795​

2663​

2795​

2045​

2161​

2795​

244​

279​

'34.53.90​

​

1301​

2291​

2360​

2795​

2795​

2795​

2535​

2795​

942​

244​

2795​

244​

280​

'01.09.19​

​

516​

2795​

2795​

955​

2795​

2795​

542​

243​

2088​

2795​

2795​

243​

281​

'14.26.83​

​

2795​

2398​

2640​

2795​

243​

2795​

1500​

1450​

2795​

2795​

495​

243​

282​

'32.72.73​

​

2013​

240​

2795​

2795​

2795​

2795​

2795​

2795​

1125​

2795​

342​

240​

283​

'17.57.87​

​

1902​

2795​

2795​

2795​

1464​

2795​

2795​

2068​

675​

2795​

239​

239​

284​

'09.72.74​

​

1031​

2795​

939​

1241​

2795​

2794​

1862​

2795​

239​

2795​

1108​

239​

285​

'61.63.66​

​

618​

610​

2479​

2795​

237​

2795​

2253​

2795​

2567​

2795​

2652​

237​

286​

'30.87.89​

​

2795​

2795​

2795​

2795​

623​

2795​

537​

2795​

512​

2795​

235​

235​

287​

'12.55.86​

​

1293​

2795​

2795​

2795​

1068​

232​

2795​

2795​

2795​

2795​

1634​

232​

288​

'65.75.86​

​

229​

2795​

548​

2795​

2795​

2795​

2795​

1470​

2795​

2795​

758​

229​

289​

'03.04.51​

​

1192​

228​

2795​

2795​

789​

2795​

1010​

2795​

315​

2795​

363​

228​

290​

'03.08.42​

​

1071​

2092​

2769​

1085​

2795​

2795​

2795​

2795​

562​

226​

2795​

226​

291​

'01.18.20​

​

1700​

1566​

665​

2514​

2795​

224​

1598​

1238​

2795​

2795​

2638​

224​

292​

'66.69.75​

​

2689​

2795​

2795​

2795​

501​

2178​

2795​

2717​

235​

2795​

223​

223​

293​

'11.34.90​

​

667​

1567​

2795​

2795​

1180​

2795​

2535​

2795​

504​

223​

2795​

223​

294​

'43.46.60​

​

2795​

223​

2795​

739​

2795​

2795​

1431​

1944​

1775​

987​

2795​

223​

295​

'40.47.84​

​

2795​

2260​

375​

2795​

1764​

222​

2159​

2795​

2795​

2704​

2795​

222​

296​

'08.20.80​

​

1886​

2795​

2366​

2795​

2795​

2603​

2795​

2795​

693​

221​

2795​

221​

297​

'13.43.63​

​

1166​

220​

2795​

653​

2795​

1625​

2374​

2795​

2795​

2795​

2795​

220​

298​

'59.61.69​

​

1339​

319​

2079​

2795​

220​

2795​

1069​

2795​

2795​

2795​

462​

220​

299​

'16.25.61​

​

2795​

479​

219​

902​

2795​

626​

2537​

2795​

2795​

2795​

2795​

219​

300​

'29.39.74​

​

2795​

2795​

1392​

2795​

2795​

2661​

218​

2795​

2795​

2590​

660​

218​

301​

'13.44.53​

​

2709​

529​

2795​

2795​

2298​

2795​

281​

424​

2795​

1817​

217​

217​

302​

'27.63.78​

​

2795​

382​

2795​

1097​

1579​

1119​

2795​

2795​

216​

489​

2684​

216​

303​

'38.79.82​

​

2795​

2795​

2795​

2795​

547​

2795​

1231​

215​

2795​

2795​

2655​

215​

304​

'28.52.53​

​

215​

1268​

2795​

2795​

2795​

2795​

2795​

2795​

2795​

833​

2795​

215​

305​

'09.34.84​

​

1648​

885​

2795​

213​

2795​

771​

1980​

2795​

979​

2795​

2795​

213​

306​

'48.68.78​

​

2795​

2136​

2795​

1139​

625​

2795​

2795​

2795​

2795​

2333​

212​

212​

307​

'41.62.64​

​

2029​

2271​

2795​

212​

2795​

2795​

2795​

526​

2795​

2795​

2795​

212​

308​

'23.48.78​

​

2795​

238​

2795​

2470​

1617​

210​

1614​

694​

2795​

2795​

2795​

210​

309​

'42.49.79​

​

2795​

1252​

1611​

2795​

2795​

2253​

2795​

2795​

2795​

2795​

208​

208​

310​

'33.58.90​

​

2795​

2795​

206​

1755​

391​

2795​

1774​

2795​

1909​

1051​

2795​

206​

311​

'20.32.67​

​

2795​

435​

2795​

204​

2174​

2795​

2795​

2795​

2777​

2795​

1502​

204​

312​

'28.43.76​

​

2795​

2795​

2795​

2795​

1936​

1336​

2795​

1589​

203​

1646​

2795​

203​

313​

'73.88.89​

​

2795​

748​

201​

2795​

2795​

1802​

427​

2795​

1508​

598​

2795​

201​

314​

'30.83.85​

​

2795​

502​

1809​

2795​

2795​

980​

2273​

858​

2795​

201​

2795​

201​

315​

'56.68.84​

​

599​

489​

1576​

1801​

628​

201​

2795​

2795​

2795​

2795​

2795​

201​

316​

'05.28.78​

​

2795​

1425​

199​

1224​

2795​

2795​

846​

540​

2795​

2795​

2795​

199​

317​

'13.42.47​

​

2795​

2795​

198​

279​

2795​

2795​

2795​

2795​

2147​

2795​

1330​

198​

318​

'13.20.84​

​

1655​

2795​

2795​

2795​

2795​

197​

1471​

396​

2795​

2492​

591​

197​

319​

'04.53.68​

​

1690​

2795​

2795​

1296​

1093​

2795​

2795​

2795​

1641​

1135​

196​

196​

320​

'21.39.89​

​

2399​

2405​

195​

2435​

568​

2795​

2657​

2795​

2795​

2795​

1954​

195​

321​

'02.04.61​

​

2795​

2795​

433​

1191​

815​

2795​

710​

2795​

2095​

193​

2171​

193​

322​

'08.85.87​

​

2795​

2795​

764​

2795​

276​

860​

2795​

1780​

2795​

191​

2795​

191​

323​

'16.81.84​

​

1966​

1561​

2795​

2795​

1215​

191​

2795​

390​

1851​

2795​

2795​

191​

324​

'16.45.81​

​

2795​

2795​

2795​

2092​

1263​

191​

2795​

690​

1452​

2133​

1222​

191​

325​

'16.36.69​

​

2795​

886​

2795​

190​

2004​

2795​

305​

2795​

2795​

2498​

2795​

190​

326​

'15.82.87​

​

1389​

750​

2795​

939​

2207​

1324​

2795​

189​

2795​

909​

2795​

189​

327​

'10.72.80​

​

2795​

1872​

2795​

964​

1122​

2795​

2795​

2737​

1410​

188​

648​

188​

328​

'63.80.86​

​

2795​

2292​

2795​

2795​

2795​

1664​

2795​

2713​

2192​

556​

187​

187​

329​

'15.56.84​

​

2568​

2795​

186​

453​

2795​

1850​

2795​

2795​

2795​

2795​

2795​

186​

330​

'09.32.63​

​

2795​

497​

2795​

2795​

831​

209​

186​

1704​

2358​

246​

2362​

186​

331​

'20.31.45​

​

771​

2795​

615​

2795​

571​

2795​

1229​

356​

2104​

2795​

184​

184​

332​

'06.12.32​

​

2795​

2795​

221​

2795​

183​

1598​

2795​

1334​

1060​

2795​

2795​

183​

333​

'29.45.61​

​

2795​

905​

181​

1595​

2795​

2795​

2795​

2795​

2508​

478​

444​

181​

334​

'12.38.65​

​

2795​

749​

2795​

2795​

1519​

1674​

2795​

2109​

179​

1207​

1810​

179​

335​

'01.48.86​

​

1955​

1297​

2058​

2795​

2795​

2795​

2795​

2795​

1962​

178​

845​

178​

336​

'35.54.70​

​

233​

2795​

2795​

2795​

633​

2795​

317​

2795​

2795​

269​

177​

177​

337​

'30.64.77​

​

2795​

2215​

1260​

2795​

176​

2795​

2795​

2795​

479​

686​

2357​

176​

338​

'06.10.50​

​

1627​

2795​

2795​

2795​

2348​

2795​

2287​

2795​

624​

2795​

175​

175​

339​

'46.65.75​

​

2795​

174​

2795​

2795​

1735​

2795​

2795​

908​

2193​

2795​

230​

174​

340​

'05.29.84​

​

2795​

756​

2795​

2795​

376​

595​

326​

2795​

174​

2795​

2795​

174​

341​

'18.29.61​

​

1380​

482​

855​

2795​

2795​

1731​

622​

633​

1860​

2795​

173​

173​

342​

'31.56.80​

​

2795​

2795​

789​

172​

755​

2795​

2795​

843​

2795​

2438​

2795​

172​

343​

'03.53.72​

​

1031​

920​

2795​

2109​

2482​

570​

2795​

1398​

172​

2795​

2795​

172​

344​

'26.47.62​

​

2795​

2795​

2795​

2795​

1311​

2795​

171​

477​

1196​

2795​

1092​

171​

345​

'10.11.44​

​

2795​

2795​

2795​

170​

1592​

2795​

2795​

428​

1801​

1641​

988​

170​

346​

'31.33.46​

​

2795​

2795​

169​

2795​

736​

2795​

1369​

2643​

491​

2795​

2795​

169​

347​

'22.54.84​

​

2652​

2795​

2795​

2795​

2795​

169​

2795​

2795​

2795​

1889​

2795​

169​

348​

'65.72.90​

​

2795​

2795​

2795​

2795​

1841​

304​

2795​

2795​

169​

2795​

2795​

169​

349​

'20.42.89​

​

2795​

2795​

2795​

168​

2118​

2795​

961​

2795​

1177​

907​

2795​

168​

350​

'04.68.78​

​

2659​

167​

2795​

2795​

300​

2246​

2795​

2795​

2795​

2795​

2795​

167​

351​

'41.54.80​

​

2795​

2795​

2795​

192​

2795​

2795​

166​

2795​

2795​

2795​

1036​

166​

352​

'02.16.81​

​

2795​

200​

1858​

2795​

2795​

2795​

2795​

2795​

182​

165​

1222​

165​

353​

'36.73.86​

​

164​

2795​

2795​

2795​

2795​

2159​

985​

1996​

264​

2022​

2795​

164​

354​

'02.27.83​

​

2795​

1852​

2795​

2795​

2795​

163​

2128​

290​

1631​

2795​

2795​

163​

355​

'04.27.31​

​

467​

2795​

2795​

2795​

2795​

2795​

1534​

2795​

2795​

160​

1209​

160​

356​

'17.37.86​

​

2795​

2795​

2795​

159​

2795​

1017​

2795​

2795​

2795​

2209​

2506​

159​

357​

'06.15.27​

​

382​

986​

2795​

2795​

2795​

2795​

1121​

2795​

157​

290​

2795​

157​

358​

'05.21.47​

​

2795​

2795​

2795​

969​

2340​

2795​

2795​

157​

2795​

2752​

2656​

157​

359​

'12.39.74​

​

2795​

156​

2795​

2795​

358​

2795​

2341​

2748​

798​

1393​

2795​

156​

360​

'14.49.90​

​

155​

2670​

2795​

2795​

398​

2025​

2795​

2795​

1413​

2795​

1641​

155​

361​

'44.47.86​

​

153​

2795​

2795​

1426​

935​

2795​

1102​

2059​

2795​

760​

2795​

153​

362​

'04.14.61​

​

2795​

152​

910​

237​

1336​

2795​

2795​

151​

2795​

2795​

2795​

151​

363​

'07.09.83​

​

2400​

1457​

2696​

1415​

150​

1797​

2795​

2795​

2795​

2795​

2795​

150​

364​

'08.26.42​

​

2795​

904​

1774​

2795​

872​

150​

191​

2795​

2795​

2795​

1525​

150​

365​

'06.65.85​

​

1306​

2795​

2795​

2795​

2795​

2036​

779​

149​

2795​

2795​

2692​

149​

366​

'09.10.80​

​

2166​

478​

2795​

2795​

147​

2795​

2795​

2379​

2795​

2584​

464​

147​

367​

'38.46.82​

​

2795​

2795​

2795​

2795​

2795​

2795​

146​

2795​

2795​

2795​

481​

146​

368​

'35.39.44​

​

2334​

2527​

145​

2795​

2216​

2795​

966​

2795​

2795​

2795​

1159​

145​

369​

'71.80.90​

​

2255​

2795​

2741​

1324​

143​

2795​

2795​

158​

2795​

2795​

2795​

143​

370​

'19.22.42​

​

1709​

1594​

2795​

2795​

2795​

142​

2795​

2795​

2795​

1638​

2250​

142​

371​

'02.06.18​

​

531​

2795​

242​

2795​

140​

2795​

1379​

2795​

2795​

689​

2795​

140​

372​

'43.50.83​

​

2075​

417​

2795​

231​

2002​

138​

2795​

2795​

2795​

468​

439​

138​

373​

'06.39.55​

​

919​

1854​

137​

561​

2319​

742​

2795​

2795​

340​

2795​

2795​

137​

374​

'34.40.47​

​

552​

2795​

2795​

2795​

2409​

136​

1063​

2795​

2067​

938​

2795​

136​

375​

'26.29.61​

​

717​

2795​

2795​

2795​

762​

2795​

622​

2795​

2795​

2795​

135​

135​

376​

'09.71.80​

​

2795​

2795​

1149​

2795​

2744​

2795​

2795​

134​

519​

669​

2795​

134​

377​

'02.23.69​

​

2795​

133​

2795​

1161​

2795​

2795​

2795​

2795​

2795​

2795​

1517​

133​

378​

'08.77.83​

​

2795​

1040​

2795​

2795​

2795​

2304​

2489​

132​

2795​

2795​

2795​

132​

379​

'17.63.89​

​

2795​

131​

1712​

2697​

2719​

2019​

2795​

2795​

1706​

2795​

2795​

131​

380​

'07.29.40​

​

131​

2795​

2795​

2795​

1302​

2795​

2795​

885​

934​

872​

2795​

131​

381​

'10.25.74​

​

423​

1702​

973​

130​

676​

2795​

499​

2795​

2795​

501​

2795​

130​

382​

'71.76.80​

​

2795​

2795​

2741​

2795​

1990​

1865​

129​

158​

2795​

256​

1208​

129​

383​

'17.32.86​

​

2598​

2795​

2795​

128​

2795​

2795​

1744​

2795​

2795​

257​

2795​

128​

384​

'20.25.71​

​

1649​

2795​

2795​

127​

2795​

1302​

2795​

2795​

1766​

2795​

2795​

127​

385​

'19.56.61​

​

420​

126​

2795​

1636​

2795​

249​

2795​

1068​

2795​

2795​

2795​

126​

386​

'59.75.76​

​

2795​

1537​

716​

126​

767​

2320​

2536​

2795​

2795​

553​

2795​

126​

387​

'09.51.58​

​

125​

2101​

2795​

1227​

2795​

2795​

2795​

2795​

2795​

1901​

1095​

125​

388​

'43.50.51​

​

738​

1770​

2795​

2795​

2795​

2406​

2795​

2555​

125​

2795​

2783​

125​

389​

'33.49.88​

​

2795​

1734​

1372​

1927​

2795​

2795​

2785​

2795​

124​

2795​

1764​

124​

390​

'30.76.78​

​

768​

2795​

2795​

820​

2795​

2464​

1388​

2795​

123​

2795​

2795​

123​

391​

'65.72.89​

​

1236​

378​

487​

1259​

2795​

2795​

2795​

1728​

122​

205​

2795​

122​

392​

'30.88.90​

​

1233​

2795​

368​

120​

2795​

2795​

2795​

2679​

2040​

2795​

2795​

120​

393​

'13.68.80​

​

2795​

2795​

119​

2795​

2795​

2795​

2466​

2795​

2795​

2795​

775​

119​

394​

'03.36.69​

​

2795​

1023​

2541​

554​

1021​

2795​

2795​

117​

2795​

2795​

262​

117​

395​

'26.52.66​

​

2795​

726​

116​

2417​

2795​

1801​

2020​

2795​

450​

1075​

2795​

116​

396​

'04.11.67​

​

1711​

2795​

2795​

696​

877​

926​

115​

672​

2795​

2795​

2795​

115​

397​

'56.66.70​

​

115​

2795​

2019​

631​

2795​

2795​

2073​

2795​

211​

1520​

2795​

115​

398​

'05.33.35​

​

1007​

114​

2795​

2795​

445​

2795​

2795​

2795​

1396​

2795​

2795​

114​

399​

'26.58.85​

​

1914​

113​

1480​

2795​

2751​

2795​

2417​

2795​

2795​

2795​

2795​

113​

400​

'01.16.79​

​

1635​

2795​

2795​

2795​

2795​

2795​

1070​

2795​

184​

112​

2795​

112​

401​

'67.72.82​

​

2480​

112​

495​

220​

2795​

2795​

2795​

185​

364​

2795​

1865​

112​

402​

'22.48.87​

​

2795​

434​

2795​

979​

2795​

2795​

2795​

191​

111​

621​

1171​

111​

403​

'26.66.74​

​

414​

2795​

2795​

2795​

271​

2795​

986​

2795​

450​

2795​

111​

111​

404​

'10.30.56​

​

1557​

107​

2795​

403​

2795​

2795​

1945​

2795​

2795​

2795​

204​

107​

405​

'03.48.89​

​

1087​

2795​

2795​

2236​

106​

2795​

2795​

1729​

2795​

2686​

2795​

106​

406​

'10.11.65​

​

2120​

749​

1852​

170​

705​

1555​

2795​

2795​

2795​

2795​

106​

106​

407​

'18.64.67​

​

2795​

2795​

2795​

545​

1368​

776​

2795​

106​

2795​

965​

2795​

106​

408​

'37.45.70​

​

2795​

2795​

2795​

1136​

312​

105​

1951​

2795​

1819​

2795​

461​

105​

409​

'01.72.79​

​

2795​

104​

2795​

2795​

2795​

608​

2788​

1677​

2795​

2795​

1067​

104​

410​

'17.22.80​

​

103​

1924​

1912​

2030​

2795​

1507​

2795​

1806​

2795​

359​

2795​

103​

411​

'37.67.85​

​

864​

102​

2795​

1363​

2795​

2795​

2795​

1969​

2795​

2468​

2795​

102​

412​

'21.25.38​

​

2795​

100​

2254​

2795​

2795​

2795​

2795​

2795​

1701​

2795​

903​

100​

413​

'15.25.54​

​

2795​

1639​

2795​

2795​

1293​

331​

99​

2795​

1869​

1129​

552​

99​

414​

'43.73.85​

​

1186​

2795​

2544​

2795​

98​

534​

2795​

2685​

2795​

2539​

2795​

98​

415​

'08.46.55​

​

108​

1756​

2795​

749​

2795​

2795​

2795​

2340​

2795​

2795​

97​

97​

416​

'07.45.83​

​

2795​

2795​

1660​

2795​

1815​

162​

2795​

94​

2795​

2795​

2795​

94​

417​

'27.67.70​

​

1328​

2795​

1403​

93​

1966​

2795​

1864​

2795​

2795​

444​

2795​

93​

418​

'05.31.45​

​

2795​

2795​

2795​

2795​

1585​

1264​

2795​

1150​

595​

93​

219​

93​

419​

'30.45.69​

​

2795​

2229​

2645​

1026​

2795​

92​

2157​

2795​

2795​

352​

2708​

92​

420​

'46.84.87​

​

2795​

2032​

2795​

1453​

1098​

2795​

2795​

2795​

91​

2795​

1279​

91​

421​

'23.51.75​

​

2546​

1630​

1789​

2795​

2795​

2795​

91​

2635​

841​

2795​

1678​

91​

422​

'32.36.68​

​

2795​

2795​

324​

254​

1866​

2021​

90​

1852​

911​

2795​

2795​

90​

423​

'20.51.79​

​

89​

2795​

2795​

2795​

1254​

2795​

989​

118​

2795​

2795​

180​

89​

424​

'10.84.87​

​

2795​

867​

2795​

774​

628​

2795​

1042​

2795​

2795​

89​

2795​

89​

425​

'29.61.69​

​

2795​

1456​

2795​

2795​

1286​

1653​

88​

2795​

2795​

478​

2795​

88​

426​

'45.47.84​

​

2795​

87​

2795​

2795​

1001​

1539​

2795​

2795​

2403​

558​

2795​

87​

427​

'30.37.39​

​

2795​

2795​

2795​

2795​

86​

2404​

1388​

2244​

1892​

365​

2795​

86​

428​

'03.61.76​

​

2795​

2325​

1308​

2795​

2795​

1719​

2733​

2795​

2795​

735​

86​

86​

429​

'30.83.87​

​

2795​

2795​

2795​

2795​

2463​

870​

1937​

86​

2795​

2795​

265​

86​

430​

'37.67.72​

​

2795​

2795​

2795​

2795​

2795​

86​

2795​

415​

2302​

2793​

1865​

86​

431​

'53.55.74​

​

1404​

1627​

1382​

2601​

2325​

85​

2795​

2795​

2795​

2795​

2795​

85​

432​

'23.82.89​

​

85​

2795​

1918​

670​

2795​

658​

2795​

2795​

207​

2795​

2795​

85​

433​

'03.52.68​

​

1142​

2795​

1553​

83​

2795​

2795​

2076​

1823​

2795​

377​

2137​

83​

434​

'14.45.66​

​

914​

2795​

2533​

2795​

1985​

81​

2795​

2795​

2795​

1835​

2795​

81​

435​

'01.12.90​

​

2795​

2564​

1931​

2795​

81​

2795​

2795​

2795​

206​

840​

345​

81​

436​

'07.34.76​

​

2795​

2795​

2795​

79​

2795​

2795​

2413​

715​

480​

1956​

2795​

79​

437​

'28.44.50​

​

2795​

2795​

2099​

1350​

2795​

2795​

78​

2795​

2175​

2795​

2795​

78​

438​

'03.17.30​

​

77​

219​

2795​

2795​

2795​

2795​

836​

1080​

2012​

2795​

1188​

77​

439​

'03.53.77​

​

1624​

2007​

2795​

2109​

552​

2795​

2647​

2795​

752​

76​

2795​

76​

440​

'31.35.67​

​

2265​

1391​

2795​

411​

2083​

2795​

76​

1276​

2665​

1159​

2795​

76​

441​

'05.39.57​

​

2795​

75​

563​

2296​

1948​

2795​

2795​

2795​

2795​

2795​

1332​

75​

442​

'24.35.45​

​

2795​

74​

2795​

1140​

2795​

598​

2795​

884​

98​

2795​

2795​

74​

443​

'02.32.78​

​

466​

268​

2492​

74​

803​

1526​

2322​

2795​

2795​

2795​

2795​

74​

444​

'21.61.83​

​

2795​

2795​

73​

2795​

2795​

1997​

1746​

1902​

2795​

139​

2722​

73​

445​

'04.43.61​

​

2795​

2795​

384​

1191​

245​

72​

2795​

1496​

2795​

2795​

1107​

72​

446​

'32.51.70​

​

1715​

2795​

1148​

2795​

2795​

2795​

2795​

161​

71​

1343​

2795​

71​

447​

'14.63.74​

​

527​

2795​

2014​

2795​

1178​

2795​

2795​

2795​

2795​

70​

2795​

70​

448​

'33.54.71​

​

681​

2795​

2795​

1446​

1015​

702​

2795​

69​

1194​

2795​

2795​

69​

449​

'20.40.63​

​

69​

2795​

2795​

2795​

1104​

962​

434​

144​

2795​

108​

2795​

69​

450​

'16.48.74​

​

67​

2795​

2795​

2795​

2795​

2795​

750​

1767​

2795​

943​

985​

67​

451​

'01.81.90​

​

66​

2795​

1951​

1124​

806​

1251​

2795​

2795​

2795​

1044​

898​

66​

452​

'76.77.79​

​

2795​

2795​

65​

2499​

2620​

314​

2795​

369​

2320​

533​

2795​

65​

453​

'40.61.81​

​

237​

2723​

2795​

2795​

64​

2415​

68​

2795​

1526​

2795​

1538​

64​

454​

'39.75.88​

​

2647​

2795​

2650​

2795​

2795​

2795​

2795​

63​

1979​

2795​

2795​

63​

455​

'09.57.70​

​

62​

2795​

2795​

2795​

2795​

2795​

2795​

2595​

900​

1326​

2795​

62​

456​

'51.56.87​

​

1212​

2795​

419​

2795​

2795​

2795​

61​

2795​

2795​

2795​

1125​

61​

457​

'31.74.77​

​

60​

2795​

2795​

457​

1823​

2795​

708​

2795​

2223​

2795​

2795​

60​

458​

'11.74.89​

​

1354​

1556​

59​

2795​

2795​

2795​

2328​

2795​

814​

2795​

2795​

59​

459​

'66.68.89​

​

910​

348​

2795​

58​

1718​

2795​

2795​

2795​

1774​

2795​

2107​

58​

460​

'11.53.64​

​

1326​

2795​

2165​

2795​

1922​

2795​

998​

2795​

2332​

57​

2795​

57​

461​

'31.32.89​

​

2795​

2795​

2609​

236​

2459​

397​

56​

1134​

2795​

2795​

2795​

56​

462​

'03.14.18​

​

2262​

2504​

2268​

2795​

483​

2795​

55​

2034​

1876​

194​

2795​

55​

463​

'34.39.53​

​

109​

2795​

379​

973​

2795​

1266​

226​

2795​

54​

2795​

2795​

54​

464​

'44.65.73​

​

2795​

2795​

84​

2795​

327​

2795​

896​

2795​

2795​

2054​

53​

53​

465​

'08.27.37​

​

2795​

1223​

411​

2795​

2795​

1244​

52​

2795​

2795​

393​

2795​

52​

466​

'05.13.60​

​

2795​

1134​

2795​

786​

2795​

1574​

2795​

774​

51​

2795​

1905​

51​

467​

'31.61.82​

​

2795​

2186​

2795​

544​

2471​

2230​

82​

2581​

50​

2795​

2795​

50​

468​

'32.42.90​

​

1039​

49​

2795​

2795​

2795​

896​

594​

2795​

2795​

1569​

2795​

49​

469​

'11.15.51​

​

2795​

406​

2795​

2795​

998​

48​

1923​

2795​

347​

2795​

2795​

48​

470​

'01.41.58​

​

2795​

2372​

2795​

849​

769​

1053​

2795​

2795​

2795​

2795​

48​

48​

471​

'09.18.31​

​

2795​

2795​

2795​

253​

2795​

928​

2795​

2722​

2795​

2402​

47​

47​

472​

'03.31.81​

​

2795​

597​

2795​

2795​

47​

1361​

2795​

2795​

2795​

2795​

2795​

47​

473​

'42.56.78​

​

2795​

1622​

96​

1977​

46​

1547​

1000​

2795​

2795​

2683​

2795​

46​

474​

'04.30.61​

​

522​

2795​

724​

45​

1284​

2795​

298​

1412​

1787​

2795​

307​

45​

475​

'56.75.78​

​

2795​

44​

1153​

1497​

2795​

2795​

2795​

225​

2017​

2795​

2795​

44​

476​

'09.15.84​

​

44​

1192​

2795​

2795​

2795​

2795​

2795​

2248​

321​

1931​

1400​

44​

477​

'27.49.81​

​

2428​

1366​

1464​

43​

707​

2764​

2795​

2795​

2795​

2795​

2795​

43​

478​

'25.65.84​

​

2795​

2795​

415​

2795​

43​

2795​

2795​

263​

2795​

2795​

496​

43​

479​

'33.50.77​

​

2795​

2795​

2795​

1753​

532​

412​

2795​

2795​

2795​

42​

904​

42​

480​

'20.28.80​

​

1832​

2795​

110​

2795​

1516​

2795​

41​

2795​

1998​

2795​

2795​

41​

481​

'05.14.49​

​

731​

2121​

2795​

2795​

2795​

372​

2795​

40​

430​

2795​

2795​

40​

482​

'01.11.59​

​

2795​

777​

40​

219​

2795​

1032​

1183​

2795​

2795​

1577​

1414​

40​

483​

'51.57.80​

​

2795​

39​

1049​

2795​

2795​

301​

2795​

421​

2795​

2795​

784​

39​

484​

'07.11.33​

​

2795​

2795​

2174​

95​

1327​

2795​

135​

2795​

1352​

38​

2795​

38​

485​

'19.29.50​

​

2795​

96​

871​

2795​

36​

2795​

2637​

609​

2795​

2795​

380​

36​

486​

'57.78.81​

​

35​

2795​

2108​

2795​

203​

227​

2795​

2795​

2795​

639​

2795​

35​

487​

'12.56.71​

​

2795​

34​

2795​

2795​

596​

1676​

2474​

200​

2795​

2795​

2795​

34​

488​

'18.25.52​

​

2795​

2795​

1803​

2795​

2795​

2795​

1137​

1874​

33​

2795​

1697​

33​

489​

'18.39.52​

​

2005​

2795​

2795​

2153​

305​

697​

2795​

2795​

32​

2795​

392​

32​

490​

'19.27.73​

​

2795​

460​

1580​

31​

1613​

2795​

1016​

2795​

2795​

37​

2238​

31​

491​

'57.65.87​

​

2795​

646​

1321​

2129​

2795​

30​

1278​

1881​

2795​

2795​

1654​

30​

492​

'19.47.64​

​

2795​

1532​

2455​

643​

30​

2795​

2651​

1175​

2795​

2795​

2795​

30​

493​

'03.59.87​

​

733​

2795​

1927​

29​

2795​

2795​

1413​

1726​

2795​

2795​

2795​

29​

494​

'26.45.51​

​

1939​

2795​

1056​

2795​

2795​

2795​

638​

101​

28​

1286​

2363​

28​

495​

'14.62.69​

​

2795​

1619​

329​

2795​

27​

2795​

1123​

2795​

2053​

2795​

2795​

27​

496​

'63.77.81​

​

734​

610​

2795​

533​

2795​

2795​

2295​

2795​

26​

1843​

723​

26​

497​

'29.67.69​

​

1951​

2795​

2795​

1501​

2710​

2795​

25​

1630​

273​

1311​

2795​

25​

498​

'04.43.49​

​

2795​

24​

2795​

1776​

2795​

2795​

1048​

2658​

936​

1854​

2795​

24​

499​

'41.43.48​

​

23​

2795​

2690​

2795​

2795​

1562​

2526​

2795​

1092​

1518​

2388​

23​

500​

'29.45.53​

​

2795​

2753​

335​

451​

22​

2795​

2795​

2795​

1463​

2795​

2795​

22​

501​

'17.57.64​

​

912​

2572​

2795​

2795​

148​

2795​

2795​

1485​

2795​

22​

318​

22​

502​

'20.29.53​

​

21​

2795​

2795​

262​

2795​

2795​

2795​

1223​

2448​

2795​

1223​

21​

503​

'24.59.87​

​

20​

1579​

2795​

2795​

2795​

2795​

1133​

2795​

2795​

2795​

1640​

20​

504​

'24.60.82​

​

2795​

19​

234​

2795​

2795​

2795​

2264​

688​

2724​

396​

2596​

19​

505​

'52.58.89​

​

1991​

2746​

2649​

2795​

2795​

2795​

2795​

2795​

2795​

130​

17​

17​

506​

'25.57.66​

​

1816​

1216​

16​

807​

2795​

2795​

2795​

1002​

2795​

2795​

2795​

16​

507​

'05.65.66​

​

2795​

832​

136​

2795​

715​

2795​

2795​

2795​

2795​

2795​

15​

15​

508​

'14.40.52​

​

15​

463​

2795​

2795​

2795​

1728​

459​

2795​

2795​

2445​

2795​

15​

509​

'30.40.76​

​

1312​

2795​

2795​

820​

2795​

1175​

2795​

2795​

2795​

2190​

14​

14​

510​

'37.43.77​

​

2795​

2795​

2795​

13​

141​

2795​

2795​

2795​

2795​

18​

1126​

13​

511​

'03.08.79​

​

2795​

572​

2795​

12​

2229​

1340​

813​

1258​

2795​

1090​

2795​

12​

512​

'05.35.66​

​

2097​

12​

576​

2795​

2795​

838​

2795​

2795​

80​

158​

1341​

12​

513​

'10.11.51​

​

11​

2149​

2795​

1504​

52​

2795​

2795​

2795​

1454​

2795​

2795​

11​

514​

'60.73.90​

​

2795​

2795​

647​

1344​

2447​

2384​

2795​

2795​

883​

1138​

10​

10​

515​

'23.45.80​

​

2795​

732​

492​

2795​

2311​

2795​

10​

2795​

583​

451​

642​

10​

516​

'05.12.60​

​

1384​

2795​

1606​

2795​

387​

10​

2795​

1945​

1112​

2795​

2795​

10​

517​

'48.62.74​

​

1426​

2795​

280​

2795​

9​

2795​

1842​

2795​

681​

2795​

2795​

9​

518​

'24.35.54​

​

8​

778​

2795​

2649​

2795​

2795​

404​

884​

2795​

121​

2423​

8​

519​

'61.62.69​

​

2795​

2795​

7​

2587​

641​

2795​

2795​

1814​

2188​

2795​

2795​

7​

520​

'20.39.89​

​

425​

1332​

6​

2424​

1375​

2795​

2196​

2270​

1774​

2795​

2795​

6​

521​

'01.23.67​

​

2795​

2795​

2795​

2795​

5​

2795​

2795​

936​

1569​

1390​

2795​

5​

522​

'05.06.81​

​

2795​

494​

2795​

2461​

2605​

493​

1932​

5​

502​

2732​

2795​

5​

523​

'41.79.83​

​

4​

889​

2795​

2361​

2795​

2795​

485​

2795​

2795​

2795​

2795​

4​

524​

'15.18.61​

​

1380​

2795​

2795​

2795​

2795​

2795​

1882​

1486​

3​

2546​

2795​

3​

525​

'67.73.90​

​

2​

2795​

2795​

2795​

2795​

216​

2795​

2795​

2122​

2795​

1160​

2​

​

​

​

​

​

​

​

​

​

​

​

​

​

​

​

​

Tabella​

​

2​

12​

6​

12​

5​

10​

10​

5​

3​

18​

10​

2​

 

[Cinzia27]

Invece gli 83 ambi continuano a tenere.

Pos​

Formazione​

Note​

Ba​

Ca​

Fi​

Ge​

Mi​

Na​

Pa​

Ro​

To​

Ve​

Nz​

Unite​

1​

'11.41​

​

299​

161​

155​

219​

836​

428​

196​

367​

843​

1157​

144​

144​

2​

'46.48​

​

170​

918​

268​

153​

808​

140​

600​

194​

681​

184​

1060​

140​

3​

'68.90​

​

168​

209​

737​

115​

683​

212​

145​

260​

809​

526​

113​

113​

4​

'19.44​

​

727​

201​

141​

202​

473​

486​

109​

745​

163​

147​

134​

109​

5​

'15.29​

​

259​

1301​

109​

295​

309​

194​

698​

270​

187​

408​

319​

109​

6​

'52.55​

​

215​

235​

1286​

108​

821​

1388​

641​

254​

1552​

370​

732​

108​

7​

'12.46​

​

146​

989​

169​

773​

1029​

1492​

214​

195​

91​

630​

119​

91​

8​

'04.51​

​

90​

228​

113​

113​

525​

157​

644​

479​

298​

322​

363​

90​

9​

'83.90​

​

205​

1492​

261​

87​

360​

513​

174​

94​

677​

225​

495​

87​

10​

'33.70​

​

347​

331​

243​

114​

225​

510​

410​

153​

461​

1158​

77​

77​

11​

'80.82​

​

103​

423​

265​

192​

726​

481​

74​

91​

88​

126​

356​

74​

12​

'82.86​

​

882​

524​

485​

446​

405​

439​

71​

467​

264​

251​

78​

71​

13​

'50.89​

​

328​

144​

1117​

66​

227​

275​

423​

218​

441​

315​

471​

66​

14​

'37.44​

​

876​

230​

1414​

721​

141​

354​

93​

65​

232​

516​

155​

65​

15​

'38.72​

​

64​

338​

1198​

360​

156​

330​

686​

115​

128​

242​

220​

64​

16​

'28.64​

​

120​

182​

63​

182​

375​

76​

159​

62​

578​

134​

156​

62​

17​

'45.68​

​

446​

648​

121​

1042​

61​

164​

280​

1221​

306​

316​

143​

61​

18​

'07.21​

​

294​

189​

58​

286​

442​

146​

293​

714​

983​

320​

231​

58​

19​

'66.78​

​

266​

140​

1006​

348​

125​

323​

212​

56​

366​

664​

644​

56​

20​

'09.70​

​

62​

478​

1537​

824​

91​

209​

679​

54​

514​

1326​

117​

54​

21​

'31.44​

​

559​

61​

61​

932​

382​

173​

76​

451​

148​

110​

53​

53​

22​

'08.27​

​

470​

919​

411​

683​

121​

74​

52​

305​

101​

49​

333​

49​

23​

'15.78​

​

44​

436​

183​

164​

138​

470​

377​

209​

221​

1383​

426​

44​

24​

'26.80​

​

40​

506​

934​

316​

73​

329​

524​

531​

583​

270​

309​

40​

25​

'21.33​

​

759​

461​

504​

983​

84​

610​

249​

36​

150​

814​

186​

36​

26​

'41.54​

​

244​

400​

374​

192​

209​

151​

35​

1056​

845​

418​

118​

35​

27​

'36.73​

​

164​

199​

38​

72​

396​

825​

582​

176​

264​

31​

665​

31​

28​

'13.47​

​

30​

127​

198​

37​

307​

642​

102​

107​

1069​

637​

136​

30​

29​

'74.88​

​

706​

515​

405​

109​

219​

277​

176​

29​

381​

442​

593​

29​

30​

'43.60​

​

831​

154​

103​

211​

223​

29​

229​

535​

363​

827​

440​

29​

31​

'17.45​

​

175​

214​

178​

81​

583​

518​

273​

225​

28​

356​

492​

28​

32​

'46.51​

​

335​

57​

208​

458​

28​

1929​

258​

360​

42​

846​

43​

28​

33​

'17.42​

​

825​

606​

1297​

41​

486​

380​

34​

299​

27​

86​

926​

27​

34​

'25.89​

​

122​

259​

51​

384​

377​

380​

27​

143​

45​

828​

457​

27​

35​

'38.90​

​

462​

338​

394​

126​

60​

27​

221​

483​

104​

224​

310​

27​

36​

'48.51​

​

37​

69​

419​

151​

339​

93​

91​

479​

589​

219​

27​

27​

37​

'47.53​

​

26​

363​

355​

905​

102​

195​

58​

32​

128​

235​

343​

26​

38​

'10.42​

​

690​

69​

25​

50​

79​

484​

182​

179​

300​

729​

449​

25​

39​

'06.30​

​

533​

613​

97​

190​

734​

221​

354​

24​

646​

296​

237​

24​

40​

'13.48​

​

760​

368​

586​

653​

179​

22​

122​

336​

76​

744​

24​

22​

41​

'61.64​

​

436​

345​

549​

390​

166​

21​

587​

206​

53​

131​

31​

21​

42​

'20.29​

​

21​

109​

144​

84​

126​

98​

60​

118​

48​

437​

157​

21​

43​

'05.27​

​

343​

392​

56​

20​

536​

903​

167​

196​

68​

1076​

56​

20​

44​

'64.88​

​

225​

153​

233​

158​

46​

82​

140​

29​

196​

20​

140​

20​

45​

'35.82​

​

28​

252​

416​

1312​

38​

512​

19​

258​

80​

126​

151​

19​

46​

'12.34​

​

306​

445​

466​

18​

187​

2111​

226​

346​

90​

494​

625​

18​

47​

'06.57​

​

195​

82​

863​

1070​

210​

225​

567​

394​

212​

17​

273​

17​

48​

'04.61​

​

320​

152​

217​

16​

218​

72​

298​

17​

279​

193​

233​

16​

49​

'46.76​

​

234​

54​

491​

566​

931​

333​

36​

593​

203​

15​

18​

15​

50​

'02.40​

​

447​

743​

338​

326​

14​

441​

1103​

465​

420​

670​

59​

14​

51​

'06.89​

​

375​

371​

543​

551​

279​

106​

395​

12​

62​

773​

263​

12​

52​

'07.52​

​

191​

351​

12​

60​

58​

567​

468​

58​

524​

176​

198​

12​

53​

'03.08​

​

27​

17​

165​

12​

1188​

710​

813​

678​

562​

226​

1305​

12​

54​

'12.79​

​

182​

365​

68​

12​

111​

233​

521​

99​

224​

112​

442​

12​

55​

'09.34​

​

101​

141​

11​

213​

432​

575​

158​

85​

742​

465​

47​

11​

56​

'21.32​

​

151​

186​

163​

238​

11​

444​

275​

83​

144​

400​

432​

11​

57​

'08.54​

​

584​

56​

634​

592​

276​

740​

369​

16​

424​

10​

158​

10​

58​

'76.88​

​

10​

322​

1223​

108​

846​

228​

81​

90​

147​

533​

214​

10​

59​

'60.90​

​

9​

674​

284​

322​

956​

53​

377​

572​

612​

225​

10​

9​

60​

'29.61​

​

386​

424​

181​

270​

36​

83​

88​

206​

257​

9​

135​

9​

61​

'14.85​

​

155​

160​

29​

745​

2096​

9​

165​

124​

304​

273​

825​

9​

62​

'06.11​

​

59​

22​

288​

9​

205​

121​

135​

428​

501​

291​

384​

9​

63​

'71.79​

​

199​

185​

515​

800​

540​

561​

8​

215​

256​

313​

180​

8​

64​

'20.78​

​

100​

671​

44​

122​

342​

11​

60​

167​

12​

1189​

7​

7​

65​

'10.14​

​

18​

262​

25​

97​

334​

1014​

7​

528​

705​

77​

106​

7​

66​

'54.65​

​

7​

300​

87​

64​

280​

303​

99​

93​

272​

440​

1124​

7​

67​

'11.58​

​

562​

90​

36​

131​

456​

143​

6​

130​

137​

94​

179​

6​

68​

'07.39​

​

134​

1143​

598​

245​

522​

41​

70​

46​

78​

69​

5​

5​

69​

'17.47​

​

99​

547​

268​

575​

261​

4​

1539​

151​

161​

235​

148​

4​

70​

'45.62​

​

284​

905​

142​

142​

27​

538​

569​

172​

560​

4​

21​

4​

71​

'01.56​

​

107​

281​

40​

440​

275​

51​

237​

372​

4​

818​

388​

4​

72​

'65.85​

​

281​

608​

53​

14​

1084​

159​

4​

149​

132​

174​

535​

4​

73​

'22.39​

​

425​

598​

4​

7​

711​

208​

46​

56​

164​

579​

11​

4​

74​

'27.29​

​

91​

460​

398​

1187​

36​

3​

64​

36​

25​

7​

482​

3​

75​

'18.25​

​

2​

246​

440​

365​

401​

158​

867​

167​

33​

164​

457​

2​

76​

'73.90​

​

2​

105​

647​

167​

391​

23​

692​

483​

585​

657​

10​

2​

77​

'38.68​

​

1232​

1680​

95​

1179​

2​

115​

280​

564​

455​

599​

276​

2​

78​

'57.80​

​

62​

39​

401​

53​

842​

2​

10​

421​

524​

55​

51​

2​

79​

'25.69​

​

340​

289​

641​

282​

202​

92​

25​

167​

1​

385​

357​

1​

80​

'37.42​

​

344​

86​

207​

13​

312​

264​

121​

99​

551​

1​

627​

1​

81​

'16.40​

​

381​

657​

48​

388​

233​

577​

423​

208​

643​

39​

1​

1​

82​

'38.84​

​

92​

603​

1​

360​

957​

856​

903​

26​

691​

753​

37​

1​

83​

'28.30​

​

150​

1370​

761​

210​

247​

221​

0​

10​

41​

476​

156​

0​

​

​

​

​

​

​

​

​

​

​

​

​

​

​

​

​

Tabella​

​

2​

17​

1​

7​

2​

2​

0​

10​

1​

1​

1​

0​

Pos​

Formazione​

Note​

Ba​

Ca​

Fi​

Ge​

Mi​

Na​

Pa​

Ro​

To​

Ve​

Nz​

Unite​

1​

'83.90​

​

549​

283​

750​

440​

822​

1131​

821​

739​

795​

905​

681​

292​

2​

'41.54​

​

1025​

973​

789​

923​

657​

1234​

735​

780​

440​

891​

917​

259​

3​

'03.08​

​

546​

575​

1487​

988​

371​

727​

672​

1314​

1313​

653​

562​

252​

4​

'38.84​

​

1067​

684​

533​

740​

893​

519​

731​

726​

691​

1500​

669​

244​

5​

'21.32​

​

2283​

1372​

1074​

685​

1095​

510​

1454​

844​

843​

779​

2020​

240​

6​

'19.44​

​

426​

1199​

754​

1231​

1162​

758​

1593​

1162​

903​

1203​

870​

231​

7​

'28.64​

​

1163​

611​

737​

1027​

567​

1316​

913​

1256​

770​

946​

607​

221​

8​

'09.70​

​

1054​

754​

592​

767​

941​

772​

973​

1229​

643​

639​

1078​

200​

9​

'12.46​

​

717​

711​

587​

1043​

693​

656​

1015​

1191​

791​

624​

990​

200​

10​

'18.25​

​

776​

937​

991​

1443​

1100​

675​

593​

553​

1076​

902​

608​

185​

11​

'66.78​

​

412​

1204​

440​

974​

733​

1001​

839​

1026​

676​

611​

878​

183​

12​

'31.44​

​

1002​

706​

1208​

1025​

1134​

1224​

909​

619​

904​

785​

1045​

181​

13​

'46.48​

​

841​

696​

779​

527​

1092​

717​

681​

806​

1388​

638​

680​

179​

14​

'07.39​

​

884​

573​

1540​

1229​

485​

526​

1380​

686​

1224​

1615​

1927​

178​

15​

'50.89​

​

720​

1400​

859​

1163​

1462​

763​

528​

633​

1058​

734​

570​

174​

16​

'76.88​

​

1787​

743​

650​

669​

813​

1031​

626​

838​

869​

1212​

1300​

172​

17​

'07.52​

​

1001​

646​

1379​

820​

587​

609​

943​

1153​

1650​

874​

700​

172​

18​

'71.79​

​

829​

991​

653​

373​

574​

913​

728​

555​

490​

595​

803​

171​

19​

'36.73​

​

722​

860​

742​

890​

965​

737​

742​

551​

454​

772​

678​

171​

20​

'60.90​

​

831​

566​

457​

537​

1490​

967​

1098​

1981​

680​

800​

1016​

171​

21​

'17.42​

​

1060​

759​

374​

656​

496​

926​

854​

494​

584​

484​

722​

170​

22​

'09.34​

​

553​

1219​

1610​

787​

641​

1021​

1054​

808​

492​

657​

1226​

170​

23​

'08.27​

​

1108​

796​

935​

764​

560​

550​

842​

533​

637​

419​

951​

169​

24​

'57.80​

​

756​

699​

1379​

561​

481​

801​

980​

544​

483​

1039​

662​

167​

25​

'52.55​

​

640​

830​

1508​

902​

693​

510​

400​

609​

890​

602​

493​

167​

26​

'28.30​

​

712​

662​

589​

713​

403​

609​

956​

1209​

791​

953​

1086​

166​

27​

'05.27​

​

758​

989​

1838​

1180​

696​

618​

1348​

2087​

539​

846​

898​

166​

28​

'47.53​

​

1107​

1329​

602​

936​

1026​

1887​

657​

1358​

895​

900​

783​

166​

29​

'26.80​

​

829​

1127​

1048​

573​

1256​

758​

744​

377​

877​

1120​

530​

165​

30​

'54.65​

​

703​

763​

921​

593​

816​

1108​

827​

579​

668​

1103​

881​

163​

31​

'08.54​

​

682​

508​

920​

1365​

1014​

497​

688​

535​

696​

1793​

832​

162​

32​

'27.29​

​

977​

1630​

324​

708​

1082​

1321​

860​

1340​

1027​

497​

549​

162​

33​

'82.86​

​

960​

961​

521​

613​

808​

386​

1236​

983​

1061​

804​

668​

162​

34​

'37.44​

​

933​

827​

686​

431​

793​

1228​

924​

501​

705​

564​

863​

158​

35​

'37.42​

​

1064​

1685​

702​

1131​

596​

1457​

737​

764​

477​

505​

471​

157​

36​

'45.68​

​

634​

831​

905​

650​

639​

496​

992​

724​

1474​

763​

1002​

155​

37​

'12.34​

​

543​

868​

777​

1001​

1722​

683​

704​

515​

685​

1144​

984​

154​

38​

'01.56​

​

673​

845​

1185​

1360​

628​

744​

615​

1082​

524​

499​

637​

151​

39​

'11.58​

​

785​

1129​

723​

560​

2215​

530​

850​

738​

577​

1297​

627​

150​

40​

'15.29​

​

719​

662​

835​

1478​

698​

1055​

1586​

952​

1345​

2071​

665​

149​

41​

'07.21​

​

868​

545​

550​

598​

618​

1646​

1007​

1311​

1209​

882​

1030​

149​

42​

'25.89​

​

733​

1213​

1445​

467​

1085​

1094​

1208​

607​

1095​

796​

459​

148​

43​

'10.42​

​

2104​

1641​

758​

743​

576​

938​

617​

714​

640​

438​

461​

148​

44​

'46.51​

​

1065​

586​

600​

880​

603​

301​

1329​

615​

559​

608​

376​

147​

45​

'20.29​

​

966​

715​

1415​

571​

563​

560​

1036​

660​

495​

651​

451​

147​

46​

'25.69​

​

701​

748​

684​

982​

905​

583​

459​

567​

1089​

849​

558​

147​

47​

'02.40​

​

1705​

759​

365​

575​

586​

970​

1316​

1042​

958​

1157​

734​

145​

48​

'38.68​

​

1244​

626​

1237​

447​

857​

1305​

1119​

869​

829​

696​

843​

143​

49​

'11.41​

​

569​

495​

874​

520​

590​

468​

1272​

762​

538​

478​

894​

143​

50​

'38.72​

​

498​

649​

598​

1789​

976​

793​

577​

769​

1166​

662​

663​

141​

51​

'64.88​

​

956​

581​

533​

495​

909​

1482​

800​

618​

485​

688​

711​

141​

52​

'20.78​

​

731​

713​

983​

1075​

944​

694​

696​

872​

495​

629​

718​

140​

53​

'10.14​

​

1371​

1609​

478​

616​

678​

785​

691​

611​

871​

1151​

1175​

138​

54​

'14.85​

​

895​

1096​

1070​

662​

401​

393​

957​

1141​

808​

1004​

546​

138​

55​

'61.64​

​

655​

1102​

611​

1144​

1538​

710​

878​

594​

777​

1106​

743​

138​

56​

'33.70​

​

960​

856​

995​

935​

1043​

373​

666​

1746​

800​

640​

750​

137​

57​

'12.79​

​

677​

572​

700​

486​

944​

983​

719​

845​

1219​

1006​

984​

137​

58​

'48.51​

​

620​

954​

968​

875​

901​

807​

1764​

908​

364​

1051​

585​

136​

59​

'46.76​

​

872​

1199​

655​

744​

671​

488​

1214​

1467​

480​

1118​

883​

136​

60​

'68.90​

​

814​

1034​

922​

693​

1380​

735​

457​

725​

548​

759​

979​

132​

61​

'43.60​

​

886​

654​

1107​

905​

1413​

1436​

529​

679​

876​

580​

692​

131​

62​

'06.11​

​

668​

829​

710​

630​

1029​

814​

1040​

674​

689​

1034​

1330​

130​

63​

'29.61​

​

1414​

530​

1188​

718​

762​

1523​

1356​

1093​

470​

1300​

746​

130​

64​

'13.47​

​

1123​

592​

629​

745​

402​

1166​

766​

933​

268​

1064​

695​

129​

65​

'35.82​

​

925​

1084​

784​

1393​

935​

692​

1342​

681​

1014​

737​

1346​

128​

66​

'22.39​

​

523​

598​

1055​

517​

588​

426​

839​

892​

647​

509​

816​

128​

67​

'74.88​

​

586​

631​

974​

1110​

873​

745​

664​

1772​

722​

688​

841​

128​

68​

'45.62​

​

526​

520​

705​

631​

603​

432​

722​

487​

935​

873​

777​

127​

69​

'04.61​

​

924​

964​

1415​

611​

468​

593​

525​

972​

699​

900​

712​

126​

70​

'15.78​

​

467​

540​

704​

793​

774​

904​

613​

616​

1337​

965​

694​

125​

71​

'73.90​

​

812​

529​

517​

1176​

1239​

723​

1037​

1445​

488​

540​

940​

123​

72​

'65.85​

​

600​

822​

995​

852​

669​

1124​

550​

955​

827​

649​

503​

122​

73​

'17.47​

​

1792​

868​

1211​

653​

1010​

1339​

362​

735​

673​

1114​

802​

120​

74​

'38.90​

​

568​

684​

633​

1221​

718​

927​

514​

1092​

1125​

790​

714​

120​

75​

'06.57​

​

1125​

728​

868​

661​

577​

563​

1021​

779​

1024​

667​

806​

118​

76​

'13.48​

​

770​

1120​

700​

554​

853​

635​

507​

618​

770​

846​

874​

111​

77​

'21.33​

​

822​

607​

1000​

788​

841​

1378​

806​

748​

1219​

997​

860​

109​

78​

'04.51​

​

750​

520​

1439​

518​

915​

1411​

915​

869​

725​

1210​

750​

108​

79​

'06.30​

​

793​

1242​

646​

671​

523​

872​

797​

768​

594​

525​

782​

106​

80​

'06.89​

​

662​

520​

913​

425​

637​

500​

409​

842​

608​

674​

599​

105​

81​

'17.45​

​

1254​

636​

941​

1315​

950​

1005​

1009​

847​

1642​

606​

671​

103​

82​

'80.82​

​

687​

667​

599​

938​

507​

751​

746​

731​

805​

639​

963​

103​

83​

'16.40​

​

594​

545​

1111​

744​

905​

725​

921​

947​

540​

911​

832​

97​

​

​

​

​

​

​

​

​

​

​

​

​

​

​

​

​

​

​

22​

19​

26​

23​

21​

28​

25​

26​

23​

24​

20​

0​

 

[Cinzia27]

Aggiorno il mio script per il ritardo attuale dei biambi poiché essi ora sono 80.
il biambo 31.67/3.69 è escluso dato che ha ora ritardo 50 e ha superato 49 di ritardo storico prefissato.
Ricordo che lo script è impostato all'estrazione precedente alla finale per visualizzare le ultime sortite

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 80 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

 

[Cinzia27]

Aggiorno il mio script per il ritardo attuale dei biambi poiché essi ora sono 79.
il biambo 20.51/63.80 è escluso dato che ha superato 49 di ritardo

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 79 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 = 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

.
Ricordo che lo script è impostato all'estrazione precedente alla finale per visualizzare le ultime sortite

 

[Cinzia27]

Aggiorno il mio script per il ritardo attuale dei biambi poiché essi ora sono 79.
il biambo 17.22/29.34 è escluso dato che ha superato 49 di ritardo

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 79 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 = 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 = 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

 

[i legend]

Ciao , Cinzia, ma anziché rifare lo script ogni volta, perché non salvi i biambi in un file di testo,
Poi ogni volta lo richiami ,e se gli ambi, corrispondono lo riscrivi con quelli validi mentre in output ti restituisce quelli sortiti , magari su sfondo in rosso per evidenziarli .
Ciao.

 

[Cinzia27]

Ciao, Ilegend.

Comincio col postare l'elenco dei biambi con storico 0 (7440 estr. iniz. Tutte e Mz)
Quelli con "sortito" sono appena usciti.
Aggiionerò l'elenco quando qualcuno di essi è da togliere perché il ritardo supera 49.


10197 12.49;16.51 at 46 sortito
10198 10.13;82.86 at 45
10204 13.47;43.51 at 39
10204 16.68;51.81 at 39
10207 25.89;42.79 at 36
10209 20.51;42.60 at 34
10210 06.30;63.80 at 33
10210 37.41;39.55 at 33
10211 15.82;37.41 at 32
10211 26.71;59.63 at 32
10212 29.31;32.58 at 31
10214 31.77;34.53 at 29
10215 08.62;09.56 at 28
10216 08.18;48.67 at 27
10216 37.49;48.67 at 27
10217 08.63;20.51 at 26
10219 04.51;22.47 at 24
10219 12.62;22.47 at 24
10221 42.77;85.88 at 22
10223 07.48;38.61 at 20
10223 20.81;65.69 at 20
10223 30.59;44.63 at 20
10223 38.65;82.86 at 20
10223 39.74;59.61 at 20
10224 04.51;22.30 at 19
10224 18.52;43.73 at 19
10227 06.84;54.65 at 16
10227 11.16;32.76 at 16
10228 06.57;26.30 at 15
10229 01.05;51.81 at 14
10229 06.77;10.13 at 14
10230 20.54;30.85 at 13
10231 14.63;74.90 at 12
10231 54.84;80.82 at 12
10231 73.87;85.88 at 12
10232 24.72;65.79 at 11
10234 47.54;73.89 at 9
10235 01.22;31.52 at 8
10235 01.22;47.55 at 8
10235 01.22;64.74 at 8
10235 09.45;75.82 at 8
10235 10.34;75.82 at 8
10235 20.55;58.90 at 8
10235 37.47;43.87 at 8
10236 08.85;57.80 at 7
10236 10.44;64.78 at 7
10236 10.70;33.36 at 7
10236 26.71;47.62 at 7
10237 14.85;70.80 at 6
10237 29.50;63.80 at 6
10237 31.90;79.86 at 6 sortito
10238 01.22;45.74 at 5
10238 11.29;15.21 at 5
10239 29.56;82.86 at 4
10239 29.86;42.87 at 4
10239 32.79;57.80 at 4
10239 34.53;37.39 at 4
10239 37.73;45.74 at 4
10241 10.13;61.69 at 2
10241 13.47;61.69 at 2
10241 14.29;75.82 at 2
10241 23.54;36.74 at 2
10241 32.57;65.83 at 2
10241 33.38;43.50 at 2
10242 30.87;63.80 at 1
10242 33.38;68.81 at 1
10243 01.09;06.89 at 0
10243 04.46;06.89 at 0
10243 04.51;06.89 at 0
10243 04.61;06.89 at 0
10243 06.17;08.61 at 0
10243 06.89;15.34 at 0
10243 06.89;27.66 at 0
10243 06.89;33.36 at 0
10243 06.89;36.74 at 0
10243 06.89;40.82 at 0
10243 20.39;33.48 at 0
10243 60.88;73.89 at 0

Biambi sortiti 2

 

[Cinzia27]

Porto all'attenzione questi due biambi prossimi allo storico
sperando che uno dei due cada nei prossimi 6/7 colpi
10204 13.47;43.51 at 41
10204 16.68;51.81 at 41

 

[Cinzia27]

Ciao a tutti.
Nel ringraziare ancora Tom per aver messo a disposizione questi script di Edoardo che ringrazio, inserisco lo script con il codice
per le ricerche di lunghette abs o con altri parametri che si vuole

Ciao ragazzi..., al volo leggendo la necessità di Cinzia, ho provato ad implementare nel tuo ultimo script Luigib il motore integrale senza limite di classe del grande Edoardo_95, che saluto, e sembra funzionare

Option Explicit
Class clsSviluppo
   Private aBNumDaSvil
   Private nQNumeri
   Private nCombInt
   Private nClasse
   Private aRighe
   Private nQNumPerRiga
   Private aPuntatore
   Private nSviluppate
   Function InitSviluppo(aNumeri,Classe)
      nQNumeri = AlimentArrayNumDaSvil(aNumeri)
      nCombInt = Combinazioni(nQNumeri,Classe)
      nClasse = Classe
      nSviluppate = 0
      If nCombInt > 0 Then
         Call AlimentaArrayRighe
         Call InitArrayPuntatore
      End If
      InitSviluppo = nCombInt
   End Function
   Function GetQuantitaNumeriDaSvil
      GetQuantitaNumeriDaSvil = nQNumeri
   End Function
   Function GetStringaNumDaSvil
      Dim s,k
      s = ""
      For k = 1 To UBound(aBNumDaSvil)
         If aBNumDaSvil(k) Then
            s = s & Format2(k) & "."
         End If
      Next
      GetStringaNumDaSvil = RimuoviLastChr(s,".")
   End Function
   Private Sub InitArrayPuntatore
      Dim k
      ReDim aPuntatore(nClasse)
      For k = 1 To nClasse - 1
         aPuntatore(k) = 1
      Next
      aPuntatore(k) = 0
   End Sub
   Function GetComb(aComb)
      Dim nTmp,K,nPuntatore
      nPuntatore = nClasse
      nTmp = aPuntatore(nPuntatore) + 1
      Do While nTmp > nQNumPerRiga
         nPuntatore = nPuntatore - 1
         If nPuntatore <= 0 Then Exit Do
         nTmp = aPuntatore(nPuntatore) + 1
      Loop
      If nPuntatore > 0 Then
         For K = nPuntatore To nClasse
            aPuntatore(K) = nTmp
         Next
         ReDim aComb(nClasse)
         For K = 1 To nClasse
            aComb(K) = aRighe(K,aPuntatore(K))
         Next
         nSviluppate = nSviluppate + 1
         GetComb = True
      Else
         GetComb = False
      End If
   End Function
   Function GetQuantitaSviluppate
      GetQuantitaSviluppate = nSviluppate
   End Function
   Private Function AlimentArrayNumDaSvil(aNumeri)
      Dim k,q
      aBNumDaSvil = ArrayNumeriToBool(aNumeri)
      For k = 1 To 90
         If aBNumDaSvil(k) Then
            q = q + 1
         End If
      Next
      AlimentArrayNumDaSvil = q
   End Function
   Private Sub AlimentaArrayRighe
      Dim nRiga,k,aNumeri
      Call ArrayBNumToArrayNum(aBNumDaSvil,aNumeri)
      nQNumPerRiga =(nQNumeri - nClasse) + 1
      ReDim aRighe(nClasse,nQNumPerRiga)
      For nRiga = 1 To nClasse
         For k = nRiga To(nRiga + nQNumPerRiga) - 1
            aRighe(nRiga,(k - nRiga) + 1) = aNumeri(k)
         Next
      Next
   End Sub
   Sub OutputARighe
      Dim k,j,s
      For k = 1 To nClasse
         s = ""
         For j = 1 To nQNumPerRiga
            s = s & Format2(aRighe(k,j)) & "."
         Next
      Next
   End Sub
End Class
Sub Main
   Dim aN
   Dim Classe
   Dim nSvil
   Dim nScelti
   Dim csvil
   Dim nCombInt
   nScelti = ScegliNumeri(aN)
   Classe = CInt(InputBox("scegli classe",,21))
   If nScelti < Classe Then
      MsgBox "Numeri scelti insufficienti"
      Exit Sub
   End If
   ReDim aColonna(Classe)
   Set csvil = New clsSviluppo
   'Call InitSviluppoIntegrale(aN,Classe)
   nCombInt = cSvil.InitSviluppo(aN,Classe)
   If nCombInt Then
      'Do While GetCombSviluppo(aColonna)
      Do While cSvil.GetComb(aColonna)
         Scrivi StringaNumeri(aColonna)
         ' qui puoi fare la statistica sulla colonna sviluppata
         ' per non rallentare troppo il messaggio esce ogni 100 colonne sviluppate
         nSvil = nSvil + 1
         If nSvil Mod 100 = 0 Then
            Messaggio nSvil
            If ScriptInterrotto Then Exit Do
         End If
      Loop
   End If
   Scrivi nSvil
End Sub

Adesso con l'opportuna classe clsSviluppo si possono sviluppare, in modo integrale, formazioni anche di classe >= 21. A tal proposito ricordo per chi non lo sapesse che qualsiasi gruppo base si decida di analizzare le formazioni integrali gestibili e analizzabili in poco tempo dovranno essere di classe minore di massimo 3 punti rispetto il rispettivo gruppo base iniziale (es. classe 18 per gruppo base di classe 21 ecc...). Diversamente si raggiungerà quasi sempre un numero di formazioni superiore al milione di casi integrali... che richiederanno il relativo tempo... per essere sviluppate e analizzate.

👋🙂

Ecco lo script con le dovute aggiunte

Option Explicit
Class clsSviluppo
   Private aBNumDaSvil
   Private nQNumeri
   Private nCombInt
   Private nClasse
   Private aRighe
   Private nQNumPerRiga
   Private aPuntatore
   Private nSviluppate
   Function InitSviluppo(aNumeri,Classe)
      nQNumeri = AlimentArrayNumDaSvil(aNumeri)
      nCombInt = Combinazioni(nQNumeri,Classe)
      nClasse = Classe
      nSviluppate = 0
      If nCombInt > 0 Then
         Call AlimentaArrayRighe
         Call InitArrayPuntatore
      End If
      InitSviluppo = nCombInt
   End Function
   Function GetQuantitaNumeriDaSvil
      GetQuantitaNumeriDaSvil = nQNumeri
   End Function
   Function GetStringaNumDaSvil
      Dim s,k
      s = ""
      For k = 1 To UBound(aBNumDaSvil)
         If aBNumDaSvil(k) Then
            s = s & Format2(k) & "."
         End If
      Next
      GetStringaNumDaSvil = RimuoviLastChr(s,".")
   End Function
   Private Sub InitArrayPuntatore
      Dim k
      ReDim aPuntatore(nClasse)
      For k = 1 To nClasse - 1
         aPuntatore(k) = 1
      Next
      aPuntatore(k) = 0
   End Sub
   Function GetComb(aComb)
      Dim nTmp,K,nPuntatore
      nPuntatore = nClasse
      nTmp = aPuntatore(nPuntatore) + 1
      Do While nTmp > nQNumPerRiga
         nPuntatore = nPuntatore - 1
         If nPuntatore <= 0 Then Exit Do
         nTmp = aPuntatore(nPuntatore) + 1
      Loop
      If nPuntatore > 0 Then
         For K = nPuntatore To nClasse
            aPuntatore(K) = nTmp
         Next
         ReDim aComb(nClasse)
         For K = 1 To nClasse
            aComb(K) = aRighe(K,aPuntatore(K))
         Next
         nSviluppate = nSviluppate + 1
         GetComb = True
      Else
         GetComb = False
      End If
   End Function
   Function GetQuantitaSviluppate
      GetQuantitaSviluppate = nSviluppate
   End Function
   Private Function AlimentArrayNumDaSvil(aNumeri)
      Dim k,q
      aBNumDaSvil = ArrayNumeriToBool(aNumeri)
      For k = 1 To 90
         If aBNumDaSvil(k) Then
            q = q + 1
         End If
      Next
      AlimentArrayNumDaSvil = q
   End Function
   Private Sub AlimentaArrayRighe
      Dim nRiga,k,aNumeri
      Call ArrayBNumToArrayNum(aBNumDaSvil,aNumeri)
      nQNumPerRiga =(nQNumeri - nClasse) + 1
      ReDim aRighe(nClasse,nQNumPerRiga)
      For nRiga = 1 To nClasse
         For k = nRiga To(nRiga + nQNumPerRiga) - 1
            aRighe(nRiga,(k - nRiga) + 1) = aNumeri(k)
         Next
      Next
   End Sub
   Sub OutputARighe
      Dim k,j,s
      For k = 1 To nClasse
         s = ""
         For j = 1 To nQNumPerRiga
            s = s & Format2(aRighe(k,j)) & "."
         Next
      Next
   End Sub
End Class
Sub Main
   Dim aN
   Dim Classe
   Dim nSvil
   Dim nScelti
   Dim csvil
   Dim nCombInt
  
    Dim ru(11),r1,r2,r3,r4,r5,r6,r7,r8,r9,r10,r11,st,at,w
 
 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
w = 2
   nScelti = ScegliNumeri(aN)
   Classe = CInt(InputBox("scegli classe",,22))
   If nScelti < Classe Then
      MsgBox "Numeri scelti insufficienti"
      Exit Sub
   End If
   ReDim aColonna(Classe)
   Set csvil = New clsSviluppo
   'Call InitSviluppoIntegrale(aN,Classe)
   nCombInt = cSvil.InitSviluppo(aN,Classe)
   If nCombInt Then
      'Do While GetCombSviluppo(aColonna)
      Do While cSvil.GetComb(aColonna)
         'Scrivi StringaNumeri(aColonna)
        

 st = SerieStoricoTurbo(7440,EstrazioneFin,aColonna,ru,w)'7440
 If st =0 Then
 at = SerieRitardoTurbo(EstrazioneFin - 3,EstrazioneFin,aColonna,ru,w)
 If at=0 Then

         ' qui puoi fare la statistica sulla colonna sviluppata
         ' per non rallentare troppo il messaggio esce ogni 100 colonne sviluppate
        
         nSvil = nSvil + 1
         Scrivi "aa(" &(nSvil) & " ) = Array(0," & StringaNumeri(aColonna) & ")' st " & FormatSpace(st,2,1)& ")' at " & FormatSpace(at,2,1)
         If nSvil Mod 100 = 0 Then'<<
            'Messaggio nSvil
            Messaggio nSvil & ") " & StringaNumeri(aColonna)& ")' st " & FormatSpace(st,2,1)& ")' at " & FormatSpace(at,2,1)
            If ScriptInterrotto Then Exit Do
         End If
         End If
         End If
      Loop
   End If
   Scrivi nSvil
End Sub