685 OPEN DS$+".TXT" FOR APPEND AS #3