// Pivot S&R screener
//
// Indicator at:   https://www.prorealcode.com/prorealtime-indicators/pivot-support-resistance-zones/
//
PivotBAR     = 2                      //2  bars AFTER  pivot
LookBack     = 4                      //4  bars BEFORE pivot
BarLookBack  = PivotBAR + 1
MySupport    = 0
MyResistance = 0
IF low[PivotBAR] < lowest[LookBack](low)[BarLookBack] THEN
   IF low[PivotBAR] = lowest[BarLookBack](low) THEN
      MySupport       = 1
   ENDIF
ENDIF
IF high[PivotBAR] > highest[LookBack](high)[BarLookBack] THEN
   IF high[PivotBAR]  = highest[BarLookBack](high) THEN
      MyResistance    = 1
   ENDIF
ENDIF
x = 0
IF MySupport = 1 THEN
   x = 1
ELSIF MyResistance = 1 THEN
   x = 2
ENDIF
SCREENER[x](x AS "1=Sup,2=Res")