2865 WHILE JP=2