2440 WHILE JP=1