4050 FOR I=II TO IJ