Sub Main()
	Scrivi" metodo + prev  di blady ",1' - 
http://forum.lottoced.com/f8/metodo-prev-106363/ -
	Dim n(2),posta(2),ruota(2),m(4),poste(3)
	posta(2) = 1
        poste(3) = 1
	ruota(1) = BA_
	ruota(2) = CA_
	k = 10
	Ini = EstrazioneIni + 8579
	fin = EstrazioneFin
	For es = Ini To Fin
		Messaggio es
		AvanzamentoElab Ini,fin,es
		If IndiceMensile(es) = 1 Then
			co = co + 1
			Scrivi String(106,"=") & " Caso n°" & CInt(co),1
			n(1) = Fuori90(Estratto(es,FI_,1) * 68)
			n(2) = Fuori90(Estratto(es,NZ_,4) + 86)
			ImpostaGiocata 1,n,ruota,posta,k,2
			n(1) = Fuori90(Estratto(es,FI_,1) + 03)
			n(2) = Fuori90(Estratto(es,GE_,4) + 78)
			ImpostaGiocata 2,n,ruota,posta,k,2
			m(1) = Fuori90(Estratto(es,FI_,1) * 68)
			m(2) = Fuori90(Estratto(es,NZ_,4) + 86)
                        m(3) = Fuori90(Estratto(es,FI_,1) + 03)
			m(4) = Fuori90(Estratto(es,GE_,4) + 78)
			ImpostaGiocata 3,m,ruota,poste,k,2
			Gioca es,True,,1
		End If
	Next
	ScriviResoconto
End Sub