ColoreTesto 1 : Scrivi "NUMERI RIPETUTI ISOTOPI A RUOTE ESTRAZ. CONSECUTIVE x franca46",1 :
Scrivi
Scrivi Date &_
Chr (32) &Chr (108)& Chr (105)& Chr (115)&Chr (116)&Chr (46)& Chr (32) & Chr (98)& Chr (121)& Chr (32) & Chr (68) & Chr (106)& Chr (78) & Chr (111) & Chr ( 109) & Chr (97)& Chr ( 100) & Chr (101),1
Scrivi String (2,Chr(11)): ColoreTesto 1
 ColoreTesto 0
Sub main()
Dim rt1(1),rtt(10),posta(1),pt1(3)
Dim amb(3)
ee=CInt(InputBox("Quante estrazioni vuoi esaminare ?","Estrazioni",90))
k=CInt(InputBox("Per quante estrazioni deve durare il gioco ?","Colpi di gioco",12))
casi=0
fin=EstrazioneFin
ini=fin-ee   '9338' esempio
For es=ini To fin
Messaggio "elab. del "&dataestrazione(es)&" [ List. by DjNomade ]"
   For r=1 To 10

   For r1=r+1 To 12
   If r1=11 Then r1=12
      For p=1 To 5
      For p1=1 To 5
      a1=Estratto(es-1,r,p) : b1=Estratto(es,r,p)
      a=Estratto(es-1,r1,p1) : b=Estratto(es,r1,p1)

         If a=b And a1=b1 Then
aa=Fuori90(a1*3)  '
aa1=Fuori90(a*3) '

         rtt(1)=r:rtt(2)=r1:rtt(3)=11:rtt(4)=12
         posta(1)=1 :pt1(2)=1
casi=casi+1:Scrivi 
Scrivi String(64,"-")&" caso n° "&(casi),1
Scrivi DataEstrazione(es-1)&" [ "&SiglaRuota(r)&" - "&stringaestratti(es-1,r)&_
" ] [ "&Format2(a1)&" in "&p&"^ pos. ]  [ "&SiglaRuota(r1)&" - "&stringaestratti(es-1,r1)&_
" ] [ "&Format2(a)&" in "&p1&"^ pos. ]",1
Scrivi DataEstrazione(es)&" [ "&SiglaRuota(r)&" - "&stringaestratti(es,r)&_
" ] [ "&Format2(b1)&" in "&p&"^ pos. ]  [ "&SiglaRuota(r1)&" - "&stringaestratti(es,r1)&_
" ] [ "&Format2(b)&" in "&p1&"^ pos. ]",1



Scrivi 


amb(1)=a1 
amb(2)=aa
ImpostaGiocata 1,amb,rtt,pt1,k
amb(1)=a 
amb(2)=aa1
ImpostaGiocata 2,amb,rtt,pt1,k

Gioca es
         End If
      Next
   Next
Next
Next
Next
ScriviResoconto
End Sub