Sub main()
Dim ru(1)
Dim n(5)

x=17 'modificare a piacere
ini=EstrazioneFin- x
fin=EstrazioneFin

Scrivi
scrivi">>>>>>>>>>>>>>>>>>>>>>>>>>>><<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<",1
scrivi"- in rosso gli estratti non sortiti nelle ultime " &x+1&" estrazioni",1
scrivi"- in blu gli estratti  sortiti nell' ultima estr. "&Dataestrazione(fin),1
scrivi"- in bianco gli estratti sortiti 1 volta nell' intervallo: "&Dataestrazione(ini)&"-"&Dataestrazione(fin-1),1
scrivi"- in giallo gli estratti sortiti 2 volte nell' intervallo: "&Dataestrazione(ini)&"-"&Dataestrazione(fin-1),1
scrivi"- in azzurro  gli estratti sortiti 3 volte nell' intervallo: "&Dataestrazione(ini)&"-"&Dataestrazione(fin-1),1
scrivi"- in verde gli estratti sortiti più di 3 volte nell' intervallo: "&Dataestrazione(ini)&"-"&Dataestrazione(fin-1),1




For r=1 To 10
ru(1)=r

Scrivi
ColoreTesto 1
Scrivi "^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^"
Scrivi
ColoreTesto 1
Scrivi"  "& NomeRuota(r)&"   "&dataestrazione(ini)&" - "&dataestrazione(fin),1
Scrivi
ColoreTesto 1
Scrivi "^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^"


For i=1 To 90
n(1)=i

If (SerieFreq(ini,fin,n,ru,1))= 0 Then ColoreTesto 2
If (SerieFreq(ini,fin-1,n,ru,1))= 1 Then ColoreTesto 5
If (SerieFreq(ini,fin-1,n,ru,1))= 2 Then ColoreTesto 4
If (SerieFreq(ini,fin-1,n,ru,1))= 3 Then ColoreTesto 6
If (SerieFreq(ini,fin-1,n,ru,1))> 3 Then ColoreTesto 3

If (SerieFreq(fin,fin,n,ru,1))> 0 Then ColoreTesto 1

Scrivi " "&format2(n(1))&" ",1,0

If n(1)=10 Then Scrivi""&scrivi

If n(1)=20 Then Scrivi""&scrivi

If n(1)=30 Then Scrivi""&scrivi

If n(1)=40 Then Scrivi""&scrivi

If n(1)=50 Then Scrivi"" &scrivi

If n(1)=60 Then Scrivi""&scrivi

If n(1)=70 Then Scrivi""&scrivi

If n(1)=80 Then Scrivi""&scrivi

If n(1)=90 Then Scrivi""&scrivi



Next
i=0
Next
Scrivi
ColoreTesto 1
scrivi"^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^"
End Sub