Sub Main()ColoreTesto 1
Scrivi
Scrivi "3 QUARTINE SU ba,ca,ge ALLA 1° ESTRAZIONE MENSILE",1
Scrivi
Scrivi
Scrivi "METODO E LIST BY tonino",1
Scrivi
ColoreTesto 0
Dim ruota(5)
Dim quartina1(4): Dim quartina2(4): Dim quartina3(4): Dim poste(4)
poste(2) = 7
poste(3) = 3
poste(4) = 0
Dim...