Sub main()
Dim rt(2),pte(1),pta(2),am(2),ambo(4),nr(4)
estr=CInt(InputBox("Quante estrazioni controllo?","Estrazioni",150))
clp=CInt(InputBox("Quanti colpi di gioco?","Colpi",12))
ini=EstrazioneFin-estr
fin=EstrazioneFin
For es=ini To fin
Messaggio es
sp=8
x=Estratto(es,1,4) : If x=sp Then
pte(1)=1
pta(2)=1
rt(1)=6
rt(2)=7
ng=0
am(1)=4
am(2)=10
ng=ng+1
ImpostaGiocata ng,am,rt,pte,clp
nr(1)=12
nr(2)=13
nr(3)=31
nr(4)=35
For x=1 To 4
ambo(1)=am(1)
ambo(2)=nr(x)
ng=ng+1
ImpostaGiocata ng,ambo,rt,pta,clp
Next
For x=1 To 4
ambo(1)=am(2)
ambo(2)=nr(x)
ng=ng+1
ImpostaGiocata ng,ambo,rt,pta,clp
Next
casi=casi+1
Scrivi String(70,"=")&" Caso n° "&casi,1
Scrivi DataEstrazione(es)&" "& NomeRuota(1)&" < "& StringaEstratti(es,1)&" > Numero Spia "& Format2(sp)&" (4° Estratto)",1
Scrivi String(70,"="),1
Scrivi
Gioca es
End If
Next
ScriviResoconto
End Sub