Sub Main()
Dim am(1),ab(4),j(2),ruota(2),ruote(1),posta(1),poste(3)
posta(1) = 1 : poste(2) = 1 : poste(3) = 1
For es = 8500 To EstrazioneFin : Messaggio "Estrazione: [" & es & "]ª"
For r1 = 1 To 10
For p1 = 1 To 4
For p2 = p1 + 1 To 5
a = Estratto(es,r1,p1) : b = Estratto(es,r1,p2)
For r2 = r1 + 1 To 12
If r2 <> 11 Then
For p3 = 1 To 4
For p4 = p3 + 1 To 5
c = Estratto(es,r2,p3) : d = Estratto(es,r2,p4)
If(a = c And b = d) Then
cont = cont + 1
Scrivi : ColoreTesto 2 : Scrivi String(40,32) & " Pronostico n° " & cont & "",1
ColoreTesto 0 : Scrivi
Scrivi DataEstrazione(es,1) & "" & Space(2) & _
"[" & es & "]ª" & Space(3) & "" & Left(NomeRuota(r1),3) & _
"" & Space(3) & "" & StringaEstratti(es,r1) & "" & Space(6) & _
"" & Format2(a) & "" & Space(1) & "" & Format2(b) & _
"" & Space(4) & "(" & p1 & "-" & p2 & ")"
Scrivi DataEstrazione(es,1) & "" & Space(2) & _
"[" & es & "]ª" & Space(3) & "" & Left(NomeRuota(r2),3) & _
"" & Space(3) & "" & StringaEstratti(es,r2) & "" & Space(6) & _
"" & Format2(c) & "" & Space(1) & "" & Format2(d) & _
"" & Space(4) & "(" & p3 & "-" & p4 & ")" : Scrivi
a1 = Fuori90(a + c) : b1 = Fuori90(b + d)
c1 = Abs(a1 - b1) : d1 = c1\2
j(1) = a1 : j(2) = b1 : e = Fuori90(Minimo(j(1),j(2)) + d1)
x = Fuori90(a + e) : y = Fuori90(b + e) : am(1) = y
ruota(1) = r1 : ruota(2) = r2 : ruote(1) = 11
ImpostaGiocata 1,am,ruota,posta,13
ab(1) = am(1) : ab(2) = Fuori90(x + y)
ImpostaGiocata 2,ab,ruota,poste,13
ImpostaGiocata 3,ab,ruote,poste,13
Gioca es : Scrivi String(67,151)
TestoInBandaPassante "*°*°* AMBO OLTRE di ANTONIO LONGO *°*°* ",1,3,0
End If
Next
Next
End If
Next
Next
Next
Next
Next
ScriviResoconto
ColoreTesto 1
Scrivi "",1
Scrivi "",1
ColoreTesto 2 : Scrivi "",1 : End Sub