1540 IF J=0 THEN RETURN