listato metodo

Sub main
Dim n1(2),n2(2),n3(2),n4(2),n5(2),n6(2),n7(2),n8(2),n9(2),n10(2),n11(2),n12(2),n13(2),n14(2),pt(2),rt(2),nn(2),pta(1)
pt(2)=1
pta(1)=1
clp=13 'colpi di gioco
rt(1)=3 '1a ruota di gioco
'rt(2)=7 '2a ruota di gioco
ini=EstrazioneFin -300
fin=EstrazioneFin
co=0
For es=ini To fin
Messaggio (es)
If IndiceMensile (es+1)=1 Then 'Ultima estrazione del mese
Scrivi String (60,"=")
co=co+1
'<<-- (help)Sintassi Estratto(estrazione, ruota, Posizione,[tipogioco=0])
a=Estratto(es,6,2)'<<--- questo è il 2^estr. di Napoli!!!
'------------------------------Ambate
If a<>90 Then nn(1)=(90-a) : nn(2)=(Vert(nn(1))) Else nn(1)=(90) : nn(2)=(Vert(nn(1)))
'------------------------------1^ Ambo
n1(1)=nn(1)
n1(2)=14
'------------------------------2^ Ambo
n2(1)=nn(1)
n2(2)=17
'------------------------------3^ Ambo
n3(1)=nn(1)
n3(2)=20
'------------------------------4^ Ambo
n4(1)=nn(1)
n4(2)=23
'------------------------------5^ Ambo
n5(1)=nn(1)
n5(2)=45
'------------------------------6^ Ambo
n6(1)=nn(1)
n6(2)=71
'------------------------------7^ Ambo
n7(1)=nn(1)
n7(2)=87
'------------------------------8^ Ambo
n8(1)=nn(2)
n8(2)=14
'------------------------------9^ Ambo
n9(1)=nn(2)
n9(2)=17
'------------------------------10^ Ambo
n10(1)=nn(2)
n10(2)=20
'------------------------------11^ ambo
n11(1)=nn(2)
n11(2)=23
'------------------------------12^ ambo
n12(1)=nn(2)
n12(2)=45
'------------------------------13^ ambo
n13(1)=nn(2)
n13(2)=71
'------------------------------14^ ambo
n14(1)=nn(2)
n14(2)=87
Scrivi : ColoreTesto 2 : Scrivi " Metodo "" 2 Ambate a Firenze con Abbinamenti per Ambo "" ",1
Scrivi DataEstrazione (es)&" "& StringaEstratti(es,6)&" "& SiglaRuota (6),1
ImpostaGiocata 1,nn,rt,pta,clp
ImpostaGiocata 2,n1,rt,pt,clp
ImpostaGiocata 3,n2,rt,pt,clp
ImpostaGiocata 4,n3,rt,pt,clp
ImpostaGiocata 5,n4,rt,pt,clp
ImpostaGiocata 6,n5,rt,pt,clp
ImpostaGiocata 7,n6,rt,pt,clp
ImpostaGiocata 8,n7,rt,pt,clp
ImpostaGiocata 9,n8,rt,pt,clp
ImpostaGiocata 10,n9,rt,pt,clp
ImpostaGiocata 11,n10,rt,pt,clp
ImpostaGiocata 12,n11,rt,pt,clp
ImpostaGiocata 13,n12,rt,pt,clp
ImpostaGiocata 14,n13,rt,pt,clp
ImpostaGiocata 15,n14,rt,pt,clp
Gioca es
End If
Next
Scrivi : Scrivi "Casi Rilevati "& CInt (co),1
ScriviResoconto
End Sub