Indicator problem

Can anyone tell me why this indicator-http://cdn.forexfactory.com/images/attach/mq4.gif i-Breakeven.mq4 works fine on the Interbank FX (IBFX) platform but shows wacky calculations on the FXsolutions Australia platform? Here is the entire code. Again, this indicator works fine on the( IBFX) platform which is 5 digits but doesn't work on the FXSolutions Australia platform which is 4 digits. Any help would really be appreciated. thank you #property copyright " 2007 RickD"
#property link "www.e2e-fx.net"

#define major 1
#define minor 0

#property indicator_chart_window
#property indicator_buffers 0

extern int Corner = 0;
extern int dy = 20;

extern color _Header = OrangeRed;
extern color _Text = RoyalBlue;
extern color _Data = CadetBlue;
extern color _Separator = MediumPurple;



string prefix = "capital_";

void init()
{
Comment("");
clear();
}

void deinit()
{
Comment("");
clear();
}

void clear()
{
string name;
int obj_total = ObjectsTotal();
for (int i=obj_total-1; i>=0; i--)
{
name = ObjectName(i);
if (StringFind(name, prefix) == 0) ObjectDelete(name);
}
}

void start()
{
clear();

string Sym[];
double Equity[];
double Lots[];
ArrayResize(Sym, 0);
ArrayResize(Equity, 0);
ArrayResize(Lots, 0);

int cnt = OrdersTotal();
for (int i=0; i<cnt; i++)
{
if (!OrderSelect(i, SELECT_BY_POS, MODE_TRADES)) continue;

int type = OrderType();
if (type != OP_BUY && type != OP_SELL) continue;

bool found = false;

int size = ArraySize(Sym);
for (int k=0; k<size; k++)
{
if (Sym[k] == OrderSymbol()) {
Equity[k] += OrderProfit() + OrderCommission() + OrderSwap();
if (type == OP_BUY) Lots[k] += OrderLots();
if (type == OP_SELL) Lots[k] -= OrderLots();
found = true;
break;
}
}

if (found) continue;

int ind = ArraySize(Sym);
ArrayResize(Sym, ind+1);
Sym[ind] = OrderSymbol();

ArrayResize(Equity, ind+1);
Equity[ind] = OrderProfit() + OrderCommission() + OrderSwap();

ArrayResize(Lots, ind+1);
if (type == OP_BUY) Lots[k] = OrderLots();
if (type == OP_SELL) Lots[k] = -OrderLots();
}

//-----
string name = prefix + "symbols";
if (ObjectFind(name) == -1) {
ObjectCreate(name, OBJ_LABEL, 0, 0, 0);
}

ObjectSet(name, OBJPROP_XDISTANCE, 30);
ObjectSet(name, OBJPROP_YDISTANCE, 35);
ObjectSetText(name, "Symbol", 10, "Tahoma", _Header);
ObjectSet(name, OBJPROP_CORNER, Corner);


name = prefix + "equity";
if (ObjectFind(name) == -1) {
ObjectCreate(name, OBJ_LABEL, 0, 0, 0);
}

ObjectSet(name, OBJPROP_XDISTANCE, 130);
ObjectSet(name, OBJPROP_YDISTANCE, 35);
ObjectSetText(name, "Equity", 10, "Tahoma", _Header);
ObjectSet(name, OBJPROP_CORNER, Corner);


name = prefix + "breakeven";
if (ObjectFind(name) == -1) {
ObjectCreate(name, OBJ_LABEL, 0, 0, 0);
}

ObjectSet(name, OBJPROP_XDISTANCE, 220);
ObjectSet(name, OBJPROP_YDISTANCE, 35);
ObjectSetText(name, "Breakeven", 10, "Tahoma", _Header);
ObjectSet(name, OBJPROP_CORNER, Corner);


name = prefix + "tmp1";
if (ObjectFind(name) == -1) {
ObjectCreate(name, OBJ_LABEL, 0, 0, 0);
}

ObjectSet(name, OBJPROP_XDISTANCE, 20);
ObjectSet(name, OBJPROP_YDISTANCE, 35+dy);
ObjectSetText(name, "-----------------------------------------------------",
10, "Tahoma", _Separator);
ObjectSet(name, OBJPROP_CORNER, Corner);



double sum = 0;
string level0 = "";

size = ArraySize(Sym);
for (i=0; i<size; i++)
{
if (Lots[i] == 0) {
level0 = "Lock";
}
else {
int dig = MarketInfo(Sym[i], MODE_DIGITS);
double point = MarketInfo(Sym[i], MODE_POINT);

double COP = Lots[i]*MarketInfo(Sym[i], MODE_TICKVALUE);
double val = MarketInfo(Sym[i], MODE_BID) - point*Equity[i]/COP;
level0 = DoubleToStr(val, dig);
}


name = prefix + "symbol"+i;
if (ObjectFind(name) == -1) {
ObjectCreate(name, OBJ_LABEL, 0, 0, 0); ObjectSet(name, OBJPROP_XDISTANCE, 30);
ObjectSet(name, OBJPROP_YDISTANCE, 35+dy*(i+2));
ObjectSetText(name, Sym[i], 10, "Tahoma", _Text);
ObjectSet(name, OBJPROP_CORNER, Corner);


name = prefix + "equity"+i;
if (ObjectFind(name) == -1) {
ObjectCreate(name, OBJ_LABEL, 0, 0, 0);
}

ObjectSet(name, OBJPROP_XDISTANCE, 120);
ObjectSet(name, OBJPROP_YDISTANCE, 35+dy*(i+2));

string eq = DoubleToStr(Equity[i], 2);
if (Equity[i] > 0) eq = "+" + eq;
eq = "$" + eq;

ObjectSetText(name, eq, 10, "Tahoma", _Data);
ObjectSet(name, OBJPROP_CORNER, Corner);


name = prefix + "breakeven"+i;
if (ObjectFind(name) == -1) {
ObjectCreate(name, OBJ_LABEL, 0, 0, 0);
}

ObjectSet(name, OBJPROP_XDISTANCE, 230);
ObjectSet(name, OBJPROP_YDISTANCE, 35+dy*(i+2));
ObjectSetText(name, level0, 10, "Tahoma", _Data);
ObjectSet(name, OBJPROP_CORNER, Corner);


sum += Equity[i];
}


name = prefix + "tmp2";
if (ObjectFind(name) == -1) {
ObjectCreate(name, OBJ_LABEL, 0, 0, 0);
}

ObjectSet(name, OBJPROP_XDISTANCE, 20);
ObjectSet(name, OBJPROP_YDISTANCE, 35+dy*(i+2));
ObjectSetText(name, "-----------------------------------------------------",
10, "Tahoma", _Separator);
ObjectSet(name, OBJPROP_CORNER, Corner);


name = prefix + "total";
if (ObjectFind(name) == -1) {
ObjectCreate(name, OBJ_LABEL, 0, 0, 0);
}

ObjectSet(name, OBJPROP_XDISTANCE, 30);
ObjectSet(name, OBJPROP_YDISTANCE, 35+dy*(i+3));
ObjectSetText(name, "Total", 10, "Tahoma", _Text);
ObjectSet(name, OBJPROP_CORNER, Corner);


name = prefix + "equity_total";
if (ObjectFind(name) == -1) {
ObjectCreate(name, OBJ_LABEL, 0, 0, 0);
}

ObjectSet(name, OBJPROP_XDISTANCE, 120);
ObjectSet(name, OBJPROP_YDISTANCE, 35+dy*(i+3));eq = DoubleToStr(sum, 2);
if (Equity[i] > 0) eq = "+" + eq;
eq = "$" + eq;

ObjectSetText(name, eq, 10, "Tahoma", _Data);
ObjectSet(name, OBJPROP_CORNER, Corner);

http://cdn.forexfactory.com/images/misc/progress.gif http://cdn.forexfactory.com/images/buttons/edit.gif http://cdn.forexfactory.com/images/buttons/quote.gif

What's wrong with this indicator? I don't see any problems both with Alpari (5 digits) and Forex.com (4 digits)?

Here is how this indicator is displaying. Break even values are all screwed up.