3060 WHILE JP=1