Sub Main
'Metodo Ambata Determinata - Su Bari - (Ultima del mese) by Xeroxs 2° 3° e 4° posizione
ColoreTesto 2 :Scrivi String(37,32) & "Ambata Determinata - Su Bari - by Xeroxs ",1
Scrivi
Dim nu(1),R(12),n(6)
Dim ini,fin,posta(1)
posta(1) = 1
ini = EstrazioneFin - 300
fin = EstrazioneFin
co = 0
For es = ini To fin
Messaggio es
Call AvanzamentoElab(ini,fin,es)
If IsUltimaDelMese(es) Then
'If IndiceMensile(es) = 1 Then
a = Estratto(es,4,2)
b = Estratto(es,9,5)
c = Estratto(es,1,1)
d = Fuori90(((a + b) - c) + 88)
'***
nu(1) = d
'***
R(1) = 1:R(2) = 6
'***
ImpostaGiocata 1,nu,R,posta,17
Gioca es,1
Scrivi String(105,"-") : ColoreTesto 1
'End If
End If
Next
ScriviResoconto
End Sub