Option Explicit
Sub Main()
Dim k,Ini,fin,es,r1,r2,a,b,c,d,e,co,ok,tm,Im
Dim n1(2),n2(2),n3(2),n4(2),n5(2)
Dim ruota(11)
Dim ruote(11)
Dim poste(10)
poste(2) = 1
r2 = 11
r1 = CInt(InputBox(" Scegli la ruota ",,"1"))
Im = CInt(InputBox(" Indice mensile ? ",,"1"))
tm = CInt(InputBox(" Quante estrazioni vuoi controllare ? ",,"500"))
k = CInt(InputBox(" Per quanti colpi vuoi giocare ? ",,"12"))
Ini = EstrazioneFin - tm
fin = EstrazioneFin
co = 0
ok = 0
ResetTimer
For es = Ini To fin
Messaggio "elab. estr. [" &(es) & "] di " & DataEstrazione(es,1)
Call AvanzamentoElab(Ini,fin,es)
If IndiceMensile(es) = Im Then
ruota(1) = r1
ruote(1) = r2
a = Estratto(es,r1,1)
b = Estratto(es,r1,2)
c = Estratto(es,r1,3)
d = Estratto(es,r1,4)
e = Estratto(es,r1,5)
If a = 1 Then
n1(1) = 28: n1(2) = 18
ok = 1
End If
If a = 2 Then
n1(1) = 58: n1(2) = 37
ok = 1
End If
If a = 3 Then
n1(1) = 34: n1(2) = 33
ok = 1
End If
If a = 4 Then
n1(1) = 10: n1(2) = 21
ok = 1
End If
If a = 5 Then
n1(1) = 46: n1(2) = 17
ok = 1
End If
If a = 6 Then
n1(1) = 52: n1(2) = 26
ok = 1
End If
If a = 7 Then
n1(1) = 88: n1(2) = 07
ok = 1
End If
If a = 8 Then
n1(1) = 04: n1(2) = 22
ok = 1
End If
If a = 9 Then
n1(1) = 70: n1(2) = 24
ok = 1
End If
If a = 10 Then
n1(1) = 46: n1(2) = 36
ok = 1
End If
If a = 11 Then
n1(1) = 87: n1(2) = 38
ok = 1
End If
If a = 12 Then
n1(1) = 04: n1(2) = 23
ok = 1
End If
If a = 13 Then
n1(1) = 79: n1(2) = 80
ok = 1
End If
If a = 14 Then
n1(1) = 40: n1(2) = 27
ok = 1
End If
If a = 15 Then
n1(1) = 16: n1(2) = 72
ok = 1
End If
If a = 16 Then
n1(1) = 82: n1(2) = 75
ok = 1
End If
If a = 17 Then
n1(1) = 58: n1(2) = 05
ok = 1
End If
If a = 18 Then
n1(1) = 34: n1(2) = 01
ok = 1
End If
If a = 19 Then
n1(1) = 28: n1(2) = 71
ok = 1
End If
If a = 20 Then
n1(1) = 76: n1(2) = 07
ok = 1
End If
If a = 21 Then
n1(1) = 80: n1(2) = 04
ok = 1
End If
If a = 22 Then
n1(1) = 28: n1(2) = 08
ok = 1
End If
If a = 23 Then
n1(1) = 04: n1(2) = 12
ok = 1
End If
If a = 24 Then
n1(1) = 70: n1(2) = 09
ok = 1
End If
If a = 25 Then
n1(1) = 46: n1(2) = 75
ok = 1
End If
If a = 26 Then
n1(1) = 65: n1(2) = 06
ok = 1
End If
If a = 27 Then
n1(1) = 88: n1(2) = 14
ok = 1
End If
If a = 28 Then
n1(1) = 28: n1(2) = 71
ok = 1
End If
If a = 29 Then
n1(1) = 40: n1(2) = 79
ok = 1
End If
If a = 30 Then
n1(1) = 16: n1(2) = 42
ok = 1
End If
If a = 31 Then
n1(1) = 46: n1(2) = 40
ok = 1
End If
If a = 32 Then
n1(1) = 58: n1(2) = 88
ok = 1
End If
If a = 33 Then
n1(1) = 16: n1(2) = 03
ok = 1
End If
If a = 34 Then
n1(1) = 10: n1(2) = 51
ok = 1
End If
If a = 35 Then
n1(1) = 76: n1(2) = 56
ok = 1
End If
If a = 36 Then
n1(1) = 52: n1(2) = 10
ok = 1
End If
If a = 37 Then
n1(1) = 28: n1(2) = 08
ok = 1
End If
If a = 38 Then
n1(1) = 04: n1(2) = 53
ok = 1
End If
If a = 39 Then
n1(1) = 70: n1(2) = 53
ok = 1
End If
If a = 40 Then
n1(1) = 55: n1(2) = 31
ok = 1
End If
If a = 41 Then
n1(1) = 22: n1(2) = 70
ok = 1
End If
If a = 42 Then
n1(1) = 88: n1(2) = 30
ok = 1
End If
If a = 43 Then
n1(1) = 64: n1(2) = 74
ok = 1
End If
If a = 44 Then
n1(1) = 40: n1(2) = 48
ok = 1
End If
If a = 45 Then
n1(1) = 16: n1(2) = 90
ok = 1
End If
If a = 46 Then
n1(1) = 82: n1(2) = 50
ok = 1
End If
If a = 47 Then
n1(1) = 04: n1(2) = 86
ok = 1
End If
If a = 48 Then
n1(1) = 34: n1(2) = 44
ok = 1
End If
If a = 49 Then
n1(1) = 10: n1(2) = 81
ok = 1
End If
If a = 50 Then
n1(1) = 76: n1(2) = 46
ok = 1
End If
If a = 51 Then
n1(1) = 51: n1(2) = 34
ok = 1
End If
If a = 52 Then
n1(1) = 28: n1(2) = 89
ok = 1
End If
If a = 53 Then
n1(1) = 04: n1(2) = 39
ok = 1
End If
If a = 54 Then
n1(1) = 43: n1(2) = 78
ok = 1
End If
If a = 55 Then
n1(1) = 46: n1(2) = 70
ok = 1
End If
If a = 56 Then
n1(1) = 56: n1(2) = 35
ok = 1
End If
If a = 57 Then
n1(1) = 88: n1(2) = 73
ok = 1
End If
If a = 58 Then
n1(1) = 64: n1(2) = 62
ok = 1
End If
If a = 59 Then
n1(1) = 40: n1(2) = 84
ok = 1
End If
If a = 60 Then
n1(1) = 16: n1(2) = 55
ok = 1
End If
If a = 61 Then
n1(1) = 01: n1(2) = 18
ok = 1
End If
If a = 62 Then
n1(1) = 58: n1(2) = 85
ok = 1
End If
If a = 63 Then
n1(1) = 34: n1(2) = 36
ok = 1
End If
If a = 64 Then
n1(1) = 10: n1(2) = 50
ok = 1
End If
If a = 65 Then
n1(1) = 76: n1(2) = 85
ok = 1
End If
If a = 66 Then
n1(1) = 52: n1(2) = 78
ok = 1
End If
If a = 67 Then
n1(1) = 28: n1(2) = 71
ok = 1
End If
If a = 68 Then
n1(1) = 04: n1(2) = 21
ok = 1
End If
If a = 69 Then
n1(1) = 70: n1(2) = 41
ok = 1
End If
If a = 70 Then
n1(1) = 46: n1(2) = 55
ok = 1
End If
If a = 71 Then
n1(1) = 40: n1(2) = 28
ok = 1
End If
If a = 72 Then
n1(1) = 88: n1(2) = 15
ok = 1
End If
If a = 73 Then
n1(1) = 64: n1(2) = 83
ok = 1
End If
If a = 74 Then
n1(1) = 40: n1(2) = 79
ok = 1
End If
If a = 75 Then
n1(1) = 82: n1(2) = 16
ok = 1
End If
If a = 76 Then
n1(1) = 82: n1(2) = 85
ok = 1
End If
If a = 77 Then
n1(1) = 58: n1(2) = 82
ok = 1
End If
If a = 78 Then
n1(1) = 34: n1(2) = 54
ok = 1
End If
If a = 79 Then
n1(1) = 10: n1(2) = 74
ok = 1
End If
If a = 80 Then
n1(1) = 76: n1(2) = 13
ok = 1
End If
If a = 81 Then
n1(1) = 16: n1(2) = 49
ok = 1
End If
If a = 82 Then
n1(1) = 64: n1(2) = 77
ok = 1
End If
If a = 83 Then
n1(1) = 76: n1(2) = 73
ok = 1
End If
If a = 84 Then
n1(1) = 61: n1(2) = 59
ok = 1
End If
If a = 85 Then
n1(1) = 73: n1(2) = 76
ok = 1
End If
If a = 86 Then
n1(1) = 58: n1(2) = 47
ok = 1
End If
If a = 87 Then
n1(1) = 87: n1(2) = 77
ok = 1
End If
If a = 88 Then
n1(1) = 55: n1(2) = 32
ok = 1
End If
If a = 89 Then
n1(1) = 67: n1(2) = 52
ok = 1
End If
If a = 90 Then
n1(1) = 58: n1(2) = 45
ok = 1
End If
'
If b = 1 Then
n2(1) = 28: n2(2) = 18
ok = 1
End If
If b = 2 Then
n2(1) = 58: n2(2) = 37
ok = 1
End If
If b = 3 Then
n2(1) = 34: n2(2) = 33
ok = 1
End If
If b = 4 Then
n2(1) = 10: n2(2) = 21
ok = 1
End If
If b = 5 Then
n2(1) = 46: n2(2) = 17
ok = 1
End If
If b = 6 Then
n2(1) = 52: n2(2) = 26
ok = 1
End If
If b = 7 Then
n2(1) = 88: n2(2) = 07
ok = 1
End If
If b = 8 Then
n2(1) = 04: n2(2) = 22
ok = 1
End If
If b = 9 Then
n2(1) = 70: n2(2) = 24
ok = 1
End If
If b = 10 Then
n2(1) = 46: n2(2) = 36
ok = 1
End If
If b = 11 Then
n2(1) = 87: n2(2) = 38
ok = 1
End If
If b = 12 Then
n2(1) = 04: n2(2) = 23
ok = 1
End If
If b = 13 Then
n2(1) = 79: n2(2) = 80
ok = 1
End If
If b = 14 Then
n2(1) = 40: n2(2) = 27
ok = 1
End If
If b = 15 Then
n2(1) = 16: n2(2) = 72
ok = 1
End If
If b = 16 Then
n2(1) = 82: n2(2) = 75
ok = 1
End If
If b = 17 Then
n2(1) = 58: n2(2) = 05
ok = 1
End If
If b = 18 Then
n2(1) = 34: n2(2) = 01
ok = 1
End If
If b = 19 Then
n2(1) = 28: n2(2) = 71
ok = 1
End If
If b = 20 Then
n2(1) = 76: n2(2) = 07
ok = 1
End If
If b = 21 Then
n2(1) = 80: n2(2) = 04
ok = 1
End If
If b = 22 Then
n2(1) = 28: n2(2) = 08
ok = 1
End If
If b = 23 Then
n2(1) = 04: n2(2) = 12
ok = 1
End If
If b = 24 Then
n2(1) = 70: n2(2) = 09
ok = 1
End If
If b = 25 Then
n2(1) = 46: n2(2) = 75
ok = 1
End If
If b = 26 Then
n2(1) = 65: n2(2) = 06
ok = 1
End If
If b = 27 Then
n2(1) = 88: n2(2) = 14
ok = 1
End If
If b = 28 Then
n2(1) = 28: n2(2) = 71
ok = 1
End If
If b = 29 Then
n2(1) = 40: n2(2) = 79
ok = 1
End If
If b = 30 Then
n2(1) = 16: n2(2) = 42
ok = 1
End If
If b = 31 Then
n2(1) = 46: n2(2) = 40
ok = 1
End If
If b = 32 Then
n2(1) = 58: n2(2) = 88
ok = 1
End If
If b = 33 Then
n2(1) = 16: n2(2) = 03
ok = 1
End If
If b = 34 Then
n2(1) = 10: n2(2) = 51
ok = 1
End If
If b = 35 Then
n2(1) = 76: n2(2) = 56
ok = 1
End If
If b = 36 Then
n2(1) = 52: n2(2) = 10
ok = 1
End If
If b = 37 Then
n2(1) = 28: n2(2) = 08
ok = 1
End If
If b = 38 Then
n2(1) = 04: n2(2) = 53
ok = 1
End If
If b = 39 Then
n2(1) = 70: n2(2) = 53
ok = 1
End If
If b = 40 Then
n2(1) = 55: n2(2) = 31
ok = 1
End If
If b = 41 Then
n2(1) = 22: n2(2) = 70
ok = 1
End If
If b = 42 Then
n2(1) = 88: n2(2) = 30
ok = 1
End If
If b = 43 Then
n2(1) = 64: n2(2) = 74
ok = 1
End If
If b = 44 Then
n2(1) = 40: n2(2) = 48
ok = 1
End If
If b = 45 Then
n2(1) = 16: n2(2) = 90
ok = 1
End If
If b = 46 Then
n2(1) = 82: n2(2) = 50
ok = 1
End If
If b = 47 Then
n2(1) = 04: n2(2) = 86
ok = 1
End If
If b = 48 Then
n2(1) = 34: n2(2) = 44
ok = 1
End If
If b = 49 Then
n2(1) = 10: n2(2) = 81
ok = 1
End If
If b = 50 Then
n2(1) = 76: n2(2) = 46
ok = 1
End If
If b = 51 Then
n2(1) = 51: n2(2) = 34
ok = 1
End If
If b = 52 Then
n2(1) = 28: n2(2) = 89
ok = 1
End If
If b = 53 Then
n2(1) = 04: n2(2) = 39
ok = 1
End If
If b = 54 Then
n2(1) = 43: n2(2) = 78
ok = 1
End If
If b = 55 Then
n2(1) = 46: n2(2) = 70
ok = 1
End If
If b = 56 Then
n2(1) = 56: n2(2) = 35
ok = 1
End If
If b = 57 Then
n2(1) = 88: n2(2) = 73
ok = 1
End If
If b = 58 Then
n2(1) = 64: n2(2) = 62
ok = 1
End If
If b = 59 Then
n2(1) = 40: n2(2) = 84
ok = 1
End If
If b = 60 Then
n2(1) = 16: n2(2) = 55
ok = 1
End If
If b = 61 Then
n2(1) = 01: n2(2) = 18
ok = 1
End If
If b = 62 Then
n2(1) = 58: n2(2) = 85
ok = 1
End If
If b = 63 Then
n2(1) = 34: n2(2) = 36
ok = 1
End If
If b = 64 Then
n2(1) = 10: n2(2) = 50
ok = 1
End If
If b = 65 Then
n2(1) = 76: n2(2) = 85
ok = 1
End If
If b = 66 Then
n2(1) = 52: n2(2) = 78
ok = 1
End If
If b = 67 Then
n2(1) = 28: n2(2) = 71
ok = 1
End If
If b = 68 Then
n2(1) = 04: n2(2) = 21
ok = 1
End If
If b = 69 Then
n2(1) = 70: n2(2) = 41
ok = 1
End If
If b = 70 Then
n2(1) = 46: n2(2) = 55
ok = 1
End If
If b = 71 Then
n2(1) = 40: n2(2) = 28
ok = 1
End If
If b = 72 Then
n2(1) = 88: n2(2) = 15
ok = 1
End If
If b = 73 Then
n2(1) = 64: n2(2) = 83
ok = 1
End If
If b = 74 Then
n2(1) = 40: n2(2) = 79
ok = 1
End If
If b = 75 Then
n2(1) = 82: n2(2) = 16
ok = 1
End If
If b = 76 Then
n2(1) = 82: n2(2) = 85
ok = 1
End If
If b = 77 Then
n2(1) = 58: n2(2) = 82
ok = 1
End If
If b = 78 Then
n2(1) = 34: n2(2) = 54
ok = 1
End If
If b = 79 Then
n2(1) = 10: n2(2) = 74
ok = 1
End If
If b = 80 Then
n2(1) = 76: n2(2) = 13
ok = 1
End If
If b = 81 Then
n2(1) = 16: n2(2) = 49
ok = 1
End If
If b = 82 Then
n2(1) = 64: n2(2) = 77
ok = 1
End If
If b = 83 Then
n2(1) = 76: n2(2) = 73
ok = 1
End If
If b = 84 Then
n2(1) = 61: n2(2) = 59
ok = 1
End If
If b = 85 Then
n2(1) = 73: n2(2) = 76
ok = 1
End If
If b = 86 Then
n2(1) = 58: n2(2) = 47
ok = 1
End If
If b = 87 Then
n2(1) = 87: n2(2) = 77
ok = 1
End If
If b = 88 Then
n2(1) = 55: n2(2) = 32
ok = 1
End If
If b = 89 Then
n2(1) = 67: n2(2) = 52
ok = 1
End If
If b = 90 Then
n2(1) = 58: n2(2) = 45
ok = 1
End If
'
If c = 1 Then
n3(1) = 28: n3(2) = 18
ok = 1
End If
If c = 2 Then
n3(1) = 58: n3(2) = 37
ok = 1
End If
If c = 3 Then
n3(1) = 34: n3(2) = 33
ok = 1
End If
If c = 4 Then
n3(1) = 10: n3(2) = 21
ok = 1
End If
If c = 5 Then
n3(1) = 46: n3(2) = 17
ok = 1
End If
If c = 6 Then
n3(1) = 52: n3(2) = 26
ok = 1
End If
If c = 7 Then
n3(1) = 88: n3(2) = 07
ok = 1
End If
If c = 8 Then
n3(1) = 04: n3(2) = 22
ok = 1
End If
If c = 9 Then
n3(1) = 70: n3(2) = 24
ok = 1
End If
If c = 10 Then
n3(1) = 46: n3(2) = 36
ok = 1
End If
If c = 11 Then
n3(1) = 87: n3(2) = 38
ok = 1
End If
If c = 12 Then
n3(1) = 04: n3(2) = 23
ok = 1
End If
If c = 13 Then
n3(1) = 79: n3(2) = 80
ok = 1
End If
If c = 14 Then
n3(1) = 40: n3(2) = 27
ok = 1
End If
If c = 15 Then
n3(1) = 16: n3(2) = 72
ok = 1
End If
If c = 16 Then
n3(1) = 82: n3(2) = 75
ok = 1
End If
If c = 17 Then
n3(1) = 58: n3(2) = 05
ok = 1
End If
If c = 18 Then
n3(1) = 34: n3(2) = 01
ok = 1
End If
If c = 19 Then
n3(1) = 28: n3(2) = 71
ok = 1
End If
If c = 20 Then
n3(1) = 76: n3(2) = 07
ok = 1
End If
If c = 21 Then
n3(1) = 80: n3(2) = 04
ok = 1
End If
If c = 22 Then
n3(1) = 28: n3(2) = 08
ok = 1
End If
If c = 23 Then
n3(1) = 04: n3(2) = 12
ok = 1
End If
If c = 24 Then
n3(1) = 70: n3(2) = 09
ok = 1
End If
If c = 25 Then
n3(1) = 46: n3(2) = 75
ok = 1
End If
If c = 26 Then
n3(1) = 65: n3(2) = 06
ok = 1
End If
If c = 27 Then
n3(1) = 88: n3(2) = 14
ok = 1
End If
If c = 28 Then
n3(1) = 28: n3(2) = 71
ok = 1
End If
If c = 29 Then
n3(1) = 40: n3(2) = 79
ok = 1
End If
If c = 30 Then
n3(1) = 16: n3(2) = 42
ok = 1
End If
If c = 31 Then
n3(1) = 46: n3(2) = 40
ok = 1
End If
If c = 32 Then
n3(1) = 58: n3(2) = 88
ok = 1
End If
If c = 33 Then
n3(1) = 16: n3(2) = 03
ok = 1
End If
If c = 34 Then
n3(1) = 10: n3(2) = 51
ok = 1
End If
If c = 35 Then
n3(1) = 76: n3(2) = 56
ok = 1
End If
If c = 36 Then
n3(1) = 52: n3(2) = 10
ok = 1
End If
If c = 37 Then
n3(1) = 28: n3(2) = 08
ok = 1
End If
If c = 38 Then
n3(1) = 04: n3(2) = 53
ok = 1
End If
If c = 39 Then
n3(1) = 70: n3(2) = 53
ok = 1
End If
If c = 40 Then
n3(1) = 55: n3(2) = 31
ok = 1
End If
If c = 41 Then
n3(1) = 22: n3(2) = 70
ok = 1
End If
If c = 42 Then
n3(1) = 88: n3(2) = 30
ok = 1
End If
If c = 43 Then
n3(1) = 64: n3(2) = 74
ok = 1
End If
If c = 44 Then
n3(1) = 40: n3(2) = 48
ok = 1
End If
If c = 45 Then
n3(1) = 16: n3(2) = 90
ok = 1
End If
If c = 46 Then
n3(1) = 82: n3(2) = 50
ok = 1
End If
If c = 47 Then
n3(1) = 04: n3(2) = 86
ok = 1
End If
If c = 48 Then
n3(1) = 34: n3(2) = 44
ok = 1
End If
If c = 49 Then
n3(1) = 10: n3(2) = 81
ok = 1
End If
If c = 50 Then
n3(1) = 76: n3(2) = 46
ok = 1
End If
If c = 51 Then
n3(1) = 51: n3(2) = 34
ok = 1
End If
If c = 52 Then
n3(1) = 28: n3(2) = 89
ok = 1
End If
If c = 53 Then
n3(1) = 04: n3(2) = 39
ok = 1
End If
If c = 54 Then
n3(1) = 43: n3(2) = 78
ok = 1
End If
If c = 55 Then
n3(1) = 46: n3(2) = 70
ok = 1
End If
If c = 56 Then
n3(1) = 56: n3(2) = 35
ok = 1
End If
If c = 57 Then
n3(1) = 88: n3(2) = 73
ok = 1
End If
If c = 58 Then
n3(1) = 64: n3(2) = 62
ok = 1
End If
If c = 59 Then
n3(1) = 40: n3(2) = 84
ok = 1
End If
If c = 60 Then
n3(1) = 16: n3(2) = 55
ok = 1
End If
If c = 61 Then
n3(1) = 01: n3(2) = 18
ok = 1
End If
If c = 62 Then
n3(1) = 58: n3(2) = 85
ok = 1
End If
If c = 63 Then
n3(1) = 34: n3(2) = 36
ok = 1
End If
If c = 64 Then
n3(1) = 10: n3(2) = 50
ok = 1
End If
If c = 65 Then
n3(1) = 76: n3(2) = 85
ok = 1
End If
If c = 66 Then
n3(1) = 52: n3(2) = 78
ok = 1
End If
If c = 67 Then
n3(1) = 28: n3(2) = 71
ok = 1
End If
If c = 68 Then
n3(1) = 04: n3(2) = 21
ok = 1
End If
If c = 69 Then
n3(1) = 70: n3(2) = 41
ok = 1
End If
If c = 70 Then
n3(1) = 46: n3(2) = 55
ok = 1
End If
If c = 71 Then
n3(1) = 40: n3(2) = 28
ok = 1
End If
If c = 72 Then
n3(1) = 88: n3(2) = 15
ok = 1
End If
If c = 73 Then
n3(1) = 64: n3(2) = 83
ok = 1
End If
If c = 74 Then
n3(1) = 40: n3(2) = 79
ok = 1
End If
If c = 75 Then
n3(1) = 82: n3(2) = 16
ok = 1
End If
If c = 76 Then
n3(1) = 82: n3(2) = 85
ok = 1
End If
If c = 77 Then
n3(1) = 58: n3(2) = 82
ok = 1
End If
If c = 78 Then
n3(1) = 34: n3(2) = 54
ok = 1
End If
If c = 79 Then
n3(1) = 10: n3(2) = 74
ok = 1
End If
If c = 80 Then
n3(1) = 76: n3(2) = 13
ok = 1
End If
If c = 81 Then
n3(1) = 16: n3(2) = 49
ok = 1
End If
If c = 82 Then
n3(1) = 64: n3(2) = 77
ok = 1
End If
If c = 83 Then
n3(1) = 76: n3(2) = 73
ok = 1
End If
If c = 84 Then
n3(1) = 61: n3(2) = 59
ok = 1
End If
If c = 85 Then
n3(1) = 73: n3(2) = 76
ok = 1
End If
If c = 86 Then
n3(1) = 58: n3(2) = 47
ok = 1
End If
If c = 87 Then
n3(1) = 87: n3(2) = 77
ok = 1
End If
If c = 88 Then
n3(1) = 55: n3(2) = 32
ok = 1
End If
If c = 89 Then
n3(1) = 67: n3(2) = 52
ok = 1
End If
If c = 90 Then
n3(1) = 58: n3(2) = 45
ok = 1
End If
'
If d = 1 Then
n4(1) = 28: n4(2) = 18
ok = 1
End If
If d = 2 Then
n4(1) = 58: n4(2) = 37
ok = 1
End If
If d = 3 Then
n4(1) = 34: n4(2) = 33
ok = 1
End If
If d = 4 Then
n4(1) = 10: n4(2) = 21
ok = 1
End If
If d = 5 Then
n4(1) = 46: n4(2) = 17
ok = 1
End If
If d = 6 Then
n4(1) = 52: n4(2) = 26
ok = 1
End If
If d = 7 Then
n4(1) = 88: n4(2) = 07
ok = 1
End If
If d = 8 Then
n4(1) = 04: n4(2) = 22
ok = 1
End If
If d = 9 Then
n4(1) = 70: n4(2) = 24
ok = 1
End If
If d = 10 Then
n4(1) = 46: n4(2) = 36
ok = 1
End If
If d = 11 Then
n4(1) = 87: n4(2) = 38
ok = 1
End If
If d = 12 Then
n4(1) = 04: n4(2) = 23
ok = 1
End If
If d = 13 Then
n4(1) = 79: n4(2) = 80
ok = 1
End If
If d = 14 Then
n4(1) = 40: n4(2) = 27
ok = 1
End If
If d = 15 Then
n4(1) = 16: n4(2) = 72
ok = 1
End If
If d = 16 Then
n4(1) = 82: n4(2) = 75
ok = 1
End If
If d = 17 Then
n4(1) = 58: n4(2) = 05
ok = 1
End If
If d = 18 Then
n4(1) = 34: n4(2) = 01
ok = 1
End If
If d = 19 Then
n4(1) = 28: n4(2) = 71
ok = 1
End If
If d = 20 Then
n4(1) = 76: n4(2) = 07
ok = 1
End If
If d = 21 Then
n4(1) = 80: n4(2) = 04
ok = 1
End If
If d = 22 Then
n4(1) = 28: n4(2) = 08
ok = 1
End If
If d = 23 Then
n4(1) = 04: n4(2) = 12
ok = 1
End If
If d = 24 Then
n4(1) = 70: n4(2) = 09
ok = 1
End If
If d = 25 Then
n4(1) = 46: n4(2) = 75
ok = 1
End If
If d = 26 Then
n4(1) = 65: n4(2) = 06
ok = 1
End If
If d = 27 Then
n4(1) = 88: n4(2) = 14
ok = 1
End If
If d = 28 Then
n4(1) = 28: n4(2) = 71
ok = 1
End If
If d = 29 Then
n4(1) = 40: n4(2) = 79
ok = 1
End If
If d = 30 Then
n4(1) = 16: n4(2) = 42
ok = 1
End If
If d = 31 Then
n4(1) = 46: n4(2) = 40
ok = 1
End If
If d = 32 Then
n4(1) = 58: n4(2) = 88
ok = 1
End If
If d = 33 Then
n4(1) = 16: n4(2) = 03
ok = 1
End If
If d = 34 Then
n4(1) = 10: n4(2) = 51
ok = 1
End If
If d = 35 Then
n4(1) = 76: n4(2) = 56
ok = 1
End If
If d = 36 Then
n4(1) = 52: n4(2) = 10
ok = 1
End If
If d = 37 Then
n4(1) = 28: n4(2) = 08
ok = 1
End If
If d = 38 Then
n4(1) = 04: n4(2) = 53
ok = 1
End If
If d = 39 Then
n4(1) = 70: n4(2) = 53
ok = 1
End If
If d = 40 Then
n4(1) = 55: n4(2) = 31
ok = 1
End If
If d = 41 Then
n4(1) = 22: n4(2) = 70
ok = 1
End If
If d = 42 Then
n4(1) = 88: n4(2) = 30
ok = 1
End If
If d = 43 Then
n4(1) = 64: n4(2) = 74
ok = 1
End If
If d = 44 Then
n4(1) = 40: n4(2) = 48
ok = 1
End If
If d = 45 Then
n4(1) = 16: n4(2) = 90
ok = 1
End If
If d = 46 Then
n4(1) = 82: n4(2) = 50
ok = 1
End If
If d = 47 Then
n4(1) = 04: n4(2) = 86
ok = 1
End If
If d = 48 Then
n4(1) = 34: n4(2) = 44
ok = 1
End If
If d = 49 Then
n4(1) = 10: n4(2) = 81
ok = 1
End If
If d = 50 Then
n4(1) = 76: n4(2) = 46
ok = 1
End If
If d = 51 Then
n4(1) = 51: n4(2) = 34
ok = 1
End If
If d = 52 Then
n4(1) = 28: n4(2) = 89
ok = 1
End If
If d = 53 Then
n4(1) = 04: n4(2) = 39
ok = 1
End If
If d = 54 Then
n4(1) = 43: n4(2) = 78
ok = 1
End If
If d = 55 Then
n4(1) = 46: n4(2) = 70
ok = 1
End If
If d = 56 Then
n4(1) = 56: n4(2) = 35
ok = 1
End If
If d = 57 Then
n4(1) = 88: n4(2) = 73
ok = 1
End If
If d = 58 Then
n4(1) = 64: n4(2) = 62
ok = 1
End If
If d = 59 Then
n4(1) = 40: n4(2) = 84
ok = 1
End If
If d = 60 Then
n4(1) = 16: n4(2) = 55
ok = 1
End If
If d = 61 Then
n4(1) = 01: n4(2) = 18
ok = 1
End If
If d = 62 Then
n4(1) = 58: n4(2) = 85
ok = 1
End If
If d = 63 Then
n4(1) = 34: n4(2) = 36
ok = 1
End If
If d = 64 Then
n4(1) = 10: n4(2) = 50
ok = 1
End If
If d = 65 Then
n4(1) = 76: n4(2) = 85
ok = 1
End If
If d = 66 Then
n4(1) = 52: n4(2) = 78
ok = 1
End If
If d = 67 Then
n4(1) = 28: n4(2) = 71
ok = 1
End If
If d = 68 Then
n4(1) = 04: n4(2) = 21
ok = 1
End If
If d = 69 Then
n4(1) = 70: n4(2) = 41
ok = 1
End If
If d = 70 Then
n4(1) = 46: n4(2) = 55
ok = 1
End If
If d = 71 Then
n4(1) = 40: n4(2) = 28
ok = 1
End If
If d = 72 Then
n4(1) = 88: n4(2) = 15
ok = 1
End If
If d = 73 Then
n4(1) = 64: n4(2) = 83
ok = 1
End If
If d = 74 Then
n4(1) = 40: n4(2) = 79
ok = 1
End If
If d = 75 Then
n4(1) = 82: n4(2) = 16
ok = 1
End If
If d = 76 Then
n4(1) = 82: n4(2) = 85
ok = 1
End If
If d = 77 Then
n4(1) = 58: n4(2) = 82
ok = 1
End If
If d = 78 Then
n4(1) = 34: n4(2) = 54
ok = 1
End If
If d = 79 Then
n4(1) = 10: n4(2) = 74
ok = 1
End If
If d = 80 Then
n4(1) = 76: n4(2) = 13
ok = 1
End If
If d = 81 Then
n4(1) = 16: n4(2) = 49
ok = 1
End If
If d = 82 Then
n4(1) = 64: n4(2) = 77
ok = 1
End If
If d = 83 Then
n4(1) = 76: n4(2) = 73
ok = 1
End If
If d = 84 Then
n4(1) = 61: n4(2) = 59
ok = 1
End If
If d = 85 Then
n4(1) = 73: n4(2) = 76
ok = 1
End If
If d = 86 Then
n4(1) = 58: n4(2) = 47
ok = 1
End If
If d = 87 Then
n4(1) = 87: n4(2) = 77
ok = 1
End If
If d = 88 Then
n4(1) = 55: n4(2) = 32
ok = 1
End If
If d = 89 Then
n4(1) = 67: n4(2) = 52
ok = 1
End If
If d = 90 Then
n4(1) = 58: n4(2) = 45
ok = 1
End If
If e = 1 Then
n5(1) = 28: n5(2) = 18
ok = 1
End If
If e = 2 Then
n5(1) = 58: n5(2) = 37
ok = 1
End If
If e = 3 Then
n5(1) = 34: n5(2) = 33
ok = 1
End If
If e = 4 Then
n5(1) = 10: n5(2) = 21
ok = 1
End If
If e = 5 Then
n5(1) = 46: n5(2) = 17
ok = 1
End If
If e = 6 Then
n5(1) = 52: n5(2) = 26
ok = 1
End If
If e = 7 Then
n5(1) = 88: n5(2) = 07
ok = 1
End If
If e = 8 Then
n5(1) = 04: n5(2) = 22
ok = 1
End If
If e = 9 Then
n5(1) = 70: n5(2) = 24
ok = 1
End If
If e = 10 Then
n5(1) = 46: n5(2) = 36
ok = 1
End If
If e = 11 Then
n5(1) = 87: n5(2) = 38
ok = 1
End If
If e = 12 Then
n5(1) = 04: n5(2) = 23
ok = 1
End If
If e = 13 Then
n5(1) = 79: n5(2) = 80
ok = 1
End If
If e = 14 Then
n5(1) = 40: n5(2) = 27
ok = 1
End If
If e = 15 Then
n5(1) = 16: n5(2) = 72
ok = 1
End If
If e = 16 Then
n5(1) = 82: n5(2) = 75
ok = 1
End If
If e = 17 Then
n5(1) = 58: n5(2) = 05
ok = 1
End If
If e = 18 Then
n5(1) = 34: n5(2) = 01
ok = 1
End If
If e = 19 Then
n5(1) = 28: n5(2) = 71
ok = 1
End If
If e = 20 Then
n5(1) = 76: n5(2) = 07
ok = 1
End If
If e = 21 Then
n5(1) = 80: n5(2) = 04
ok = 1
End If
If e = 22 Then
n5(1) = 28: n5(2) = 08
ok = 1
End If
If e = 23 Then
n5(1) = 04: n5(2) = 12
ok = 1
End If
If e = 24 Then
n5(1) = 70: n5(2) = 09
ok = 1
End If
If e = 25 Then
n5(1) = 46: n5(2) = 75
ok = 1
End If
If e = 26 Then
n5(1) = 65: n5(2) = 06
ok = 1
End If
If e = 27 Then
n5(1) = 88: n5(2) = 14
ok = 1
End If
If e = 28 Then
n5(1) = 28: n5(2) = 71
ok = 1
End If
If e = 29 Then
n5(1) = 40: n5(2) = 79
ok = 1
End If
If e = 30 Then
n5(1) = 16: n5(2) = 42
ok = 1
End If
If e = 31 Then
n5(1) = 46: n5(2) = 40
ok = 1
End If
If e = 32 Then
n5(1) = 58: n5(2) = 88
ok = 1
End If
If e = 33 Then
n5(1) = 16: n5(2) = 03
ok = 1
End If
If e = 34 Then
n5(1) = 10: n5(2) = 51
ok = 1
End If
If e = 35 Then
n5(1) = 76: n5(2) = 56
ok = 1
End If
If e = 36 Then
n5(1) = 52: n5(2) = 10
ok = 1
End If
If e = 37 Then
n5(1) = 28: n5(2) = 08
ok = 1
End If
If e = 38 Then
n5(1) = 04: n5(2) = 53
ok = 1
End If
If e = 39 Then
n5(1) = 70: n5(2) = 53
ok = 1
End If
If e = 40 Then
n5(1) = 55: n5(2) = 31
ok = 1
End If
If e = 41 Then
n5(1) = 22: n5(2) = 70
ok = 1
End If
If e = 42 Then
n5(1) = 88: n5(2) = 30
ok = 1
End If
If e = 43 Then
n5(1) = 64: n5(2) = 74
ok = 1
End If
If e = 44 Then
n5(1) = 40: n5(2) = 48
ok = 1
End If
If e = 45 Then
n5(1) = 16: n5(2) = 90
ok = 1
End If
If e = 46 Then
n5(1) = 82: n5(2) = 50
ok = 1
End If
If e = 47 Then
n5(1) = 04: n5(2) = 86
ok = 1
End If
If e = 48 Then
n5(1) = 34: n5(2) = 44
ok = 1
End If
If e = 49 Then
n5(1) = 10: n5(2) = 81
ok = 1
End If
If e = 50 Then
n5(1) = 76: n5(2) = 46
ok = 1
End If
If e = 51 Then
n5(1) = 51: n5(2) = 34
ok = 1
End If
If e = 52 Then
n5(1) = 28: n5(2) = 89
ok = 1
End If
If e = 53 Then
n5(1) = 04: n5(2) = 39
ok = 1
End If
If e = 54 Then
n5(1) = 43: n5(2) = 78
ok = 1
End If
If e = 55 Then
n5(1) = 46: n5(2) = 70
ok = 1
End If
If e = 56 Then
n5(1) = 56: n5(2) = 35
ok = 1
End If
If e = 57 Then
n5(1) = 88: n5(2) = 73
ok = 1
End If
If e = 58 Then
n5(1) = 64: n5(2) = 62
ok = 1
End If
If e = 59 Then
n5(1) = 40: n5(2) = 84
ok = 1
End If
If e = 60 Then
n5(1) = 16: n5(2) = 55
ok = 1
End If
If e = 61 Then
n5(1) = 01: n5(2) = 18
ok = 1
End If
If e = 62 Then
n5(1) = 58: n5(2) = 85
ok = 1
End If
If e = 63 Then
n5(1) = 34: n5(2) = 36
ok = 1
End If
If e = 64 Then
n5(1) = 10: n5(2) = 50
ok = 1
End If
If e = 65 Then
n5(1) = 76: n5(2) = 85
ok = 1
End If
If e = 66 Then
n5(1) = 52: n5(2) = 78
ok = 1
End If
If e = 67 Then
n5(1) = 28: n5(2) = 71
ok = 1
End If
If e = 68 Then
n5(1) = 04: n5(2) = 21
ok = 1
End If
If e = 69 Then
n5(1) = 70: n5(2) = 41
ok = 1
End If
If e = 70 Then
n5(1) = 46: n5(2) = 55
ok = 1
End If
If e = 71 Then
n5(1) = 40: n5(2) = 28
ok = 1
End If
If e = 72 Then
n5(1) = 88: n5(2) = 15
ok = 1
End If
If e = 73 Then
n5(1) = 64: n5(2) = 83
ok = 1
End If
If e = 74 Then
n5(1) = 40: n5(2) = 79
ok = 1
End If
If e = 75 Then
n5(1) = 82: n5(2) = 16
ok = 1
End If
If e = 76 Then
n5(1) = 82: n5(2) = 85
ok = 1
End If
If e = 77 Then
n5(1) = 58: n5(2) = 82
ok = 1
End If
If e = 78 Then
n5(1) = 34: n5(2) = 54
ok = 1
End If
If e = 79 Then
n5(1) = 10: n5(2) = 74
ok = 1
End If
If e = 80 Then
n5(1) = 76: n5(2) = 13
ok = 1
End If
If e = 81 Then
n5(1) = 16: n5(2) = 49
ok = 1
End If
If e = 82 Then
n5(1) = 64: n5(2) = 77
ok = 1
End If
If e = 83 Then
n5(1) = 76: n5(2) = 73
ok = 1
End If
If e = 84 Then
n5(1) = 61: n5(2) = 59
ok = 1
End If
If e = 85 Then
n5(1) = 73: n5(2) = 76
ok = 1
End If
If e = 86 Then
n5(1) = 58: n5(2) = 47
ok = 1
End If
If e = 87 Then
n5(1) = 87: n5(2) = 77
ok = 1
End If
If e = 88 Then
n5(1) = 55: n5(2) = 32
ok = 1
End If
If e = 89 Then
n5(1) = 67: n5(2) = 52
ok = 1
End If
If e = 90 Then
n5(1) = 58: n5(2) = 45
ok = 1
End If
If ok = 1 Then
ruota(1) = r1
ruote(2) = r2
co = co + 1
Scrivi String(100,"°") & " Caso n°" & co,1
Scrivi DataEstrazione(es) & " " & SiglaRuota(r1) & " - " & StringaEstratti(es,r1),1,,,1,2
Scrivi "Ambi a Tutte : ",1
Scrivi Format2(n1(1)) & " - " & Format2(n1(2)),1,,,1,2
Scrivi Format2(n2(1)) & " - " & Format2(n2(2)),1,,,1,2
Scrivi Format2(n3(1)) & " - " & Format2(n3(2)),1,,,1,2
Scrivi Format2(n4(1)) & " - " & Format2(n4(2)),1,,,1,2
Scrivi Format2(n5(1)) & " - " & Format2(n5(2)),1,,,1,2
Scrivi String(70,"°"),1
ImpostaGiocata 1,n1,ruote,poste,k',2,,1 ' se vuoi il primo esito raggiunto togli apice dopo k
ImpostaGiocata 2,n2,ruote,poste,k',2,,2
ImpostaGiocata 3,n3,ruote,poste,k',2,,3
ImpostaGiocata 4,n4,ruote,poste,k',2,,4
ImpostaGiocata 5,n5,ruote,poste,k',2,,5
Gioca es,1,,1
End If
End If
Next
Scrivi String(100,"*")
ColoreTesto 2
Scrivi" casi trovati : " & co,1
ColoreTesto 0
Scrivi String(100," * ")
TestoInBandaPassante(" Variante di Alien su Idea di Mastrogino e Script by BaffoBlù "),1,3,0
ScriviResoconto,False
End Sub