2670 WHILE IPR=1