STICKLINE((JJ),JJ,JJ,4,1),COLORWHITE; J:=IF(C!=O,((H+L)*(H-L)-ABS((O+C)*(O-C))/2)/(2*(H-L)-ABS(O-C)),(H+L)/2),COLORGREEN; STICKLINE((J),J,J,5.5,1),COLORGREEN;