ColoreTesto 1
Scrivi String(37,32) & " 14° del mese ROMA by Salvo Badessa ",1
Scrivi
ColoreTesto 0
Sub main()
Dim ruota(10),ruote(10),amb(4)
Dim numeri1(10),numeri3(10),numeri2(10),numeri5(10)
Dim postee(5),poste(5),posta(5)
postee(3)=1
postee(2)=1
posta(1)=1
poste(2)=1
cp=13'InputBox("Per quanti colpi vuoi giocare?",,7)
ruota(1)=8
ruote(1)=8
ruote(2)=11
ini=10376
fin=EstrazioneFin
For n=ini To fin
If Indicemensile(n)=14 Then
Messaggio DataEstrazione (n)
amb(1)=Abs(Estratto(n,4,1)-Estratto(n,7,4))
amb(2)=52
Rem se uno o più numeri si ripetono si fa il + 1 (Formula By Thauk)
rip = 0
If NumeriRipetuti(amb) Then
rip = 1
While NumeriRipetuti(amb)
For x = 1 To 1
For y = x + 1 To 2
If amb(X) = amb(y) Then amb(y) = Fuori90(amb(y) + 1)
Next
Next
Wend
End If
Rem fine formula
ColoreTesto 2 :Scrivi "-- 14° estrazione del mese---------------------------",1
co=0
numeri1(1)=amb(1)
co=co+1
ImpostaGiocata co,numeri1,ruota,posta,eval(cp)
numeri2(1)=amb(1)
numeri2(2)=amb(2)
co=co+1
ImpostaGiocata co,numeri2,ruote,poste,eval(cp)
Gioca n
End If
Next
Scrivi
ScriviResoconto
ColoreTesto 2
End Sub