Sub main()
Dim rt(1),pt(1),pta(3),am(1),nr(3)
estr=CInt(InputBox("Quante estrazioni controllo?","Estrazioni",3000))
ruo=CInt(InputBox("Ruota di ricerca?","Ruota",1))
n1=CInt(InputBox("1° numero dell'ambo?","N1",34))
n2=CInt(InputBox("2° numero dell'ambo?","N2",90))
clp=CInt(InputBox("Quanti colpi di gioco?","Colpi",12))
ini=EstrazioneFin-estr
fin=EstrazioneFin
For es=ini To fin
Messaggio es
For p1=1 To 4
For p2=p1+1 To 5
a=Estratto(es,ruo,p1)
b=Estratto(es,ruo,p2)
If a=n1 And b=n2 Then 'SOLO ambo 34.90
'If (a=n1 And b=n2) Or (a=n2 And b=n1) Then 'ambi 34.90 / 90.34
rt(1)=ruo
pt(1)=1
pta(2)=1
pta(3)=1
ng=0
am(1)=40
ng=ng+1
ImpostaGiocata ng,am,rt,pt,clp
nr(1)=40
nr(2)=53
nr(3)=58
ng=ng+1
ImpostaGiocata ng,nr,rt,pta,clp
co=co+1
Scrivi String(70,"=")&" Caso n° "&co,1
Scrivi DataEstrazione(es)&" "& NomeRuota(ruo)&" [ "& StringaEstratti(es,ruo)&" ] ambo spia "& Format2(a)&"."& Format2(b),1
Scrivi Space(12)&String(58,"="),1
Scrivi Space(12)&"Ambata: "& Format2(am(1)),1
Scrivi Space(12)&"Terzina: "& StringaNumeri(nr),1
Scrivi Space(12)&String(58,"="),1
Scrivi
Gioca es
End If
Next
Next
Next
ScriviResoconto
End Sub