2780 WHILE JP=3