'Due Ambi Secchi e 1 Terzina by Donatella
 ColoreTesto 1
Scrivi"                       Due Ambi Secchi e 1 Terzina by Donatella  ",1
Scrivi
Scrivi Date &_
Chr (32) &Chr (108)& Chr (105)& Chr (115)&Chr (116)&Chr (46)& Chr (32) & Chr (98)& Chr (121)& Chr (32) & Chr (68) & Chr (106)& Chr (78) & Chr (111) & Chr ( 109) & Chr (97)& Chr ( 100) & Chr (101),1
Scrivi String (2,Chr(11)): 
 ColoreTesto 0
Sub Main()

    Dim ambata(10)
    Dim ambataV(10)
     Dim cou1(6) ,cou2(6),cou3(7),cou4(4)
    Dim abb(5)
    Dim ruota(10),ruote1(10),ruote(10)
     Dim posta(5), poste2(3)
    Dim poste(5)
    posta(1) = 1
    poste(2) = 1
    poste2(2) = 1
     poste2(3) = 1
k=13
    Dim A,B,C,D,E,F,G,H,I
    ruota(1) = GE_
    ruota(2) = 11
   ruote(1) = CA_
    ruote(2) = RO_
    ruote(3) = 11

    fin = EstrazioneFin
    ini = fin - 500
    Scrivi " Ricerca 1°del mese    "
    For es = ini To fin
        If IndiceMensile(es) = 1 Then
            A = Fuori90(Estratto(es,CA_,1)+5)
            B = Figura(A)&Figura(A)
            C = Figura(A)&9
            
Scrivi"*****************************************************************" 

            Scrivi DataEstrazione(es)&"  CAGLIARI  " & StringaEstratti(es,CA_) ,1
    
            Scrivi 


          



cou2(1) = A
cou2(2) = B
ImpostaGiocata 1,cou2,ruote,poste,k
cou2(1) = A
cou2(2) = C
EliminaRipetuti cou2
ImpostaGiocata 2,cou2,ruote,poste,k
cou3(1) = A
cou3(2) = Vert(A)
cou3(3) = Figura(a)
ImpostaGiocata 3,cou3,ruota,poste2,k

Gioca es

        End If
    Next
   ScriviResoconto
End Sub