CODICE
Sub Main
Dim ruote(2)
Dim posta(1)
Dim poste(2)
Dim n(4)
ruote(1) = 3
ruote(2) = 8
posta(1) = 5
poste(2) = 1
Ini = 8300
fin = EstrazioneFin
co = 0
For es = Ini To fin
AvanzamentoElab Ini,fin,es
a1 = Estratto(es,3,1)
a2 = Estratto(es,3,2)
a3 = Estratto(es,3,3)
a4 = Estratto(es,3,4)
a5 = Estratto(es,3,5)
b1 = Estratto(es,8,1)
b2 = Estratto(es,8,2)
b3 = Estratto(es,8,3)
b4 = Estratto(es,8,4)
b5 = Estratto(es,8,5)
a = Fuori90(a2 + b3 + a4)
b = Fuori90(b2 + a3 + b4)
c = Fuori90(a + b)
d = Distanza(a,b)
e = Vert(c)
f = Vert(d)
co = co + 1
n(1) = c
n(2) = d
n(3) = e
n(4) = f
ImpostaGiocata 1,n,ruote,posta,12,1
ImpostaGiocata 2,n,ruote,poste,12,2
Gioca es
Next
Scrivi
Scrivi String(65,"*")
ColoreTesto 2
Scrivi" casi trovati : " & co,1
ColoreTesto 0
Scrivi String(65," * ")
TestoInBandaPassante "*°*°* Listato by Pink_Panther *°*°* ",1,3,0
ScriviResoconto
End Sub
