DRAWKLINE(0.75,COLORRED,1,COLORCYAN,0);
 G1:=INTPART(YEAR/100);
 G2:=YEAR-G1*100;
 G3:=4*G1+INTPART(G1/4)+5*G2+INTPART(G2/4)+INTPART(3*(IF(MONTH=1,21,IF(MONTH=2,23,MONTH))+1)/5)+DAY-3;
 G4:=G3-INTPART(G3/10)*10;
 KTEXT(G4=0,0,H,1,COLORGREEN,'葵');
KTEXT(G4=1,0,H,1,COLORGREEN,'甲');
KTEXT(G4=2,0,H,1,COLORGREEN,'乙');
KTEXT(G4=3,0,H,1,COLORGREEN,'丙');
KTEXT(G4=4,0,H,1,COLORGREEN,'丁');
KTEXT(G4=5,0,H,1,COLORGREEN,'戊');
KTEXT(G4=6,0,H,1,COLORGREEN,'己');
KTEXT(G4=7,0,H,1,COLORGREEN,'庚');
KTEXT(G4=8,0,H,1,COLORGREEN,'辛');
KTEXT(G4=9,0,H,1,COLORGREEN,'壬');
G6:=8*G1+INTPART(G1/4)+5*G2+INTPART(G2/4)+INTPART(3*(IF(MONTH=1,25,IF(MONTH=2,26,MONTH))+1)/5)+DAY+7+IF((MONTH/2-INTPART(MONTH/2))=0,6,0);
 G7:=G6-INTPART(G6/12)*12;
 K