Sub Main()
Scrivi
Scrivi String(33," ")&"AMBI ISOTOPI SOMMA 90 SU 2 RUOTE CONSECUTIVE BY BLACKMORE",1:scrivi
Scrivi
Dim am(2)
Dim am1(5)
Dim posta(1)
Dim poste(2)
Dim ruote(10)
Dim ruot(1)
posta(1)=1
poste(2)=1

somma = CInt(InputBox("INSERISCI LA SOMMA...",,90))
k = InputBox("COLPI DI GIOCO ?",,12)
ini = InputBox("INIZIO ?",,9000)
fin = EstrazioneFin
For es = ini To fin
AvanzamentoElab ini,fin,es
For r1 = 1 To 9
r2 = r1+1
For p1 = 1 To 4
For p2 = p1+1 To 5

n1 = Estratto(es,r1,p1)
n2 = Estratto(es,r1,p2)
n3 = Estratto(es,r2,p1)
n4 = Estratto(es,r2,p2)
'---------------------------------------------------------------------------------------------------------------
If Fuori90(n1+n2) = somma And Fuori90(n3+n4) = somma Then
j = Distanza(n1,n2) : y = Distanza(n3,n4) : h = Distanza(j,y)
ruote(1)=r1 : ruote(2)=r2
'---------------------------------------------------------------------------------------------------------------
co=co+1
ColoreTesto 0:Scrivi String(80,"=")&" Caso n°"& Format2(co),1
ColoreTesto 1:Scrivi DataEstrazione(es) & " . " & SiglaRuota(r1) & " . " & StringaEstratti(es,r1) & _
" . ambo . " & Format2(n1) & "." & Format2(n2)& " = Somma " & Format2(somma)
ColoreTesto 1:Scrivi DataEstrazione(es) & " . " & SiglaRuota(r2) & " . " & StringaEstratti(es,r2) & _
" . ambo . " & Format2(n3) & "." & Format2(n4)& " = Somma " & Format2(somma)


Gioca es
End If
Next:Next
Next:next
ScriviResoconto
End Sub