1840 FOR K=1 TO KNV