inputs:  worse(.02);
variables:  IntraBarPersist BuySig(0),IntraBarPersist SSSig(0),
            IntraBarPersist Min(9999),IntraBarPersist Max(0),
            IntraBarPersist LongEntry(0),IntraBarPersist SSEntry(9999);

Condition1=Time<1500;  // Mountain Time

If Time>1511 and Time<1600 then begin
  BuySig=0; SSSig=0; Min=9999; Max=0;
end;



If H of data2>L[5] of data2 and C of data2>C[5] of data2 and H of data2>L of   data2 and V of data2>0 then begin  // *** This line has been changed drastically to 'protect' the actual signal
   BuySig=1; LongEntry=Close+worse;
end;
If L of data2<H[5] of data2 and C of data2<C[5] of data2 and L of data2<H of data2 and V of data2>0 then begin  // *** This line has been changed drastically to 'protect' the actual signal
   SSSig=-1; SSEntry=Close-worse;
end;

If MarketPosition<>1 and BuySig=1 then begin
  If Condition1=True then
     Buy next bar at LongEntry{InsideAsk} Limit;
end;
If MarketPosition<>-1 and SSSig=-1 then begin
  If Condition1=True then
     SellShort next bar at SSEntry{InsideBid} Limit;
end;

{The Following is a 'Safeguard' for if not Bot or SS due to 2 bars in SAME TIME:}
If MarketPosition=-1 and C of data2<Min then begin
   Min=C of data2; Max=0;
end;
If MarketPosition=1 and C of data2>Max then begin
   Max=C of data2; Min=9999;
end;
If MarketPosition=-1 and C of data2>=Min+.08 then begin
   Buy next bar at LongEntry{InsideAsk} Limit;
end;
If MarketPosition=1 and C of data2<=Max-.08 then begin 
   SellShort next bar at SSEntry{InsideBid} Limit;
end;

If MarketPosition=1 then LongEntry=0; BuySig=0; Max=0;
If MarketPosition=-1 then SSEntry=9999; SSSig=0; Min=9999;


If MarketPosition>=1 and Time>1510 then Sell next bar at market;
If MarketPosition<=-1 and Time>1510 then BuyToCover next bar at market;