Ticks-MilSec

/*------------------------------------------------------------------+
 |                                                 Ticks-MilSec.mq4 |
 |                           Copyright © 2012, basisforex@gmail.com |
 +------------------------------------------------------------------*/ 
#property  copyright "Copyright © 2012, basisforex@gmail.com"
#property  link      "basisforex@gmail.com"
//+-----------------------------------------------------------------+   
#property indicator_chart_window
//------------------------------
int j, start, cnt;
double ar;
string S;
//--------   
int init()
 {
   return(0);
 }
//+------------------------------------------------------------------+
int deinit()
 {
   Comment("");
   ObjectDelete("txt");  
   return(0);
 }
//+------------------------------------------------------------------+
int start()
 {
   if (Period() != 1)
    {
		Comment("Not a right Period!!! It should be M1");
		return(0);	
	 }
   string t[60];  
   //==========
   if(Seconds() == 0)
    {
      cnt = 0;
      ar = 0;
    }
   for(j = 0; j <= 59; j++)
    {
      if(Minute() == j)
       {
         if(start == 0) start = GetTickCount();
         if(GetTickCount() - start > 0) 
          {
            cnt = cnt + 1;
            ar = ar + (GetTickCount() - start);
            start = 0;
          }
         if(cnt > 0)  t[j] = "Minute: " + DoubleToStr(j, 0) + "  Ticks #: "+  DoubleToStr(cnt, 0) + "    Avg= " + DoubleToStr(ar/cnt, 2) + " milliseconds" + "\n";  
       }
    }        
   //------
   Comment(t[0], t[1], t[2], t[3], t[4], t[5], t[6], t[7], t[8], t[9], t[10], t[11], t[12], t[13], t[14], t[15], t[16], t[17], t[18], t[19],
           t[20], t[21], t[22], t[23], t[24], t[25], t[26], t[27], t[28], t[29], t[30], t[31], t[32], t[33], t[34], t[35], t[36], t[37], t[38], t[39],
           t[40], t[41], t[42], t[43], t[44], t[45], t[46], t[47], t[48], t[49], t[50], t[51], t[52], t[53], t[54], t[55], t[56], t[57], t[58], t[59]);
   //------
   ObjectCreate("txt",OBJ_TEXT,0,TimeCurrent()- 60, Close[0] + 8 * Point);   
   ObjectSetText("txt", DoubleToStr(Minute(), 0), 16, "Times New Roman", Orange);
   ObjectMove("txt", 0, TimeCurrent()- 60, Close[0] + 8 * Point);
   //------
   return(0);
 }
//+------------------------------------------------------------------+