2795 FOR K=KI TO NVI