1720 FOR K=0 TO NVI