Sub main()
Scrivi' lascio una riga di spazio
For es=EstrazioneFin-10 To EstrazioneFin ' Ultime 10 estrazioni
Scrivi' lascio una riga di spazio
Scrivi " Estr. "&FormatSpace(es,4,1)' scrivo il numero dell' estrazione
Scrivi' lascio una riga di spazio
For r=1 To 11 ' Scorro le ruote
If r=11 Then r=12' da Ba a Nz escludendo 11( ruota tutte)
Scrivi " "&SiglaRuota(r)&" ",0,0 ' scrivo la ruota
For p=1 To 5 ' scorro le posizioni dei 5 estratti
a=Estratto(es,r,p)'ad a attribuisco il singolo estratto dell' estrazione, della ruota e della posizione
Scrivi Format2(a)&"",0,0' li scrivo
If p<5 Then
Scrivi ".",0,0
Else
Scrivi " ",0,0' se la posizione è<5 metto il puntino sennò niente
End if'chiude If p<5 Then
Next' chiude il ciclo For p=1 To 5
Scrivi 'Mi serve per andare a capo
Next' chiude il ciclo For r=1 To 11
Next ' chiude il ciclo For es
End Sub