Sub Main()
Dim nSpia,rSpia,nAmb,nAb1,nAb2,nAb3
Dim nColpi,Ini,Fin,es,p,id
Dim aPoste(5),aRuote(2),aAmb(1),aQuart(4)
' --- INPUT ---
Ini = CInt(InputBox("Da quale estrazione iniziare?", ,9500))
nColpi = CInt(InputBox("Quanti colpi?", ,13))
' --- SETTAGGI ---
nSpia = 16
rSpia = 6 ' Napoli
aRuote(1) = 1 ' Bari
aRuote(2) = 6 ' Napoli
' Poste: 1=Ambata, 2=Ambo, 3=Terno, 4=Quaterna
aPoste(1) = 1
aPoste(2) = 1
aPoste(3) = 0.5
aPoste(4) = 0.2
Fin = EstrazioneFin
Scrivi "METODO SPIA 16 NAPOLI - VERSIONE 2026",True,True,2,5,3
Scrivi "FERMO TOTALE AL PRIMO ESITO (ESTRATTO O SUPERIORE)",True
Scrivi String(80,"-")
For es = Ini To Fin
If Posizione(es,rSpia,nSpia) > 0 Then
' --- CALCOLO NUMERI ---
nAmb = 9
n3Bari = Estratto(es,1,3)
If n3Bari < 10 Then
nAb1 = 20
Else
nAb1 = Decina(n3Bari)
End If
nAb2 = Fuori90(Estratto(es,3,2) + 50)
p = Posizione(es,rSpia,nSpia)
nAb3 = Fuori90(Estratto(es,9,p) + 62)
' --- ARRAY GIOCATA ---
aQuart(1) = nAmb
aQuart(2) = nAb1
aQuart(3) = nAb2
aQuart(4) = nAb3
' Controllo duplicati (+11)
Dim x,y
For x = 1 To 3
For y = x + 1 To 4
If aQuart(x) = aQuart
Then aQuart
= Fuori90(aQuart
+ 11)
Next
Next
aAmb(1) = aQuart(1)
id = id + 1
Scrivi "Caso " & id & " del " & DataEstrazione(es) & " numeri: " & StringaNumeri(aQuart)
' --- IMPOSTAZIONE GIOCATA ---
' Usiamo il 6° parametro di ImpostaGiocata per forzare lo stop
' Parametro 6 impostato a 1 significa: "Fermati non appena esce l'estratto"
ImpostaGiocata 1,aAmb,aRuote,aPoste,nColpi,1
ImpostaGiocata 2,aQuart,aRuote,aPoste,nColpi,1
' --- LOGICA DI USCITA ---
' Questa funzione è la più compatibile per legare le giocate
' e forzare il calcolo della redditività reale
ImpostaInterruzioni 1,1,True
ImpostaInterruzioni 2,1,True
' Esegui
Gioca es,True
End If
Next
ScriviResoconto
End Sub
di conseguenza terrei il 20 come da calcolo previsione (9+11) ed il 90 essendo il vertibile.
a te e famiglia 
