年:=YEAR=2011; 月:= MONTH=6;
日0624:=年 AND 月 AND DAY=24;
日0627:=年 AND 月 AND DAY=27;
日0628:=年 AND 月 AND DAY=28;
日0629:=年 AND 月 AND DAY=29;
G: DRAWLINE(日0624,C,日0627,C,1),COLORMAGENTA;{灯塔线G};
A: DRAWLINE(日0624,C,日0628,O,1),COLORLIRED;{灯塔线A};
B: DRAWLINE(日0624,C,日0629,O,1),COLORYELLOW;{灯塔线B};
C_: DRAWLINE(日0624,C,日0627,L,1),COLORGREEN;{灯塔线C};
D: DRAWLINE(日0624,C,日0629,C,1),COLORLICYAN;{灯塔线D};
DRAWTEXT(ISLASTBAR,G,'G'),COLORMAGENTA;
DRAWTEXT(ISLASTBAR,A,'A'),COLORLIRED;
DRAWTEXT(ISLASTBAR,B,'B'),COLORYELLOW;
DRAWTEXT(ISLASTBAR,C_,'C'),COLORGREEN;
DRAWTEXT(ISLASTBAR,D,'D'),COLORLICYAN |