Sub Main()
Dim ruote(2),num1(2),posta(3)
posta(1) = 5
posta(2) = 1
ce = InputBox(" estrazione vuoi controllare? ","estrazione",100)
k = InputBox("per quanti colpi?","colpi di gioco",10)
ini = EstrazioneFin - ce
fin = EstrazioneFin
For es = ini To EstrazioneFin
Messaggio "elab. estr. [" &(es) & "] di " & DataEstrazione(es,1)
For r1 = 1 To 10
For p1 = 1 To 4
a = Estratto(es,r1,p1)
For p2 = 2 To 5
If p1 = 1 And p2 = 2 Or p1 = 4 And p2 = 5 Then
b = Estratto(es,r1,p2)
If Figura(a) = Figura(b) - 1 Then
casi = casi + 1
Scrivi String(50,"=") & " by Antelao",1
Scrivi DataEstrazione(es,1) & " [ " & SiglaRuota(r1) & " - " & StringaEstratti(es,r1) & _
" ] [ " & Format2(a) & " ] in " &(p1) & "^ pos."
Scrivi DataEstrazione(es,1) & " [ " & SiglaRuota(r1) & " - " & StringaEstratti(es,r1) & _
" ] [ " & Format2(b) & " ] in " &(p2) & "^ pos."
Scrivi String(60,"-") & " caso n°" & casi
ruote(1) = r1
n1 = Fuori90(a + b)
n2 = ComplAdX(n1)
num1(1) = n1
num1(2) = n2
ra1 = SerieRitardo(ini,es,num1,ruote,1)
ColoreTesto 2
Scrivi "Ritardo x Ambata sulla ruota= " & Format2(ra1)
ColoreTesto 0
ImpostaGiocata 1,num1,ruote,posta,k,1
Gioca es
End If
End If
Next
Next
Next
Next
ScriviResoconto
ColoreTesto 1
Scrivi String(20,32) & "figure consecutive di Luigi di Anzio",1
Scrivi String(45,32) & "Listato by Antelao",1
ColoreTesto 0
End Sub