1730 WHILE JP=3