REM Description: File Save As 3.3 for default XMWin load
REM WMWin Macro File: xoom33.XMC

BEGIN DIALOG grpdlg 160, 70, "File Save As Options"

        GROUPBOX       4, 4, 150, 60, "Choose Option:"
        OPTIONGROUP    cgroup%
        PUSHBUTTON   20, 18, 120, 12, "Save As with &Short File Names", 3
        PUSHBUTTON   20, 31, 120, 12, "Save As with &Long File Names", 4
        PUSHBUTTON   20, 44, 120, 12, "Save As &Default", 5
END DIALOG
ret% = DIALOG(grpdlg)
IF ret% = 2 THEN STOP
IF ret% = 3 THEN GOTO ShortFileSave
IF ret% = 4 THEN GOTO LongFileSave
IF ret% = 5 THEN GOTO Default:

Default:
        FileSaveAs
        GOTO FINISH

ShortFileSave:
BEGIN DIALOG grpdlg 160, 108, "Save As Options"

	GROUPBOX       4, 4, 150, 98, "Short File Name:"
	OPTIONGROUP    ogroup%
	PUSHBUTTON   20, 18, 120, 12, "Save to &Quick Paths", 3
	PUSHBUTTON   20, 31, 120, 12, "WinWord Export to Quick &Paths", 4
	PUSHBUTTON   20, 44, 120, 12, "Set &Current Directory", 5
	PUSHBUTTON   20, 57, 120, 12, "&Save to Set Directory", 6
	PUSHBUTTON   20, 70, 120, 12, "Save &New File", 7
	PUSHBUTTON   20, 83, 120, 12, "Save New File and &Extension", 8
END DIALOG
ret% = DIALOG(grpdlg)
IF ret% = 2 THEN STOP
IF ret% = 3 THEN GOTO Shortname
IF ret% = 4 THEN GOTO ShortExport
IF ret% = 5 THEN GOTO SetDir
IF ret% = 6 THEN GOTO SaveSetS
IF ret% = 7 THEN GOTO NewPathS
IF ret% = 8 THEN GOTO NewExtS

LongFileSave:
BEGIN DIALOG grpdlg 160, 108, "Long File Name Options"

	GROUPBOX       4, 4, 150, 98, "Long File Name:"
	OPTIONGROUP    ogroup%
	PUSHBUTTON   20, 18, 120, 12, "Save to &Quick Paths", 3
	PUSHBUTTON   20, 44, 120, 12, "Set &Current Directory", 5
	PUSHBUTTON   20, 57, 120, 12, "&Save to Set Directory", 6
	PUSHBUTTON   20, 70, 120, 12, "Save &New File", 7
	PUSHBUTTON   20, 83, 120, 12, "Save New File and &Extension", 8
END DIALOG
ret% = DIALOG(grpdlg)
IF ret% = 2 THEN STOP
IF ret% = 3 THEN GOTO Longname
IF ret% = 4 THEN GOTO LongExport
IF ret% = 5 THEN GOTO SetDir
IF ret% = 6 THEN GOTO SaveSet
IF ret% = 7 THEN GOTO NewPath
IF ret% = 8 THEN GOTO NewExt

Shortname:
        BEGIN DIALOG grpdlg 160, 70, "Quick List Options"

                GROUPBOX       4, 4, 150, 60, "File Name:"
                OPTIONGROUP    pgroup%
                PUSHBUTTON   20, 18, 120, 12, "Save to XMWin &Document Directory", 3
                PUSHBUTTON   20, 31, 120, 12, "Save to &Xoom Directory", 4
                PUSHBUTTON   20, 44, 120, 12, "Select a New &Path", 5
        END DIALOG
        ret% = DIALOG(grpdlg)
        IF ret% = 2 THEN STOP
        IF ret% = 3 THEN GOTO WSWinDirS
        IF ret% = 4 THEN GOTO QP1S
        IF ret% = 5 THEN GOTO NewPathS

ShortExport:
        BEGIN DIALOG grpdlg 160, 70, "Quick List Options"

                GROUPBOX       4, 4, 150, 60, "File Name:"
                OPTIONGROUP    pgroup%
                PUSHBUTTON   20, 18, 120, 12, "Export to XMWin &Document Directory", 3
                PUSHBUTTON   20, 31, 120, 12, "Export to &Xoom Directory", 4
                PUSHBUTTON   20, 44, 120, 12, "Export to a New &Path", 5
        END DIALOG
        ret% = DIALOG(grpdlg)
        IF ret% = 2 THEN STOP
        IF ret% = 3 THEN GOTO WSWinDirSE
        IF ret% = 4 THEN GOTO QP1SE
        IF ret% = 5 THEN GOTO NewPathSE

Longname:
        BEGIN DIALOG grpdlg 160, 70, "Quick List Options"

                GROUPBOX       4, 4, 150, 60, "Long File Name:"
                OPTIONGROUP    pgroup%
                PUSHBUTTON   20, 18, 120, 12, "Save to XMWin &Document Directory", 3
                PUSHBUTTON   20, 31, 120, 12, "Save to &Xoom Directory", 4
                PUSHBUTTON   20, 96, 120, 12, "Select a New &Path", 5
        END DIALOG
        ret% = DIALOG(grpdlg)
        IF ret% = 2 THEN STOP
        IF ret% = 3 THEN GOTO WSWinDir
        IF ret% = 4 THEN GOTO QP1
        IF ret% = 5 THEN GOTO NewPath

LongExport:
        BEGIN DIALOG grpdlg 160, 70, "Quick List Options"

                GROUPBOX       4, 4, 150, 60, "Long File Name:"
                OPTIONGROUP    pgroup%
                PUSHBUTTON   20, 18, 120, 12, "Save to XMWin &Document Directory", 3
                PUSHBUTTON   20, 31, 120, 12, "Save to &Xoom Directory", 4
                PUSHBUTTON   20, 96, 120, 12, "Select a New &Path", 5
        END DIALOG
        ret% = DIALOG(grpdlg)
        IF ret% = 2 THEN STOP
        IF ret% = 3 THEN GOTO WSWinDirLE
        IF ret% = 4 THEN GOTO QP1LE
        IF ret% = 5 THEN GOTO NewPathLE

WSWinDirS:
        dirName$ = "C:\XOOM\XOOMWORD\DOCS"
        GOTO FileSaveS

QP1S:
        dirName$ = "C:\XOOM"
        GOTO FileSaveS

NewPathS:
        dirName$ = INPUTBOX$("Please type in the name of a Directory/Folder")
        GOTO FileSaveS

WSWinDirSE:
        dirName$ = "C:\XOOM\XOOMWORD\DOCS"
        GOTO FileExportS

QP1SE:
        dirName$ = "C:\XOOM"
        GOTO FileExportS

NewPathSE:
        dirName$ = INPUTBOX$("Please type in the name of a Directory/Folder")
        GOTO FileExportS

NewExtS:
	dirName$ = INPUTBOX$("Please type in the name of a Directory/Folder")
	GOTO FileSaveExtS

WSWinDir:
        dirName$ = "C:\XOOM\XOOMWORD\DOCS"
        GOTO FileSave

QP1:
        dirName$ = "C:\XOOM"
        GOTO FileSave

NewPath:
        dirName$ = INPUTBOX$("Please type in the name of a Directory/Folder")
        GOTO FileSave

WSWinDirLE:
        dirName$ = "C:\XOOM\XOOMWORD\DOCS"
        GOTO FileExport

QP1LE:
        dirName$ = "C:\XOOM"
        GOTO FileExport

NewPathLE:
        dirName$ = INPUTBOX$("Please type in the name of a Directory/Folder")
        GOTO FileExport

NewExt:
	dirName$ = INPUTBOX$("Please type in the name of a Directory/Folder")
	GOTO FileSaveExt

FileSaveS:
        SetCurrentDir dirName$
        CHDIR dirName$
        string$ = INPUTBOX$("Please type in a File Name")
        orig$ = string$ + ".wsd"
        FileSaveAs dirName$ + "\" + orig$
        GOTO FINISH

FileSave:
        SetCurrentDir dirName$
        CHDIR dirName$
        string$ = INPUTBOX$("Please type in a Long File Name")
        orig$ = string$ + ".wsd"
        FileSaveAsCopy dirName$ + "\" + orig$
	GOTO ContinueClose

FileExportS:
	SetCurrentDir dirName$
	CHDIR dirName$
	string$ = INPUTBOX$("Please type in a File Name")
	orig$ = string$ + ".DOC"
	FileExport dirName$ + "\" + orig$, "MS WinWord 6.0, 7.0 Documents"
	GOTO FINISH

FileExport:
	SetCurrentDir dirName$
	CHDIR dirName$
	string$ = INPUTBOX$("Please type in a Long File Name")
	orig$ = string$ + ".DOC"
	FileExport dirName$ + "\" + orig$, "MS WinWord 6.0, 7.0 Documents"
	GOTO ContinueClose

FileSaveExtS:
	SetCurrentDir dirName$
	CHDIR dirName$
	string$ = INPUTBOX$("Please type in a File Name and Extension")
	orig$ = string$
	FileSaveAs dirName$ + "\" + orig$
	GOTO FINISH

FileSaveExt:
	SetCurrentDir dirName$
	CHDIR dirName$
	string$ = INPUTBOX$("Please type in a Long File Name and Extension")
	orig$ = string$
	FileSaveAsCopy dirName$ + "\" + orig$
	GOTO ContinueClose

Setdir:
        dirName$ = INPUTBOX$("Please type in the name of a Directory/Folder")
        SetCurrentDir dirName$
        CHDIR dirName$
        GOTO FINISH

SaveSetS:
        dirName$ = GetCurrentDir$()
        SetCurrentDir dirName$
        CHDIR dirName$
        string$ = INPUTBOX$("Please type in a Long File Name")
        orig$ = string$ + ".wsd"
        FileSaveAs dirName$ + "\" + orig$
        GOTO FINISH

SaveSet:
        dirName$ = GetCurrentDir$()
        SetCurrentDir dirName$
        CHDIR dirName$
        string$ = INPUTBOX$("Please type in a Long File Name")
        orig$ = string$ + ".wsd"
        FileSaveAsCopy dirName$ + "\" + orig$
	GOTO ContinueClose

ContinueClose:
	BEGIN DIALOG grpdlg 160, 57, ""
        GROUPBOX       4, 4, 150, 47, "Choose Option:"
        OPTIONGROUP    cgroup%
        PUSHBUTTON   20, 18, 120, 12, "Continue &Editing of File", 3
        PUSHBUTTON   20, 31, 120, 12, "&Close File and Open", 4
		END DIALOG
		ret% = DIALOG(grpdlg)
		IF ret% = 2 THEN STOP
		IF ret% = 3 THEN GOTO FINISH
		IF ret% = 4 THEN FileClose 0, 2
        SetCurrentDir dirName$
        CHDIR dirName$
        FileOpen
        GOTO FINISH

FINISH: