quote:
Sub main()
Dim r(10)
Dim n1(10)
Dim n2(10)
Dim n3(10)
Dim n4(10)
Dim p1(5)
Dim p2(5)
Dim p3(5)
Dim p4(5)
Dim pr(5,100)
pr(1,1)=2
pr(1,2)=5
pr(1,3)=10
pr(1,4)=18
pr(1,5)=31
pr(1,6)=51.5
pr(1,7)=84.5
p1(1)=2
p2(2)=1
p3(3)=1
p4(4)=1
k1=1
k2=2
k3=3
k4=4
c=7
r(1)=1
co=0
For n=7174 To EstrazioneFin
If IndiceMensile
=1 Then
co=co+1
n1(1)=Fuori90(Estratto(n,3,4)+45)
n1(2)=Fuori90(Estratto(n,4,4)+26)
n1(3)=Fuori90(Estratto(n,6,1)+03)
n1(4)=Fuori90(Estratto(n,c,3)+25)
ImpostaGiocata 1,n1,r,p1,c,k1
ImpostaProgressione 1,pr
n2(1)=Fuori90(Estratto(n,3,4)+45)
n2(2)=Fuori90(Estratto(n,4,4)+26)
n2(3)=Fuori90(Estratto(n,6,1)+03)
n2(4)=Fuori90(Estratto(n,c,3)+25)
ImpostaGiocata 2,n2,r,p2,c,k2
n3(1)=Fuori90(Estratto(n,3,4)+45)
n3(2)=Fuori90(Estratto(n,4,4)+26)
n3(3)=Fuori90(Estratto(n,6,1)+03)
n3(4)=Fuori90(Estratto(n,c,3)+25)
ImpostaGiocata 3,n3,r,p3,c,k3
n4(1)=Fuori90(Estratto(n,3,4)+45)
n4(2)=Fuori90(Estratto(n,4,4)+26)
n4(3)=Fuori90(Estratto(n,6,1)+03)
n4(4)=Fuori90(Estratto(n,c,3)+25)
ImpostaGiocata 4,n4,r,p4,c,k4
For a=1 To 4
For b=1 To 4
ImpostaInterruzioni a,b,k4
ImpostaInterruzioni a,1,k2
Next
Next
Gioca n
End If
Next
ColoreTesto 1
Scrivi : Scrivi
Scrivi "CASI TROVATI : "& co
Scrivi " "
ColoreTesto 0
ScriviResoconto
End Sub