2985 WHILE JP=2