'https://superlotto.blogfree.net/?t=4930820#lastpost
ColoreTesto 2 :Scrivi String(37,32)&"NUMERI ISOTOPI ...DISTANZA 30 by ZIAADRI",1
Scrivi String(47,32)&"by DjNomade",1
ColoreTesto 0
Sub main()
Dim nu(2)
Dim posta(2),poste(2)
Dim ruote(2)
posta(1)=1
posta(2)=1
poste(2)=1
fin=EstrazioneFin
ini=fin-50
For es=ini To fin
Messaggio es
For r1=1 To 9
For p1=1 To 5
a1=Estratto (es,r1,p1)
For r2=r1+1 To 10
a2=Estratto (es,r2,p1)
If Distanza(a1,a2)=30 Then
a=Fuori90(a2+30)
If a=a1 Then a=Fuori90(a2+60)
b=Fuori90(a+18)'ambata
c=Fuori90(90+b-30)'ambata
d=Fuori90(90+b-4)' 1° abbinamento
e=Fuori90(90+d-30)' 2° abbinamento
f=Diametrale(e)
Scrivi "---------------------------------------",1
Scrivi "Numeri isotopi Distanza 30 --> "&a1&" "&a2,1
Scrivi
ruote(1)=r1
ruote(2)=r2
nu(1)=b
nu(2)=c
ImpostaGiocata 1,nu,ruote,posta,9
nu(1)=b
nu(2)=d
ImpostaGiocata 2,nu,ruote,poste,9
nu(1)=b
nu(2)=e
ImpostaGiocata 3,nu,ruote,poste,9
nu(1)=b
nu(2)=f
ImpostaGiocata 4,nu,ruote,poste,9
nu(1)=c
nu(2)=d
ImpostaGiocata 5,nu,ruote,poste,9
nu(1)=c
nu(2)=e
ImpostaGiocata 6,nu,ruote,poste,9
nu(1)=c
nu(2)=f
ImpostaGiocata 7,nu,ruote,poste,9
Gioca es
End If
Next
Next
Next
Next
ScriviResoconto
ColoreTesto 2 :Scrivi String(37,32)&"NUMERI ISOTOPI ...DISTANZA 30 by ZIAADRI",1
Scrivi String(47,32)&"by DjNomade",1
ColoreTesto 0
End Sub
