4300 FOR I=II TO IJ