3100 WHILE JP=3