Sub main()
Scrivi
Scrivi "Metodo OCCHIDIGIAGA : milano roma vanno a braccetto con il 90",1
Scrivi "Elaborato da bentley",1
Scrivi
Dim ruota(2),ruote(10)
Dim nu(3),abb(2),abb1(2),abb2(2),abb3(4)
Dim posta(10),poste(10)
posta(1)=1
poste(2)=1
tmp=CInt (InputBox ("Quante Estrazioni controllo ?","Controllo Estrazioni - by Bentley",100))
fin=EstrazioneFin
ini=fin-tmp
For es=ini To fin
If IndiceMensile(es)=1 Then
Messaggio (es)
k=13
a=Estratto(es,10,1)
b=Estratto(es,10,5)
s1=Fuori90 (a+b)
c=Vert (s1)
d=Fuori90 (s1+1)
ruota(1)=5 : ruota(2)=8
ruote(1)=5 : ruote(2)=8 : ruote(3)=11
ColoreTesto 2
Scrivi : Scrivi String (80,"*"),1
Scrivi DataEstrazione (es),1
ColoreTesto 1 : Scrivi  
nu(1)=s1
nu(2)=c
nu(3)=d
ImpostaGiocata 1,nu,ruota,posta,k,1
abb(1)=s1 : abb(2)=90
ImpostaGiocata 2,abb,ruote,poste,k
abb1(1)=c : abb1(2)=90
ImpostaGiocata 3,abb1,ruote,poste,k
abb2(1)=d : abb2(2)=90
ImpostaGiocata 4,abb2,ruote,poste,k
abb3(1)=s1 : abb3(2)=c : abb3(3)=d : abb3(4)=90
ImpostaGiocata 5,abb3,ruote,poste,k
Gioca es
End If
Next
Scrivi 
ScriviResoconto 
Scrivi
ColoreTesto 2
Scrivi "Metodo: milano roma vanno a braccetto con il 90 - OCCHIDIGIADA - ..by bentley",1
End Sub 

Saluti
bentley