//+------------------+
//| XY Test          |
//|------------------+

#property  indicator_chart_window

// used for verbose error logging
#include <stdlib.mqh>

//+-------------+
//| Custom init |
//|-------------+
// Called ONCE when EA is added to chart or recompiled

int init()
  {
   Comment(" ");
   Print("Init complete - script");
  }

//+----------------+
//| Custom DE-init |
//+----------------+
// Called ONCE when EA is removed from chart

int deinit()
  {
   Comment(" ");
   Print("DE-Init complete - script");
  }


//+-----------+
//| Main      |
//+-----------+
// Called EACH TICK and each Bar[]
int start()
  {

   string lbl;
   int i;
   double OP;  //order profit

   
   //upper right
   int x=5;
   int y=20;


   drawLabel("ASK", "Ask= "+DoubleToStr(Ask,4), 10 ,20);
   drawLabel("BID", "Bid= "+DoubleToStr(Bid,4), 10 ,40);
   drawLabel("SPD", "Spd= "+DoubleToStr(((Ask-Bid)/Point),1), 10 ,60);
   

   OP=0;
   for(i=OrdersTotal(); i>=0; i--)
     {
      OrderSelect(i, SELECT_BY_POS, MODE_TRADES);
      OP=OP+OrderProfit();
     }
   
   drawLabel("PROFIT", "Profit= "+DoubleToStr(OP,2)+" on "+OrdersTotal()+" orders", 10 ,80);



  } // start()


void drawLabel (string mylbl, string mydata, int myX, int myY)
  {
   ObjectDelete (mylbl );
   ObjectCreate (mylbl, OBJ_LABEL, 0, 0, 0 );
   ObjectSetText(mylbl, mydata,12,"Courier",Aqua);
   ObjectSet    (mylbl, OBJPROP_CORNER, 0);
   ObjectSet    (mylbl, OBJPROP_XDISTANCE, myX);
   ObjectSet    (mylbl, OBJPROP_YDISTANCE, myY);
   
  }