2670 IF I>=1 THEN 2645