'STORICO 16 X AMBATA a TUTTE
Sub main()
Scrivi "Ritardi alla sortita di estratti da ruota sulle altre ruote scritto da Cinzia"
Dim n(1),ru(1),rur(1)
rr=InputBox("Ruota di Calcolo ",,1)
rur(1)=InputBox("Ruota di Gioco ",,1)
For es=EstrazioneFin-18 To EstrazioneFin-1
For p=1 To 5
n(1)=Estratto(es,rr,p)
If SerieFreq(es+1,EstrazioneFin,n,rur,1)=0 Then
Scrivi es&" ",0,0
For r=1 To 10
ru(1)=r
If SerieFreq(es+1,EstrazioneFin,n,ru,1)=0 Then
If SerieFreq(EstrazioneFin+1,EstrazioneFin+1,n,ru,1)>0 Then
ColoreTesto 1
Scrivi SiglaRuota(r)&" ",1,0
Else
ColoreTesto 0
Scrivi SiglaRuota(r)&" ",0,0
ColoreTesto 0
End If
ColoreTesto 0
nn=n(1)
End If
Next
Scrivi Format2(nn)&" ",1
ri= FormatSpace(" rit ",2,1)&" "&Formatspace(EstrazioneFin-es,4,1)
ColoreTesto 0
End If
Next
ColoreTesto 2
Scrivi ri
ColoreTesto 0
Next
Scrivi EstrazioneFin &" "&SiglaRuota(rr)&" "&stringaestratti(EstrazioneFin,rr),1
Scrivi String(37,"_"),1
End Sub