METODO ROBERTO MARINI

Sub main()
'METODO ROBERTO MARINI
Dim ru(2),rur(1),ab(4),ambata(2),ambi(2),lun(6),ps(2),ps1(2),ps2(5)
ps(1)=1:ps1(2)=1:ps2(2)=1:ps2(3)=0.80:ps2(4)=0.15:ps2(5)=0.05
ee= CInt(InputBox(" Estrazioni da esaminare ",,400))
If ee="" Then Exit Sub
im=CInt(InputBox("Indice mensile ",,1))
If im="" Then Exit Sub
fin=EstrazioneFin
ini=fin-ee
rur(1)=11'tutte
r=6 'gioco sulla ruota di na
rr=9 'gioco sulla ruota di to
ru(1)=r
ru(2)=rr
For es=ini To fin
If IndiceMensile(es)=im Then
Messaggio(es)
a=Estratto(es,2,2)'2°estratto di ca
b=60
ambata(1)=Fuori90(a+b)

co=1
Scrivi String(87,"°")
ImpostaGiocata co,ambata,ru,ps,14,1

lun(1)=ambata(1)
lun(2)=3
lun(3)=5
lun(4)=20
lun(5)=65
lun(6)=79
co=co+1
ImpostaGiocata co,lun,ru,ps2,14,2

Gioca es
End If
Next
ScriviResoconto
End Sub