Sub main()
Dim ruote(2)
Dim numeri(2)
Dim posta(1)
posta(1)=1
ColoreTesto 2
Scrivi " AMBATA AL 90%"
Scrivi
Scrivi "PREDICTOR - RAMCOLOTTO"
Scrivi
ColoreTesto 0
es=InputBox("Quante estrazioni vuoi analizzare?","AMBATA 90% BY PREDICTOR - RAMCOLOTTO",2000)
im=InputBox("Pronostico dall'estrazione mensile numero? (0=ultima estrazione)","AMBATA 90% BY PREDICTOR - RAMCOLOTTO",1)
cp=InputBox("Per quanti colpi vuoi giocare?","AMBATA 90% BY PREDICTOR - RAMCOLOTTO",12)
r=ScegliRuota
ruote(1)=r
ruote(2)=r+1
ini=EstrazioneFin-eval(es)
fin=EstrazioneFin
For n=ini To fin
If(((eval(im)=0)And(n=fin))Or((IndiceMensile

=eval(im)And(eval(im)>0))Or((IndiceMensile(n+1)=1)And(eval(im)=0))))Then
Messaggio DataEstrazione

c=Fuori90(Estratto(n,r,1)+Estratto(n,r+1,5))
a=(91-c)
b=Fuori90(45+c)
numeri(1)=a
numeri(2)=b
ImpostaGiocata 1,numeri,ruote,posta,eval(cp),1
Gioca n
End If
Next
Scrivi
ColoreTesto 2
Scrivi "PREDICTOR - RAMCOLOTTO"
ColoreTesto 0
ScriviResoconto
ColoreTesto 2
Scrivi "PREDICTOR - RAMCOLOTTO"
ColoreTesto 0
End Sub
ciao, max