il due a zena

Sub main()




Dim n(4),n1(3),ru(3),ru1(1),ps(3),a1(2),g1(2),h1(4)

ps(2)=2
ps(3)=1
r=4
ru(1)=7
ru(2)=10
ru(3)=11
For es=EstrazioneFin-300 To EstrazioneFin
If Posizione(es,r,2)>0 Then
a=Estratto(es,4,1)
b=Estratto(es,4,5)

a1(1)=Fuori90(a+37)
a1(2)=Fuori90(a+66)
g1(1)=Fuori90(b+52)
g1(2)=Fuori90(b+66)
h1(1)=Fuori90(a+37)
h1(2)=Fuori90(a+66)
h1(3)=Fuori90(b+52)
h1(4)=Fuori90(b+66)



ImpostaGiocata 2,a1,ru,ps,13
ImpostaGiocata 3,g1,ru,ps,13
ImpostaGiocata 4,h1,ru,ps,13,2

ColoreTesto 2 : Scrivi "--------------------------------------------------------------------",1

ColoreTesto 2 : Scrivi DataEstrazione((es),1)&" " & " [" & " "& SiglaRuota(r) &" "& StringaEstratti(es,r)&" "&"] Genova sortito numero spia !!! = "&""& Format2(2) &" ",1

ColoreTesto 2 : Scrivi "--------------------------------------------------------------------",1

Gioca es
End If
Next
ScriviResoconto

End Sub

--------------------------------------------------------------------
gio 30.06.2011  [ Ge 81.02.82.86.90 ] Genova sortito numero spia !!! = 02
--------------------------------------------------------------------
gio 30.06.2011  [8397]
 G  2:  AT      28.57         Pa Ve Tu    13/13    
    A  28.57            su Ve    3° colpo   [8400/07.07.2011]
    A  28.57            su Tu (Ve)    3° colpo   [8400/07.07.2011]
    A  57.28            su Ve    4° colpo   [8401/09.07.2011]
    A  57.28            su Tu (Ve)    4° colpo   [8401/09.07.2011]

 G  3:  AT      52.66         Pa Ve Tu    13/13    
    negativo
 G  4:  AT      28.57.52.66   Pa Ve Tu    3/13    
    A  28.57            su Ve    3° colpo   [8400/07.07.2011]
    A  28.57            su Tu (Ve)    3° colpo   [8400/07.07.2011]
    I3
--------------------------------------------------------------------
mar 02.08.2011  [ Ge 54.75.02.62.21 ] Genova sortito numero spia !!! = 02
--------------------------------------------------------------------
mar 02.08.2011  [8411]
 G  2:  AT      01.30         Pa Ve Tu    13/13    
    A  01.30            su Tu (Ca)    5° colpo   [8416/13.08.2011]

 G  3:  AT      73.87         Pa Ve Tu    13/13    
    A  73.87            su Tu (Fi)    7° colpo   [8418/18.08.2011]

 G  4:  AT      01.30.73.87   Pa Ve Tu    1/13    
    A  87.01            su Ve    1° colpo   [8412/04.08.2011]
    A  87.01            su Tu (Ve)    1° colpo   [8412/04.08.2011]
    I1