Vars
NumericSeries ma1;
NumericSeries ma2;
NumericSeries ma3;
NumericSeries ma4;
Begin
ma1=AverageFC(Close,l1);
ma2=AverageFC(Close,l2);
ma3=AverageFC(Close,l3);
ma4=AverageFC(Close,l4);
If(ma1[1] > ma2[1] and ma2[1]> ma3[1] and ma3[1]>ma4[1])
Buy(lots,open);
If(ma1[1] <ma2[1] and ma2[1]<ma3[1] and ma3[1]<ma4[1])
SellShort(lots,open);
If(MarketPosition==1 and ma1[1]<ma2[1])
Sell(lots,open);
If(MarketPosition==-1 and ma1[1]>ma2[1])
BuyToCover(lots,open);