3025 FOR I=II TO II+C(4)-1