There you go.
This is for v10.3 (no dotted lines):
DEFPARAM DrawOnLastBarOnly = true
ONCE MonthLO = low
ONCE MonthHI = high
ONCE JanLO = low
ONCE JanHI = high
ONCE JulLO = low
ONCE JulHI = high
ONCE MonthStart = 0
ONCE JanStart = 0
ONCE JulStart = 0
//
IF OpenMonth <> OpenMonth[1] THEN
MonthLO = low
MonthHI = high
MonthStart = barindex
ENDIF
//
IF OpenMonth = 1 THEN
IF OpenDay >= 1 AND OpenDay <= 10 THEN
IF OpenMonth <> OpenMonth[1] THEN
JanStart = barindex
JanLO = low
JanHI = high
ENDIF
JanLO = min(low,JanLO)
JanHI = max(high,JanHI)
ENDIF
ENDIF
//
IF OpenMonth = 7 THEN
IF OpenDay >= 1 AND OpenDay <= 10 THEN
IF OpenMonth <> OpenMonth[1] THEN
JulStart = barindex
JulLO = low
JulHI = high
ENDIF
JulLO = min(low,JulLO)
JulHI = max(high,JulHI)
ENDIF
ENDIF
//
DRAWSEGMENT(MonthStart,MonthHI,barindex,MonthHI) COLOURED(0,255,0,255) //GREEN
DRAWSEGMENT(MonthStart,MonthLO,barindex,MonthLO) COLOURED(255,0,0,255) //RED
//
DRAWSEGMENT(JanStart,JanHI,barindex,JanHI) COLOURED(0,0,255,255) //BLUE
DRAWSEGMENT(JanStart,JanLO,barindex,JanLO) COLOURED(148,0,211,255) //DARKVIOLET
//
DRAWSEGMENT(JulStart,JulHI,barindex,JulHI) COLOURED(255,215,0,255) //GOLD
DRAWSEGMENT(JulStart,JulLO,barindex,JulLO) COLOURED(169,169,169,255) //DARKGREY
RETURN
If you have version 11 and want to plot dotted lines, then replace the DRAWSEGMENT lines with:
DRAWSEGMENT(MonthStart,MonthHI,barindex,MonthHI) COLOURED(0,255,0,255) STYLE(dottedline,2) //GREEN
DRAWSEGMENT(MonthStart,MonthLO,barindex,MonthLO) COLOURED(255,0,0,255) STYLE(dottedline,2) //RED
//
DRAWSEGMENT(JanStart,JanHI,barindex,JanHI) COLOURED(0,0,255,255) STYLE(dottedline,2) //BLUE
DRAWSEGMENT(JanStart,JanLO,barindex,JanLO) COLOURED(148,0,211,255) STYLE(dottedline,2) //DARKVIOLET
//
DRAWSEGMENT(JulStart,JulHI,barindex,JulHI) COLOURED(255,215,0,255) STYLE(dottedline,2) //GOLD
DRAWSEGMENT(JulStart,JulLO,barindex,JulLO) COLOURED(169,169,169,255) STYLE(dottedline,2) //DARKGREY