Scrivi ColoreTesto (1) 
Scrivi Space (11) & "Mavit per Superlotto sez. Listati e Script"
Scrivi Space (5) & "titolo: metodo per ambata e ambo secco unico una ruota"
Scrivi Chr(10) & String (66,"=") ,1
Scrivi ColoreTesto (0) & "Nota: approfondimenti: http://superlotto.blogfree.net/?t=4814885"
Scrivi Chr(10) & Space (6) & "Raccomandazione di rito: giocare moderatamente."
Scrivi ColoreTesto (1) & String (66,"="),1
Scrivi ColoreTesto (0)

Sub main()

Dim nr(10)
Dim ruote(10)
Dim posta (5)
Dim n

fin = CInt (InputBox ("ultima estrazione da verificare..."," max",EstrazioneFin))
ini = CInt (InputBox ("estrazioni pregresse..."," max",150))
k = CInt (InputBox ("colpi di gioco..."," max",10))
dom1 = InputBox ("vuoi imporre alla ricerca un indice mensile? (s/n)"," DOMANDA NR. 01","n")
If dom1 = "s" Then 
 dom2 = InputBox ("vuoi una lista sul valore 13 o 14?"," DOMANDA NR. 02","s")
 If dom2 = "s" Then 
  dom3 = CInt (InputBox ("indice mensile da ricercare"," DOMANDA NR. 03",14))
  For j = fin - ini To fin 
   If IndiceMensile (j) = dom3 Then MsgBox (DataEstrazione (j) & "  -  C o n c .   n r .   " & j) _
   ,64," L i s t a   d e l   " & dom3 & "e s i m o    i n d i c e   m e n s i l e"
  Next 
  dom4 = CInt (InputBox ("quale indice mensile ricerchi?"," DOMANDA NR. 04",1))
  If dom4 < 1 Or dom4 > 14 Then dom4 = 1
  Else 
  dom4 = CInt (InputBox ("allora, quale indice mensile ricerchi?"," DOMANDA NR. 04",1))
  If dom4 < 1 Or dom4 > 14 Then dom4 = 1
  End If
Else 
 dom4 = CInt (InputBox ("allora, quale indice mensile ricerchi?"," 0 = TUTTI GLI INDICI MENSILI",1))
 If dom4 > 14 Then dom4 = 1
End If

posta(1) = 1
posta(2) = 1
ruote(1) = 1

If dom4 = 0 Then 
 For n = fin - ini + 1 To fin
 nr(1) = CInt (Fuori90 (Estratto (n,CA_,3) + Estratto (n,NZ_,1) + 4))
 nr(2) = CInt (Fuori90 (Estratto (n,NA_,4) + Estratto (n,NZ_,2) + 19))
 ImpostaGiocata 1,nr,ruote,posta,k
 Gioca n
 Next 
Else 
 For n = fin - ini + 1 To fin
  If IndiceMensile (n) = dom4 Then 
  nr(1) = CInt (Fuori90 (Estratto (n,CA_,3) + Estratto (n,NZ_,1) + 4))
  nr(2) = CInt (Fuori90 (Estratto (n,NA_,4) + Estratto (n,NZ_,2) + 19))
  ImpostaGiocata 1,nr,ruote,posta,k
  Gioca n
  End If 
 Next 
End If

ScriviResoconto 
Scrivi "  B U O N A   F O R T U N A !",1
End Sub