1480 WHILE KE=1