1860 KL=0 : IF (L/2-LM)>0 THEN KL=1