2 Ambate su 2 Ruote con Abbinamenti per Ambo

Estrazione di Calcolo: PRIMA ESTRAZIONE DEL MESE

Calcolo 1a Ambata = 4° Cagliari + fisso 9

Calcolo 2a Ambata = 5° Bari + fisso 8

Abbinamenti per ambo Frequenti = 1 - 2 - 3

Ruote di gioco = Napoli-Palermo

Colpi di Gioco = 9 colpi

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

pt(2)=1
pta(1)=1


clp=9 'colpi di gioco
rt(1)=6 '1a ruota di gioco
rt(2)=7 '2a ruota di gioco
ini=EstrazioneFin -100
fin=EstrazioneFin
co=0
For es=ini To fin
Messaggio (es)
If IndiceMensile (es)=1 Then '1a estrazione del mese
Scrivi String (60,"=")
co=co+1
'<<-- (help)Sintassi Estratto(estrazione, ruota, Posizione,[tipogioco=0])
a=Estratto(es,2,4)'<<--- questo è il 4^estr. di Cagliari!!!
b=Estratto(es,1,5)'<<--- questo è il 5^estr. di Bari !!!
'------------------------------Ambate
nn(1)=Fuori90 (a+9)
nn(2)=Fuori90 (b+8)
'------------------------------1^ Ambo
n1(1)=Fuori90 (a+9)
n1(2)=1
'------------------------------2^ Ambo
n2(1)=Fuori90 (a+9)
n2(2)=2
'------------------------------3^ Ambo
n3(1)=Fuori90 (a+9)
n3(2)=3
'------------------------------4^ Ambo
n4(1)=Fuori90 (b+8)
n4(2)=1
'------------------------------5^ Ambo
n5(1)=Fuori90 (b+8)
n5(2)=2
'------------------------------6^ Ambo
n6(1)=Fuori90 (b+8)
n6(2)=3


ImpostaGiocata 1,nn,rt,pta,clp,1
ImpostaGiocata 2,n1,rt,pt,clp,2
ImpostaGiocata 3,n2,rt,pt,clp,2
ImpostaGiocata 4,n3,rt,pt,clp,2
ImpostaGiocata 5,n4,rt,pt,clp,3
ImpostaGiocata 6,n5,rt,pt,clp,3
ImpostaGiocata 7,n6,rt,pt,clp,2

Scrivi : ColoreTesto 2 : Scrivi " Metodo "" 2 Ambate su 2 ruote con Abbinamenti per Ambo "" ",1
Gioca es
End If
Next
Scrivi : Scrivi "Casi Rilevati "& CInt (co)
ScriviResoconto
End Sub