Option [B][COLOR=#0000c0]Explicit[/COLOR][/B]
[B][COLOR=#0000c0][B][COLOR=#0000c0]Sub [/COLOR][/B][B][COLOR=#800080]Main[/COLOR][/B][/COLOR][/B]
[B][COLOR=#0000c0]Dim[/COLOR][/B]
[B][COLOR=#ff00ff]Fin[/COLOR][/B],[B][COLOR=#ff00ff]R[/COLOR][/B],[B][COLOR=#ff00ff]Npr[/COLOR][/B],[B][COLOR=#ff00ff]RC[/COLOR][/B],[B][COLOR=#ff00ff]RR[/COLOR][/B],[B][COLOR=#ff00ff]T[/COLOR][/B]
[B][COLOR=#ff00ff]T [/COLOR][/B][B][COLOR=#ff0000]=[/COLOR][/B] [B][COLOR=#0000c0]Timer[/COLOR][/B]
[B][COLOR=#ff00ff]Fin[/COLOR][/B] [B][COLOR=#ff0000]=[/COLOR][/B] [B][COLOR=#800080]EstrazioneFin[/COLOR][/B]
[B][COLOR=#800080]ColoreTesto[/COLOR][/B] 1 : [B][COLOR=#800080]Scrivi[/COLOR][/B] "[COLOR=#ff8000]RU NU RR / RC RR/RC[/COLOR]" ,[B][COLOR=#ff00ff]True[/COLOR][/B] : [B][COLOR=#800080]ColoreTesto[/COLOR][/B] 0
[B][COLOR=#0000c0]For[/COLOR][/B] [B][COLOR=#ff00ff]R[/COLOR][/B] [B][COLOR=#ff0000]=[/COLOR][/B] 1 [B][COLOR=#0000c0]To[/COLOR][/B] 10
[B][COLOR=#ff00ff]Npr[/COLOR][/B] [B][COLOR=#ff0000]=[/COLOR][/B] [B][COLOR=#800080]NumeroPosRit[/COLOR][/B]([B][COLOR=#ff00ff]Fin[/COLOR][/B],[B][COLOR=#ff00ff]R[/COLOR][/B],1)
[B][COLOR=#800080]ColoreTesto[/COLOR][/B] 2 :[B][COLOR=#800080]Scrivi[/COLOR][/B] [B][COLOR=#800080]SiglaRuota[/COLOR][/B]([B][COLOR=#ff00ff]R[/COLOR][/B]) [B][COLOR=#ff0000]&[/COLOR][/B] "",[B][COLOR=#ff00ff]True[/COLOR][/B],[B][COLOR=#ff00ff]False[/COLOR][/B]
[B][COLOR=#800080]Scrivi[/COLOR][/B] [B][COLOR=#800080]Format2[/COLOR][/B]([B][COLOR=#ff00ff]Npr[/COLOR][/B]) ,[B][COLOR=#ff00ff]True[/COLOR][/B],[B][COLOR=#ff00ff]False[/COLOR][/B] : [B][COLOR=#800080]ColoreTesto[/COLOR][/B] 0
[B][COLOR=#ff00ff]RC[/COLOR][/B] [B][COLOR=#ff0000]=[/COLOR][/B] [B][COLOR=#800080]EstrattoRitardo[/COLOR][/B]([B][COLOR=#ff00ff]R[/COLOR][/B],[B][COLOR=#ff00ff]Npr[/COLOR][/B],1,[B][COLOR=#ff00ff]Fin[/COLOR][/B])
[B][COLOR=#ff00ff]RR[/COLOR][/B] [B][COLOR=#ff0000]=[/COLOR][/B] [B][COLOR=#800080]EstrattoRitardo[/COLOR][/B]([B][COLOR=#ff00ff]R[/COLOR][/B],1,1,[B][COLOR=#ff00ff]Fin[/COLOR][/B],,,,1)+1 'x allineamento risulati a "RitPos".
[B][COLOR=#800080]Scrivi[/COLOR][/B] [B][COLOR=#800080]FormatSpace[/COLOR][/B]([B][COLOR=#ff00ff]RR[/COLOR][/B],3,[B][COLOR=#ff00ff]True[/COLOR][/B]) [B][COLOR=#ff0000]&[/COLOR][/B] "[COLOR=#ff8000] /[/COLOR]",[B][COLOR=#ff00ff]True[/COLOR][/B],[B][COLOR=#ff00ff]False[/COLOR][/B]
[COLOR=#008000]'[/COLOR]
[COLOR=#008000]''[/COLOR]
[COLOR=#008000]''''[/COLOR]
[B][COLOR=#800080]ColoreTesto[/COLOR][/B] 1
[B][COLOR=#800080]Scrivi[/COLOR][/B] [B][COLOR=#800080]FormatSpace[/COLOR][/B]([B][COLOR=#800080]RitPos[/COLOR][/B]([B][COLOR=#ff00ff]Npr[/COLOR][/B],[B][COLOR=#ff00ff]R[/COLOR][/B],[B][COLOR=#ff00ff]Fin[/COLOR][/B]),3,[B][COLOR=#ff00ff]True[/COLOR][/B]) [B][COLOR=#ff0000]&[/COLOR][/B] "",[B][COLOR=#ff00ff]True[/COLOR][/B],[B][COLOR=#ff00ff]False[/COLOR][/B]
[B][COLOR=#800080]ColoreTesto[/COLOR][/B] 0
[COLOR=#008000]''''[/COLOR]
[COLOR=#008000]''[/COLOR]
[COLOR=#008000]'[/COLOR]
[B][COLOR=#800080]Scrivi[/COLOR][/B] [B][COLOR=#800080]FormatSpace[/COLOR][/B]([B][COLOR=#ff00ff]RC[/COLOR][/B],4,[B][COLOR=#ff00ff]True[/COLOR][/B]) [B][COLOR=#ff0000]&[/COLOR][/B] "[COLOR=#ff8000] = [/COLOR]",[B][COLOR=#ff00ff]True[/COLOR][/B],[B][COLOR=#ff00ff]False[/COLOR][/B]
[B][COLOR=#800080]Scrivi[/COLOR][/B] [B][COLOR=#0000c0]Round[/COLOR][/B]([B][COLOR=#ff00ff]RR[/COLOR][COLOR=#ff0000]/[/COLOR][COLOR=#ff00ff]RC[/COLOR][/B],3),[B][COLOR=#ff00ff]True[/COLOR][/B]
[B][COLOR=#0000c0]Next[/COLOR][/B]
[B][COLOR=#800080]ColoreTesto[/COLOR][/B] 1 : [B][COLOR=#800080]Scrivi[/COLOR][/B] "[COLOR=#ff8000]Script By Joe [/COLOR]" ,[B][COLOR=#ff00ff]True[/COLOR][/B],[B][COLOR=#ff00ff]True[/COLOR][/B] : [B][COLOR=#800080]ColoreTesto[/COLOR][/B] 0
[B][COLOR=#800080]Scrivi[/COLOR][/B] : [B][COLOR=#800080]Scrivi[/COLOR][/B] "[COLOR=#ff8000]Aggiornato al [/COLOR]" [B][COLOR=#ff0000]&[/COLOR][/B] [B][COLOR=#800080]DataEstrazione[/COLOR][/B]([B][COLOR=#ff00ff]Fin[/COLOR][/B]),[B][COLOR=#ff00ff]True[/COLOR][/B],[B][COLOR=#ff00ff]False[/COLOR][/B]
[B][COLOR=#800080]Scrivi[/COLOR][/B] "[COLOR=#ff8000] (in [/COLOR]" [B][COLOR=#ff0000]&[/COLOR][/B] [B][COLOR=#0000c0]Timer[/COLOR][COLOR=#ff0000]-[/COLOR][COLOR=#ff00ff]T[/COLOR][/B] [B][COLOR=#ff0000]&[/COLOR][/B] "[COLOR=#ff8000] secondi)[/COLOR]"
[B][COLOR=#0000c0]End [/COLOR][/B][B][COLOR=#0000c0]Sub[/COLOR][/B]