'
' Tre terzine x ambata ambo e terno su TO - le ruotre sono espresse o a n° o a sigla per farti comprendere come farVi eventuali modifiche
Sub Main()
     Dim ruote(2)
     Dim numeri1(3) '1a trezina di numeri in gioco
     Dim numeri2(3) '2a  "
     Dim numeri3(3) '3a  "
     Dim poste(5)
     Dim posta(5)
     posta(1) = 1
     ruote(1) = 9 ' torino
     caso = 0
     ini = 9436 ' 17/02/2018
     For n = ini To EstrazioneFin
          If IndiceMensile(n) = 8 Then
               caso = caso + 1
               Scrivi "------------------------------------------------------------- caso n° " & Format2(caso)
               numeri1(1) = Fuori90(DiametraleD(Estratto(n,7,3)) + Estratto(n,10,3) + 28) ' ambata 1° gruppo
               numeri1(2) = Fuori90(3*(Estratto(n,2,2)) + Estratto(n,1,1) + 32)
               numeri1(3) = Fuori90(ComplAdX(Estratto(n,3,5)) + Estratto(n,7,5) + 9)
               ImpostaGiocata 1,numeri1,ruote,posta,9,0
               numeri2(1) = Fuori90(DiametraleD(Estratto(n,9,1)) + Estratto(n,NZ_,5) + 1) ' ambata 2° gruppo
               numeri2(2) = Fuori90(ComplAdX(Estratto(n,12,4)) + Estratto(n,NA_,2) + 8)
               numeri2(3) = Fuori90(ComplAdX(Estratto(n,4,3)) + Estratto(n,NZ_,3) + 23)
               ImpostaGiocata 2,numeri2,ruote,posta,9,0
               numeri3(1) = Fuori90(ComplAdX(Estratto(n,BA_,1)) + Estratto(n,TO_,3) + 1) ' ambata 3° gruppo
               numeri3(2) = Fuori90(ComplAdX(Estratto(n,1,3)) + Estratto(n,TO_,2) + 1)
               numeri3(3) = Fuori90(ComplAdX(Estratto(n,1,1)) + Estratto(n,GE_,4) + 1)
               ColoreTesto 1
               Scrivi DataEstrazione(n) & " numeri 1a giocata " & numeri1(1) & "." & numeri1(2) & "." & numeri1(3)
               Scrivi DataEstrazione(n) & " numeri 2a giocata " & numeri2(1) & "." & numeri2(2) & "." & numeri2(3)
               Scrivi DataEstrazione(n) & " numeri 3a giocata " & numeri3(1) & "." & numeri3(2) & "." & numeri3(3)
               ColoreTesto 0
               ImpostaGiocata 3,numeri3,ruote,posta,9,0
               Gioca n,True,,1'con ",True" vengono elencate per tutti i casi solo le estrazioni che sono positive
          End If
     Next
     ScriviResoconto
End Sub