1 Ambata su 2 Ruote con Abbinamenti per Ambo

Estrazione di Calcolo: PRIMA ESTRAZIONE DEL MESE

Calcolo Ambata = 1° Bari + 1° Torino + fisso 5

Abbinamenti per ambo Frequenti = 27 - 28 - 29 - 30 -31

Ruote di gioco = Bari-Cagliari

Colpi di Gioco = 9 colpi

Sub main
Dim n1(2),n2(2),n3(3),n4(4),n5(5),n6(6),pt(2),rt(2),nn(1),pta(1)
pt(2)=1
pta(1)=1
clp=9 'colpi di gioco
rt(1)=1 '1a ruota di gioco
rt(2)=2 '2a ruota di gioco
ini=EstrazioneFin -150 'qui' mettere quante estrazioni controllare
fin=EstrazioneFin
co=0
For es=ini To fin
Messaggio (es)
If IndiceMensile (es)=10 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!!!
a=Estratto(es,1,2)'<<--- questo è il 2^estr. di Bari !!!
b=Estratto(es,9,1)
'------------------------------Ambata
nn(1)=Fuori90 (a+b+5)

'------------------------------1^ Ambo
n1(1)=Fuori90 (a+b+5)
n1(2)=27
'------------------------------2^ Ambo
n2(1)=Fuori90 (a+b+5)
n2(2)=28
'------------------------------3^ Ambo
n3(1)=Fuori90 (a+b+5)
n3(2)=29
'------------------------------4^ Ambo
n4(1)=Fuori90 (a+b+5)
n4(2)=30
'------------------------------5^ Ambo
n5(1)=Fuori90 (a+b+5)
n5(2)=31


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

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