2965 WHILE JP=1