670 IF LEN(A$)=0 THEN OPEN DS$ FOR OUTPUT AS #3 : RETURN