2240 IF XP(K)=XVF THEN KE=1 : K=NVI : GOTO 2265