Cinquine sincrone passo X, SCRIPT

'Script per L8+
' Cinquine per Estratto
Sub Main()
  Dim num(5)
  Dim ruota(1)
  Dim rita(12)
  Dim max(12)
  Dim estr(5,12)
  Scrivi
  For ep = 1 To 8'scegliere passo
     Messaggio ep
     Scrivi "=============================================================================passo " & ep
     Scrivi Space(4),0,0
     For rr = 1 To 11
        If rr = 11 Then rr = 12
        Scrivi FormatSpace(SiglaRuota(rr),6),0,0
        If rr = 12 Then Scrivi
        ruota(1) = rr
        eini = EstrazioneFin - 50 'scegliere inizio
        efin = EstrazioneFin
        For i = eini To efin
           For p = 1 To 5
              num(p) = Estratto(i - ep,rr,p)
              estr(p,rr) = Estratto(efin - ep + 1,rr,p)
           Next
           If SerieFreq(i,i,num,ruota,1) > 0 Then
              rita(rr) = 0
           Else
              rita(rr) = rita(rr) + 1
              If max(rr) < rita(rr) Then max(rr) = rita(rr)
           End If
        Next
     Next
     ScriviMatrice rita
     'ScriviMatrice max
     Scrivi
     ColoreTesto 1
     Scrivi " numeri corrispondenti "
     ScriviMatrice estr
     ColoreTesto 0
     Erase rita
     Erase max
  Next
  Erase rita
  Erase max
End Sub