Sub M[B][COLOR=#800080]ain[/COLOR][/B]
[COLOR=#008000]'Script del 5/8/2015 [/COLOR]
[B][COLOR=#0000c0]Dim[/COLOR][/B] [B][COLOR=#ff00ff]Es[/COLOR][/B],[B][COLOR=#ff00ff]K[/COLOR][/B],[B][COLOR=#ff00ff]Nu[/COLOR][/B](4),[B][COLOR=#ff00ff]Ru[/COLOR][/B](1),[B][COLOR=#ff00ff]Po[/COLOR][/B](2),[B][COLOR=#ff00ff]Co[/COLOR][/B]
[B][COLOR=#ff00ff]Ru[/COLOR][/B](1) [B][COLOR=#ff0000]=[/COLOR][/B] [B][COLOR=#800080]BA_[/COLOR][/B] : [B][COLOR=#ff00ff]Po[/COLOR][/B](2) [B][COLOR=#ff0000]=[/COLOR][/B] 1 : [B][COLOR=#ff00ff]Co[/COLOR][/B] [B][COLOR=#ff0000]=[/COLOR][/B] 4
[B][COLOR=#0000c0]For[/COLOR][/B] [B][COLOR=#ff00ff]Es[/COLOR][/B] [B][COLOR=#ff0000]=[/COLOR][/B] [B][COLOR=#800080]EstrazioneFin[/COLOR][/B] [B][COLOR=#ff0000]-[/COLOR][/B] 155 [B][COLOR=#0000c0]To[/COLOR][/B] [B][COLOR=#800080]EstrazioneFin[/COLOR][/B]
[B][COLOR=#ff00ff]Nu[/COLOR][/B](1) [B][COLOR=#ff0000]=[/COLOR][/B] [B][COLOR=#800080]Fuori90[/COLOR][/B](([B][COLOR=#800080]Estratto[/COLOR][/B]([B][COLOR=#ff00ff]Es[/COLOR][/B],[B][COLOR=#800080]TO_[/COLOR][/B],1)[B][COLOR=#ff0000]+1[/COLOR][/B]4)[B][COLOR=#ff0000]*[/COLOR][/B]35)
[B][COLOR=#ff00ff]Nu[/COLOR][/B](2) [B][COLOR=#ff0000]=[/COLOR][/B] [B][COLOR=#800080]Fuori90[/COLOR][/B](([B][COLOR=#800080]Estratto[/COLOR][/B]([B][COLOR=#ff00ff]Es[/COLOR][/B],[B][COLOR=#800080]TO_[/COLOR][/B],3)[B][COLOR=#ff0000]+[/COLOR][/B]7)[B][COLOR=#ff0000]*[/COLOR][/B]11)
[B][COLOR=#ff00ff]Nu[/COLOR][/B](3) [B][COLOR=#ff0000]=[/COLOR][/B] [B][COLOR=#800080]Fuori90[/COLOR][/B](([B][COLOR=#800080]Estratto[/COLOR][/B]([B][COLOR=#ff00ff]Es[/COLOR][/B],[B][COLOR=#800080]VE_[/COLOR][/B],3)[B][COLOR=#ff0000]+[/COLOR][/B]36)[B][COLOR=#ff0000]*[/COLOR][/B]37)
[B][COLOR=#ff00ff]Nu[/COLOR][/B](4) [B][COLOR=#ff0000]=[/COLOR][/B] [B][COLOR=#800080]Fuori90[/COLOR][/B](([B][COLOR=#800080]Estratto[/COLOR][/B]([B][COLOR=#ff00ff]Es[/COLOR][/B],[B][COLOR=#800080]VE_[/COLOR][/B],3)[B][COLOR=#ff0000]+[/COLOR][/B]4)[B][COLOR=#ff0000]*[/COLOR][/B]75)
[B][COLOR=#ff00ff]K[/COLOR][/B] [B][COLOR=#ff0000]=[/COLOR][/B] [B][COLOR=#ff00ff]K[/COLOR][/B] [B][COLOR=#ff0000]+[/COLOR][/B] 1 : [B][COLOR=#800080]Scrivi[/COLOR][/B] [B][COLOR=#0000c0]String[/COLOR][/B](100,"[COLOR=#ff8000]=[/COLOR]") [B][COLOR=#ff0000]&[/COLOR][/B] [B][COLOR=#800080]FormatSpace[/COLOR][/B]([B][COLOR=#ff00ff]K[/COLOR][/B],6,[B][COLOR=#ff00ff]True[/COLOR][/B]),[B][COLOR=#ff00ff]True[/COLOR][/B]
[B][COLOR=#800080]ImpostaGiocata[/COLOR][/B] 1,[B][COLOR=#ff00ff]Nu[/COLOR][/B],[B][COLOR=#ff00ff]Ru[/COLOR][/B],[B][COLOR=#ff00ff]Po[/COLOR][/B],[B][COLOR=#ff00ff]Co[/COLOR][/B],2
[B][COLOR=#800080]Gioca[/COLOR][/B] [B][COLOR=#ff00ff]Es[/COLOR][/B],[B][COLOR=#ff00ff]True[/COLOR][/B]
[B][COLOR=#0000c0]Next[/COLOR][/B]
[B][COLOR=#800080]ScriviResoconto[/COLOR][/B]
[B][COLOR=#0000c0]End [/COLOR][/B][B][COLOR=#0000c0]Sub[/COLOR][/B]