Option Explicit
Sub Main
'Ambata e Ambo su Settenarie Ultima del Mese 1° Estratto di Bari by Toon
Dim Ini,Fin,Es,R(5),K,R2,x,f,i,p1,a,Serpico90
Dim Nu(20),Num(10),poste(5),R1,R3,x1,x2
x1 = CInt(InputBox("Inserisci 1° Numero a Tua scelta",Serpico90,1))'
x2 = CInt(InputBox("Inserisci 2° Numero a Tua scelta",Serpico90,2))'
poste(1) = 1
poste(2) = 1
R1 = 1
p1 = 1
R2 = 2
R3 = 6
'---
Ini = EstrazioneFin - 400
Fin = EstrazioneFin
Scrivi "Ambata Settenaria",1,,,1,3,,1
For Es = Ini To Fin
If IsUltimaDelMese(Es) Then
' If IndiceMensile(Es) = 1 Then
'-----------------------------------
a = Estratto(Es,R1,p1)
K = K + 1
Nu(1) = a
'---
If Nu(1) = 1 Then
Nu(2) = 13
End If : If Nu(1) = 2 Then
Nu(2) = 26
End If : If Nu(1) = 3 Then
Nu(2) = 39
End If : If Nu(1) = 4 Then
Nu(2) = 52
End If : If Nu(1) = 5 Then
Nu(2) = 65
End If : If Nu(1) = 6 Then
Nu(2) = 78
End If : If Nu(1) = 7 Then
Nu(2) = 01
End If : If Nu(1) = 8 Then
Nu(2) = 14
End If : If Nu(1) = 9 Then
Nu(2) = 27
End If : If Nu(1) = 10 Then
Nu(2) = 40
End If : If Nu(1) = 11 Then
Nu(2) = 53
End If : If Nu(1) = 12 Then
Nu(2) = 66
End If : If Nu(1) = 13 Then
Nu(2) = 79
End If : If Nu(1) = 14 Then
Nu(2) = 02
End If : If Nu(1) = 15 Then
Nu(2) = 15
End If : If Nu(1) = 16 Then
Nu(2) = 28
End If : If Nu(1) = 17 Then
Nu(2) = 41
End If : If Nu(1) = 18 Then
Nu(2) = 54
End If : If Nu(1) = 19 Then
Nu(2) = 67
End If : If Nu(1) = 20 Then
Nu(2) = 80
End If : If Nu(1) = 21 Then
Nu(2) = 03
End If : If Nu(1) = 22 Then
Nu(2) = 16
End If : If Nu(1) = 23 Then
Nu(2) = 29
End If : If Nu(1) = 24 Then
Nu(2) = 42
End If : If Nu(1) = 25 Then
Nu(2) = 55
End If : If Nu(1) = 26 Then
Nu(2) = 68
End If : If Nu(1) = 27 Then
Nu(2) = 81
End If : If Nu(1) = 28 Then
Nu(2) = 04
End If : If Nu(1) = 29 Then
Nu(2) = 17
End If : If Nu(1) = 30 Then
Nu(2) = 30
End If : If Nu(1) = 31 Then
Nu(2) = 43
End If : If Nu(1) = 32 Then
Nu(2) = 56
End If : If Nu(1) = 33 Then
Nu(2) = 69
End If : If Nu(1) = 34 Then
Nu(2) = 82
End If : If Nu(1) = 35 Then
Nu(2) = 05
End If : If Nu(1) = 36 Then
Nu(2) = 18
End If : If Nu(1) = 37 Then
Nu(2) = 31
End If : If Nu(1) = 38 Then
Nu(2) = 44
End If : If Nu(1) = 39 Then
Nu(2) = 57
End If : If Nu(1) = 40 Then
Nu(2) = 70
End If : If Nu(1) = 41 Then
Nu(2) = 83
End If : If Nu(1) = 42 Then
Nu(2) = 06
End If : If Nu(1) = 43 Then
Nu(2) = 19
End If : If Nu(1) = 44 Then
Nu(2) = 32
End If : If Nu(1) = 45 Then
Nu(2) = 45
End If : If Nu(1) = 46 Then
Nu(2) = 58
End If : If Nu(1) = 47 Then
Nu(2) = 71
End If : If Nu(1) = 48 Then
Nu(2) = 84
End If : If Nu(1) = 49 Then
Nu(2) = 07
End If : If Nu(1) = 50 Then
Nu(2) = 20
End If : If Nu(1) = 51 Then
Nu(2) = 33
End If : If Nu(1) = 52 Then
Nu(2) = 46
End If : If Nu(1) = 53 Then
Nu(2) = 59
End If : If Nu(1) = 54 Then
Nu(2) = 72
End If : If Nu(1) = 55 Then
Nu(2) = 85
End If : If Nu(1) = 56 Then
Nu(2) = 08
End If : If Nu(1) = 57 Then
Nu(2) = 21
End If : If Nu(1) = 58 Then
Nu(2) = 34
End If : If Nu(1) = 59 Then
Nu(2) = 47
End If : If Nu(1) = 60 Then
Nu(2) = 60
End If : If Nu(1) = 61 Then
Nu(2) = 73
End If : If Nu(1) = 62 Then
Nu(2) = 86
End If : If Nu(1) = 63 Then
Nu(2) = 09
End If : If Nu(1) = 64 Then
Nu(2) = 22
End If : If Nu(1) = 65 Then
Nu(2) = 35
End If : If Nu(1) = 66 Then
Nu(2) = 48
End If : If Nu(1) = 67 Then
Nu(2) = 61
End If : If Nu(1) = 68 Then
Nu(2) = 74
End If : If Nu(1) = 69 Then
Nu(2) = 87
End If : If Nu(1) = 70 Then
Nu(2) = 10
End If : If Nu(1) = 71 Then
Nu(2) = 23
End If : If Nu(1) = 72 Then
Nu(2) = 36
End If : If Nu(1) = 73 Then
Nu(2) = 49
End If : If Nu(1) = 74 Then
Nu(2) = 62
End If : If Nu(1) = 75 Then
Nu(2) = 75
End If : If Nu(1) = 76 Then
Nu(2) = 88
End If : If Nu(1) = 77 Then
Nu(2) = 11
End If : If Nu(1) = 78 Then
Nu(2) = 24
End If : If Nu(1) = 79 Then
Nu(2) = 37
End If : If Nu(1) = 80 Then
Nu(2) = 50
End If : If Nu(1) = 81 Then
Nu(2) = 63
End If : If Nu(1) = 82 Then
Nu(2) = 76
End If : If Nu(1) = 83 Then
Nu(2) = 89
End If : If Nu(1) = 84 Then
Nu(2) = 12
End If : If Nu(1) = 85 Then
Nu(2) = 25
End If : If Nu(1) = 86 Then
Nu(2) = 38
End If : If Nu(1) = 87 Then
Nu(2) = 51
End If : If Nu(1) = 88 Then
Nu(2) = 64
End If : If Nu(1) = 89 Then
Nu(2) = 77
End If : If Nu(1) = 90 Then
Nu(2) = 90
End If
'----
R(1) = R1
R(2) = R2
R(3) = R3
'---
Num(1) = Nu(1)
Num(2) = 90 - Num(1)
Num(3) = x1
Num(4) = x2
EliminaRipetuti Num
'---
ColoreTesto 1
Scrivi "Ruota Estrazione " & SiglaRuota(1) & " --> " & StringaEstratti(Es,1)& " Ambata " & Nu(1),1
'--
ImpostaGiocata 1,Num,R,poste,18
ColoreTesto 0
Scrivi
Gioca Es,True,,1
Scrivi String(105,"-") : ColoreTesto 1
K = 0
End If
Next
ColoreTesto(0)
ScriviResoconto
ColoreTesto(1)
End Sub