string docname, named
integer value
value = GetFileSaveName("Select File",docname,named, "txt",
"Text Files (*.TXT),*.TXT," )
IF value = 1 THEN dw_1.SaveAs(docname,text!, FALSE)
string docname, named
integer value
value = GetFileSaveName("Select File", docname, named, "DOC", " Doc Files (*.DOC), *.DOC")
IF value = 1 THEN
dw.SaveAs(docname, text!,false)
end If