5036 IF ISP=2 THEN IF Y=XVF THEN A(I,J)=XVF : GOTO 5040