4715 OPEN DDA$+":xyz.bas" FOR OUTPUT AS #1