Here is the second, positive is a buy, negative is a sell. 
=================
DynamicTrix System
=================
------------------------- 
{Provided By : BTAC (c) Copyright 2003}
length1 := Input("period 1",10,45,21);
length2 := Input("period 2",10,45,21);
length3 := Input("period 3",10,45,21);
EMA1 := Mov(C,length1,E);
EMA2 := Mov(EMA1,length2,E);
EMA3 := Mov(EMA2,length3,E);
DTRIX := If(Ref(EMA3,-1)<>0, ((EMA3-Ref(EMA3,-1))/Ref(EMA3,-1))*100,1);
{use if function to make sure that nominator is not 0}
TL := Mov(DTRIX,5,E);
 
 
{--------}
 {*Buy* if DTRIX crosses over 0 then buy("EL1")next bar at open;}
bbuy1 := If(Cross(dtrix,0)=1,3,0);
 {*exit buy* if DTRIX>0 and DTRIX crosses under TL then exitlong("XL") next bar at open;}
ebuy1 := If((DTRIX>0) AND (Cross(TL,DTRIX)=1),
 -4,0);
{-------}
 {*buy* if DTRIX>0 and DTRIX crosses over TL then buy ("EL2")next bar at open;}
bbuy2 := If((DTRIX>0) AND (Cross(DTRIX,TL)=1),
 1,0);
 {*sell* If DTRIX crosses under 0 then sell ("ES1") next bar at open;}
ebuy2 := If(Cross(0,DTRIX)=1,-2,0);
{-------------}
ssel1 := If(Cross(0,DTRIX)=1,-1,0);
 {*exit sell* if DTRIX<0 and DTRIX crosses over TL then exitshort ("XS")next bar at open;}
esel1 := If((DTRIX>0) AND Cross(DTRIX,TL)=1,
 -2,0);
{----------}
{*sell* if DTRIX<0 and DTRIX crosses under TL then sell("ES2") next bar at open;}
ssel2 := If((DTRIX<0) AND (Cross(TL,DTRIX))=1,
 -3,0);
bbuy1;
ebuy1;
bbuy2;
ebuy2;
ssel1;
esel1;
ssel2
---------------------------