[pischinger]

  double PairProfitCalc(){
   double pairprofit=0,buyprofit=0;
   for(cnt=0;cnt<OrdersTotal();cnt++){
    if(OrderSelect(cnt,SELECT_BY_POS,MODE_TRADES))
     if(OrderSymbol()==Symbol() && OrderMagicNumber()==Magic && OrderCloseTime()==0){
       if(OrderType()==OP_BUY)buyprofit=buyprofit+OrderProfit()+OrderSwap()+OrderCommission();
        pairprofit=buyprofit;
      }
   }
   return(pairprofit);
 }