4360 KL=I-L*INT(I/L) : IF KL=0 THEN KL=L