Sub Main()
ColoreTesto 2
Scrivi " ************** METODO DI ???? (TROVATO IN RETE) ****************",1
Scrivi
Scrivi " ***** 5 AMBI SU BARI E VENEZIA ALLA 13° ESTRAZIONE DEL MESE ****",1
Scrivi
Scrivi " ******************* LISTATO BY BLACKMORE ***********************",1
Scrivi
ColoreTesto 0
Dim rt(2),n1(2),n2(2),n3(2),n4(2),n5(2),pt(2)
pt(2) = 1
k = 10 ' COLPI DI GIOCO
rt(1) = 1 ' 1° RUOTA DI GIOCO
rt(2) = 10 ' 2° RUOTA DI GIOCO
ini = EstrazioneFin - 400
fin = EstrazioneFin
co = 0
For es = ini To fin
Messaggio(es)
If IndiceMensile(es) = 13 Then ' 13° ESTRAZIONE DEL MESE
casi = casi + 1
Scrivi String(63,"=") & " Caso n° " & casi,1
ColoreTesto 1
co = co + 1
Scrivi "13°ESTRAZIONE DEL MESE: SU BARI & VENEZIA PER 10 COLPI",1
Scrivi "1° Ambo = 1° Estratto di BA + 23 + 30",1
Scrivi "2° Ambo = 1° Estratto di BA + 67 + 77",1
Scrivi "3° Ambo = 1° Estratto di BA + 63 + 85",1
Scrivi "4° Ambo = 1° Estratto di BA + 61 + 72",1
Scrivi "5° Ambo = 1° Estratto di BA + 12 + 24",1
ColoreTesto 0
Scrivi String(63,"=")
'----------------------------------------------------- Ambo 1
n1(1) = Fuori90(Estratto(es,1,1) + 23)
n1(2) = Fuori90(Estratto(es,1,1) + 30)
'----------------------------------------------------- Ambo 2
n2(1) = Fuori90(Estratto(es,1,1) + 67)
n2(2) = Fuori90(Estratto(es,1,1) + 77)
'----------------------------------------------------- Ambo 3
n3(1) = Fuori90(Estratto(es,1,1) + 63)
n3(2) = Fuori90(Estratto(es,1,1) + 85)
'----------------------------------------------------- Ambo 4
n4(1) = Fuori90(Estratto(es,1,1) + 61)
n4(2) = Fuori90(Estratto(es,1,1) + 72)
'------------------------------------------------------Ambo 5
n5(1) = Fuori90(Estratto(es,1,1) + 12)
n5(2) = Fuori90(Estratto(es,1,1) + 24)
ImpostaGiocata 1,n1,rt,pt,k,2
ImpostaGiocata 2,n2,rt,pt,k,2
ImpostaGiocata 3,n3,rt,pt,k,2
ImpostaGiocata 4,n4,rt,pt,k,2
ImpostaGiocata 5,n5,rt,pt,k,2
Gioca es
End If
Next
Scrivi
Scrivi "Casi Rilevati " & CInt(co)
ScriviResoconto
End Sub