DRAWTEXT(MONTH<>REF(MONTH,1),H,VAR2STR(MONTH,0)),COLORYELLOW;
DRAWTEXT(DAY<>REF(DAY,1),L,VAR2STR(DAY,0)),COLORLIBLUE;
DRAWTEXT(WEEKDAY<>REF(WEEKDAY,1),L*0.995,VAR2STR(WEEKDAY,0)),COLORGREEN;
STICKLINE(MOD(DAY,5)=0,C,O,1,0),COLORYELLOW;
{STICKLINE(MOD(DAY,2)=0,C*0.99,O*1.01,2,0),COLORRED;};