inputs: Len(100), X(40), Y(30);
vars: entrylevel(0), previouslevel(0), nextlevel(0);

//first entry
If marketposition = 0 then begin
entrylevel = Average(Close, Len)- X;
buy next bar at entrylevel limit;
end;

//next entries
If marketposition > 0 and currentshares > 0 then begin
   If currentshares>currentshares[1] then previouslevel=minlist(open, nextlevel,entrylevel);
   nextlevel=previouslevel-Y;
end;

if mp>0 then buy next bar at nextlevel limit;

//exit
if marketposition > 0 then sell next bar at Average(Close, Len ) limit;