4   IF (ICHAR(STORE(D)).NE.0) GO TO 3
      IF (ICHAR(STORE(D)).NE.0) GO TO 3