ARGOMENTO:

Input:	ATRLenght ( 1 ),
		TgtATR ( 2 ),
		StpATR ( 1 ),
		TrlKickIn ( 1 ),
		TrlAmt ( 5 ) ;
Vars: 
	FirstBarHi( 0 ), 
	FirstBarLo( 0 ),
	ATR ( 0 ), 
	MP (0),
	TrlL ( 0 ),
	TrlS ( 9999999999 ),
	StartLTrl ( FALSE ),
	StartSTrl ( FALSE ),
	Value1 (0),
	Value2 (0);
	
MP = Marketposition;
ATR = ( ATRLenght );
FirstBarHi = High; 
FirstBarLo = Low; 
Value1 = FirstBarHi + .01;
Value2 = FirstbarLo - .01;

If CurrentSession(0) <> CurrentSession(0)[1] then begin         
ATR = ( ATRLenght );
FirstBarHi = High; 
FirstBarLo = Low;   
end; 

 // Entries
if Time > 0930 and Time <= 0935 then begin  // allow five min. after the open to break below or above the first min. bar of the day 
Buy ("MyBuy") next bar at  Value1 stop; 
Sell short next bar at Value2 stop; 

if MP <> 1 then
Begin
	StartLTrl = FALSE;
	TrlL = 0;
end;

if MP <> -1 then
Begin
	StartSTrl = FALSE;
	TrlS = 9999999;
end;
end; 


// Stops
if MP = 1 then Sell Next Bar at ( Low ) Stop;
if MP = -1 then BuyToCover Next Bar at ( High ) Stop;

// Targets
if MP = 1 then Sell next bar at (Entryprice + ( .10 )) limit;
if MP = -1 then BuyToCover Next Bar at (EntryPrice - ( .10 ) ) Limit;

// Trailing stop
if MP = 1 and C >= (EntryPrice + ( .10 ) ) then StartLTrl = True;
if MP = -1 and C <= (EntryPrice - ( .10 ) ) then StartSTrl = True;
if   StartLTrl then if C - (EntryPrice + ( .10 ) ) > TrlL then TrlL = C -(EntryPrice + ( .10 ) );
if   StartSTrl then if C + (EntryPrice - ( .10 ) ) < TrlS then TrlL = C +(EntryPrice - ( .10 ) );

// Exit on close
if MP = 1 then Sell Next Bar at TrlL Stop;
if MP = -1 then BuyToCover Next Bar at TrlS Stop;
setexitonclose;
  

if Time = 0931 then begin

FirstBarHi = H;
FirstBarLow = L;

end;

if Time = 0931 then begin

FirstBarHi = H;
FirstBarLow = L;

end;

MP = Marketposition;
ATR = ( ATRLenght );
FirstBarHi = High; 
FirstBarLo = Low;