2800 FOR K=1 TO NVI