2905 WHILE IPR=1