2490 WHILE JP=3