2590 WHILE IPR=1