6093 IF LEN(A$)=0 THEN DI=0 : GOTO 6130