WO:=O#WEEK;WC:=C#WEEK;WH:=H#WEEK;WL:=L#WEEK;T:=BARSLAST(WEEKOFYEAR!=REF(WEEKOFYEAR,1));T1:=CROSS(BACKSET(T=0,2),0.5);YO:=O#MONTH;YC:=C#MONTH;YH:=H#MONTH;YL:=L#MONTH;YT:=BARSLAST(MONTH!=REF(MONTH,1));YT1:=CROSS(BACKSET(YT=0,2),0.5);A0:=MOD(MONTH,3);JD