5034 IF ISP=1 THEN A(I,J)=X