Sub main()
Dim lg(4),ruote(2),ruot(1),poste(2)
poste(2)=1
quante= CInt(InputBox("QUANTE ULTIME ESTRAZIONI VUOI CONTROLLARE?","Enplein",50))
If quante=False Then Exit Sub

For es = (EstrazioneFin - quante) To EstrazioneFin : Messaggio es

For r1=1 To 10
For p1=1 To 5
a=Estratto(es,r1,p1)
For r2=r1+1 To 12
If r2=11 Then r2=12
For p2=1 To 5
b=Estratto(es,r2,p2)
If a=Diametrale (b) And a<>45 And a<>90 Then
If Posizione (es,r1,90)>0 Or Posizione (es,r1,45)>0 Or Posizione (es,r2,90)>0 Or Posizione (es,r2,45)>0 Then
If Posizione (es,r1,90)>0 Then p3= Posizione (es,r1,90) : rr=r1 : nr=90
If Posizione (es,r1,45)>0 Then p3= Posizione (es,r1,45) : rr=r1 : nr=45
If Posizione (es,r2,90)>0 Then p3= Posizione (es,r2,90) : rr=r2 : nr=90
If Posizione (es,r2,45)>0 Then p3= Posizione (es,r2,45) : rr=r2 : nr=45
If p3=p1 Or p3=p2 Or p1=p2 Then
'Previsione
If Pari(a)= True Then c=a/2 : d=Diametrale (c) Else c=b/2 : d=Diametrale (c)
lg(1)=c : lg(2)=d : lg(3)=45 : lg(4)=90
ruote(1)=r1 : ruote(2)=r2
cont=cont+1
Scrivi
ColoreTesto 2 : Scrivi String(40,32)&" Pronostico n° " &cont&"",1
ColoreTesto 1 : Scrivi

Scrivi DataEstrazione(es,1)&Space(3)&"["&(es)&"]ª"&Space(4)&_
SiglaRuota (r1)&Space(2)& StringaEstratti(es,r1)&Space(5)& Format2(a)& Space(3)&"Pos. "&p1&"^ Ambo Diam. in Vert."
Scrivi DataEstrazione(es,1)&Space(3)&"["&(es)&"]ª"&Space(4)&_
SiglaRuota (r2)&Space(2)& StringaEstratti(es,r2)&Space(5)& Format2(b)& Space(3)&"Pos. "&p2&"^ "&_
" Num. Trov. "& Format2 (nr)& Space (2)&"su ruota di "& SiglaRuota (rr)& Space (2)&"Pos. "&p3&"^ "
Scrivi : Scrivi String(105,151)
ImpostaGiocata 1,lg,ruote,poste,30,0
ruot(1)=11
ImpostaGiocata 2,lg,ruot,poste,30,0
Gioca es
End If
End If
End If
Next
Next
Next
Next
Next
'ScriviResoconto
ColoreTesto 2: Scrivi Space (20)& "Listed by Enplein",1
End Sub