Scrivi " SE ESCE SPIA 23 su Bari",1
Scrivi String(70,"-"),1
Sub Main()
   Dim poste(5),ruota(12),n(2),n1(8),posta(1)
   Dim am(10),amb(10),cinq(10),abb(8)
   posta(1) = 1
   poste(2) = 0.50
   poste(3) = 0.50
   co = 0
   k = 6 '.......................COLPI DI GIOCO
   ini = EstrazioneFin - 1280
   fin = EstrazioneFin
   co = 0
   For es = ini To fin
      Messaggio es
      ruota(1) = 1 '..............RUOTA DI RICERCA
      For p = 1 To 5 '..........POSIZIONE ESTRATTO SPIA
         a = Estratto(es,1,p)
         If a = 23 Then '.......NUMERO SPIA
            co = co + 1
            '---
            abb(1) = Fuori90(23 *(Estratto(es,9,1)))
            abb(2) = Fuori90((Estratto(es,2,4)) *(Estratto(es,12,2)))
            abb(3) = Fuori90((Estratto(es,8,1)) -(Estratto(es,4,5)))
            abb(4) = 30
            abb(5) = 86
            abb(6) = (Estratto(es,5,3))
            '---
            conto = conto + 1
            Scrivi : ColoreTesto 1:Scrivi String(100,"=")
            ColoreTesto 0 : Scrivi
            Scrivi DataEstrazione(es,1) & " < " & NomeRuota(r) & " " & StringaEstratti(es,r),1
            '---
            n(1) = abb(1)
            '---
            n1(1) = abb(1)
            n1(2) = abb(2)
            n1(3) = abb(3)
            n1(4) = abb(4)
            n1(5) = abb(5)
            '---
            ruota(1) = 1
            ruota(2) = 2
            '---
            ImpostaGiocata 1,n,ruota,posta,k
            ImpostaGiocata 2,n1,ruota,poste,k
            Gioca es,1
         End If
      Next
   Next
   ScriviResoconto
End Sub