ho operato una aggiunta alquanto folle... però pare che funziona....
Sub main()
Dim ruote(10)
Dim a(10)
Dim b(10)
Dim poste(5)
Dim posta(5)
poste(1)=1
poste(2)=1
posta(1)=1
posta(2)=1
ruote(1)=1
ruote(2)=2
For n=7405 To EstrazioneFin
If IndiceMensile

=8 Then
a(1)=(Fuori90(Estratto(n,1,1)+Fuori90(Estratto(n,1 ,2))-(Fuori90(Estratto(n,2,1)+Fuori90(Estratto(n,2,2))) )))
a(2)=(Fuori90(Estratto(n,1,1)+Fuori90(Estratto(n,1 ,2))+(Fuori90(Estratto(n,2,1)+Fuori90(Estratto(n,2 ,2))))))
b(1)=((Fuori90(Estratto(n,1,1)+Fuori90(Estratto(n, 1 ,2))/(Fuori90(Estratto(n,2,1)+Fuori90(Estratto(n,2,2))) ))))
b(2)=((Fuori90(Estratto(n,1,1)+Fuori90(Estratto(n, 1 ,2))*(Fuori90(Estratto(n,2,1)+Fuori90(Estratto(n,2 ,2)))))))
ImpostaGiocata 1,a,ruote,poste,5
ImpostaGiocata 2,b,ruote,posta,5
Gioca n
ColoreTesto 2: SCRIVI"-----------------------------------------------------------------------------------<<<elmiki/coconut>>>",1
End If
Next
ColoreTesto 7:
ScriviResoconto
ColoreTesto 2: SCRIVI"elmiki/coconut--------------------------------------------------------------------------- elmiki/coconut",1
End Sub