//+------------------------------------------------------------------+
//|                                           MM-TimeFrame_v5.mq4 |
//|                      Copyright © 2006, MetaQuotes Software Corp. |
//|                                        http://www.metaquotes.net |
//+------------------------------------------------------------------+

#property copyright "Copyright © 2006, MetaQuotes Software Corp."
#property link      " Modified by cja, Xard777 " 
#property link      "http://www.metaquotes.net"
#property copyright "Vladislav Goshkov (VG)."
#property link      "4vg@mail.ru"

#property indicator_chart_window
#define MMFrame "MMFrame"
#define MMTop "MMTop"
#define MMBot "MMBot"
extern color MMColor = C'0,6,60';
extern color MM2Color = C'100,5,60';
extern int P = 64;
extern int StepBack = 0;
extern bool Comments=false;



double  dmml = 0,
        dvtl = 0,
        sum  = 0,
        v1 = 0,
        v2 = 0,
        mn = 0,
        mx = 0,
        x1 = 0,
        x2 = 0,
        x3 = 0,
        x4 = 0,
        x5 = 0,
        x6 = 0,
        y1 = 0,
        y2 = 0,
        y3 = 0,
        y4 = 0,
        y5 = 0,
        y6 = 0,
        octave = 0,
        fractal = 0,
        range   = 0,
        finalH  = 0,
        finalL  = 0,
        mml[13];
        
double s1[];

string  ln_txt[13],        
        buff_str = "";
        
int     
        bn_v1   = 0,
        bn_v2   = 0,
        OctLinesCnt = 13,
        mml_thk = 8,
        mml_clr[13],
        mml_shft = 3,
        nTime = 0,
        CurPeriod = 0,
        nDigits = 0,
        i = 0;

//+------------------------------------------------------------------+
//| Custom indicator initialization function                         |
//+------------------------------------------------------------------+
int init() {
IndicatorShortName("MM");
//---- indicators
   ln_txt[0]  = "[-2/8] Extreme Overbought";
   ln_txt[1]  = "[-1/8] Overbought";
   ln_txt[2]  = "[0/8] Warning";
   ln_txt[3]  = "[1/8] Weak, Stall, Reverse";
   ln_txt[4]  = "[2/8] Pivot, Reverse, Major";
   ln_txt[5]  = "[3/8] Bottom of Trading Range";
   ln_txt[6]  = "[4/8] Major S/R";
   ln_txt[7]  = "[5/8] Top of Trading Range";
   ln_txt[8]  = "[6/8] Pivot, Reverse, Major";
   ln_txt[9]  = "[7/8] Weak, Stall, Reverse";
   ln_txt[10] = "[8/8] Warning";
   ln_txt[11] = "[+1/8] Oversold";
   ln_txt[12] = "[+2/8] Extreme Oversold";

   mml_shft = 3;//original was 3
   mml_thk  = 3;

    
   mml_clr[0]  = Red;
   mml_clr[1]  = OrangeRed;
   mml_clr[2]  = DeepSkyBlue;
   mml_clr[3]  = Yellow;
   mml_clr[4]  = HotPink;
   mml_clr[5]  = Lime;
   mml_clr[6]  = DeepSkyBlue;
   mml_clr[7]  = Lime;
   mml_clr[8]  = HotPink;
   mml_clr[9]  = Yellow;
   mml_clr[10] = DeepSkyBlue;
   mml_clr[11] = OrangeRed;
   mml_clr[12] = Red;
//----
   return(0);
  }
//+------------------------------------------------------------------+
//| Custor indicator deinitialization function                       |
//+------------------------------------------------------------------+
int deinit() {
//---- TODO: add your code here
Comment(" ");   
for(i=0;i<OctLinesCnt;i++) {
    buff_str = "mml"+i;
    ObjectDelete(buff_str);
    buff_str = "mml_txt"+i;
    ObjectDelete(buff_str);
    }
//----
   return(0);
  }
//+------------------------------------------------------------------+
//| Custom indicator iteration function                              |
//+------------------------------------------------------------------+
int start() 
{
CreateMM();
}
void CreateObj(string objName, double start, double end, color clr)
  {
   ObjectCreate(objName, OBJ_RECTANGLE, 0, iTime(NULL,CurPeriod,P), start, Time[0], end);
   ObjectSet(objName, OBJPROP_COLOR, clr);
   }
   void DeleteObjects()
   {
   ObjectDelete(MMFrame);
   ObjectDelete(MMTop);
   ObjectDelete(MMBot);
   }
   void CreateMM()
   {
   DeleteObjects();
   
//---- TODO: add your code here

// Start Data window code
double Value = finalH; //8/8th 
double Value1 = finalL; //0/8th

double myFirstValue = iMA(Symbol(),0,1,0,MODE_EMA,PRICE_CLOSE,0);

	double g;
   int m,s,k;
   m=Time[0]+Period()*60-CurTime();
   g=m/60.0;
   s=m%60;
   m=(m-m%60)/60;
   //Comment(m + " minutes " + s + " seconds left to bar end");
   g=NormalizeDouble(g,1);
   for (k=1;k<=Bars-1;k++) s1[k]=0.0000001;
   for (k=1;k<=2;k++) s1[k]=g;
	//(m,Digits-4)
          
  //window code 
   ObjectCreate("lab", OBJ_LABEL, WindowFind("PT"), 0, 0);//High value
        ObjectSetText("lab",DoubleToStr(Value,Digits),15, "Arial", SteelBlue);
        ObjectSet("lab", OBJPROP_CORNER, 0);
        ObjectSet("lab", OBJPROP_XDISTANCE, 145);
        ObjectSet("lab", OBJPROP_YDISTANCE, 10);
 
   ObjectCreate("lab1", OBJ_LABEL, WindowFind("PT"), 0, 0);//Low value
        ObjectSetText("lab1",DoubleToStr(Value1,Digits),15, "Arial", SteelBlue);
        ObjectSet("lab1", OBJPROP_CORNER, 0);
        ObjectSet("lab1", OBJPROP_XDISTANCE, 323);
        ObjectSet("lab1", OBJPROP_YDISTANCE, 10);
 
   ObjectCreate("lab2", OBJ_LABEL, WindowFind("PT"), 0, 0);
        ObjectSetText("lab2","8/8th ", 10, "Arial Bold", SteelBlue);
        ObjectSet("lab2", OBJPROP_CORNER, 0);
        ObjectSet("lab2", OBJPROP_XDISTANCE, 165);
        ObjectSet("lab2", OBJPROP_YDISTANCE, 0);
 
   ObjectCreate("lab3", OBJ_LABEL, WindowFind("PT"), 0, 0);
        ObjectSetText("lab3","0/8th ", 10, "Arial Bold", SteelBlue);
        ObjectSet("lab3", OBJPROP_CORNER, 0);
        ObjectSet("lab3", OBJPROP_XDISTANCE, 340);
        ObjectSet("lab3", OBJPROP_YDISTANCE, 0);
  
   ObjectCreate("lab4", OBJ_LABEL, WindowFind("PT"), 0, 0);
        ObjectSetText("lab4","Price ", 10, "Arial Bold", SteelBlue);
        ObjectSet("lab4", OBJPROP_CORNER, 0);
        ObjectSet("lab4", OBJPROP_XDISTANCE, 277);
        ObjectSet("lab4", OBJPROP_YDISTANCE, 0);
   
   ObjectCreate("lab5", OBJ_LABEL, WindowFind("PT"), 0, 0);
        ObjectSetText("lab5",DoubleToStr(myFirstValue,Digits),15, "Arial Bold", Peru);
        ObjectSet("lab5", OBJPROP_CORNER, 0);
        ObjectSet("lab5", OBJPROP_XDISTANCE, 260);
        ObjectSet("lab5", OBJPROP_YDISTANCE, 10);
        
   ObjectCreate("lab6", OBJ_LABEL, WindowFind("PT"), 0, 0);
        ObjectSetText("lab6",DoubleToStr(m,-4),12, "Arial Bold", SlateGray);
        ObjectSet("lab6", OBJPROP_CORNER, 0);
        ObjectSet("lab6", OBJPROP_XDISTANCE, 417);
        ObjectSet("lab6", OBJPROP_YDISTANCE, 0);
   
   ObjectCreate("lab7", OBJ_LABEL, WindowFind("PT"), 0, 0);
        ObjectSetText("lab7",DoubleToStr(s,-4), 12, "Arial Bold", SlateGray);
        ObjectSet("lab7", OBJPROP_CORNER, 0);
        ObjectSet("lab7", OBJPROP_XDISTANCE, 417);
        ObjectSet("lab7", OBJPROP_YDISTANCE, 15);
        
   ObjectCreate("lab8", OBJ_LABEL, WindowFind("PT"), 0, 0);
        ObjectSetText("lab8","Mins ", 9, "Arial Bold", SlateGray);
        ObjectSet("lab8", OBJPROP_CORNER, 0);
        ObjectSet("lab8", OBJPROP_XDISTANCE, 387);
        ObjectSet("lab8", OBJPROP_YDISTANCE, 2);     
        
   ObjectCreate("lab9", OBJ_LABEL, WindowFind("PT"), 0, 0);
        ObjectSetText("lab9","Secs ", 9, "Arial Bold", SlateGray);
        ObjectSet("lab9", OBJPROP_CORNER, 0);
        ObjectSet("lab9", OBJPROP_XDISTANCE, 385);
        ObjectSet("lab9", OBJPROP_YDISTANCE, 17);       
   
   ObjectCreate("lab10", OBJ_LABEL, WindowFind("PT"), 0, 0);
        ObjectSetText("lab10","HighCls", 9, "Arial Bold", SlateGray);
        ObjectSet("lab10", OBJPROP_CORNER, 0);
        ObjectSet("lab10", OBJPROP_XDISTANCE, 110);
        ObjectSet("lab10", OBJPROP_YDISTANCE, 0);       
   
   ObjectCreate("lab11", OBJ_LABEL, WindowFind("PT"), 0, 0);
        ObjectSetText("lab11",DoubleToStr(v2,Digits),12, "Arial Bold", SlateGray);
        ObjectSet("lab11", OBJPROP_CORNER, 0);
        ObjectSet("lab11", OBJPROP_XDISTANCE, 95);
        ObjectSet("lab11", OBJPROP_YDISTANCE, 13);
   
   ObjectCreate("lab12", OBJ_LABEL, WindowFind("PT"), 0, 0);
        ObjectSetText("lab12","LowCls", 9, "Arial Bold", SlateGray);
        ObjectSet("lab12", OBJPROP_CORNER, 0);
        ObjectSet("lab12", OBJPROP_XDISTANCE, 213);
        ObjectSet("lab12", OBJPROP_YDISTANCE, 0);       
   
   ObjectCreate("lab13", OBJ_LABEL, WindowFind("PT"), 0, 0);
        ObjectSetText("lab13",DoubleToStr(v1,Digits),12, "Arial Bold", SlateGray);
        ObjectSet("lab13", OBJPROP_CORNER, 0);
        ObjectSet("lab13", OBJPROP_XDISTANCE, 210);
        ObjectSet("lab13", OBJPROP_YDISTANCE, 13);
   
   /*ObjectCreate("lab14", OBJ_LABEL, WindowFind("PT"), 0, 0);
        ObjectSetText("lab14","Square", 9, "Arial Bold", SlateGray);
        ObjectSet("lab14", OBJPROP_CORNER, 0);
        ObjectSet("lab14", OBJPROP_XDISTANCE, 312);
        ObjectSet("lab14", OBJPROP_YDISTANCE, 0);       
   
   ObjectCreate("lab15", OBJ_LABEL, WindowFind("PT"), 0, 0);
        ObjectSetText("lab15",DoubleToStr(fractal,Digits),12, "Arial Bold", SlateGray);
        ObjectSet("lab15", OBJPROP_CORNER, 0);
        ObjectSet("lab15", OBJPROP_XDISTANCE, 308);
        ObjectSet("lab15", OBJPROP_YDISTANCE, 13);
   */
   ObjectCreate("lab16", OBJ_LABEL, WindowFind("PT"), 0, 0);
        ObjectSetText("lab16","P", 10, "Arial Bold", Peru);
        ObjectSet("lab16", OBJPROP_CORNER, 0);
        ObjectSet("lab16", OBJPROP_XDISTANCE, 10);
        ObjectSet("lab16", OBJPROP_YDISTANCE, 22);       
   
   ObjectCreate("lab17", OBJ_LABEL, WindowFind("PT"), 0, 0);
        ObjectSetText("lab17",DoubleToStr(P,Digits-4),15, "Arial Bold", Peru);
        ObjectSet("lab17", OBJPROP_CORNER, 0);
        ObjectSet("lab17", OBJPROP_XDISTANCE, 20);
        ObjectSet("lab17", OBJPROP_YDISTANCE, 17);
   
   
   // End Data window code     


{
if( (nTime != Time[0]) || (CurPeriod != Period()) ) {
   
   v1=(Close[Lowest(NULL,0,MODE_CLOSE,P+StepBack,0)]);
   v2=(Close[Highest(NULL,0,MODE_CLOSE,P+StepBack,0)]);
}
//determine fractal.....
   if( v2<=250000 && v2>25000 )
   fractal=100000;
   else
     if( v2<=25000 && v2>2500 )
     fractal=10000;
     else
       if( v2<=2500 && v2>250 )
       fractal=1000;
       else
         if( v2<=250 && v2>25 )
         fractal=100;
         else
           if( v2<=25 && v2>12.5 )
           fractal=12.5;
           else
             if( v2<=12.5 && v2>6.25)
             fractal=12.5;
             else
               if( v2<=6.25 && v2>3.125 )
               fractal=6.25;
               else
                 if( v2<=3.125 && v2>1.5625 )
                 fractal=3.125;
                 else
                   if( v2<=1.5625 && v2>0.390625 )
                   fractal=1.5625;
                   else
                     if( v2<=0.390625 && v2>0)
                     fractal=0.1953125;
     
   range=(v2-v1);
   sum=MathFloor(MathLog(fractal/range)/MathLog(2));
   octave=fractal*(MathPow(0.5,sum));
   mn=MathFloor(v1/octave)*octave;
   if( (mn+octave)>v2 )
   mx=mn+octave; 
   else
     mx=mn+(2*octave);

// calculating xx
//x2
    if( (v1>=(3*(mx-mn)/16+mn)) && (v2<=(9*(mx-mn)/16+mn)) )
    x2=mn+(mx-mn)/2; 
    else x2=0;
//x1
    if( (v1>=(mn-(mx-mn)/8))&& (v2<=(5*(mx-mn)/8+mn)) && (x2==0) )
    x1=mn+(mx-mn)/2; 
    else x1=0;

//x4
    if( (v1>=(mn+7*(mx-mn)/16))&& (v2<=(13*(mx-mn)/16+mn)) )
    x4=mn+3*(mx-mn)/4; 
    else x4=0;

//x5
    if( (v1>=(mn+3*(mx-mn)/8))&& (v2<=(9*(mx-mn)/8+mn))&& (x4==0) )
    x5=mx; 
    else  x5=0;

//x3
    if( (v1>=(mn+(mx-mn)/8))&& (v2<=(7*(mx-mn)/8+mn))&& (x1==0) && (x2==0) && (x4==0) && (x5==0) )
    x3=mn+3*(mx-mn)/4; 
    else x3=0;

//x6
    if( (x1+x2+x3+x4+x5) ==0 )
    x6=mx; 
    else x6=0;

     finalH = x1+x2+x3+x4+x5+x6;
// calculating yy
//y1
    if( x1>0 )
    y1=mn; 
    else y1=0;

//y2
    if( x2>0 )
    y2=mn+(mx-mn)/4; 
    else y2=0;

//y3
    if( x3>0 )
    y3=mn+(mx-mn)/4; 
    else y3=0;

//y4
    if( x4>0 )
    y4=mn+(mx-mn)/2; 
    else y4=0;

//y5
    if( x5>0 )
    y5=mn+(mx-mn)/2; 
    else y5=0;

//y6
    if( (finalH>0) && ((y1+y2+y3+y4+y5)==0) )
    y6=mn; 
    else y6=0;

    finalL = y1+y2+y3+y4+y5+y6;

    for( i=0; i<OctLinesCnt; i++) {
         mml[i] = 0;
         }
         
   dmml = (finalH-finalL)/8;

   mml[0] =(finalL-dmml*2); //-2/8
   for( i=1; i<OctLinesCnt; i++) {
        mml[i] = mml[i-1] + dmml;
        }
   for( i=0; i<OctLinesCnt; i++ ){
        buff_str = "mml"+i;
        if(ObjectFind(buff_str) == -1) {
           ObjectCreate(buff_str, OBJ_HLINE, 0, Time[0], mml[i]);
           ObjectSet(buff_str, OBJPROP_STYLE, STYLE_SOLID);
           ObjectSet(buff_str, OBJPROP_COLOR, mml_clr[i]);
           ObjectSet(buff_str, OBJPROP_WIDTH,1);
           ObjectMove(buff_str, 0, Time[0],  mml[i]);
           }
        else {
           ObjectMove(buff_str, 0, Time[0],  mml[i]);
           } 
        buff_str = "mml_txt"+i;
        if(ObjectFind(buff_str) == -1) {
           ObjectCreate(buff_str, OBJ_TEXT, 0, Time[mml_shft], mml_shft);
           ObjectSetText(buff_str, ln_txt[i], 8, "Verdana", mml_clr[i]);
           ObjectMove(buff_str, 0, Time[mml_shft],  mml[i]);
           }
        else {
           ObjectMove(buff_str, 0, Time[mml_shft],  mml[i]);
           }
        } // for( i=1; i<=OctLinesCnt; i++ ){
//Comment("\n"," ");
   nTime    = Time[0];
   CurPeriod= Period();
CreateObj(MMFrame, finalH, finalL, MMColor);
CreateObj(MMBot, finalL, mml[0], MM2Color);
CreateObj(MMTop, finalH, mml[12], MM2Color);
   }
 //Data Spool
 double z1,f8,f7,f6,f5,f4,f3,f2,f1;
 double z2,b8,b7,b6,b5,b4,b3,b2,b1;
 double z3,c8,c7,c6,c5,c4,c3,c2,c1;
 double c11,c12,c13,c14,b11,b12,b13,b14;
 
 z1 = (MathFloor(myFirstValue/(fractal/8))*(fractal/8));
 f8 = z1+((fractal/64)*8);
 f7 = z1+((fractal/64)*7);
 f6 = z1+((fractal/64)*6);
 f5 = z1+((fractal/64)*5);
 f4 = z1+((fractal/64)*4);
 f3 = z1+((fractal/64)*3);
 f2 = z1+((fractal/64)*2);
 f1 = z1+((fractal/64)*1);
  
 //b8 = z1+((fractal/512)*0);
 
 z2 = (MathFloor(myFirstValue/(fractal/64))*(fractal/64));
 b8 = z2+((fractal/512)*8);
 b7 = z2+((fractal/512)*7);
 b6 = z2+((fractal/512)*6);
 b5 = z2+((fractal/512)*5);
 b4 = z2+((fractal/512)*4);
 b3 = z2+((fractal/512)*3);
 b2 = z2+((fractal/512)*2);
 b1 = z2+((fractal/512)*1);
 b11 = z2-((fractal/512)*1);
 b12 = z2-((fractal/512)*2);
 b13 = z2+((fractal/512)*9);
 b14 = z2+((fractal/512)*10);
 
 z3 = (MathFloor(myFirstValue/(fractal/512))*(fractal/512));
 c8 = z3+((fractal/4096)*8);
 c7 = z3+((fractal/4096)*7);
 c6 = z3+((fractal/4096)*6);
 c5 = z3+((fractal/4096)*5);
 c4 = z3+((fractal/4096)*4);
 c3 = z3+((fractal/4096)*3);
 c2 = z3+((fractal/4096)*2);
 c1 = z3+((fractal/4096)*1);
 c11 = z3-((fractal/4096)*1);
 c12 = z3-((fractal/4096)*2);
 c13 = z3+((fractal/4096)*9);
 c14 = z3+((fractal/4096)*10);
  
 ObjectCreate("lab8/8", OBJ_LABEL, WindowFind("PT"), 0, 0);
        ObjectSetText("lab8/8","8/8", 8, "Tahoma Bold", SteelBlue);
        ObjectSet("lab8/8", OBJPROP_CORNER, 0);
        ObjectSet("lab8/8", OBJPROP_XDISTANCE, 10);
        ObjectSet("lab8/8", OBJPROP_YDISTANCE, 50);
 
 ObjectCreate("lab7/8", OBJ_LABEL, WindowFind("PT"), 0, 0);
        ObjectSetText("lab7/8","7/8", 8, "Tahoma Bold", SteelBlue);
        ObjectSet("lab7/8", OBJPROP_CORNER, 0);
        ObjectSet("lab7/8", OBJPROP_XDISTANCE, 10);
        ObjectSet("lab7/8", OBJPROP_YDISTANCE, 60);       
 
 ObjectCreate("lab6/8", OBJ_LABEL, WindowFind("PT"), 0, 0);
        ObjectSetText("lab6/8","6/8", 8, "Tahoma Bold", SteelBlue);
        ObjectSet("lab6/8", OBJPROP_CORNER, 0);
        ObjectSet("lab6/8", OBJPROP_XDISTANCE, 10);
        ObjectSet("lab6/8", OBJPROP_YDISTANCE, 70);
 
 ObjectCreate("lab5/8", OBJ_LABEL, WindowFind("PT"), 0, 0);
        ObjectSetText("lab5/8","5/8", 8, "Tahoma Bold", SteelBlue);
        ObjectSet("lab5/8", OBJPROP_CORNER, 0);
        ObjectSet("lab5/8", OBJPROP_XDISTANCE, 10);
        ObjectSet("lab5/8", OBJPROP_YDISTANCE, 80);
 
 ObjectCreate("lab4/8", OBJ_LABEL, WindowFind("PT"), 0, 0);
        ObjectSetText("lab4/8","4/8", 8, "Tahoma Bold", SteelBlue);
        ObjectSet("lab4/8", OBJPROP_CORNER, 0);
        ObjectSet("lab4/8", OBJPROP_XDISTANCE, 10);
        ObjectSet("lab4/8", OBJPROP_YDISTANCE, 90);
 
 ObjectCreate("lab3/8", OBJ_LABEL, WindowFind("PT"), 0, 0);
        ObjectSetText("lab3/8","3/8", 8, "Tahoma Bold", SteelBlue);
        ObjectSet("lab3/8", OBJPROP_CORNER, 0);
        ObjectSet("lab3/8", OBJPROP_XDISTANCE, 10);
        ObjectSet("lab3/8", OBJPROP_YDISTANCE, 100);
        
 ObjectCreate("lab2/8", OBJ_LABEL, WindowFind("PT"), 0, 0);
        ObjectSetText("lab2/8","2/8", 8, "Tahoma Bold", SteelBlue);
        ObjectSet("lab2/8", OBJPROP_CORNER, 0);
        ObjectSet("lab2/8", OBJPROP_XDISTANCE, 10);
        ObjectSet("lab2/8", OBJPROP_YDISTANCE, 110);       
 
 ObjectCreate("lab1/8", OBJ_LABEL, WindowFind("PT"), 0, 0);
        ObjectSetText("lab1/8","1/8", 8, "Tahoma Bold", SteelBlue);
        ObjectSet("lab1/8", OBJPROP_CORNER, 0);
        ObjectSet("lab1/8", OBJPROP_XDISTANCE, 10);
        ObjectSet("lab1/8", OBJPROP_YDISTANCE, 120);
 
 ObjectCreate("lab0/8", OBJ_LABEL, WindowFind("PT"), 0, 0);
        ObjectSetText("lab0/8","0/8", 8, "Tahoma Bold", SteelBlue);
        ObjectSet("lab0/8", OBJPROP_CORNER, 0);
        ObjectSet("lab0/8", OBJPROP_XDISTANCE, 10);
        ObjectSet("lab0/8", OBJPROP_YDISTANCE, 130);
 
 ObjectCreate("lab+1/8", OBJ_LABEL, WindowFind("PT"), 0, 0);
        ObjectSetText("lab+1/8","+1/8", 8, "Tahoma Bold", SteelBlue);
        ObjectSet("lab+1/8", OBJPROP_CORNER, 0);
        ObjectSet("lab+1/8", OBJPROP_XDISTANCE, 45);
        ObjectSet("lab+1/8", OBJPROP_YDISTANCE, 40);
 
 ObjectCreate("lab+2/8", OBJ_LABEL, WindowFind("PT"), 0, 0);
        ObjectSetText("lab+2/8","+2/8", 8, "Tahoma Bold", SteelBlue);
        ObjectSet("lab+2/8", OBJPROP_CORNER, 0);
        ObjectSet("lab+2/8", OBJPROP_XDISTANCE, 45);
        ObjectSet("lab+2/8", OBJPROP_YDISTANCE, 30);
 
 ObjectCreate("lab-1/8", OBJ_LABEL, WindowFind("PT"), 0, 0);
        ObjectSetText("lab-1/8","-1/8", 8, "Tahoma Bold", SteelBlue);
        ObjectSet("lab-1/8", OBJPROP_CORNER, 0);
        ObjectSet("lab-1/8", OBJPROP_XDISTANCE, 49);
        ObjectSet("lab-1/8", OBJPROP_YDISTANCE, 140);
 
 ObjectCreate("lab-2/8", OBJ_LABEL, WindowFind("PT"), 0, 0);
        ObjectSetText("lab-2/8","-2/8", 8, "Tahoma Bold", SteelBlue);
        ObjectSet("lab-2/8", OBJPROP_CORNER, 0);
        ObjectSet("lab-2/8", OBJPROP_XDISTANCE, 49);
        ObjectSet("lab-2/8", OBJPROP_YDISTANCE, 150);
 
 ObjectCreate("labf8", OBJ_LABEL, WindowFind("PT"), 0, 0);
        ObjectSetText("labf8",DoubleToStr(f8,4),8, "Tahoma Bold", SlateGray);
        ObjectSet("labf8", OBJPROP_CORNER, 0);
        ObjectSet("labf8", OBJPROP_XDISTANCE, 35);
        ObjectSet("labf8", OBJPROP_YDISTANCE, 50);
        
 ObjectCreate("labf7", OBJ_LABEL, WindowFind("PT"), 0, 0);
        ObjectSetText("labf7",DoubleToStr(f7,4),8, "Tahoma Bold", SlateGray);
        ObjectSet("labf7", OBJPROP_CORNER, 0);
        ObjectSet("labf7", OBJPROP_XDISTANCE, 35);
        ObjectSet("labf7", OBJPROP_YDISTANCE, 60);
        
 ObjectCreate("labf6", OBJ_LABEL, WindowFind("PT"), 0, 0);
        ObjectSetText("labf6",DoubleToStr(f6,4),8, "Tahoma Bold", Coral);
        ObjectSet("labf6", OBJPROP_CORNER, 0);
        ObjectSet("labf6", OBJPROP_XDISTANCE, 35);
        ObjectSet("labf6", OBJPROP_YDISTANCE, 70);
        
 ObjectCreate("labf5", OBJ_LABEL, WindowFind("PT"), 0, 0);
        ObjectSetText("labf5",DoubleToStr(f5,4),8, "Tahoma Bold", SlateGray);
        ObjectSet("labf5", OBJPROP_CORNER, 0);
        ObjectSet("labf5", OBJPROP_XDISTANCE, 35);
        ObjectSet("labf5", OBJPROP_YDISTANCE, 80);
        
 ObjectCreate("labf4", OBJ_LABEL, WindowFind("PT"), 0, 0);
        ObjectSetText("labf4",DoubleToStr(f4,4),8, "Tahoma Bold", Orange);
        ObjectSet("labf4", OBJPROP_CORNER, 0);
        ObjectSet("labf4", OBJPROP_XDISTANCE, 35);
        ObjectSet("labf4", OBJPROP_YDISTANCE, 90);
        
 ObjectCreate("labf3", OBJ_LABEL, WindowFind("PT"), 0, 0);
        ObjectSetText("labf3",DoubleToStr(f3,4),8, "Tahoma Bold", SlateGray);
        ObjectSet("labf3", OBJPROP_CORNER, 0);
        ObjectSet("labf3", OBJPROP_XDISTANCE, 35);
        ObjectSet("labf3", OBJPROP_YDISTANCE, 100);
 
 ObjectCreate("labf2", OBJ_LABEL, WindowFind("PT"), 0, 0);
        ObjectSetText("labf2",DoubleToStr(f2,4),8, "Tahoma Bold", Coral);
        ObjectSet("labf2", OBJPROP_CORNER, 0);
        ObjectSet("labf2", OBJPROP_XDISTANCE, 35);
        ObjectSet("labf2", OBJPROP_YDISTANCE, 110);
        
 ObjectCreate("labf1", OBJ_LABEL, WindowFind("PT"), 0, 0);
        ObjectSetText("labf1",DoubleToStr(f1,4),8, "Tahoma Bold", SlateGray);
        ObjectSet("labf1", OBJPROP_CORNER, 0);
        ObjectSet("labf1", OBJPROP_XDISTANCE, 35);
        ObjectSet("labf1", OBJPROP_YDISTANCE, 120);
        
 ObjectCreate("labz1", OBJ_LABEL, WindowFind("PT"), 0, 0);
        ObjectSetText("labz1",DoubleToStr(z1,4),8, "Tahoma Bold", SlateGray);
        ObjectSet("labz1", OBJPROP_CORNER, 0);
        ObjectSet("labz1", OBJPROP_XDISTANCE, 35);
        ObjectSet("labz1", OBJPROP_YDISTANCE, 130);
        
 ObjectCreate("labb8", OBJ_LABEL, WindowFind("PT"), 0, 0);
        ObjectSetText("labb8",DoubleToStr(b8,4),8, "Tahoma Bold", SlateGray);
        ObjectSet("labb8", OBJPROP_CORNER, 0);
        ObjectSet("labb8", OBJPROP_XDISTANCE, 80);
        ObjectSet("labb8", OBJPROP_YDISTANCE, 50);                                                               
  
 ObjectCreate("labb7", OBJ_LABEL, WindowFind("PT"), 0, 0);
        ObjectSetText("labb7",DoubleToStr(b7,4),8, "Tahoma Bold", SlateGray);
        ObjectSet("labb7", OBJPROP_CORNER, 0);
        ObjectSet("labb7", OBJPROP_XDISTANCE, 80);
        ObjectSet("labb7", OBJPROP_YDISTANCE, 60);
 
 ObjectCreate("labb6", OBJ_LABEL, WindowFind("PT"), 0, 0);
        ObjectSetText("labb6",DoubleToStr(b6,4),8, "Tahoma Bold", Coral);
        ObjectSet("labb6", OBJPROP_CORNER, 0);
        ObjectSet("labb6", OBJPROP_XDISTANCE, 80);
        ObjectSet("labb6", OBJPROP_YDISTANCE, 70);
 
 ObjectCreate("labb5", OBJ_LABEL, WindowFind("PT"), 0, 0);
        ObjectSetText("labb5",DoubleToStr(b5,4),8, "Tahoma Bold", SlateGray);
        ObjectSet("labb5", OBJPROP_CORNER, 0);
        ObjectSet("labb5", OBJPROP_XDISTANCE, 80);
        ObjectSet("labb5", OBJPROP_YDISTANCE, 80);
 
 ObjectCreate("labb4", OBJ_LABEL, WindowFind("PT"), 0, 0);
        ObjectSetText("labb4",DoubleToStr(b4,4),8, "Tahoma Bold", Orange);
        ObjectSet("labb4", OBJPROP_CORNER, 0);
        ObjectSet("labb4", OBJPROP_XDISTANCE, 80);
        ObjectSet("labb4", OBJPROP_YDISTANCE, 90);
 
 ObjectCreate("labb3", OBJ_LABEL, WindowFind("PT"), 0, 0);
        ObjectSetText("labb3",DoubleToStr(b3,4),8, "Tahoma Bold", SlateGray);
        ObjectSet("labb3", OBJPROP_CORNER, 0);
        ObjectSet("labb3", OBJPROP_XDISTANCE, 80);
        ObjectSet("labb3", OBJPROP_YDISTANCE, 100);
 
 ObjectCreate("labb2", OBJ_LABEL, WindowFind("PT"), 0, 0);
        ObjectSetText("labb2",DoubleToStr(b2,4),8, "Tahoma Bold", Coral);
        ObjectSet("labb2", OBJPROP_CORNER, 0);
        ObjectSet("labb2", OBJPROP_XDISTANCE, 80);
        ObjectSet("labb2", OBJPROP_YDISTANCE, 110);
 
 ObjectCreate("labb1", OBJ_LABEL, WindowFind("PT"), 0, 0);
        ObjectSetText("labb1",DoubleToStr(b1,4),8, "Tahoma Bold", SlateGray);
        ObjectSet("labb1", OBJPROP_CORNER, 0);
        ObjectSet("labb1", OBJPROP_XDISTANCE, 80);
        ObjectSet("labb1", OBJPROP_YDISTANCE, 120);
 
 ObjectCreate("labz2", OBJ_LABEL, WindowFind("PT"), 0, 0);
        ObjectSetText("labz2",DoubleToStr(z2,4),8, "Tahoma Bold", SlateGray);
        ObjectSet("labz2", OBJPROP_CORNER, 0);
        ObjectSet("labz2", OBJPROP_XDISTANCE, 80);
        ObjectSet("labz2", OBJPROP_YDISTANCE, 130);
 
 ObjectCreate("labc8", OBJ_LABEL, WindowFind("PT"), 0, 0);
        ObjectSetText("labc8",DoubleToStr(c8,4),8, "Tahoma Bold", SlateGray);
        ObjectSet("labc8", OBJPROP_CORNER, 0);
        ObjectSet("labc8", OBJPROP_XDISTANCE, 125);
        ObjectSet("labc8", OBJPROP_YDISTANCE, 50);
 
 ObjectCreate("labc7", OBJ_LABEL, WindowFind("PT"), 0, 0);
        ObjectSetText("labc7",DoubleToStr(c7,4),8, "Tahoma Bold", SlateGray);
        ObjectSet("labc7", OBJPROP_CORNER, 0);
        ObjectSet("labc7", OBJPROP_XDISTANCE, 125);
        ObjectSet("labc7", OBJPROP_YDISTANCE, 60);
 
 ObjectCreate("labc6", OBJ_LABEL, WindowFind("PT"), 0, 0);
        ObjectSetText("labc6",DoubleToStr(c6,4),8, "Tahoma Bold", Coral);
        ObjectSet("labc6", OBJPROP_CORNER, 0);
        ObjectSet("labc6", OBJPROP_XDISTANCE, 125);
        ObjectSet("labc6", OBJPROP_YDISTANCE, 70);
 
 ObjectCreate("labc5", OBJ_LABEL, WindowFind("PT"), 0, 0);
        ObjectSetText("labc5",DoubleToStr(c5,4),8, "Tahoma Bold", SlateGray);
        ObjectSet("labc5", OBJPROP_CORNER, 0);
        ObjectSet("labc5", OBJPROP_XDISTANCE, 125);
        ObjectSet("labc5", OBJPROP_YDISTANCE, 80);
 
 ObjectCreate("labc4", OBJ_LABEL, WindowFind("PT"), 0, 0);
        ObjectSetText("labc4",DoubleToStr(c4,4),8, "Tahoma Bold", Orange);
        ObjectSet("labc4", OBJPROP_CORNER, 0);
        ObjectSet("labc4", OBJPROP_XDISTANCE, 125);
        ObjectSet("labc4", OBJPROP_YDISTANCE, 90);
 
 ObjectCreate("labc3", OBJ_LABEL, WindowFind("PT"), 0, 0);
        ObjectSetText("labc3",DoubleToStr(c3,4),8, "Tahoma Bold", SlateGray);
        ObjectSet("labc3", OBJPROP_CORNER, 0);
        ObjectSet("labc3", OBJPROP_XDISTANCE, 125);
        ObjectSet("labc3", OBJPROP_YDISTANCE, 100);
 
 ObjectCreate("labc2", OBJ_LABEL, WindowFind("PT"), 0, 0);
        ObjectSetText("labc2",DoubleToStr(c2,4),8, "Tahoma Bold", Coral);
        ObjectSet("labc2", OBJPROP_CORNER, 0);
        ObjectSet("labc2", OBJPROP_XDISTANCE, 125);
        ObjectSet("labc2", OBJPROP_YDISTANCE, 110);
 
 ObjectCreate("labc1", OBJ_LABEL, WindowFind("PT"), 0, 0);
        ObjectSetText("labc1",DoubleToStr(c1,4),8, "Tahoma Bold", SlateGray);
        ObjectSet("labc1", OBJPROP_CORNER, 0);
        ObjectSet("labc1", OBJPROP_XDISTANCE, 125);
        ObjectSet("labc1", OBJPROP_YDISTANCE, 120);
 
 ObjectCreate("labz3", OBJ_LABEL, WindowFind("PT"), 0, 0);
        ObjectSetText("labz3",DoubleToStr(z3,4),8, "Tahoma Bold", SlateGray);
        ObjectSet("labz3", OBJPROP_CORNER, 0);
        ObjectSet("labz3", OBJPROP_XDISTANCE, 125);
        ObjectSet("labz3", OBJPROP_YDISTANCE, 130);
 
 ObjectCreate("labc11", OBJ_LABEL, WindowFind("PT"), 0, 0);
        ObjectSetText("labc11",DoubleToStr(c11,4),8, "Tahoma Bold", Crimson);
        ObjectSet("labc11", OBJPROP_CORNER, 0);
        ObjectSet("labc11", OBJPROP_XDISTANCE, 125);
        ObjectSet("labc11", OBJPROP_YDISTANCE, 140);
 
 ObjectCreate("labc12", OBJ_LABEL, WindowFind("PT"), 0, 0);
        ObjectSetText("labc12",DoubleToStr(c12,4),8, "Tahoma Bold", Crimson);
        ObjectSet("labc12", OBJPROP_CORNER, 0);
        ObjectSet("labc12", OBJPROP_XDISTANCE, 125);
        ObjectSet("labc12", OBJPROP_YDISTANCE, 150);
 
 ObjectCreate("labc13", OBJ_LABEL, WindowFind("PT"), 0, 0);
        ObjectSetText("labc13",DoubleToStr(c13,4),8, "Tahoma Bold", Crimson);
        ObjectSet("labc13", OBJPROP_CORNER, 0);
        ObjectSet("labc13", OBJPROP_XDISTANCE, 125);
        ObjectSet("labc13", OBJPROP_YDISTANCE, 40);
 
 ObjectCreate("labc14", OBJ_LABEL, WindowFind("PT"), 0, 0);
        ObjectSetText("labc14",DoubleToStr(c14,4),8, "Tahoma Bold", Crimson);
        ObjectSet("labc14", OBJPROP_CORNER, 0);
        ObjectSet("labc14", OBJPROP_XDISTANCE, 125);
        ObjectSet("labc14", OBJPROP_YDISTANCE, 30);
 
 ObjectCreate("labb11", OBJ_LABEL, WindowFind("PT"), 0, 0);
        ObjectSetText("labb11",DoubleToStr(b11,4),8, "Tahoma Bold", Crimson);
        ObjectSet("labb11", OBJPROP_CORNER, 0);
        ObjectSet("labb11", OBJPROP_XDISTANCE, 80);
        ObjectSet("labb11", OBJPROP_YDISTANCE, 140);
 
 ObjectCreate("labb12", OBJ_LABEL, WindowFind("PT"), 0, 0);
        ObjectSetText("labb12",DoubleToStr(b12,4),8, "Tahoma Bold", Crimson);
        ObjectSet("labb12", OBJPROP_CORNER, 0);
        ObjectSet("labb12", OBJPROP_XDISTANCE, 80);
        ObjectSet("labb12", OBJPROP_YDISTANCE, 150);
 
 ObjectCreate("labb13", OBJ_LABEL, WindowFind("PT"), 0, 0);
        ObjectSetText("labb13",DoubleToStr(b13,4),8, "Tahoma Bold", Crimson);
        ObjectSet("labb13", OBJPROP_CORNER, 0);
        ObjectSet("labb13", OBJPROP_XDISTANCE, 80);
        ObjectSet("labb13", OBJPROP_YDISTANCE, 40);
 
 ObjectCreate("labb14", OBJ_LABEL, WindowFind("PT"), 0, 0);
        ObjectSetText("labb14",DoubleToStr(b14,4),8, "Tahoma Bold", Crimson);
        ObjectSet("labb14", OBJPROP_CORNER, 0);
        ObjectSet("labb14", OBJPROP_XDISTANCE, 80);
        ObjectSet("labb14", OBJPROP_YDISTANCE, 30);
 
 /*Comment("\n","8/8 ",DoubleToStr(f8,4),"  ",DoubleToStr(b8,4),"  ",c8,
 "\n","7/8 ",DoubleToStr(f7,4),"  ",DoubleToStr(b7,4),"  ",DoubleToStr(c7,4),
 "\n","6/8 ",DoubleToStr(f6,4),"  ",DoubleToStr(b6,4),"  ",DoubleToStr(c6,4),
 "\n","5/8 ",DoubleToStr(f5,4),"  ",DoubleToStr(b5,4),"  ",DoubleToStr(c5,4),
 "\n","4/8 ",DoubleToStr(f4,4),"  ",DoubleToStr(b4,4),"  ",DoubleToStr(c4,4),
 "\n","3/8 ",DoubleToStr(f3,4),"  ",DoubleToStr(b3,4),"  ",DoubleToStr(c3,4),
 "\n","2/8 ",DoubleToStr(f2,4),"  ",DoubleToStr(b2,4),"  ",DoubleToStr(c2,4),
 "\n","1/8 ",DoubleToStr(f1,4),"  ",DoubleToStr(b1,4),"  ",DoubleToStr(c1,4),
 "\n","0/8 ",DoubleToStr(z1,4),"  ",DoubleToStr(z2,4),"  ",DoubleToStr(z3,4));
 */
//---- End Of Program

  return(0);
  }
//+------------------------------------------------------------------+