'in allegato il pdf per chi non usa Spaziometria
Sub Main
Dim ruota(2),am(3),pt(3),ruote(5),a1(2),a2(4),a3(4),a4(4),a5(2),a6(2),a,b,c,d,e,f,g,h,i,P,S,T,Q,caso
pt(1) = 1
pt(2) = 1
pt(3) = 1
clp = 9
ini = 9908
fine = EstrazioneFin
For es = ini To EstrazioneFin
' ------ INIZIO codice...