2545 FOR K=I-C(1) TO I-1