2770 WHILE IPR=1