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,l,P,S,T,Q
pt(1) = 1
pt(2) = 1
pt(3) = 1
clp = 9
ini = 9908 'InputBox("Da quale estrazione vuoi iniziare?:","Script by Mauro",EstrazioneFin - 105)
'pr = CInt(InputBox("Quante estrazioni vuoi...