1570 FOR I=II TO NJ