//+------------------------------------------------------------------+
//|                                                       Group_.mq4 |
//|                                                              qmt |
//|                                                                  |
//+------------------------------------------------------------------+



#property copyright "qmt"
#property link      ""

#property indicator_chart_window
//---- input parameters
extern int Per = 30;
datetime beg_t;
double gbpjpy_bid, eurjpy_bid, usdjpy_bid, gbpusd_bid, eurusd_bid; 
double usdchf_bid,chfjpy_bid,audusd_bid,eurchf_bid,gbpchf_bid,gbpeur_bid,jpychf_bid;
string txt;
double value[16];

//+------------------------------------------------------------------+
//| Custom indicator initialization function                         |
//+------------------------------------------------------------------+
int init()
  {
//---- indicators
//----
   return(0);
  }
//+------------------------------------------------------------------+
//| Custom indicator deinitialization function                       |
//+------------------------------------------------------------------+
int deinit()
  {
//----
   
//----
   return(0);
  }
//+------------------------------------------------------------------+
//| Custom indicator iteration function                              |
//+------------------------------------------------------------------+
int start()
  {
//----
   beg_t = CurTime()-Per*60;
   txt = "";
 
   
   gbpjpy_bid = iOpen("GBPJPY",PERIOD_M5,iBarShift("GBPJPY",PERIOD_M5,beg_t));
   usdjpy_bid = iOpen("USDJPY",PERIOD_M5,iBarShift("USDJPY",PERIOD_M5,beg_t));
   eurjpy_bid = iOpen("EURJPY",PERIOD_M5,iBarShift("EURJPY",PERIOD_M5,beg_t));

   gbpusd_bid = iOpen("GBPUSD",PERIOD_M5,iBarShift("GBPUSD",PERIOD_M5,beg_t));
   eurusd_bid = iOpen("EURUSD",PERIOD_M5,iBarShift("EURUSD",PERIOD_M5,beg_t));

   usdchf_bid = iOpen("USDCHF",PERIOD_M5,iBarShift("USDCHF",PERIOD_M5,beg_t));


   value[1] = (MarketInfo("GBPJPY",MODE_BID)-gbpjpy_bid)/MarketInfo("GBPJPY",MODE_POINT);
   value[2] = (MarketInfo("USDJPY",MODE_BID)-usdjpy_bid)/MarketInfo("USDJPY",MODE_POINT);
   value[3] = (MarketInfo("EURJPY",MODE_BID)-eurjpy_bid)/MarketInfo("EURJPY",MODE_POINT);

   value[5] = (MarketInfo("GBPUSD",MODE_BID)-gbpusd_bid)/MarketInfo("GBPUSD",MODE_POINT);
   value[6] = (MarketInfo("EURUSD",MODE_BID)-eurusd_bid)/MarketInfo("EURUSD",MODE_POINT);

   value[9] = (MarketInfo("USDCHF",MODE_BID)-usdchf_bid)/MarketInfo("USDCHF",MODE_POINT);

 
   
   txt = TimeToStr(beg_t,TIME_MINUTES) + " - " + TimeToStr(CurTime(),TIME_MINUTES) + " : "+ "\n";
   Comment(txt, "--------------------------------------------------------", "\n",
" GBPJPY ", value[1], "       ","  GBPUSD ", value[5], "      USDCHF ", value[9], "\n",
" USDJPY ", value[2], "       ","  EURUSD ", value[6], "\n",
" EURJPY ", value[3], "       ", "\n",
"--------------------------------------------------------" , "\n"
);


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