'https://illottodisean69.forumfree.it/?t=68058887#lastpost
Sub main()
Dim r(10)
Dim aa(10)
Dim posta(5),poste(5)
poste(2)=5.4
poste(3)=4
poste(4)=.5
poste(5)=.1
r(1)=4
r(2)=5
r(3)=6
r(4)=7
r(5)=8
r(6)=9
r(7)=10
k=13
y=5
For n=8805 To EstrazioneFin
'If IndiceMensile(n)=1 Then
a1=90-Estratto(n,1,1)
a2=90-Estratto(n,1,2)
a3=90-Estratto(n,1,3)
a4=Fuori90(Estratto(n,1,1)+Estratto(n,1,2))
a5=Fuori90(Estratto(n,1,1)+Estratto(n,1,3))
a6=Fuori90(Estratto(n,1,2)+Estratto(n,1,3))
aa(1)=Estratto(n,1,1)
aa(2)=Estratto(n,1,2)
aa(3)=Estratto(n,1,3)
aa(4)=a1
aa(5)=a2
aa(6)=a3
aa(7)=a4
aa(8)=a5
aa(9)=a6
EliminaRipetuti aa
ImpostaGiocata 1,aa,r,poste,k,y
Gioca n
Next
ColoreTesto 2
Scrivi String(70,"=")&"listato by DjNomade ",1
ColoreTesto 0
ScriviResoconto
End Sub