Expert Advisor Programming by Andrew R. Young

Appendix C
// Init function
int init()
{
UsePoint = PipPoint(Symbol());
UseSlippage = GetSlippage(Symbol(),Slippage);
}
// Start function
int start()
{
// Execute on bar open
if(CheckOncePerBar == true)
{
int BarShift = 1;
if(CurrentTimeStamp != Time[0])
{
CurrentTimeStamp = Time[0];
bool NewBar = true;
}
else NewBar = false;
}
else
{
NewBar = true;
BarShift = 0;
}
// Moving averages
double FastMA = iMA(NULL,0,FastMAPeriod,0,0,0,BarShift);
double SlowMA = iMA(NULL,0,SlowMAPeriod,0,0,0,BarShift);
double LastFastMA = iMA(NULL,0,FastMAPeriod,0,0,0,BarShift+1);
double LastSlowMA = iMA(NULL,0,SlowMAPeriod,0,0,0,BarShift+1);
// Calculate lot size
double LotSize = CalcLotSize(DynamicLotSize,EquityPercent,StopLoss,FixedLotSize);
LotSize = VerifyLotSize(LotSize);
// Begin trade block
if(NewBar == true)
{
// Buy order
if(FastMA > SlowMA && LastFastMA