5038 IF ISP=2 THEN A(I,J)=Y-X