6121 IF NVC(K)>IJ(K)-1 THEN DI=0 : GOTO 6125