'Spia in Distanza 30 Isotopa / Quadratura con i Diametrali in Decina
'Calcolo sella Somma Comune e del suo Doppio per Ambo su Nz & TT
'Per Zetrix Script By Joe V.2.0 del 05/05/2013
Sub Main
Dim E(4),Nu(2),Ru(1),Po(2)
Ini = EstrazioneFin - 155 : Fin = EstrazioneFin
For Es = Ini To Fin : AvanzamentoElab Ini,Fin,Es
For R1 = 1 To 10
R2 = R1 + 1 : If R2 = 11 Then R2 = 12
For P = 1 To 5
E(1) = Estratto(Es,R1,P) : E(2) = Estratto(Es,R2,P)
If Distanza(E(1),E(2)) = 30 Then
K = K + 1 : Scrivi String(106,"=") & FormatSpace(K,3,1),1
Scrivi DataEstrazione(Es) & " ",0,0
Scrivi SiglaRuota(R1) & " " & Format2(E(1)) & " ",0,0
Scrivi SiglaRuota(R2) & " " & Format2(E(2)) & " " & P & "°"
E(3) = DiametraleD(E(1)) : E(4) = DiametraleD(E(2))
Nu(1) = Fuori90(E(1) + E(4)) : Nu(2) = Fuori90((E(2) + E(3))*2)
Po(2) = 10 : Ru(1) = 11 : ImpostaGiocata 1,Nu,Ru,Po,9,2
Po(2) = 1 : Ru(1) = 12 : ImpostaGiocata 2,Nu,Ru,Po,9,2
Gioca Es,True
End If
Next
Next
Next
ScriviResoconto
End Sub