ambata lampo di manara

Sub main()
Dim am(10)
Dim ruote(10)
Dim posta(5)
posta(1)=1


fin=EstrazioneFin
ini=8200
For es=ini To fin
For r=1 To 10
For p=1 To 5
For p1=3 To 3
a=Estratto(es,r,p)
If a=<10 Then
b=Estratto(es-2,r,p1)
Scrivi "----------------------------------------------------"
Scrivi DataEstrazione(es)&" "&Left(NomeRuota(r),10)&" "&Cint(a)
Scrivi DataEstrazione(es-2)&" "&Left(NomeRuota(r),10)&" "&Cint(b)
ruote(1)=r

c=Fuori90(a+b)
d=Vert(c)

am(1)=c
am(2)=d

ImpostaGiocata 1,am,ruote,posta,14


Gioca es

End If
Next
Next
Next
Next
ScriviResoconto
End Sub