revThr = ParamToggle("Reveal Expiry Thursday", "Weekly|Monthly", 1);
dymo = IIf((Month() == 9) OR (Month() == 4) OR (Month() == 6) OR (Month() == 11), 30, IIf(Month() == 2, 28 + ((Year() % 4) == 0), 31));
thur1 = (DayOfWeek() == 4) AND (Day() != Ref(Day, -1);
Plot((((revThr == 1) AND ((dymo - Day()) < 7)) OR (revThr == 0)) AND (thur1 == 1), "", colorBrown, styleNoLabel | styleHistogram | styleDashed | styleOwnScale, 0, 1, 0, 10);