4670 IF LEN(FU$)=0 THEN 4700