2750 WHILE JP=2