Richiesta listato metodo per ambata e ambo secco unico una ruota

'https://illottodisean69.forumfree.it/?t=68058887#lastpost
Sub main()


Dim r(10)
Dim r1(10)
Dim aa(10)
Dim posta(5),poste(2)
posta(1)=1
poste(2)=1
r(1)=1
r1(1)=11
k=13
y=2
For n=8555 To EstrazioneFin
If IndiceMensile(n)=1 Then
aa(1)=Fuori90(Estratto(n,2,3)+Estratto(n,12,1)+4)
aa(2)=Fuori90(Estratto(n,2,3)+Estratto(n,12,1)+4)
EliminaRipetuti aa
ImpostaGiocata 1,aa,r,posta,k,y

aa(1)=Fuori90(Estratto(n,2,3)+Estratto(n,12,1)+4)
aa(2)=Fuori90(Estratto(n,6,4)+Estratto(n,12,2)+19)
EliminaRipetuti aa
ImpostaGiocata 2,aa,r,poste,k,y




For a=1 To 2
For b=1 To 2
ImpostaInterruzioni a,b,2
Next
Next
Gioca n
End if
Next
ColoreTesto 2
Scrivi String(70,"=")&"listato by DjNomade ",1
ColoreTesto 0
ScriviResoconto
End Sub