terzina a tutte

Sub main()
Dim nu1(10),nu2(10)
Dim ruote(10),ruota(10)
Dim posta(5),poste(5)
poste(1)=1:posta(2)=2
fin=EstrazioneFin
ini=fin-500
For es=ini To fin
If Indicemensile(es)=1 Then
AvanzamentoElab ini,fin,es
r1=6

n1=Estratto(es,r1,3)
casi=casi+1:Scrivi String(75,"="),1
Scrivi DataEstrazione(es,1)&" < "&siglaRuota(r1)& " "& StringaEstratti(es,r1)&_
" > num < "&Format2(n1)&" Posizione 3^."

Scrivi String(65,"-")&" caso n° "&(casi)

ruota(1)=11
k=14:co=0
n2=Abs(n1-10):n3=Vert(n2)
If Cadenza(n1)=9 Then :nu1(1)=n3 Else nu1(1)=Vert(n1)
nu1(2)=Figura(Fuori90(n1+1))
nu1(3)=Figura(Fuori90(n1-1))

co=co+1
ImpostaGiocata co,nu1,ruota,posta,k
Gioca es
End If
Next


ScriviResoconto
End Sub