2495 WHILE IPR=1