AMBI PEGASO

[nunzio65]

Sub Main()

ColoreTesto 1
Scrivi
Scrivi "3 AMBI A BA - CA - FI ALLA 1° ESTRAZIONE MENSILE",1
Scrivi
Scrivi
Scrivi " METODO E LIST BY Nunzio",1
Scrivi
ColoreTesto 0
Dim ruote(10)
Dim nn1(2): Dim nn2(2) : Dim nn3(2): Dim poste(2)
poste(2) = 1
klp = 13
ini = 10024
fin = EstrazioneFin
co = 0
For es = ini To fin
If IndiceMensile(es) = 1 Then
ruote(1) = 1
ruote(2) = 2
ruote(3) = 3
casi = casi + 1
co = co + 1
ColoreTesto 2:Scrivi String(100,"$") & " Caso n° " & casi,1
ColoreTesto 1:Scrivi DataEstrazione(es) & "--->" & IndiceMensile(es) & "° Estrazione Mensile"
ColoreTesto 0
nn1(1) = Fuori90(Estratto(es,1,1) * 61)
nn1(2) = Fuori90(Estratto(es,9,5) + 75)
ImpostaGiocata 1,nn1,ruote,poste,klp
nn2(1) = Fuori90(Estratto(es,1,1) + 9)
nn2(2) = Fuori90(Estratto(es,1,1) + 85)
ImpostaGiocata 2,nn2,ruote,poste,klp
nn3(1) = Fuori90(Estratto(es,1,1) + 17)
nn3(2) = Fuori90(Estratto(es,12,1) * 39)
ImpostaGiocata 3,nn3,ruote,poste,klp
Gioca es,1
TestoInBandaPassante "*****AMBI SECCHI WINNER - CA-FI-FI*****-By Nunzio ",1,4,2
ColoreTesto 0
End If
Call AvanzamentoElab(Ini,fin,es)
If ScriptInterrotto Then Exit For
Next
Scrivi:Scrivi:Scrivi:Scrivi:Scrivi "Casi Rilevati " & CInt(co)
Call ScriviResoconto()
End Sub