Sub Main()
ColoreTesto 1
Scrivi "================ M E T O D O B Y V I V O =========",1
ColoreTesto 0
Scrivi "============= 1 AMBATA E 2 AMBI SU FIRENZE DOPO SPIA 11 ==============",1
ColoreTesto 1
Scrivi "========================F I R E N Z E =========================",1
ColoreTesto 1
Scrivi "============ LISTATO BY B A F F O B L U ============",1
ColoreTesto 0
Scrivi "===========================================================",1
Scrivi
ColoreTesto 0
Dim ruote(1)
Dim posta(1)
Dim poste(2)
Dim n(1)
Dim am(3)
posta(1) = 10
poste(2) = 5
clp = 9
ini = EstrazioneFin - 150
fin = EstrazioneFin
co = 0
For es = ini To fin
Messaggio es
ruote(1) = 3
For p = 1 To 5
a = Estratto(es,3,p)
ok = 0
If a = 11 Then
primodibari = Estratto(es,1,1)
quartodibari = Estratto(es,1,4)
secondodinapoli = Estratto(es,6,2)
primodinazionale = Estratto(es,12,1)
primodiroma = Estratto(es,8,1)
o = primodibari + secondodinapoli
b = Fuori90(o * primodinazionale)
c = primodibari * primodiroma
d = Fuori90(c + primodiroma)
e = quartodibari * 60
f = Fuori90(e + 77)
n(1) = b
am(1) = b
am(2) = d
am(3) = f
ok = 1
End If
If ok = 1 Then
co = co + 1
Scrivi String(70,"°") & " Caso n°" & co,1
Scrivi String(70,"°"),1
ruote(1) = 3
ImpostaGiocata 1,n,ruote,posta,clp,1
n(1) = b
ImpostaGiocata 2,am,ruote,poste,clp,2
am(1) = b
am(2) = d
am(3) = f
Gioca es
End If
Next
Next
ScriviResoconto
End Sub
