2615 WHILE IKP=1