5033 IF X=XVF THEN A(I,J)=XVF : GOTO 5040