2600 WHILE JP=3