Option Explicit
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
    '***************************************************************************
 
    '*** NB : SE E' PRESENTE OPTION EXPLICIT (come prima linea dello script) ***
 
    'DEVONO ESSERE  DICHIARATE con DIM  *TUTTE* LE VARIABILI UTILIZZATE:
    'LE VARIABILI contenute nelle due linee qui sotto non erano DICHIARATE ESPLICITAMENTE.
  
    Dim Clp,Ini,Fin,Es,Co,P,A,Ok,Ob,o,b,c,d,e,f
    Dim Primodibari,Quartodibari,Secondodinapoli,Primodinazionale,Primodiroma
 ''**************************************************************************
    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