2845 WHILE JP=1