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