listato di partenza

Sub main
Dim n1(3),n2(2),n3(3),n4(4),n5(5),n6(6),n7(7),pt(3),rt(2),nn(2),pta(1)

'pta(1)=1
pt(2)=1
pt(3)=1

clp=9 'colpi di gioco
rt(1)=4 '1a ruota di gioco in questo caso 4 = genova
'rt(2)=10 '2a ruota di gioco
ini=EstrazioneFin -100  '  qui' sono le estrazioni in gioco:In questo caso=100
fin=EstrazioneFin
co=0
For es=ini To fin
Messaggio (es)
If IndiceMensile (es)=1 Then '1a estrazione del mese.Per Mettere Ultima scrivere (es+1)=1
Scrivi String (60,"=")
co=co+1
'<<-- (help)Sintassi Estratto(estrazione, ruota, Posizione,[tipogioco=0])
a=Estratto(es,1,1)'<<--- questo è il 1^estr. di Bari!!!
b=Estratto(es,2,1)'<<--- questo è il 1^estr. di Cagliari !!!
c=Estratto(es,3,1)'<<---questo e' il 1^estr. di Firenze !!!

'------------------------------ TERZINA IN GIOCO
n1(1)=Fuori90 (a+1) ' qui' 1° Bari +1
n1(2)=Fuori90 (b+2) ' qui' 1° Cagliari +2
n1(3)=Fuori90 (c+3) ' qui' 1° Firenze +3






ImpostaGiocata 1,n1,rt,pt,clp
Gioca es
End If
Next
Scrivi : Scrivi "Casi Rilevati "& CInt (co)
ScriviResoconto
End Sub

============================================================
mar 01.02.2011  [8333]
 G  1:  AT      49.60.03   Ge    9/9    
    negativo
============================================================
mar 01.03.2011  [8345]
 G  1:  AT      31.08.82   Ge    9/9    
    negativo
============================================================
sab 02.04.2011  [8359]
 G  1:  AT      21.60.54   Ge    9/9    
    negativo
============================================================
mar 03.05.2011  [8372]
 G  1:  AT      65.40.72   Ge    9/9    
    negativo
============================================================