2895 WHILE JP=3