Plz Anybody Correct This very Usefull Afl !!!

function exportData()
{printf("Data Export");
tradedir = "C:\\RoboTrade\\";
filename = "" + Name() + ".txt";
fullpath = tradedir + filename;
fmkdir( tradedir );.
fr = fopen( fullpath, "r");
if ( fr == 0 )
{fh = fopen( fullpath, "w" );
Oml = "";
if ( fh ){Oml = "<trade>\n" + "<psym>" + Name() + "</psym>\n" + "<pclose>" + C[BarCount-1] + "</pclose>\n" + "</trade>\n";
fputs( Oml,fh );
}
fclose( fh );
}
else
{fclose( fr );
}
}
function exportSignal(entrysignal, posize, sysname)
{tradedir = "C:\\RoboTrade\\";
filename = "" + Name() + ".txt";
fullpath = tradedir + filename;
fmkdir( tradedir );
if (entrysignal == "Sell" OR entrysignal == "Cover")Ostime = WriteVal(LastValue(TimeNum()) + (Interval() / 60 * 100), 1, False);
else
Ostime = WriteVal(LastValue(TimeNum()), 1, False);
Ostime = WriteIf(StrLen(Ostime) < 6, "0" + Ostime, Ostime);
Ostime = NumToStr( LastValue(DateNum()), 0 , False ) + Ostime;
Ohtime = WriteVal(LastValue(TimeNum()) + (Interval() / 60 * 100), 1, False);
Ohtime = WriteIf(StrLen(Ohtime) < 6, "0" + Ohtime, "" + Ohtime);
Ohtime = NumToStr( LastValue(DateNum()), 0 , False ) + Ohtime;
fr = fopen( fullpath, "r" );
print f("Signal : " + entrysignal);
if ( fr == 0 )
{
fh = fopen( fullpath, "w" );
Oml = "";
if ( fh )
{
Oml = "<trade>\n" + "<osym>" + Name() + "</osym>\n" + "<otype>" + entrysignal + "</otype>\n" + "<oprice>" + O[BarCount-1] + "</oprice>\n" + "<ostime>" + Ostime + " </ostime>\n" + "<ohtime>" + Ohtime + "</ohtime>\n" + "<oposition>" + posize + "</oposition>\n" + "<tsname>" + sysname + "</tsname>\n" + "</trade>\n";
fputs( Oml, fh );
}
fclose( fh );
}
else
fclose( fr );
}
stgName = "PowerScalp";
value = PowerSignal();
if (Value == "Buy") exportSignal("Buy", "100", stgName);
if (Value == "Sell") exportSignal("Sell", "100 ", stgName);
if (Value == "Short") exportSignal("Short", "100",stgName);if (Value == "Cover") exportSignal(" Cover", "100", stgName);
if (Value == "Price") exportData();
SetChartOptions (0,chartShowArrows|chartShowDates);
_N(Title = StrFormat("{{NAME}} - {{INTERVAL}} {{DATE}} Open %g, Hi %g, Lo %g, Close %g (%.1f%%) {{VALUES}}" , O, H, L, C, SelectedValue( ROC ( C, 1 ) ) ));
Plot( C, "Close" , ParamColor("Color", colorBlack ), styleNoTitle | ParamStyle("Style") | GetPriceStyle() );