7040 IF JV>0 AND X=XVF THEN XF=21 : GOTO 7085