2160 FOR I=IA(1) TO IB(1)