{ Downloaded From https://www.WiseStockTrader.com }
{Credit goes to Christos Siannas with modifications by me}

PDay := Input("Day of Month" ,1,31,1);
PMonth := Input("Month" ,1,12,1);
PYear := Input("Year",1985,2010,2007);
PPercent := Input("Percent Below" ,1,40,25);
TM:=Input("PRICE:",0,15000,1);

TSE1 := BarsSince(DayOfMonth() = PDay AND Month() = PMonth AND Year() = PYear);
TSE2 := HighestSince(1,TSE1=0,C) ;
TSE3 := TSE2 - TSE2*PPercent/100;
TSE4:=HighestSince(1 ,TSE1 = 0,TSE3 );

If(TSE1=0,TM-(TM*PPercent/100),Max(TM-(TM*PPercent/100),TSE4));