/*[[
	Name := Tick_Histo
	Separate Window := Yes
	First Color := Cyan
	First Draw Type := Histogram
	First Symbol := 217
	Use Second Data := Yes
	Second Color := Fuchsia
	Second Draw Type := Histogram
	Second Symbol := 218
]]*/

Variables : shift(0),
            timeprev(0),
            uptick(0),
            downtick(0),
            prevclose(0),
            show(1);

SetLoopCount(0);

For shift=show-1 Downto 0 Begin

If timeprev!=T then { uptick=0;downtick=0;timeprev=T; }
If timeprev==T then {
If (ask*10000)>prevclose then { uptick = uptick + 1;prevclose=(ask*10000); }
If (ask*10000)<prevclose then { downtick = downtick + 1;prevclose=(ask*10000); }
}
      SetIndexValue(shift, uptick);
      SetIndexValue2(shift, downtick*-1);
      
      Comment("   uptick  = ",uptick," ,  downtick  = ",downtick," ,  T  = ",T,
              "\n   totalticks  = ",(uptick+downtick)," ,  Volume  = ",Volume);
         
End;