keeper
Advanced Member >PLATINUM PLUS<
cioa thauk perchè la ricerca in questo scritp siferma al 28.04.2011
Sub Main()
Dim nr(12)
For es = EstrazioniArchivioSE -100 To EstrazioniArchivioSE
If IndiceMensileSE(es) = 11 Then
a = EstrattoSE(es,1)
nr(1) = Fuori90(a + 1)
nr(2) = Fuori90(a + 7)
nr(3) = Fuori90(a + 26)
nr(4) = Fuori90(a + 38)
nr(5) = Fuori90(a + 4)
nr(6) = Fuori90(a + 33)
nr(7) = Fuori90(a + 36)
nr(8) = Fuori90(a + 52)
nr(9) = Fuori90(a + 61)
nr(10) = Fuori90(a + 2)
nr(11) = Fuori90(a + 39)
nr(12) = Fuori90(a + 34)
ImpostaGiocataSE 1,nr,1,13
GiocaSE(es)
End If
Next
Scrivi : Scrivi "Casi Rilevati " & CInt(co)
ScriviResoconto
End Sub
Sub Main()
Dim nr(12)
For es = EstrazioniArchivioSE -100 To EstrazioniArchivioSE
If IndiceMensileSE(es) = 11 Then
a = EstrattoSE(es,1)
nr(1) = Fuori90(a + 1)
nr(2) = Fuori90(a + 7)
nr(3) = Fuori90(a + 26)
nr(4) = Fuori90(a + 38)
nr(5) = Fuori90(a + 4)
nr(6) = Fuori90(a + 33)
nr(7) = Fuori90(a + 36)
nr(8) = Fuori90(a + 52)
nr(9) = Fuori90(a + 61)
nr(10) = Fuori90(a + 2)
nr(11) = Fuori90(a + 39)
nr(12) = Fuori90(a + 34)
ImpostaGiocataSE 1,nr,1,13
GiocaSE(es)
End If
Next
Scrivi : Scrivi "Casi Rilevati " & CInt(co)
ScriviResoconto
End Sub