Sub Main()
Scrivi
ColoreTesto 0:Scrivi String(30," ") & " AMBATA E AMBO SECCO SU CAGLIARI ALLA 1°ESTRAZIONE DEL MESE",1
Scrivi String(39," ") & "METODO E LISTATO BY BLACKMORE - PER GUERRY",1
Scrivi
ColoreTesto 0
Dim ruota(1): Dim ambata(1) : Dim ambosecco(2) : Dim posta(1) : Dim poste(2)
posta(1) = 2 : poste(2) = 1
xxx = CInt(InputBox("RUOTA DI GIOCO ?","BLACKMORE",2))
EstrazioniLotto = InputBox("QUANTE ESTRAZIONI VUOI CONTROLLARE ?","BLACKMORE",70)
kkk = CInt(InputBox("QUANTI COLPI ?","BLACKMORE",8))
ini = EstrazioneFin - EstrazioniLotto
fin = EstrazioneFin
co = 0
ruota(1) = xxx
For es = ini To fin
Messaggio(es)
If Indicemensile(es) = 1 Then
AvanzamentoElab ini,es,fin
casi = casi + 1
ColoreTesto 1:Scrivi String(52,"*") & " " & DataEstrazione(es) & " " & String(46,"*") & " Caso n° " & Format2(casi),1
Scrivi: ColoreTesto 0:Scrivi "AMBATA E AMBO SECCO: Sulla Ruota Di " & NomeRuota(xxx) & " Alla " & Indicemensile(es) & "°Estrazione Del Mese"
ColoreTesto 2:Scrivi String(121,"."),1
ColoreTesto 1:Scrivi "AMBATA CAPOGIOCO: 90 - 1° DI CAGLIARI + 3° DI VENEZIA + 20"
ColoreTesto 2:Scrivi String(121,"."),1
ColoreTesto 1:Scrivi "ABB. PER AMBO SECCO: DECINA DEL 3° DI MILANO + 2° DI GENOVA + 30"
ColoreTesto 2:Scrivi String(121,"."),1
ColoreTesto 2:Scrivi "SI E' APPLICATA LA REGOLA DEL FUORI90",1
ColoreTesto 1:Scrivi String(121,"."),1
ColoreTesto 0
co = co + 1
'---------------------------------------------------------------------------
ambata(1) = Fuori90(90 - (Estratto(es,CA_,1)) + Estratto(es,VE_,3) + 20)
ImpostaGiocata 1,ambata,ruota,posta,kkk,1
'---------------------------------------------------------------------------
ambosecco(1) = ambata(1)
ambosecco(2) = Fuori90(Decina(Estratto(es,MI_,3)) + Estratto(es,GE_,2) + 30)
ImpostaGiocata 2,ambosecco,ruota,poste,kkk,2
'---------------------------------------------------------------------------
Gioca es
End If
Next
Scrivi
ColoreTesto 1:Scrivi String(39,"*") & " MATEMATICA SOMMATIVA BY BLACKMORE " & String(43,"*"),1
ColoreTesto 0:Scrivi "Casi Rilevati " & CInt(co)
ColoreTesto 0:ScriviResoconto
End Sub