CODICE
Sub Main
Dim ruote(2)
Dim posta(1)
Dim poste(2)
Dim n(4)
ruote(1)=1
ruote(2)=10
posta(1)=5
poste(2)=1
Ini=8300
fin=EstrazioneFin
co=0
For es=Ini To fin
AvanzamentoElab Ini,fin,es
a1=Estratto(es,1,1)
a2=Estratto(es,1,2)
a3=Estratto(es,1,3)
a4=Estratto(es,1,4)
a5=Estratto(es,1,5)
b1=Estratto(es,10,1)
b2=Estratto(es,10,2)
b3=Estratto(es,10,3)
b4=Estratto(es,10,4)
b5=Estratto(es,10,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
