Sub main()
Dim ru(2),n(43)
w=3
z=""
r=11
r1=12
ru(1)=r
ru(2)=r1
aa=Array(0,02,06,10,12,15,16,17,18,21,22,24,28,29,31,35,36,37,39,40,41,42,43,44,47,48,51,52,53,54,61,65,66,68,71,74,77,78,80,82,83,85,87,88,90)
aa1=Array(0,02,06,10,12,15,16,17,18,20,22,24,28,29,31,35,36,37,39,40,41,42,43,44,47,48,51,52,53,54,61,65,66,68,71,74,77,78,80,82,83,85,87,88,90)
aa2=Array(0,02,06,10,12,15,16,17,18,20,21,22,24,29,31,35,36,37,39,40,41,42,43,44,47,48,51,52,53,54,61,65,66,68,71,74,77,78,80,82,83,85,87,88,90)
aa3=Array(0,02,06,10,12,15,16,17,18,20,21,22,24,28,29,31,36,37,39,40,41,42,43,44,47,48,51,52,53,54,61,65,66,68,71,74,77,78,80,82,83,85,87,88,90 )
aa4=Array(0,02,06,10,12,15,16,17,18,20,21,22,24,28,29,31,35,36,37,39,40,42,43,44,47,48,51,52,53,54,61,65,66,68,71,74,77,78,80,82,83,85,87,88,90)
a=aa
a(1)=z
st= SerieStorico(7440,EstrazioneFin,a,ru,w)
If st=0 Then Scrivi StringaNumeri(a)&" st "&st
a=aa
a(2)=z
st= SerieStorico(7440,EstrazioneFin,a,ru,w)
If st=0 Then Scrivi StringaNumeri(a)&" st "&st
a=aa
a(3)=z
st= SerieStorico(7440,EstrazioneFin,a,ru,w)
If st=0 Then Scrivi StringaNumeri(a)&" st "&st
a=aa
a(4)=z
st= SerieStorico(7440,EstrazioneFin,a,ru,w)
If st=0 Then Scrivi StringaNumeri(a)&" st "&st
a=aa
a(5)=z
st= SerieStorico(7440,EstrazioneFin,a,ru,w)
If st=0 Then Scrivi StringaNumeri(a)&" st "&st
a=aa
a(6)=z
st= SerieStorico(7440,EstrazioneFin,a,ru,w)
If st=0 Then Scrivi StringaNumeri(a)&" st "&st
a=aa
a(7)=z
st= SerieStorico(7440,EstrazioneFin,a,ru,w)
If st=0 Then Scrivi StringaNumeri(a)&" st "&st
a=aa
a(8)=z
st= SerieStorico(7440,EstrazioneFin,a,ru,w)
If st=0 Then Scrivi StringaNumeri(a)&" st "&st
a=aa
a(9)=z
st= SerieStorico(7440,EstrazioneFin,a,ru,w)
If st=0 Then Scrivi StringaNumeri(a)&" st "&st
a=aa
a(10)=z
st= SerieStorico(7440,EstrazioneFin,a,ru,w)
If st=0 Then Scrivi StringaNumeri(a)&" st "&st
a=aa
a(11)=z
st= SerieStorico(7440,EstrazioneFin,a,ru,w)
If st=0 Then Scrivi StringaNumeri(a)&" st "&st
a=aa
a(12)=z
st= SerieStorico(7440,EstrazioneFin,a,ru,w)
If st=0 Then Scrivi StringaNumeri(a)&" st "&st
a=aa
a(13)=z
st= SerieStorico(7440,EstrazioneFin,a,ru,w)
If st=0 Then Scrivi StringaNumeri(a)&" st "&st
a=aa
a(14)=z
st= SerieStorico(7440,EstrazioneFin,a,ru,w)
If st=0 Then Scrivi StringaNumeri(a)&" st "&st
a=aa
a(15)=z
st= SerieStorico(7440,EstrazioneFin,a,ru,w)
If st=0 Then Scrivi StringaNumeri(a)&" st "&st
a=aa
a(16)=z
st= SerieStorico(7440,EstrazioneFin,a,ru,w)
If st=0 Then Scrivi StringaNumeri(a)&" st "&st
a=aa
a(17)=z
st= SerieStorico(7440,EstrazioneFin,a,ru,w)
If st=0 Then Scrivi StringaNumeri(a)&" st "&st
a=aa
a(18)=z
st= SerieStorico(7440,EstrazioneFin,a,ru,w)
If st=0 Then Scrivi StringaNumeri(a)&" st "&st
a=aa
a(19)=z
st= SerieStorico(7440,EstrazioneFin,a,ru,w)
If st=0 Then Scrivi StringaNumeri(a)&" st "&st
a=aa
a(20)=z
st= SerieStorico(7440,EstrazioneFin,a,ru,w)
If st=0 Then Scrivi StringaNumeri(a)&" st "&st
a=aa
a(21)=z
st= SerieStorico(7440,EstrazioneFin,a,ru,w)
If st=0 Then Scrivi StringaNumeri(a)&" st "&st
a=aa
a(22)=z
st= SerieStorico(7440,EstrazioneFin,a,ru,w)
If st=0 Then Scrivi StringaNumeri(a)&" st "&st
a=aa
a(23)=z
st= SerieStorico(7440,EstrazioneFin,a,ru,w)
If st=0 Then Scrivi StringaNumeri(a)&" st "&st
a=aa
a(24)=z
st= SerieStorico(7440,EstrazioneFin,a,ru,w)
If st=0 Then Scrivi StringaNumeri(a)&" st "&st
a=aa
a(25)=z
st= SerieStorico(7440,EstrazioneFin,a,ru,w)
If st=0 Then Scrivi StringaNumeri(a)&" st "&st
a=aa
a(26)=z
st= SerieStorico(7440,EstrazioneFin,a,ru,w)
If st=0 Then Scrivi StringaNumeri(a)&" st "&st
a=aa
a(27)=z
st= SerieStorico(7440,EstrazioneFin,a,ru,w)
If st=0 Then Scrivi StringaNumeri(a)&" st "&st
a=aa
a(28)=z
st= SerieStorico(7440,EstrazioneFin,a,ru,w)
If st=0 Then Scrivi StringaNumeri(a)&" st "&st
a=aa
a(29)=z
st= SerieStorico(7440,EstrazioneFin,a,ru,w)
If st=0 Then Scrivi StringaNumeri(a)&" st "&st
a=aa
a(30)=z
st= SerieStorico(7440,EstrazioneFin,a,ru,w)
If st=0 Then Scrivi StringaNumeri(a)&" st "&st
a=aa
a(31)=z
st= SerieStorico(7440,EstrazioneFin,a,ru,w)
If st=0 Then Scrivi StringaNumeri(a)&" st "&st
a=aa
a(32)=z
st= SerieStorico(7440,EstrazioneFin,a,ru,w)
If st=0 Then Scrivi StringaNumeri(a)&" st "&st
a=aa
a(33)=z
st= SerieStorico(7440,EstrazioneFin,a,ru,w)
If st=0 Then Scrivi StringaNumeri(a)&" st "&st
a=aa
a(34)=z
st= SerieStorico(7440,EstrazioneFin,a,ru,w)
If st=0 Then Scrivi StringaNumeri(a)&" st "&st
a=aa
a(35)=z
st= SerieStorico(7440,EstrazioneFin,a,ru,w)
If st=0 Then Scrivi StringaNumeri(a)&" st "&st
a=aa
a(36)=z
st= SerieStorico(7440,EstrazioneFin,a,ru,w)
If st=0 Then Scrivi StringaNumeri(a)&" st "&st
a=aa
a(37)=z
st= SerieStorico(7440,EstrazioneFin,a,ru,w)
If st=0 Then Scrivi StringaNumeri(a)&" st "&st
a=aa
a(38)=z
st= SerieStorico(7440,EstrazioneFin,a,ru,w)
If st=0 Then Scrivi StringaNumeri(a)&" st "&st
a=aa
a(39)=z
st= SerieStorico(7440,EstrazioneFin,a,ru,w)
If st=0 Then Scrivi StringaNumeri(a)&" st "&st
a=aa
a(40)=z
st= SerieStorico(7440,EstrazioneFin,a,ru,w)
If st=0 Then Scrivi StringaNumeri(a)&" st "&st
a=aa
a(41)=z
st= SerieStorico(7440,EstrazioneFin,a,ru,w)
If st=0 Then Scrivi StringaNumeri(a)&" st "&st
a=aa
a(42)=z
st= SerieStorico(7440,EstrazioneFin,a,ru,w)
If st=0 Then Scrivi StringaNumeri(a)&" st "&st
a=aa
a(43)=z
st= SerieStorico(7440,EstrazioneFin,a,ru,w)
If st=0 Then Scrivi StringaNumeri(a)&" st "&st
'----------------------------------------------------------------------------------------------------------------------------------------
Scrivi
a=aa1
a(1)=z
st= SerieStorico(7440,EstrazioneFin,a,ru,w)
If st=0 Then Scrivi StringaNumeri(a)&" st "&st
a=aa1
a(2)=z
st= SerieStorico(7440,EstrazioneFin,a,ru,w)
If st=0 Then Scrivi StringaNumeri(a)&" st "&st
a=aa1
a(3)=z
st= SerieStorico(7440,EstrazioneFin,a,ru,w)
If st=0 Then Scrivi StringaNumeri(a)&" st "&st
a=aa1
a(4)=z
st= SerieStorico(7440,EstrazioneFin,a,ru,w)
If st=0 Then Scrivi StringaNumeri(a)&" st "&st
a=aa1
a(5)=z
st= SerieStorico(7440,EstrazioneFin,a,ru,w)
If st=0 Then Scrivi StringaNumeri(a)&" st "&st
a=aa1
a(6)=z
st= SerieStorico(7440,EstrazioneFin,a,ru,w)
If st=0 Then Scrivi StringaNumeri(a)&" st "&st
a=aa1
a(7)=z
st= SerieStorico(7440,EstrazioneFin,a,ru,w)
If st=0 Then Scrivi StringaNumeri(a)&" st "&st
a=aa1
a(8)=z
st= SerieStorico(7440,EstrazioneFin,a,ru,w)
If st=0 Then Scrivi StringaNumeri(a)&" st "&st
a=aa1
a(9)=z
st= SerieStorico(7440,EstrazioneFin,a,ru,w)
If st=0 Then Scrivi StringaNumeri(a)&" st "&st
a=aa1
a(10)=z
st= SerieStorico(7440,EstrazioneFin,a,ru,w)
If st=0 Then Scrivi StringaNumeri(a)&" st "&st
a=aa1
a(11)=z
st= SerieStorico(7440,EstrazioneFin,a,ru,w)
If st=0 Then Scrivi StringaNumeri(a)&" st "&st
a=aa1
a(12)=z
st= SerieStorico(7440,EstrazioneFin,a,ru,w)
If st=0 Then Scrivi StringaNumeri(a)&" st "&st
a=aa1
a(13)=z
st= SerieStorico(7440,EstrazioneFin,a,ru,w)
If st=0 Then Scrivi StringaNumeri(a)&" st "&st
a=aa1
a(14)=z
st= SerieStorico(7440,EstrazioneFin,a,ru,w)
If st=0 Then Scrivi StringaNumeri(a)&" st "&st
a=aa1
a(15)=z
st= SerieStorico(7440,EstrazioneFin,a,ru,w)
If st=0 Then Scrivi StringaNumeri(a)&" st "&st
a=aa1
a(16)=z
st= SerieStorico(7440,EstrazioneFin,a,ru,w)
If st=0 Then Scrivi StringaNumeri(a)&" st "&st
a=aa1
a(17)=z
st= SerieStorico(7440,EstrazioneFin,a,ru,w)
If st=0 Then Scrivi StringaNumeri(a)&" st "&st
a=aa1
a(18)=z
st= SerieStorico(7440,EstrazioneFin,a,ru,w)
If st=0 Then Scrivi StringaNumeri(a)&" st "&st
a=aa1
a(19)=z
st= SerieStorico(7440,EstrazioneFin,a,ru,w)
If st=0 Then Scrivi StringaNumeri(a)&" st "&st
a=aa1
a(20)=z
st= SerieStorico(7440,EstrazioneFin,a,ru,w)
If st=0 Then Scrivi StringaNumeri(a)&" st "&st
a=aa1
a(21)=z
st= SerieStorico(7440,EstrazioneFin,a,ru,w)
If st=0 Then Scrivi StringaNumeri(a)&" st "&st
a=aa1
a(22)=z
st= SerieStorico(7440,EstrazioneFin,a,ru,w)
If st=0 Then Scrivi StringaNumeri(a)&" st "&st
a=aa1
a(23)=z
st= SerieStorico(7440,EstrazioneFin,a,ru,w)
If st=0 Then Scrivi StringaNumeri(a)&" st "&st
a=aa1
a(24)=z
st= SerieStorico(7440,EstrazioneFin,a,ru,w)
If st=0 Then Scrivi StringaNumeri(a)&" st "&st
a=aa1
a(25)=z
st= SerieStorico(7440,EstrazioneFin,a,ru,w)
If st=0 Then Scrivi StringaNumeri(a)&" st "&st
a=aa1
a(26)=z
st= SerieStorico(7440,EstrazioneFin,a,ru,w)
If st=0 Then Scrivi StringaNumeri(a)&" st "&st
a=aa1
a(27)=z
st= SerieStorico(7440,EstrazioneFin,a,ru,w)
If st=0 Then Scrivi StringaNumeri(a)&" st "&st
a=aa1
a(28)=z
st= SerieStorico(7440,EstrazioneFin,a,ru,w)
If st=0 Then Scrivi StringaNumeri(a)&" st "&st
a=aa1
a(29)=z
st= SerieStorico(7440,EstrazioneFin,a,ru,w)
If st=0 Then Scrivi StringaNumeri(a)&" st "&st
a=aa1
a(30)=z
st= SerieStorico(7440,EstrazioneFin,a,ru,w)
If st=0 Then Scrivi StringaNumeri(a)&" st "&st
a=aa1
a(31)=z
st= SerieStorico(7440,EstrazioneFin,a,ru,w)
If st=0 Then Scrivi StringaNumeri(a)&" st "&st
a=aa1
a(32)=z
st= SerieStorico(7440,EstrazioneFin,a,ru,w)
If st=0 Then Scrivi StringaNumeri(a)&" st "&st
a=aa1
a(33)=z
st= SerieStorico(7440,EstrazioneFin,a,ru,w)
If st=0 Then Scrivi StringaNumeri(a)&" st "&st
a=aa1
a(34)=z
st= SerieStorico(7440,EstrazioneFin,a,ru,w)
If st=0 Then Scrivi StringaNumeri(a)&" st "&st
a=aa1
a(35)=z
st= SerieStorico(7440,EstrazioneFin,a,ru,w)
If st=0 Then Scrivi StringaNumeri(a)&" st "&st
a=aa1
a(36)=z
st= SerieStorico(7440,EstrazioneFin,a,ru,w)
If st=0 Then Scrivi StringaNumeri(a)&" st "&st
a=aa1
a(37)=z
st= SerieStorico(7440,EstrazioneFin,a,ru,w)
If st=0 Then Scrivi StringaNumeri(a)&" st "&st
a=aa1
a(38)=z
st= SerieStorico(7440,EstrazioneFin,a,ru,w)
If st=0 Then Scrivi StringaNumeri(a)&" st "&st
a=aa1
a(39)=z
st= SerieStorico(7440,EstrazioneFin,a,ru,w)
If st=0 Then Scrivi StringaNumeri(a)&" st "&st
a=aa1
a(40)=z
st= SerieStorico(7440,EstrazioneFin,a,ru,w)
If st=0 Then Scrivi StringaNumeri(a)&" st "&st
a=aa1
a(41)=z
st= SerieStorico(7440,EstrazioneFin,a,ru,w)
If st=0 Then Scrivi StringaNumeri(a)&" st "&st
a=aa1
a(42)=z
st= SerieStorico(7440,EstrazioneFin,a,ru,w)
If st=0 Then Scrivi StringaNumeri(a)&" st "&st
a=aa1
a(43)=z
st= SerieStorico(7440,EstrazioneFin,a,ru,w)
If st=0 Then Scrivi StringaNumeri(a)&" st "&st
'----------------------------------------------------------------------------------------------------------------------------------------
Scrivi
a=aa2
a(1)=z
st= SerieStorico(7440,EstrazioneFin,a,ru,w)
If st=0 Then Scrivi StringaNumeri(a)&" st "&st
a=aa2
a(2)=z
st= SerieStorico(7440,EstrazioneFin,a,ru,w)
If st=0 Then Scrivi StringaNumeri(a)&" st "&st
a=aa2
a(3)=z
st= SerieStorico(7440,EstrazioneFin,a,ru,w)
If st=0 Then Scrivi StringaNumeri(a)&" st "&st
a=aa2
a(4)=z
st= SerieStorico(7440,EstrazioneFin,a,ru,w)
If st=0 Then Scrivi StringaNumeri(a)&" st "&st
a=aa2
a(5)=z
st= SerieStorico(7440,EstrazioneFin,a,ru,w)
If st=0 Then Scrivi StringaNumeri(a)&" st "&st
a=aa2
a(6)=z
st= SerieStorico(7440,EstrazioneFin,a,ru,w)
If st=0 Then Scrivi StringaNumeri(a)&" st "&st
a=aa2
a(7)=z
st= SerieStorico(7440,EstrazioneFin,a,ru,w)
If st=0 Then Scrivi StringaNumeri(a)&" st "&st
a=aa2
a(8)=z
st= SerieStorico(7440,EstrazioneFin,a,ru,w)
If st=0 Then Scrivi StringaNumeri(a)&" st "&st
a=aa2
a(9)=z
st= SerieStorico(7440,EstrazioneFin,a,ru,w)
If st=0 Then Scrivi StringaNumeri(a)&" st "&st
a=aa2
a(10)=z
st= SerieStorico(7440,EstrazioneFin,a,ru,w)
If st=0 Then Scrivi StringaNumeri(a)&" st "&st
a=aa2
a(11)=z
st= SerieStorico(7440,EstrazioneFin,a,ru,w)
If st=0 Then Scrivi StringaNumeri(a)&" st "&st
a=aa2
a(12)=z
st= SerieStorico(7440,EstrazioneFin,a,ru,w)
If st=0 Then Scrivi StringaNumeri(a)&" st "&st
a=aa2
a(13)=z
st= SerieStorico(7440,EstrazioneFin,a,ru,w)
If st=0 Then Scrivi StringaNumeri(a)&" st "&st
a=aa2
a(14)=z
st= SerieStorico(7440,EstrazioneFin,a,ru,w)
If st=0 Then Scrivi StringaNumeri(a)&" st "&st
a=aa2
a(15)=z
st= SerieStorico(7440,EstrazioneFin,a,ru,w)
If st=0 Then Scrivi StringaNumeri(a)&" st "&st
a=aa2
a(16)=z
st= SerieStorico(7440,EstrazioneFin,a,ru,w)
If st=0 Then Scrivi StringaNumeri(a)&" st "&st
a=aa2
a(17)=z
st= SerieStorico(7440,EstrazioneFin,a,ru,w)
If st=0 Then Scrivi StringaNumeri(a)&" st "&st
a=aa2
a(18)=z
st= SerieStorico(7440,EstrazioneFin,a,ru,w)
If st=0 Then Scrivi StringaNumeri(a)&" st "&st
a=aa2
a(19)=z
st= SerieStorico(7440,EstrazioneFin,a,ru,w)
If st=0 Then Scrivi StringaNumeri(a)&" st "&st
a=aa2
a(20)=z
st= SerieStorico(7440,EstrazioneFin,a,ru,w)
If st=0 Then Scrivi StringaNumeri(a)&" st "&st
a=aa2
a(21)=z
st= SerieStorico(7440,EstrazioneFin,a,ru,w)
If st=0 Then Scrivi StringaNumeri(a)&" st "&st
a=aa2
a(22)=z
st= SerieStorico(7440,EstrazioneFin,a,ru,w)
If st=0 Then Scrivi StringaNumeri(a)&" st "&st
a=aa2
a(23)=z
st= SerieStorico(7440,EstrazioneFin,a,ru,w)
If st=0 Then Scrivi StringaNumeri(a)&" st "&st
a=aa2
a(24)=z
st= SerieStorico(7440,EstrazioneFin,a,ru,w)
If st=0 Then Scrivi StringaNumeri(a)&" st "&st
a=aa2
a(25)=z
st= SerieStorico(7440,EstrazioneFin,a,ru,w)
If st=0 Then Scrivi StringaNumeri(a)&" st "&st
a=aa2
a(26)=z
st= SerieStorico(7440,EstrazioneFin,a,ru,w)
If st=0 Then Scrivi StringaNumeri(a)&" st "&st
a=aa2
a(27)=z
st= SerieStorico(7440,EstrazioneFin,a,ru,w)
If st=0 Then Scrivi StringaNumeri(a)&" st "&st
a=aa2
a(28)=z
st= SerieStorico(7440,EstrazioneFin,a,ru,w)
If st=0 Then Scrivi StringaNumeri(a)&" st "&st
a=aa2
a(29)=z
st= SerieStorico(7440,EstrazioneFin,a,ru,w)
If st=0 Then Scrivi StringaNumeri(a)&" st "&st
a=aa2
a(30)=z
st= SerieStorico(7440,EstrazioneFin,a,ru,w)
If st=0 Then Scrivi StringaNumeri(a)&" st "&st
a=aa2
a(31)=z
st= SerieStorico(7440,EstrazioneFin,a,ru,w)
If st=0 Then Scrivi StringaNumeri(a)&" st "&st
a=aa2
a(32)=z
st= SerieStorico(7440,EstrazioneFin,a,ru,w)
If st=0 Then Scrivi StringaNumeri(a)&" st "&st
a=aa2
a(33)=z
st= SerieStorico(7440,EstrazioneFin,a,ru,w)
If st=0 Then Scrivi StringaNumeri(a)&" st "&st
a=aa2
a(34)=z
st= SerieStorico(7440,EstrazioneFin,a,ru,w)
If st=0 Then Scrivi StringaNumeri(a)&" st "&st
a=aa2
a(35)=z
st= SerieStorico(7440,EstrazioneFin,a,ru,w)
If st=0 Then Scrivi StringaNumeri(a)&" st "&st
a=aa2
a(36)=z
st= SerieStorico(7440,EstrazioneFin,a,ru,w)
If st=0 Then Scrivi StringaNumeri(a)&" st "&st
a=aa2
a(37)=z
st= SerieStorico(7440,EstrazioneFin,a,ru,w)
If st=0 Then Scrivi StringaNumeri(a)&" st "&st
a=aa2
a(38)=z
st= SerieStorico(7440,EstrazioneFin,a,ru,w)
If st=0 Then Scrivi StringaNumeri(a)&" st "&st
a=aa2
a(39)=z
st= SerieStorico(7440,EstrazioneFin,a,ru,w)
If st=0 Then Scrivi StringaNumeri(a)&" st "&st
a=aa2
a(40)=z
st= SerieStorico(7440,EstrazioneFin,a,ru,w)
If st=0 Then Scrivi StringaNumeri(a)&" st "&st
a=aa2
a(41)=z
st= SerieStorico(7440,EstrazioneFin,a,ru,w)
If st=0 Then Scrivi StringaNumeri(a)&" st "&st
a=aa2
a(42)=z
st= SerieStorico(7440,EstrazioneFin,a,ru,w)
If st=0 Then Scrivi StringaNumeri(a)&" st "&st
a=aa2
a(43)=z
st= SerieStorico(7440,EstrazioneFin,a,ru,w)
If st=0 Then Scrivi StringaNumeri(a)&" st "&st
'----------------------------------------------------------------------------------------------------------------------------------------
Scrivi
a=aa3
a(1)=z
st= SerieStorico(7440,EstrazioneFin,a,ru,w)
If st=0 Then Scrivi StringaNumeri(a)&" st "&st
a=aa3
a(2)=z
st= SerieStorico(7440,EstrazioneFin,a,ru,w)
If st=0 Then Scrivi StringaNumeri(a)&" st "&st
a=aa3
a(3)=z
st= SerieStorico(7440,EstrazioneFin,a,ru,w)
If st=0 Then Scrivi StringaNumeri(a)&" st "&st
a=aa3
a(4)=z
st= SerieStorico(7440,EstrazioneFin,a,ru,w)
If st=0 Then Scrivi StringaNumeri(a)&" st "&st
a=aa3
a(5)=z
st= SerieStorico(7440,EstrazioneFin,a,ru,w)
If st=0 Then Scrivi StringaNumeri(a)&" st "&st
a=aa3
a(6)=z
st= SerieStorico(7440,EstrazioneFin,a,ru,w)
If st=0 Then Scrivi StringaNumeri(a)&" st "&st
a=aa3
a(7)=z
st= SerieStorico(7440,EstrazioneFin,a,ru,w)
If st=0 Then Scrivi StringaNumeri(a)&" st "&st
a=aa3
a(8)=z
st= SerieStorico(7440,EstrazioneFin,a,ru,w)
If st=0 Then Scrivi StringaNumeri(a)&" st "&st
a=aa3
a(9)=z
st= SerieStorico(7440,EstrazioneFin,a,ru,w)
If st=0 Then Scrivi StringaNumeri(a)&" st "&st
a=aa3
a(10)=z
st= SerieStorico(7440,EstrazioneFin,a,ru,w)
If st=0 Then Scrivi StringaNumeri(a)&" st "&st
a=aa3
a(11)=z
st= SerieStorico(7440,EstrazioneFin,a,ru,w)
If st=0 Then Scrivi StringaNumeri(a)&" st "&st
a=aa3
a(12)=z
st= SerieStorico(7440,EstrazioneFin,a,ru,w)
If st=0 Then Scrivi StringaNumeri(a)&" st "&st
a=aa3
a(13)=z
st= SerieStorico(7440,EstrazioneFin,a,ru,w)
If st=0 Then Scrivi StringaNumeri(a)&" st "&st
a=aa3
a(14)=z
st= SerieStorico(7440,EstrazioneFin,a,ru,w)
If st=0 Then Scrivi StringaNumeri(a)&" st "&st
a=aa3
a(15)=z
st= SerieStorico(7440,EstrazioneFin,a,ru,w)
If st=0 Then Scrivi StringaNumeri(a)&" st "&st
a=aa3
a(16)=z
st= SerieStorico(7440,EstrazioneFin,a,ru,w)
If st=0 Then Scrivi StringaNumeri(a)&" st "&st
a=aa3
a(17)=z
st= SerieStorico(7440,EstrazioneFin,a,ru,w)
If st=0 Then Scrivi StringaNumeri(a)&" st "&st
a=aa3
a(18)=z
st= SerieStorico(7440,EstrazioneFin,a,ru,w)
If st=0 Then Scrivi StringaNumeri(a)&" st "&st
a=aa3
a(19)=z
st= SerieStorico(7440,EstrazioneFin,a,ru,w)
If st=0 Then Scrivi StringaNumeri(a)&" st "&st
a=aa3
a(20)=z
st= SerieStorico(7440,EstrazioneFin,a,ru,w)
If st=0 Then Scrivi StringaNumeri(a)&" st "&st
a=aa3
a(21)=z
st= SerieStorico(7440,EstrazioneFin,a,ru,w)
If st=0 Then Scrivi StringaNumeri(a)&" st "&st
a=aa3
a(22)=z
st= SerieStorico(7440,EstrazioneFin,a,ru,w)
If st=0 Then Scrivi StringaNumeri(a)&" st "&st
a=aa3
a(23)=z
st= SerieStorico(7440,EstrazioneFin,a,ru,w)
If st=0 Then Scrivi StringaNumeri(a)&" st "&st
a=aa3
a(24)=z
st= SerieStorico(7440,EstrazioneFin,a,ru,w)
If st=0 Then Scrivi StringaNumeri(a)&" st "&st
a=aa3
a(25)=z
st= SerieStorico(7440,EstrazioneFin,a,ru,w)
If st=0 Then Scrivi StringaNumeri(a)&" st "&st
a=aa3
a(26)=z
st= SerieStorico(7440,EstrazioneFin,a,ru,w)
If st=0 Then Scrivi StringaNumeri(a)&" st "&st
a=aa3
a(27)=z
st= SerieStorico(7440,EstrazioneFin,a,ru,w)
If st=0 Then Scrivi StringaNumeri(a)&" st "&st
a=aa3
a(28)=z
st= SerieStorico(7440,EstrazioneFin,a,ru,w)
If st=0 Then Scrivi StringaNumeri(a)&" st "&st
a=aa3
a(29)=z
st= SerieStorico(7440,EstrazioneFin,a,ru,w)
If st=0 Then Scrivi StringaNumeri(a)&" st "&st
a=aa3
a(30)=z
st= SerieStorico(7440,EstrazioneFin,a,ru,w)
If st=0 Then Scrivi StringaNumeri(a)&" st "&st
a=aa3
a(31)=z
st= SerieStorico(7440,EstrazioneFin,a,ru,w)
If st=0 Then Scrivi StringaNumeri(a)&" st "&st
a=aa3
a(32)=z
st= SerieStorico(7440,EstrazioneFin,a,ru,w)
If st=0 Then Scrivi StringaNumeri(a)&" st "&st
a=aa3
a(33)=z
st= SerieStorico(7440,EstrazioneFin,a,ru,w)
If st=0 Then Scrivi StringaNumeri(a)&" st "&st
a=aa3
a(34)=z
st= SerieStorico(7440,EstrazioneFin,a,ru,w)
If st=0 Then Scrivi StringaNumeri(a)&" st "&st
a=aa3
a(35)=z
st= SerieStorico(7440,EstrazioneFin,a,ru,w)
If st=0 Then Scrivi StringaNumeri(a)&" st "&st
a=aa3
a(36)=z
st= SerieStorico(7440,EstrazioneFin,a,ru,w)
If st=0 Then Scrivi StringaNumeri(a)&" st "&st
a=aa3
a(37)=z
st= SerieStorico(7440,EstrazioneFin,a,ru,w)
If st=0 Then Scrivi StringaNumeri(a)&" st "&st
a=aa3
a(38)=z
st= SerieStorico(7440,EstrazioneFin,a,ru,w)
If st=0 Then Scrivi StringaNumeri(a)&" st "&st
a=aa3
a(39)=z
st= SerieStorico(7440,EstrazioneFin,a,ru,w)
If st=0 Then Scrivi StringaNumeri(a)&" st "&st
a=aa3
a(40)=z
st= SerieStorico(7440,EstrazioneFin,a,ru,w)
If st=0 Then Scrivi StringaNumeri(a)&" st "&st
a=aa3
a(41)=z
st= SerieStorico(7440,EstrazioneFin,a,ru,w)
If st=0 Then Scrivi StringaNumeri(a)&" st "&st
a=aa3
a(42)=z
st= SerieStorico(7440,EstrazioneFin,a,ru,w)
If st=0 Then Scrivi StringaNumeri(a)&" st "&st
a=aa3
a(43)=z
st= SerieStorico(7440,EstrazioneFin,a,ru,w)
If st=0 Then Scrivi StringaNumeri(a)&" st "&st
'----------------------------------------------------------------------------------------------------------------------------------------
Scrivi
a=aa4
a(1)=z
st= SerieStorico(7440,EstrazioneFin,a,ru,w)
If st=0 Then Scrivi StringaNumeri(a)&" st "&st
a=aa4
a(2)=z
st= SerieStorico(7440,EstrazioneFin,a,ru,w)
If st=0 Then Scrivi StringaNumeri(a)&" st "&st
a=aa4
a(3)=z
st= SerieStorico(7440,EstrazioneFin,a,ru,w)
If st=0 Then Scrivi StringaNumeri(a)&" st "&st
a=aa4
a(4)=z
st= SerieStorico(7440,EstrazioneFin,a,ru,w)
If st=0 Then Scrivi StringaNumeri(a)&" st "&st
a=aa4
a(5)=z
st= SerieStorico(7440,EstrazioneFin,a,ru,w)
If st=0 Then Scrivi StringaNumeri(a)&" st "&st
a=aa4
a(6)=z
st= SerieStorico(7440,EstrazioneFin,a,ru,w)
If st=0 Then Scrivi StringaNumeri(a)&" st "&st
a=aa4
a(7)=z
st= SerieStorico(7440,EstrazioneFin,a,ru,w)
If st=0 Then Scrivi StringaNumeri(a)&" st "&st
a=aa4
a(8)=z
st= SerieStorico(7440,EstrazioneFin,a,ru,w)
If st=0 Then Scrivi StringaNumeri(a)&" st "&st
a=aa4
a(9)=z
st= SerieStorico(7440,EstrazioneFin,a,ru,w)
If st=0 Then Scrivi StringaNumeri(a)&" st "&st
a=aa4
a(10)=z
st= SerieStorico(7440,EstrazioneFin,a,ru,w)
If st=0 Then Scrivi StringaNumeri(a)&" st "&st
a=aa4
a(11)=z
st= SerieStorico(7440,EstrazioneFin,a,ru,w)
If st=0 Then Scrivi StringaNumeri(a)&" st "&st
a=aa4
a(12)=z
st= SerieStorico(7440,EstrazioneFin,a,ru,w)
If st=0 Then Scrivi StringaNumeri(a)&" st "&st
a=aa4
a(13)=z
st= SerieStorico(7440,EstrazioneFin,a,ru,w)
If st=0 Then Scrivi StringaNumeri(a)&" st "&st
a=aa4
a(14)=z
st= SerieStorico(7440,EstrazioneFin,a,ru,w)
If st=0 Then Scrivi StringaNumeri(a)&" st "&st
a=aa4
a(15)=z
st= SerieStorico(7440,EstrazioneFin,a,ru,w)
If st=0 Then Scrivi StringaNumeri(a)&" st "&st
a=aa4
a(16)=z
st= SerieStorico(7440,EstrazioneFin,a,ru,w)
If st=0 Then Scrivi StringaNumeri(a)&" st "&st
a=aa4
a(17)=z
st= SerieStorico(7440,EstrazioneFin,a,ru,w)
If st=0 Then Scrivi StringaNumeri(a)&" st "&st
a=aa4
a(18)=z
st= SerieStorico(7440,EstrazioneFin,a,ru,w)
If st=0 Then Scrivi StringaNumeri(a)&" st "&st
a=aa4
a(19)=z
st= SerieStorico(7440,EstrazioneFin,a,ru,w)
If st=0 Then Scrivi StringaNumeri(a)&" st "&st
a=aa4
a(20)=z
st= SerieStorico(7440,EstrazioneFin,a,ru,w)
If st=0 Then Scrivi StringaNumeri(a)&" st "&st
a=aa4
a(21)=z
st= SerieStorico(7440,EstrazioneFin,a,ru,w)
If st=0 Then Scrivi StringaNumeri(a)&" st "&st
a=aa4
a(22)=z
st= SerieStorico(7440,EstrazioneFin,a,ru,w)
If st=0 Then Scrivi StringaNumeri(a)&" st "&st
a=aa4
a(23)=z
st= SerieStorico(7440,EstrazioneFin,a,ru,w)
If st=0 Then Scrivi StringaNumeri(a)&" st "&st
a=aa4
a(24)=z
st= SerieStorico(7440,EstrazioneFin,a,ru,w)
If st=0 Then Scrivi StringaNumeri(a)&" st "&st
a=aa4
a(25)=z
st= SerieStorico(7440,EstrazioneFin,a,ru,w)
If st=0 Then Scrivi StringaNumeri(a)&" st "&st
a=aa4
a(26)=z
st= SerieStorico(7440,EstrazioneFin,a,ru,w)
If st=0 Then Scrivi StringaNumeri(a)&" st "&st
a=aa4
a(27)=z
st= SerieStorico(7440,EstrazioneFin,a,ru,w)
If st=0 Then Scrivi StringaNumeri(a)&" st "&st
a=aa4
a(28)=z
st= SerieStorico(7440,EstrazioneFin,a,ru,w)
If st=0 Then Scrivi StringaNumeri(a)&" st "&st
a=aa4
a(29)=z
st= SerieStorico(7440,EstrazioneFin,a,ru,w)
If st=0 Then Scrivi StringaNumeri(a)&" st "&st
a=aa4
a(30)=z
st= SerieStorico(7440,EstrazioneFin,a,ru,w)
If st=0 Then Scrivi StringaNumeri(a)&" st "&st
a=aa4
a(31)=z
st= SerieStorico(7440,EstrazioneFin,a,ru,w)
If st=0 Then Scrivi StringaNumeri(a)&" st "&st
a=aa4
a(32)=z
st= SerieStorico(7440,EstrazioneFin,a,ru,w)
If st=0 Then Scrivi StringaNumeri(a)&" st "&st
a=aa4
a(33)=z
st= SerieStorico(7440,EstrazioneFin,a,ru,w)
If st=0 Then Scrivi StringaNumeri(a)&" st "&st
a=aa4
a(34)=z
st= SerieStorico(7440,EstrazioneFin,a,ru,w)
If st=0 Then Scrivi StringaNumeri(a)&" st "&st
a=aa4
a(35)=z
st= SerieStorico(7440,EstrazioneFin,a,ru,w)
If st=0 Then Scrivi StringaNumeri(a)&" st "&st
a=aa4
a(36)=z
st= SerieStorico(7440,EstrazioneFin,a,ru,w)
If st=0 Then Scrivi StringaNumeri(a)&" st "&st
a=aa4
a(37)=z
st= SerieStorico(7440,EstrazioneFin,a,ru,w)
If st=0 Then Scrivi StringaNumeri(a)&" st "&st
a=aa4
a(38)=z
st= SerieStorico(7440,EstrazioneFin,a,ru,w)
If st=0 Then Scrivi StringaNumeri(a)&" st "&st
a=aa4
a(39)=z
st= SerieStorico(7440,EstrazioneFin,a,ru,w)
If st=0 Then Scrivi StringaNumeri(a)&" st "&st
a=aa4
a(40)=z
st= SerieStorico(7440,EstrazioneFin,a,ru,w)
If st=0 Then Scrivi StringaNumeri(a)&" st "&st
a=aa4
a(41)=z
st= SerieStorico(7440,EstrazioneFin,a,ru,w)
If st=0 Then Scrivi StringaNumeri(a)&" st "&st
a=aa4
a(42)=z
st= SerieStorico(7440,EstrazioneFin,a,ru,w)
If st=0 Then Scrivi StringaNumeri(a)&" st "&st
a=aa4
a(43)=z
st= SerieStorico(7440,EstrazioneFin,a,ru,w)
If st=0 Then Scrivi StringaNumeri(a)&" st "&st
End Sub