ciao schiro' complimenti
mi dici dove trovo la spiegazione del metodo?
grazie
ciao , grazie il metodo lo trovi qui
http://forum.lottoced.com/f12/x-mike-o-chi-se-la-sente-102532/index2.html
ti inserisco lo script x facilitare se hai sapzio fa tutto in automatico ......questo metodo mi ha dato la quaterna a colpo
solo x cronaca lo script e incasinato .........ma x scramanzia non la tocco
e nata cosi e la tengo
Sub Main
Dim ambata(2),pt(2),ruote(2),ambi(6),ptt(3),rtt(1)
pt(1) = 1
'ptt(1) = 1
ptt(2) = 1
ptt(3) = .5
clp = 9
ini = EstrazioneFin - 50
fin = EstrazioneFin
co = 0
For es = ini To fin
Messaggio "script by Mike58 - elabora estrazioni.. ---> " & es
Call AvanzamentoElab(Ini,fIn,es)
For r1 = 1 To 10
For r2 = r1 + 1 To 12
If r2 = 11 Then r2 = 12
For p = 1 To 5
'For p = 1 To 4
'For p1 = p + 1 To 5
a = Estratto(es,r1,p)
b = Estratto(es,r2,p)
If a = b Then
sommaA = Fuori90(SommaEstratti(es,r1))
sommaB = Fuori90(SommaEstratti(es,r2))
'-------------------------------------------------------------------
ok = 0 ' inizio condizione
'------------- 1 -----------------------
If a = 1 Then ambata(1) = 21 : ok = 1
If a = 1 Then ambata(2) = 12 : ok = 1
If a = 1 Then ambi(1) = 21 : ok = 1
If a = 1 Then ambi(2) = 12 : ok = 1
'----------------------------------------
'--------------2 ------------------------
If a = 2 Then ambata(1) = 42 : ok = 1
If a = 2 Then ambata(2) = 24 : ok = 1
If a = 2 Then ambi(1) = 42: ok = 1
If a = 2 Then ambi(2) = 24 : ok = 1
'----------------------------------------
'--------------3 ------------------------
If a = 3 Then ambata(1) = 63 : ok = 1
If a = 3 Then ambata(2) = 36 : ok = 1
If a = 3 Then ambi(1) = 63 : ok = 1
If a = 3 Then ambi(2) = 36 : ok = 1
'--------------4 ------------------------
If a = 4 Then ambata(1) = 84 : ok = 1
If a = 4 Then ambata(2) = 48 : ok = 1
If a = 4 Then ambi(1) = 84 : ok = 1
If a = 4 Then ambi(2) = 48 : ok = 1
'--------------5 ------------------------
If a = 5 Then ambata(1) = 60 : ok = 1
If a = 5 Then ambata(2) = 06 : ok = 1
If a = 5 Then ambi(1) = 60 : ok = 1
If a = 5 Then ambi(2) = 06 : ok = 1
'--------------6 ------------------------
If a = 6 Then ambata(1) = 81 : ok = 1
If a = 6 Then ambata(2) = 18 : ok = 1
If a = 6 Then ambi(1) = 81 : ok = 1
If a = 6 Then ambi(2) = 18 : ok = 1
'--------------7 ------------------------
If a = 7 Then ambata(1) = 12 : ok = 1
If a = 7 Then ambata(2) = 21 : ok = 1
If a = 7 Then ambi(1) = 12 : ok = 1
If a = 7 Then ambi(2) = 21 : ok = 1
'--------------8 ------------------------
If a = 8 Then ambata(1) = 33 : ok = 1
If a = 8 Then ambata(2) = 39 : ok = 1
If a = 8 Then ambi(1) = 33 : ok = 1
If a = 8 Then ambi(2) = 39 : ok = 1
'--------------9 ------------------------
If a = 9 Then ambata(1) = 54 : ok = 1
If a = 9 Then ambata(2) = 45 : ok = 1
If a = 9 Then ambi(1) = 54 : ok = 1
If a = 9 Then ambi(2) = 45 : ok = 1
'--------------10 ------------------------
If a = 10 Then ambata(1) = 30 : ok = 1
If a = 10 Then ambata(2) = 03 : ok = 1
If a = 10 Then ambi(1) = 30 : ok = 1
If a = 10 Then ambi(2) = 03 : ok = 1
'---------------11------------------------
If a = 11 Then ambata(1) = 49 : ok = 1
If a = 11 Then ambata(2) = 44 : ok = 1
If a = 11 Then ambi(1) = 49 : ok = 1
If a = 11 Then ambi(2) = 44 : ok = 1
'---------------12------------------------
If a = 12 Then ambata(1) = 54 : ok = 1
If a = 12 Then ambata(2) = 45 : ok = 1
If a = 12 Then ambi(1) = 54 : ok = 1
If a = 12 Then ambi(2) = 45 : ok = 1
'---------------13 ------------------------
If a = 13 Then ambata(1) = 75 : ok = 1
If a = 13 Then ambata(2) = 57 : ok = 1
If a = 13 Then ambi(1) = 75 : ok = 1
If a = 13 Then ambi(2) = 57 : ok = 1
'---------------14 ------------------------
If a = 14 Then ambata(1) = 06 : ok = 1
If a = 14 Then ambata(2) = 60 : ok = 1
If a = 14 Then ambi(1) = 06 : ok = 1
If a = 14 Then ambi(2) = 60 : ok = 1
'---------------15 ------------------------
If a = 14 Then ambata(1) = 09 : ok = 1
If a = 14 Then ambata(2) = 90 : ok = 1
If a = 14 Then ambi(1) = 09 : ok = 1
If a = 14 Then ambi(2) = 90 : ok = 1
'--------------16 ------------------------
If a = 16 Then ambata(1) = 03 : ok = 1
If a = 16 Then ambata(2) = 30 : ok = 1
If a = 16 Then ambi(1) = 03 : ok = 1
If a = 16 Then ambi(2) = 30 : ok = 1
'--------------17 ------------------------
If a = 17 Then ambata(1) = 24 : ok = 1
If a = 17 Then ambata(2) = 42 : ok = 1
If a = 17 Then ambi(1) = 24 : ok = 1
If a = 17 Then ambi(2) = 42 : ok = 1
'--------------18 ------------------------
If a = 18 Then ambata(1) = 45 : ok = 1
If a = 18 Then ambata(2) = 54 : ok = 1
If a = 18 Then ambi(1) = 45 : ok = 1
If a = 18 Then ambi(2) = 54 : ok = 1
'--------------19 ------------------------
If a = 19 Then ambata(1) = 57 : ok = 1
If a = 19 Then ambata(2) = 75 : ok = 1
If a = 19 Then ambi(1) = 57 : ok = 1
If a = 19 Then ambi(2) = 75 : ok = 1
'--------------20 ------------------------
If a = 20 Then ambata(1) = 60 : ok = 1
If a = 20 Then ambata(2) = 06 : ok = 1
If a = 20 Then ambi(1) = 60 : ok = 1
If a = 20 Then ambi(2) = 06 : ok = 1
'--------------21 ------------------------
If a = 21 Then ambata(1) = 63 : ok = 1
If a = 21 Then ambata(2) = 36 : ok = 1
If a = 21 Then ambi(1) = 63 : ok = 1
If a = 21 Then ambi(2) = 36 : ok = 1
'--------------22 ------------------------
If a = 22 Then ambata(1) = 80 : ok = 1
If a = 22 Then ambata(2) = 08 : ok = 1
If a = 22 Then ambi(1) = 80 : ok = 1
If a = 22 Then ambi(2) = 08 : ok = 1
'--------------23 ------------------------
If a = 23 Then ambata(1) = 87 : ok = 1
If a = 23 Then ambata(2) = 78 : ok = 1
If a = 23 Then ambi(1) = 87 : ok = 1
If a = 23 Then ambi(2) = 78 : ok = 1
'--------------24 ------------------------
If a = 24 Then ambata(1) = 18 : ok = 1
If a = 24 Then ambata(2) = 81 : ok = 1
If a = 24 Then ambi(1) = 18 : ok = 1
If a = 24 Then ambi(2) = 81 : ok = 1
'--------------25 ------------------------
If a = 25 Then ambata(1) = 30 : ok = 1
If a = 25 Then ambata(2) = 03 : ok = 1
If a = 25 Then ambi(1) = 30 : ok = 1
If a = 25 Then ambi(2) = 03 : ok = 1
'--------------26 ------------------------
If a = 26 Then ambata(1) = 33 : ok = 1
If a = 26 Then ambata(2) = 39 : ok = 1
If a = 26 Then ambi(1) = 33 : ok = 1
If a = 26 Then ambi(2) = 39 : ok = 1
'--------------27 ------------------------
If a = 27 Then ambata(1) = 36 : ok = 1
If a = 27 Then ambata(2) = 63 : ok = 1
If a = 27 Then ambi(1) = 36 : ok = 1
If a = 27 Then ambi(2) = 63 : ok = 1
'--------------28 ------------------------
If a = 28 Then ambata(1) = 57 : ok = 1
If a = 28 Then ambata(2) = 75 : ok = 1
If a = 28 Then ambi(1) = 57 : ok = 1
If a = 28 Then ambi(2) = 75 : ok = 1
'--------------29 ------------------------
If a = 29 Then ambata(1) = 87 : ok = 1
If a = 29 Then ambata(2) = 78 : ok = 1
If a = 29 Then ambi(1) = 87 : ok = 1
If a = 29 Then ambi(2) = 78 : ok = 1
'--------------30 ------------------------
If a = 30 Then ambata(1) = 90 : ok = 1
If a = 30 Then ambata(2) = 09 : ok = 1
If a = 30 Then ambi(1) = 90 : ok = 1
If a = 30 Then ambi(2) = 09 : ok = 1
'--------------31 ------------------------
If a = 31 Then ambata(1) = 03 : ok = 1
If a = 31 Then ambata(2) = 30 : ok = 1
If a = 31 Then ambi(1) = 03 : ok = 1
If a = 31 Then ambi(2) = 30 : ok = 1
'--------------32 ------------------------
If a = 32 Then ambata(1) = 06 : ok = 1
If a = 32 Then ambata(2) = 60 : ok = 1
If a = 32 Then ambi(1) = 06 : ok = 1
If a = 32 Then ambi(2) = 60 : ok = 1
'--------------33 ------------------------
If a = 33 Then ambata(1) = 21 : ok = 1
If a = 33 Then ambata(2) = 12 : ok = 1
If a = 33 Then ambi(1) = 21 : ok = 1
If a = 33 Then ambi(2) = 12 : ok = 1
'--------------34 ------------------------
If a = 34 Then ambata(1) = 30 : ok = 1
If a = 34 Then ambata(2) = 03 : ok = 1
If a = 34 Then ambi(1) = 30 : ok = 1
If a = 34 Then ambi(2) = 03 : ok = 1
'--------------35 ------------------------
If a = 35 Then ambata(1) = 60 : ok = 1
If a = 35 Then ambata(2) = 06 : ok = 1
If a = 35 Then ambi(1) = 60 : ok = 1
If a = 35 Then ambi(2) = 06 : ok = 1
'--------------36 ------------------------
If a = 36 Then ambata(1) = 63 : ok = 1
If a = 36 Then ambata(2) = 36 : ok = 1
If a = 36 Then ambi(1) = 63 : ok = 1
If a = 36 Then ambi(2) = 36 : ok = 1
'--------------37 ------------------------
If a = 37 Then ambata(1) = 66 : ok = 1
If a = 37 Then ambata(2) = 69 : ok = 1
If a = 37 Then ambi(1) = 66 : ok = 1
If a = 37 Then ambi(2) = 69 : ok = 1
'--------------38 ------------------------
If a = 38 Then ambata(1) = 69 : ok = 1
If a = 38 Then ambata(2) = 66 : ok = 1
If a = 38 Then ambi(1) = 69 : ok = 1
If a = 38 Then ambi(2) = 66 : ok = 1
'--------------39 ------------------------
If a = 39 Then ambata(1) = 27 : ok = 1
If a = 39 Then ambata(2) = 72 : ok = 1
If a = 39 Then ambi(1) = 27 : ok = 1
If a = 39 Then ambi(2) = 72 : ok = 1
'--------------40 ------------------------
If a = 40 Then ambata(1) = 30 : ok = 1
If a = 40 Then ambata(2) = 03 : ok = 1
If a = 40 Then ambi(1) = 30 : ok = 1
If a = 40 Then ambi(2) = 03 : ok = 1
'--------------41 ------------------------
If a = 41 Then ambata(1) = 33 : ok = 1
If a = 41 Then ambata(2) = 39 : ok = 1
If a = 41 Then ambi(1) = 33 : ok = 1
If a = 41 Then ambi(2) = 39 : ok = 1
'--------------42 ------------------------
If a = 42 Then ambata(1) = 63 : ok = 1
If a = 42 Then ambata(2) = 36 : ok = 1
If a = 42 Then ambi(1) = 63 : ok = 1
If a = 42 Then ambi(2) = 36 : ok = 1
'--------------43 ------------------------
If a = 43 Then ambata(1) = 39 : ok = 1
If a = 43 Then ambata(2) = 33 : ok = 1
If a = 43 Then ambi(1) = 39 : ok = 1
If a = 43 Then ambi(2) = 33 : ok = 1
'--------------44 ------------------------
If a = 44 Then ambata(1) = 87 : ok = 1
If a = 44 Then ambata(2) = 78 : ok = 1
If a = 44 Then ambi(1) = 87 : ok = 1
If a = 44 Then ambi(2) = 78 : ok = 1
'--------------45 ------------------------
If a = 45 Then ambata(1) = 90 : ok = 1
If a = 45 Then ambata(2) = 09 : ok = 1
If a = 45 Then ambi(1) = 90 : ok = 1
If a = 45 Then ambi(2) = 09 : ok = 1
'--------------46 ------------------------
If a = 46 Then ambata(1) = 89 : ok = 1
If a = 46 Then ambata(2) = 88 : ok = 1
If a = 46 Then ambi(1) = 89 : ok = 1
If a = 46 Then ambi(2) = 88 : ok = 1
'--------------47 ------------------------
If a = 47 Then ambata(1) = 15 : ok = 1
If a = 47 Then ambata(2) = 51 : ok = 1
If a = 47 Then ambi(1) = 15 : ok = 1
If a = 47 Then ambi(2) = 51 : ok = 1
'--------------48 ------------------------
If a = 48 Then ambata(1) = 36 : ok = 1
If a = 48 Then ambata(2) = 63 : ok = 1
If a = 48 Then ambi(1) = 36 : ok = 1
If a = 48 Then ambi(2) = 63 : ok = 1
'--------------49 ------------------------
If a = 49 Then ambata(1) = 02 : ok = 1
If a = 49 Then ambata(2) = 20 : ok = 1
If a = 49 Then ambi(1) = 02 : ok = 1
If a = 49 Then ambi(2) = 20 : ok = 1
'--------------50 ------------------------
If a = 50 Then ambata(1) = 15 : ok = 1
If a = 50 Then ambata(2) = 51 : ok = 1
If a = 50 Then ambi(1) = 15 : ok = 1
If a = 50 Then ambi(2) = 51 : ok = 1
'--------------51 ------------------------
If a = 51 Then ambata(1) = 36 : ok = 1
If a = 51 Then ambata(2) = 63 : ok = 1
If a = 51 Then ambi(1) = 36 : ok = 1
If a = 51 Then ambi(2) = 63 : ok = 1
'--------------52 ------------------------
If a = 52 Then ambata(1) = 57 : ok = 1
If a = 52 Then ambata(2) = 75 : ok = 1
If a = 52 Then ambi(1) = 57 : ok = 1
If a = 52 Then ambi(2) = 75 : ok = 1
'--------------53 ------------------------
If a = 53 Then ambata(1) = 78 : ok = 1
If a = 53 Then ambata(2) = 87 : ok = 1
If a = 53 Then ambi(1) = 78 : ok = 1
If a = 53 Then ambi(2) = 87 : ok = 1
'--------------54 ------------------------
If a = 54 Then ambata(1) = 09 : ok = 1
If a = 54 Then ambata(2) = 90 : ok = 1
If a = 54 Then ambi(1) = 09 : ok = 1
If a = 54 Then ambi(2) = 90 : ok = 1
'--------------55 ------------------------
If a = 55 Then ambata(1) = 38 : ok = 1
If a = 55 Then ambata(2) = 83 : ok = 1
If a = 55 Then ambi(1) = 38 : ok = 1
If a = 55 Then ambi(2) = 83 : ok = 1
'--------------56 ------------------------
If a = 56 Then ambata(1) = 06 : ok = 1
If a = 56 Then ambata(2) = 60 : ok = 1
If a = 56 Then ambi(1) = 06 : ok = 1
If a = 56 Then ambi(2) = 60 : ok = 1
'--------------57 ------------------------
If a = 57 Then ambata(1) = 27 : ok = 1
If a = 57 Then ambata(2) = 72 : ok = 1
If a = 57 Then ambi(1) = 27 : ok = 1
If a = 57 Then ambi(2) = 72 : ok = 1
'--------------58 ------------------------
If a = 58 Then ambata(1) = 48 : ok = 1
If a = 58 Then ambata(2) = 84 : ok = 1
If a = 58 Then ambi(1) = 48 : ok = 1
If a = 58 Then ambi(2) = 84 : ok = 1
'--------------59 ------------------------
If a = 59 Then ambata(1) = 87 : ok = 1
If a = 59 Then ambata(2) = 78 : ok = 1
If a = 59 Then ambi(1) = 87 : ok = 1
If a = 59 Then ambi(2) = 78 : ok = 1
'--------------60 ------------------------
If a = 60 Then ambata(1) = 45 : ok = 1
If a = 60 Then ambata(2) = 54 : ok = 1
If a = 60 Then ambi(1) = 45 : ok = 1
If a = 60 Then ambi(2) = 54 : ok = 1
'--------------61 ------------------------
If a = 61 Then ambata(1) = 48 : ok = 1
If a = 61 Then ambata(2) = 84 : ok = 1
If a = 61 Then ambi(1) = 48 : ok = 1
If a = 61 Then ambi(2) = 84 : ok = 1
'--------------62 ------------------------
If a = 62 Then ambata(1) = 69 : ok = 1
If a = 62 Then ambata(2) = 66 : ok = 1
If a = 62 Then ambi(1) = 69 : ok = 1
If a = 62 Then ambi(2) = 66 : ok = 1
'--------------63 ------------------------
If a = 63 Then ambata(1) = 90 : ok = 1
If a = 63 Then ambata(2) = 09 : ok = 1
If a = 63 Then ambi(1) = 90 : ok = 1
If a = 63 Then ambi(2) = 09 : ok = 1
'--------------64 ------------------------
If a = 64 Then ambata(1) = 12 : ok = 1
If a = 64 Then ambata(2) = 21 : ok = 1
If a = 64 Then ambi(1) = 12 : ok = 1
If a = 64 Then ambi(2) = 21 : ok = 1
'--------------65 ------------------------
If a = 65 Then ambata(1) = 15 : ok = 1
If a = 65 Then ambata(2) = 51 : ok = 1
If a = 65 Then ambi(1) = 15 : ok = 1
If a = 65 Then ambi(2) = 51 : ok = 1
'--------------66 ------------------------
If a = 66 Then ambata(1) = 24 : ok = 1
If a = 66 Then ambata(2) = 42 : ok = 1
If a = 66 Then ambi(1) = 24 : ok = 1
If a = 66 Then ambi(2) = 42 : ok = 1
'--------------67 ------------------------
If a = 67 Then ambata(1) = 39 : ok = 1
If a = 67 Then ambata(2) = 33 : ok = 1
If a = 67 Then ambi(1) = 39 : ok = 1
If a = 67 Then ambi(2) = 33 : ok = 1
'--------------68 ------------------------
If a = 68 Then ambata(1) = 60 : ok = 1
If a = 68 Then ambata(2) = 06 : ok = 1
If a = 68 Then ambi(1) = 60 : ok = 1
If a = 68 Then ambi(2) = 06 : ok = 1
'--------------69 ------------------------
If a = 69 Then ambata(1) = 27 : ok = 1
If a = 69 Then ambata(2) = 72 : ok = 1
If a = 69 Then ambi(1) = 27 : ok = 1
If a = 69 Then ambi(2) = 72 : ok = 1
'--------------70 ------------------------
If a = 70 Then ambata(1) = 75 : ok = 1
If a = 70 Then ambata(2) = 57 : ok = 1
If a = 70 Then ambi(1) = 75 : ok = 1
If a = 70 Then ambi(2) = 57 : ok = 1
'--------------71 ------------------------
If a = 71 Then ambata(1) = 78 : ok = 1
If a = 71 Then ambata(2) = 87 : ok = 1
If a = 71 Then ambi(1) = 78 : ok = 1
If a = 71 Then ambi(2) = 87 : ok = 1
'--------------72 ------------------------
If a = 72 Then ambata(1) = 81 : ok = 1
If a = 72 Then ambata(2) = 18 : ok = 1
If a = 72 Then ambi(1) = 81 : ok = 1
If a = 72 Then ambi(2) = 18 : ok = 1
'--------------73 ------------------------
If a = 73 Then ambata(1) = 21 : ok = 1
If a = 73 Then ambata(2) = 12 : ok = 1
If a = 73 Then ambi(1) = 21 : ok = 1
If a = 73 Then ambi(2) = 12 : ok = 1
'--------------74 ------------------------
If a = 74 Then ambata(1) = 42 : ok = 1
If a = 74 Then ambata(2) = 24 : ok = 1
If a = 74 Then ambi(1) = 42 : ok = 1
If a = 74 Then ambi(2) = 24 : ok = 1
'--------------75 ------------------------
If a = 75 Then ambata(1) = 45 : ok = 1
If a = 75 Then ambata(2) = 54 : ok = 1
If a = 75 Then ambi(1) = 45 : ok = 1
If a = 75 Then ambi(2) = 54 : ok = 1
'--------------76 ------------------------
If a = 76 Then ambata(1) = 48 : ok = 1
If a = 76 Then ambata(2) = 84 : ok = 1
If a = 76 Then ambi(1) = 48 : ok = 1
If a = 76 Then ambi(2) = 84 : ok = 1
'--------------77 ------------------------
If a = 77 Then ambata(1) = 55 : ok = 1
If a = 77 Then ambata(2) = 59 : ok = 1
If a = 77 Then ambi(1) = 55 : ok = 1
If a = 77 Then ambi(2) = 59 : ok = 1
'--------------78 ------------------------
If a = 78 Then ambata(1) = 72 : ok = 1
If a = 78 Then ambata(2) = 27 : ok = 1
If a = 78 Then ambi(1) = 27 : ok = 1
If a = 78 Then ambi(2) = 27 : ok = 1
'--------------79 ------------------------
If a = 79 Then ambata(1) = 57 : ok = 1
If a = 79 Then ambata(2) = 75 : ok = 1
If a = 79 Then ambi(1) = 57 : ok = 1
If a = 79 Then ambi(2) = 75 : ok = 1
'--------------80 ------------------------
If a = 80 Then ambata(1) = 15 : ok = 1
If a = 80 Then ambata(2) = 51 : ok = 1
If a = 80 Then ambi(1) = 15 : ok = 1
If a = 80 Then ambi(2) = 51 : ok = 1
'--------------81 ------------------------
If a = 81 Then ambata(1) = 18 : ok = 1
If a = 81 Then ambata(2) = 81 : ok = 1
If a = 81 Then ambi(1) = 18 : ok = 1
If a = 81 Then ambi(2) = 81 : ok = 1
'--------------82 ------------------------
If a = 82 Then ambata(1) = 21 : ok = 1
If a = 82 Then ambata(2) = 12 : ok = 1
If a = 82 Then ambi(1) = 21 : ok = 1
If a = 82 Then ambi(2) = 12 : ok = 1
'--------------83 ------------------------
If a = 83 Then ambata(1) = 24 : ok = 1
If a = 83 Then ambata(2) = 42 : ok = 1
If a = 83 Then ambi(1) = 24 : ok = 1
If a = 83 Then ambi(2) = 42 : ok = 1
'--------------84 ------------------------
If a = 84 Then ambata(1) = 72 : ok = 1
If a = 84 Then ambata(2) = 27 : ok = 1
If a = 84 Then ambi(1) = 72 : ok = 1
If a = 84 Then ambi(2) = 27 : ok = 1
'--------------85 ------------------------
If a = 85 Then ambata(1) = 57 : ok = 1
If a = 85 Then ambata(2) = 75 : ok = 1
If a = 85 Then ambi(1) = 57 : ok = 1
If a = 85 Then ambi(2) = 75 : ok = 1
'--------------86 ------------------------
If a = 86 Then ambata(1) = 78 : ok = 1
If a = 86 Then ambata(2) = 87 : ok = 1
If a = 86 Then ambi(1) = 78 : ok = 1
If a = 86 Then ambi(2) = 87 : ok = 1
'--------------87 ------------------------
If a = 87 Then ambata(1) = 81 : ok = 1
If a = 87 Then ambata(2) = 18 : ok = 1
If a = 87 Then ambi(1) = 81 : ok = 1
If a = 87 Then ambi(2) = 18 : ok = 1
'--------------88 ------------------------
If a = 88 Then ambata(1) = 86 : ok = 1
If a = 88 Then ambata(2) = 68 : ok = 1
If a = 88 Then ambi(1) = 86 : ok = 1
If a = 88 Then ambi(2) = 68 : ok = 1
'--------------89 ------------------------
If a = 89 Then ambata(1) = 87 : ok = 1
If a = 89 Then ambata(2) = 78 : ok = 1
If a = 89 Then ambi(1) = 87 : ok = 1
If a = 89 Then ambi(2) = 78 : ok = 1
'--------------90 ------------------------
If a = 90 Then ambata(1) = 45 : ok = 1
If a = 90 Then ambata(2) = 54 : ok = 1
If a = 90 Then ambi(1) = 45 : ok = 1
If a = 90 Then ambi(2) = 54 : ok = 1
'----- qui inserire i valori somma -------
'-------1 --------------------------------
If sommaA = 1 Then ambi(3) = 07 : ok = 1
If sommaA = 1 Then ambi(4) = 08 : ok = 1
If sommaB = 1 Then ambi(5) = 07 : ok = 1
If sommaB = 1 Then ambi(6) = 08 : ok = 1
'----- 2-----------------------------------
If sommaA = 2 Then ambi(3) = 14 : ok = 1
If sommaA = 2 Then ambi(4) = 41 : ok = 1
If sommaB = 2 Then ambi(5) = 14 : ok = 1
If sommaB = 2 Then ambi(6) = 41 : ok = 1
'----- 3-----------------------------------
If sommaA = 3 Then ambi(3) = 21 : ok = 1
If sommaA = 3 Then ambi(4) = 20 : ok = 1
If sommaB = 3 Then ambi(5) = 21 : ok = 1
If sommaB = 3 Then ambi(6) = 20 : ok = 1
'-------4 --------------------------------
If sommaA = 4 Then ambi(3) = 28 : ok = 1
If sommaA = 4 Then ambi(4) = 26 : ok = 1
If sommaB = 4 Then ambi(5) = 28 : ok = 1
If sommaB = 4 Then ambi(6) = 26 : ok = 1
'----- 5-----------------------------------
If sommaA = 5 Then ambi(3) = 35 : ok = 1
If sommaA = 5 Then ambi(4) = 32 : ok = 1
If sommaB = 5 Then ambi(5) = 35 : ok = 1
If sommaB = 5 Then ambi(6) = 32 : ok = 1
'----- 6-----------------------------------
If sommaA = 6 Then ambi(3) = 42 : ok = 1
If sommaA = 6 Then ambi(4) = 38 : ok = 1
If sommaB = 6 Then ambi(5) = 42 : ok = 1
If sommaB = 6 Then ambi(6) = 38 : ok = 1
'-------7 --------------------------------
If sommaA = 7 Then ambi(3) = 49 : ok = 1
If sommaA = 7 Then ambi(4) = 44 : ok = 1
If sommaB = 7 Then ambi(5) = 49 : ok = 1
If sommaB = 7 Then ambi(6) = 44 : ok = 1
'----- 8-----------------------------------
If sommaA = 8 Then ambi(3) = 56 : ok = 1
If sommaA = 8 Then ambi(4) = 50 : ok = 1
If sommaB = 8 Then ambi(5) = 56 : ok = 1
If sommaB = 8 Then ambi(6) = 50 : ok = 1
'----- 9-----------------------------------
If sommaA = 9 Then ambi(3) = 63 : ok = 1
If sommaA = 9 Then ambi(4) = 56 : ok = 1
If sommaB = 9 Then ambi(5) = 63 : ok = 1
If sommaB = 9 Then ambi(6) = 56 : ok = 1
'-------10 --------------------------------
If sommaA = 10 Then ambi(3) = 70 : ok = 1
If sommaA = 10 Then ambi(4) = 62 : ok = 1
If sommaB = 10 Then ambi(5) = 70 : ok = 1
If sommaB = 10 Then ambi(6) = 62 : ok = 1
'----- 11-----------------------------------
If sommaA = 11 Then ambi(3) = 77 : ok = 1
If sommaA = 11 Then ambi(4) = 08 : ok = 1
If sommaB = 11 Then ambi(5) = 77 : ok = 1
If sommaB = 11 Then ambi(6) = 08 : ok = 1
'----- 12-----------------------------------
If sommaA = 12 Then ambi(3) = 84 : ok = 1
If sommaA = 12 Then ambi(4) = 74 : ok = 1
If sommaB = 12 Then ambi(5) = 84 : ok = 1
If sommaB = 12 Then ambi(6) = 74 : ok = 1
'-------13 --------------------------------
If sommaA = 13 Then ambi(3) = 01 : ok = 1
If sommaA = 13 Then ambi(4) = 80 : ok = 1
If sommaB = 13 Then ambi(5) = 01 : ok = 1
If sommaB = 13 Then ambi(6) = 80 : ok = 1
'----- 14-----------------------------------
If sommaA = 14 Then ambi(3) = 08 : ok = 1
If sommaA = 14 Then ambi(4) = 86 : ok = 1
If sommaB = 14 Then ambi(5) = 08 : ok = 1
If sommaB = 14 Then ambi(6) = 86 : ok = 1
'----- 15-----------------------------------
If sommaA = 15 Then ambi(3) = 15 : ok = 1
If sommaA = 15 Then ambi(4) = 02 : ok = 1
If sommaB = 15 Then ambi(5) = 15 : ok = 1
If sommaB = 15 Then ambi(6) = 02 : ok = 1
'----- 16-----------------------------------
If sommaA = 16 Then ambi(3) = 22 : ok = 1
If sommaA = 16 Then ambi(4) = 08 : ok = 1
If sommaB = 16 Then ambi(5) = 22 : ok = 1
If sommaB = 16 Then ambi(6) = 08 : ok = 1
'----- 17-----------------------------------
If sommaA = 17 Then ambi(3) = 29 : ok = 1
If sommaA = 17 Then ambi(4) = 14 : ok = 1
If sommaB = 17 Then ambi(5) = 29 : ok = 1
If sommaB = 17 Then ambi(6) = 14 : ok = 1
'-------18 --------------------------------
If sommaA = 18 Then ambi(3) = 36 : ok = 1
If sommaA = 18 Then ambi(4) = 20 : ok = 1
If sommaB = 18 Then ambi(5) = 36 : ok = 1
If sommaB = 18 Then ambi(6) = 20 : ok = 1
'----- 19-----------------------------------
If sommaA = 19 Then ambi(3) = 43 : ok = 1
If sommaA = 19 Then ambi(4) = 26 : ok = 1
If sommaB = 19 Then ambi(5) = 43 : ok = 1
If sommaB = 19 Then ambi(6) = 26 : ok = 1
'----- 20-----------------------------------
If sommaA = 20 Then ambi(3) = 50 : ok = 1
If sommaA = 20 Then ambi(4) = 32 : ok = 1
If sommaB = 20 Then ambi(5) = 50 : ok = 1
If sommaB = 20 Then ambi(6) = 32 : ok = 1
'-------21 --------------------------------
If sommaA = 21 Then ambi(3) = 57 : ok = 1
If sommaA = 21 Then ambi(4) = 38 : ok = 1
If sommaB = 21 Then ambi(5) = 57 : ok = 1
If sommaB = 21 Then ambi(6) = 38 : ok = 1
'----- 22-----------------------------------
If sommaA = 22 Then ambi(3) = 64 : ok = 1
If sommaA = 22 Then ambi(4) = 44 : ok = 1
If sommaB = 22 Then ambi(5) = 64 : ok = 1
If sommaB = 22 Then ambi(6) = 44 : ok = 1
'----- 23-----------------------------------
If sommaA = 23 Then ambi(3) = 71 : ok = 1
If sommaA = 23 Then ambi(4) = 50 : ok = 1
If sommaB = 23 Then ambi(5) = 71 : ok = 1
If sommaB = 23 Then ambi(6) = 50 : ok = 1
'-------24 --------------------------------
If sommaA = 24 Then ambi(3) = 78 : ok = 1
If sommaA = 24 Then ambi(4) = 56 : ok = 1
If sommaB = 24 Then ambi(5) = 78 : ok = 1
If sommaB = 24 Then ambi(6) = 56 : ok = 1
'----- 25-----------------------------------
If sommaA = 25 Then ambi(3) = 85 : ok = 1
If sommaA = 25 Then ambi(4) = 62 : ok = 1
If sommaB = 25 Then ambi(5) = 85 : ok = 1
If sommaB = 25 Then ambi(6) = 62 : ok = 1
'----- 26-----------------------------------
If sommaA = 26 Then ambi(3) = 02 : ok = 1
If sommaA = 26 Then ambi(4) = 68 : ok = 1
If sommaB = 26 Then ambi(5) = 02 : ok = 1
If sommaB = 26 Then ambi(6) = 68 : ok = 1
'----- 27-----------------------------------
If sommaA = 27 Then ambi(3) = 09 : ok = 1
If sommaA = 27 Then ambi(4) = 74 : ok = 1
If sommaB = 27 Then ambi(5) = 09 : ok = 1
If sommaB = 27 Then ambi(6) = 74 : ok = 1
'----- 28-----------------------------------
If sommaA = 28 Then ambi(3) = 16 : ok = 1
If sommaA = 28 Then ambi(4) = 80 : ok = 1
If sommaB = 28 Then ambi(5) = 16 : ok = 1
If sommaB = 28 Then ambi(6) = 80 : ok = 1
'-------29 --------------------------------
If sommaA = 29 Then ambi(3) = 23 : ok = 1
If sommaA = 29 Then ambi(4) = 86 : ok = 1
If sommaB = 29 Then ambi(5) = 23 : ok = 1
If sommaB = 29 Then ambi(6) = 86 : ok = 1
'----- 30-----------------------------------
If sommaA = 30 Then ambi(3) = 30 : ok = 1
If sommaA = 30 Then ambi(4) = 62 : ok = 1
If sommaB = 30 Then ambi(5) = 30 : ok = 1
If sommaB = 30 Then ambi(6) = 62 : ok = 1
'----- 31-----------------------------------
If sommaA = 31 Then ambi(3) = 37 : ok = 1
If sommaA = 31 Then ambi(4) = 08 : ok = 1
If sommaB = 31 Then ambi(5) = 37 : ok = 1
If sommaB = 31 Then ambi(6) = 08 : ok = 1
'-------32 --------------------------------
If sommaA = 32 Then ambi(3) = 44 : ok = 1
If sommaA = 32 Then ambi(4) = 14 : ok = 1
If sommaB = 32 Then ambi(5) = 44 : ok = 1
If sommaB = 32 Then ambi(6) = 14 : ok = 1
'----- 33-----------------------------------
If sommaA = 33 Then ambi(3) = 51 : ok = 1
If sommaA = 33 Then ambi(4) = 20 : ok = 1
If sommaB = 33 Then ambi(5) = 51 : ok = 1
If sommaB = 33 Then ambi(6) = 20 : ok = 1
'----- 34-----------------------------------
If sommaA = 34 Then ambi(3) = 58 : ok = 1
If sommaA = 34 Then ambi(4) = 26 : ok = 1
If sommaB = 34 Then ambi(5) = 58 : ok = 1
If sommaB = 34 Then ambi(6) = 26 : ok = 1
'-------35 --------------------------------
If sommaA = 35 Then ambi(3) = 65 : ok = 1
If sommaA = 35 Then ambi(4) = 32 : ok = 1
If sommaB = 35 Then ambi(5) = 65 : ok = 1
If sommaB = 35 Then ambi(6) = 32 : ok = 1
'----- 36-----------------------------------
If sommaA = 36 Then ambi(3) = 72 : ok = 1
If sommaA = 36 Then ambi(4) = 38 : ok = 1
If sommaB = 36 Then ambi(5) = 72 : ok = 1
If sommaB = 36 Then ambi(6) = 38 : ok = 1
'----- 37-----------------------------------
If sommaA = 37 Then ambi(3) = 79 : ok = 1
If sommaA = 37 Then ambi(4) = 44 : ok = 1
If sommaB = 37 Then ambi(5) = 79 : ok = 1
If sommaB = 37 Then ambi(6) = 44 : ok = 1
'----- 38----------------------------------
If sommaA = 38 Then ambi(3) = 86 : ok = 1
If sommaA = 38 Then ambi(4) = 50 : ok = 1
If sommaB = 38 Then ambi(5) = 86 : ok = 1
If sommaB = 38 Then ambi(6) = 50 : ok = 1
'----- 39-----------------------------------
If sommaA = 39 Then ambi(3) = 03 : ok = 1
If sommaA = 39 Then ambi(4) = 56 : ok = 1
If sommaB = 39 Then ambi(5) = 03 : ok = 1
If sommaB = 39 Then ambi(6) = 56 : ok = 1
'-------40 --------------------------------
If sommaA = 40 Then ambi(3) = 10 : ok = 1
If sommaA = 40 Then ambi(4) = 62 : ok = 1
If sommaB = 40 Then ambi(5) = 10 : ok = 1
If sommaB = 40 Then ambi(6) = 62 : ok = 1
'----- 41-----------------------------------
If sommaA = 41 Then ambi(3) = 17 : ok = 1
If sommaA = 41 Then ambi(4) = 68 : ok = 1
If sommaB = 41 Then ambi(5) = 17 : ok = 1
If sommaB = 41 Then ambi(6) = 68 : ok = 1
'----- 42-----------------------------------
If sommaA = 42 Then ambi(3) = 24 : ok = 1
If sommaA = 42 Then ambi(4) = 74 : ok = 1
If sommaB = 42 Then ambi(5) = 24 : ok = 1
If sommaB = 42 Then ambi(6) = 74 : ok = 1
'-------43 --------------------------------
If sommaA = 43 Then ambi(3) = 31 : ok = 1
If sommaA = 43 Then ambi(4) = 80 : ok = 1
If sommaB = 43 Then ambi(5) = 31 : ok = 1
If sommaB = 43 Then ambi(6) = 80 : ok = 1
'----- 44-----------------------------------
If sommaA = 44 Then ambi(3) = 38 : ok = 1
If sommaA = 44 Then ambi(4) = 86 : ok = 1
If sommaB = 44 Then ambi(5) = 38 : ok = 1
If sommaB = 44 Then ambi(6) = 86 : ok = 1
'----- 45-----------------------------------
If sommaA = 45 Then ambi(3) = 45 : ok = 1
If sommaA = 45 Then ambi(4) = 20 : ok = 1
If sommaB = 45 Then ambi(5) = 45 : ok = 1
If sommaB = 45 Then ambi(6) = 20 : ok = 1
'-------46 --------------------------------
If sommaA = 46 Then ambi(3) = 52 : ok = 1
If sommaA = 46 Then ambi(4) = 08 : ok = 1
If sommaB = 46 Then ambi(5) = 52 : ok = 1
If sommaB = 46 Then ambi(6) = 08 : ok = 1
'----- 47-----------------------------------
If sommaA = 47 Then ambi(3) = 59 : ok = 1
If sommaA = 47 Then ambi(4) = 14 : ok = 1
If sommaB = 47 Then ambi(5) = 59 : ok = 1
If sommaB = 47 Then ambi(6) = 14 : ok = 1
'----- 48-----------------------------------
If sommaA = 48 Then ambi(3) = 66 : ok = 1
If sommaA = 48 Then ambi(4) = 20 : ok = 1
If sommaB = 48 Then ambi(5) = 66 : ok = 1
If sommaB = 48 Then ambi(6) = 20 : ok = 1
'----- 49-----------------------------------
If sommaA = 49 Then ambi(3) = 73 : ok = 1
If sommaA = 49 Then ambi(4) = 26 : ok = 1
If sommaB = 49 Then ambi(5) = 73 : ok = 1
If sommaB = 49 Then ambi(6) = 26 : ok = 1
'----- 50-----------------------------------
If sommaA = 50 Then ambi(3) = 80 : ok = 1
If sommaA = 50 Then ambi(4) = 32 : ok = 1
If sommaB = 50 Then ambi(5) = 80 : ok = 1
If sommaB = 50 Then ambi(6) = 32 : ok = 1
'-------51----------------------------------
If sommaA = 51 Then ambi(3) = 87 : ok = 1
If sommaA = 51 Then ambi(4) = 38 : ok = 1
If sommaB = 51 Then ambi(5) = 87 : ok = 1
If sommaB = 51 Then ambi(6) = 38 : ok = 1
'----- 52-----------------------------------
If sommaA = 52 Then ambi(3) = 04 : ok = 1
If sommaA = 52 Then ambi(4) = 44 : ok = 1
If sommaB = 52 Then ambi(5) = 04 : ok = 1
If sommaB = 52 Then ambi(6) = 44 : ok = 1
'----- 53-----------------------------------
If sommaA = 53 Then ambi(3) = 11 : ok = 1
If sommaA = 53 Then ambi(4) = 50 : ok = 1
If sommaB = 53 Then ambi(5) = 11 : ok = 1
If sommaB = 53 Then ambi(6) = 50 : ok = 1
'----- 54-----------------------------------
If sommaA = 54 Then ambi(3) = 18 : ok = 1
If sommaA = 54 Then ambi(4) = 56 : ok = 1
If sommaB = 54 Then ambi(5) = 18 : ok = 1
If sommaB = 54 Then ambi(6) = 56 : ok = 1
'-------55 --------------------------------
If sommaA = 55 Then ambi(3) = 25 : ok = 1
If sommaA = 55 Then ambi(4) = 62 : ok = 1
If sommaB = 55 Then ambi(5) = 25 : ok = 1
If sommaB = 55 Then ambi(6) = 62 : ok = 1
'----- 56-----------------------------------
If sommaA = 56 Then ambi(3) = 32 : ok = 1
If sommaA = 56 Then ambi(4) = 68 : ok = 1
If sommaB = 56 Then ambi(5) = 32 : ok = 1
If sommaB = 56 Then ambi(6) = 68 : ok = 1
'----- 57-----------------------------------
If sommaA = 57 Then ambi(3) = 39 : ok = 1
If sommaA = 57 Then ambi(4) = 74 : ok = 1
If sommaB = 57 Then ambi(5) = 39 : ok = 1
If sommaB = 57 Then ambi(6) = 74 : ok = 1
'-------58 --------------------------------
If sommaA = 58 Then ambi(3) = 46 : ok = 1
If sommaA = 58 Then ambi(4) = 80 : ok = 1
If sommaB = 58 Then ambi(5) = 46 : ok = 1
If sommaB = 58 Then ambi(6) = 80 : ok = 1
'----- 59-----------------------------------
If sommaA = 59 Then ambi(3) = 53 : ok = 1
If sommaA = 59 Then ambi(4) = 86 : ok = 1
If sommaB = 59 Then ambi(5) = 53 : ok = 1
If sommaB = 59 Then ambi(6) = 86 : ok = 1
'----- 60-----------------------------------
If sommaA = 60 Then ambi(3) = 60 : ok = 1
If sommaA = 60 Then ambi(4) = 02 : ok = 1
If sommaB = 60 Then ambi(5) = 60 : ok = 1
If sommaB = 60 Then ambi(6) = 02 : ok = 1
'----- 61-----------------------------------
If sommaA = 61 Then ambi(3) = 67 : ok = 1
If sommaA = 61 Then ambi(4) = 08 : ok = 1
If sommaB = 61 Then ambi(5) = 67 : ok = 1
If sommaB = 61 Then ambi(6) = 08 : ok = 1
'----- 62-----------------------------------
If sommaA = 62 Then ambi(3) = 74 : ok = 1
If sommaA = 62 Then ambi(4) = 14 : ok = 1
If sommaB = 62 Then ambi(5) = 74 : ok = 1
If sommaB = 62 Then ambi(6) = 14 : ok = 1
'-------63 --------------------------------
If sommaA = 63 Then ambi(3) = 81 : ok = 1
If sommaA = 63 Then ambi(4) = 20 : ok = 1
If sommaB = 63 Then ambi(5) = 81 : ok = 1
If sommaB = 63 Then ambi(6) = 20 : ok = 1
'----- 64-----------------------------------
If sommaA = 64 Then ambi(3) = 88 : ok = 1
If sommaA = 64 Then ambi(4) = 26 : ok = 1
If sommaB = 64 Then ambi(5) = 88 : ok = 1
If sommaB = 64 Then ambi(6) = 26 : ok = 1
'----- 65-----------------------------------
If sommaA = 65 Then ambi(3) = 05 : ok = 1
If sommaA = 65 Then ambi(4) = 32 : ok = 1
If sommaB = 65 Then ambi(5) = 05 : ok = 1
If sommaB = 65 Then ambi(6) = 32 : ok = 1
'-------66 --------------------------------
If sommaA = 66 Then ambi(3) = 12 : ok = 1
If sommaA = 66 Then ambi(4) = 38 : ok = 1
If sommaB = 66 Then ambi(5) = 12 : ok = 1
If sommaB = 66 Then ambi(6) = 38 : ok = 1
'----- 67-----------------------------------
If sommaA = 67 Then ambi(3) = 19 : ok = 1
If sommaA = 67 Then ambi(4) = 44 : ok = 1
If sommaB = 67 Then ambi(5) = 19 : ok = 1
If sommaB = 67 Then ambi(6) = 44 : ok = 1
'----- 68-----------------------------------
If sommaA = 68 Then ambi(3) = 26 : ok = 1
If sommaA = 68 Then ambi(4) = 50 : ok = 1
If sommaB = 68 Then ambi(5) = 26 : ok = 1
If sommaB = 68 Then ambi(6) = 50 : ok = 1
'-------69 --------------------------------
If sommaA = 69 Then ambi(3) = 33 : ok = 1
If sommaA = 69 Then ambi(4) = 56 : ok = 1
If sommaB = 69 Then ambi(5) = 33 : ok = 1
If sommaB = 69 Then ambi(6) = 56 : ok = 1
'----- 70-----------------------------------
If sommaA = 70 Then ambi(3) = 40 : ok = 1
If sommaA = 70 Then ambi(4) = 62 : ok = 1
If sommaB = 70 Then ambi(5) = 40 : ok = 1
If sommaB = 70 Then ambi(6) = 62 : ok = 1
'----- 71-----------------------------------
If sommaA = 71 Then ambi(3) = 47 : ok = 1
If sommaA = 71 Then ambi(4) = 68 : ok = 1
If sommaB = 71 Then ambi(5) = 47 : ok = 1
If sommaB = 71 Then ambi(6) = 68 : ok = 1
'----- 72-----------------------------------
If sommaA = 72 Then ambi(3) = 54 : ok = 1
If sommaA = 72 Then ambi(4) = 74 : ok = 1
If sommaB = 72 Then ambi(5) = 54 : ok = 1
If sommaB = 72 Then ambi(6) = 74 : ok = 1
'----- 73-----------------------------------
If sommaA = 73 Then ambi(3) = 61 : ok = 1
If sommaA = 73 Then ambi(4) = 80 : ok = 1
If sommaB = 73 Then ambi(5) = 61 : ok = 1
If sommaB = 73 Then ambi(6) = 80 : ok = 1
'-------74----------------------------------
If sommaA = 74 Then ambi(3) = 68 : ok = 1
If sommaA = 74 Then ambi(4) = 86 : ok = 1
If sommaB = 74 Then ambi(5) = 68 : ok = 1
If sommaB = 74 Then ambi(6) = 86 : ok = 1
'----- 75-----------------------------------
If sommaA = 75 Then ambi(3) = 75 : ok = 1
If sommaA = 75 Then ambi(4) = 02 : ok = 1
If sommaB = 75 Then ambi(5) = 75 : ok = 1
If sommaB = 75 Then ambi(6) = 02 : ok = 1
'----- 76-----------------------------------
If sommaA = 76 Then ambi(3) = 82 : ok = 1
If sommaA = 76 Then ambi(4) = 08 : ok = 1
If sommaB = 76 Then ambi(5) = 82 : ok = 1
If sommaB = 76 Then ambi(6) = 08 : ok = 1
'----- 77-----------------------------------
If sommaA = 77 Then ambi(3) = 89 : ok = 1
If sommaA = 77 Then ambi(4) = 14 : ok = 1
If sommaB = 77 Then ambi(5) = 89 : ok = 1
If sommaB = 77 Then ambi(6) = 14 : ok = 1
'-------78 --------------------------------
If sommaA = 78 Then ambi(3) = 06 : ok = 1
If sommaA = 78 Then ambi(4) = 20 : ok = 1
If sommaB = 78 Then ambi(5) = 06 : ok = 1
If sommaB = 78 Then ambi(6) = 20 : ok = 1
'----- 79-----------------------------------
If sommaA = 79 Then ambi(3) = 13 : ok = 1
If sommaA = 79 Then ambi(4) = 26 : ok = 1
If sommaB = 79 Then ambi(5) = 13 : ok = 1
If sommaB = 79 Then ambi(6) = 26 : ok = 1
'----- 80-----------------------------------
If sommaA = 80 Then ambi(3) = 20 : ok = 1
If sommaA = 80 Then ambi(4) = 32 : ok = 1
If sommaB = 80 Then ambi(5) = 20 : ok = 1
If sommaB = 80 Then ambi(6) = 32 : ok = 1
'-------81 --------------------------------
If sommaA = 81 Then ambi(3) = 27 : ok = 1
If sommaA = 81 Then ambi(4) = 38 : ok = 1
If sommaB = 81 Then ambi(5) = 27 : ok = 1
If sommaB = 81 Then ambi(6) = 38 : ok = 1
'----- 82-----------------------------------
If sommaA = 82 Then ambi(3) = 34 : ok = 1
If sommaA = 82 Then ambi(4) = 44 : ok = 1
If sommaB = 82 Then ambi(5) = 34 : ok = 1
If sommaB = 82 Then ambi(6) = 44 : ok = 1
'----- 83-----------------------------------
If sommaA = 83 Then ambi(3) = 41 : ok = 1
If sommaA = 83 Then ambi(4) = 50 : ok = 1
If sommaB = 83 Then ambi(5) = 41 : ok = 1
If sommaB = 83 Then ambi(6) = 50 : ok = 1
'----- 84-----------------------------------
If sommaA = 84 Then ambi(3) = 48 : ok = 1
If sommaA = 84 Then ambi(4) = 56 : ok = 1
If sommaB = 84 Then ambi(5) = 48 : ok = 1
If sommaB = 84 Then ambi(6) = 56 : ok = 1
'----- 85-----------------------------------
If sommaA = 85 Then ambi(3) = 55 : ok = 1
If sommaA = 85 Then ambi(4) = 62 : ok = 1
If sommaB = 85 Then ambi(5) = 55 : ok = 1
If sommaB = 85 Then ambi(6) = 62 : ok = 1
'-------86 --------------------------------
If sommaA = 86 Then ambi(3) = 62 : ok = 1
If sommaA = 86 Then ambi(4) = 68 : ok = 1
If sommaB = 86 Then ambi(5) = 62 : ok = 1
If sommaB = 86 Then ambi(6) = 68 : ok = 1
'----- 87-----------------------------------
If sommaA = 87 Then ambi(3) = 69 : ok = 1
If sommaA = 87 Then ambi(4) = 74 : ok = 1
If sommaB = 87 Then ambi(5) = 69 : ok = 1
If sommaB = 87 Then ambi(6) = 74 : ok = 1
'----- 88-----------------------------------
If sommaA = 88 Then ambi(3) = 76 : ok = 1
If sommaA = 88 Then ambi(4) = 80 : ok = 1
If sommaB = 88 Then ambi(5) = 76 : ok = 1
If sommaB = 88 Then ambi(6) = 80 : ok = 1
'-------89 --------------------------------
If sommaA = 89 Then ambi(3) = 83 : ok = 1
If sommaA = 89 Then ambi(4) = 86 : ok = 1
If sommaB = 89 Then ambi(5) = 83 : ok = 1
If sommaB = 89 Then ambi(6) = 86 : ok = 1
'----- 90-----------------------------------
If sommaA = 90 Then ambi(3) = 90 : ok = 1
If sommaA = 90 Then ambi(4) = 20 : ok = 1
If sommaB = 90 Then ambi(5) = 90 : ok = 1
If sommaB = 90 Then ambi(6) = 20 : ok = 1
'----------- continuare ad inserire ----------
'-------------------------------------------------------------------
If ok = 1 Then ' fine condizione
'-------------------------------------------------------------------
co = co + 1
ruote(1) = r1
ruote(2) = r2
rtt(1) = 11
Scrivi "Numero Spia " & a & " " & String(65,"=") & " Caso n°" & co,1
ColoreTesto 1
Scrivi DataEstrazione(es) & " " & SiglaRuota(r1) & " " & StringaEstratti(es,r1) & " NUMERO SPIA " & a & " -> Posiz. " & p,0,0
Scrivi " - Somma Estratti " & sommaA,1
Scrivi DataEstrazione(es) & " " & SiglaRuota(r2) & " " & StringaEstratti(es,r2) & " NUMERO SPIA " & a & " -> Posiz. " & p,0,0
Scrivi " - Somma Estratti " & sommaB,1
ColoreTesto 0
Scrivi String(75,"-")
cg = cg + 1
ImpostaGiocata 1,ambata,ruote,pt,clp
ImpostaGiocata 2,ambi,ruote,ptt,clp
ImpostaGiocata 3,ambi,rtt,ptt,clp
Gioca es,1
End If
End If
Next:Next:Next:Next':Next
ScriviResoconto
ColoreTesto 2 :Scrivi String(57,32) & "Numeri Spia ",1
Scrivi
Scrivi String(58,32) & "Listed by Mike58",1
ColoreTesto 0
End Sub
