4880 FOR J=I+1 TO NXX