REM Description: File Save As 4.3 Dialogue for XMWin
REM WSWin Macro File: SAVEAS43.XMC

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

	GROUPBOX       4, 4, 150, 86, "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
	PUSHBUTTON   20, 57, 120, 12, "&Rename File", 6
	PUSHBUTTON   20, 70, 120, 12, "&Email", 7
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:
IF ret% = 6 THEN GOTO Rename:
IF ret% = 7 THEN GOTO Email:

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, "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, 31, 120, 12, "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 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, 148, "Quick List Options"

		GROUPBOX       4, 4, 150, 138, "File Name:"
		OPTIONGROUP    pgroup%
		PUSHBUTTON   20, 18, 120, 12, "Save to WSWin &Default Directory", 3
		PUSHBUTTON   20, 31, 120, 12, "Save to &Kentville Church Directory", 4
		PUSHBUTTON   20, 44, 120, 12, "Save to Minor &Hockey Directory", 5
		PUSHBUTTON   20, 57, 120, 12, "Save to &Linda's Directory", 6
		PUSHBUTTON   20, 70, 120, 12, "Save to &James' Directory", 7
		PUSHBUTTON   20, 83, 120, 12, "Save to &Matthew's Directory", 8
		PUSHBUTTON   20, 96, 120, 12, "Save to &Working Directory", 9
		PUSHBUTTON   20, 109, 120, 12, "Save to &A:\ Drive", 10
		PUSHBUTTON   20, 122, 120, 12, "Select a New &Path", 11
	END DIALOG
	ret% = DIALOG(grpdlg)
	IF ret% = 2 THEN STOP
	IF ret% = 3 THEN GOTO WSWinDirS
	IF ret% = 4 THEN GOTO KUBCS
	IF ret% = 5 THEN GOTO KAMHAS
	IF ret% = 6 THEN GOTO LINDAS
	IF ret% = 7 THEN GOTO JAMESS
	IF ret% = 8 THEN GOTO MATTS
	IF ret% = 9 THEN GOTO CPMS
	IF ret% = 10 THEN GOTO ADriveS
	IF ret% = 11 THEN GOTO NewPathS

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

		GROUPBOX       4, 4, 150, 138, "Short File Name:"
		OPTIONGROUP    pgroup%
		PUSHBUTTON   20, 18, 120, 12, "Export to WSWin &Default Directory", 3
		PUSHBUTTON   20, 31, 120, 12, "Export to &Kentville Church Directory", 4
		PUSHBUTTON   20, 44, 120, 12, "Export to Minor &Hockey Directory", 5
		PUSHBUTTON   20, 57, 120, 12, "Export to &Linda's Directory", 6
		PUSHBUTTON   20, 70, 120, 12, "Export to &James' Directory", 7
		PUSHBUTTON   20, 83, 120, 12, "Export to &Matthew's Directory", 8
		PUSHBUTTON   20, 96, 120, 12, "Export to &Working Directory", 9
		PUSHBUTTON   20, 109, 120, 12, "Export to &A:\ Drive", 10
		PUSHBUTTON   20, 122, 120, 12, "Select a New &Path", 11
	END DIALOG
	ret% = DIALOG(grpdlg)
	IF ret% = 2 THEN STOP
	IF ret% = 3 THEN GOTO WSWinDirSE
	IF ret% = 4 THEN GOTO KUBCSE
	IF ret% = 5 THEN GOTO KAMHASE
	IF ret% = 6 THEN GOTO LINDASE
	IF ret% = 7 THEN GOTO JAMESSE
	IF ret% = 8 THEN GOTO MATTSE
	IF ret% = 9 THEN GOTO CPMSE
	IF ret% = 10 THEN GOTO ADriveSE
	IF ret% = 11 THEN GOTO NewPathSE

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

		GROUPBOX       4, 4, 150, 138, "Long File Name:"
		OPTIONGROUP    pgroup%
		PUSHBUTTON   20, 18, 120, 12, "Save to WSWin &Default Directory", 3
		PUSHBUTTON   20, 31, 120, 12, "Save to &Kentville Church Directory", 4
		PUSHBUTTON   20, 44, 120, 12, "Save to Minor &Hockey Directory", 5
		PUSHBUTTON   20, 57, 120, 12, "Save to &Linda's Directory", 6
		PUSHBUTTON   20, 70, 120, 12, "Save to &James' Directory", 7
		PUSHBUTTON   20, 83, 120, 12, "Save to &Matthew's Directory", 8
		PUSHBUTTON   20, 96, 120, 12, "Save to &Working Directory", 9
		PUSHBUTTON   20, 109, 120, 12, "Save to &A:\ Drive", 10
		PUSHBUTTON   20, 122, 120, 12, "Select a New &Path", 11
	END DIALOG
	ret% = DIALOG(grpdlg)
	IF ret% = 2 THEN STOP
	IF ret% = 3 THEN GOTO WSWinDir
	IF ret% = 4 THEN GOTO KUBC
	IF ret% = 5 THEN GOTO KAMHA
	IF ret% = 6 THEN GOTO LINDA
	IF ret% = 7 THEN GOTO JAMES
	IF ret% = 8 THEN GOTO MATT
	IF ret% = 9 THEN GOTO CPM
	IF ret% = 10 THEN GOTO ADrive
	IF ret% = 11 THEN GOTO NewPath

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

		GROUPBOX       4, 4, 150, 138, "Long File Name Export:"
		OPTIONGROUP    pgroup%
		PUSHBUTTON   20, 18, 120, 12, "Export to WSWin &Default Directory", 3
		PUSHBUTTON   20, 31, 120, 12, "Export to &Kentville Church Directory", 4
		PUSHBUTTON   20, 44, 120, 12, "Export to Minor &Hockey Directory", 5
		PUSHBUTTON   20, 57, 120, 12, "Export to &Linda's Directory", 6
		PUSHBUTTON   20, 70, 120, 12, "Export to &James' Directory", 7
		PUSHBUTTON   20, 83, 120, 12, "Export to &Matthew's Directory", 8
		PUSHBUTTON   20, 96, 120, 12, "Export to &Working Directory", 9
		PUSHBUTTON   20, 109, 120, 12, "Export to &A:\ Drive", 10
		PUSHBUTTON   20, 122, 120, 12, "Select a New &Path", 11
	END DIALOG
	ret% = DIALOG(grpdlg)
	IF ret% = 2 THEN STOP
	IF ret% = 3 THEN GOTO WSWinDirLE
	IF ret% = 4 THEN GOTO KUBCLE
	IF ret% = 5 THEN GOTO KAMHALE
	IF ret% = 6 THEN GOTO LINDALE
	IF ret% = 7 THEN GOTO JAMESLE
	IF ret% = 8 THEN GOTO MATTLE
	IF ret% = 9 THEN GOTO CPMLE
	IF ret% = 10 THEN GOTO ADriveLE
	IF ret% = 11 THEN GOTO NewPathLE

WSWinDirS:
	dirName$ = "C:\_philip"
	GOTO FileSaveS

KUBCS:
	dirName$ = "C:\_philip\kubc"
	GOTO FileSaveS

KAMHAS:
	dirName$ = "C:\_philip\kamha"
	GOTO FileSaveS

LINDAS:
	dirName$ = "C:\_LINDA"
	GOTO FileSaveS

JAMESS:
	dirName$ = "C:\_JAMES"
	GOTO FileSaveS

MATTS:
	dirName$ = "C:\_MATTHEW"
	GOTO FileSaveS

CPMS:
	dirName$ = "C:\CPM\USER04"
	GOTO FileSaveS

ADriveS:
	dirName$ = "A:"
	GOTO FileSaveS

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

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

WSWinDirSE:
	dirName$ = "C:\_philip"
	GOTO FileExportS

KUBCSE:
	dirName$ = "C:\_philip\kubc"
	GOTO FileExportS

KAMHASE:
	dirName$ = "C:\_philip\kamha"
	GOTO FileExportS

LINDASE:
	dirName$ = "C:\_LINDA"
	GOTO FileExportS

JAMESSE:
	dirName$ = "C:\_JAMES"
	GOTO FileExportS

MATTSE:
	dirName$ = "C:\_MATTHEW"
	GOTO FileExportS

CPMSE:
	dirName$ = "C:\CPM\USER04"
	GOTO FileExportS

ADriveSE:
	dirName$ = "A:"
	GOTO FileExportS

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

WSWinDir:
	dirName$ = "C:\_philip"
	GOTO FileSave

KUBC:
	dirName$ = "C:\_philip\kubc"
	GOTO FileSave

KAMHA:
	dirName$ = "C:\_philip\kamha"
	GOTO FileSave

LINDA:
	dirName$ = "C:\_LINDA"
	GOTO FileSave

JAMES:
	dirName$ = "C:\_JAMES"
	GOTO FileSave

MATT:
	dirName$ = "C:\_MATTHEW"
	GOTO FileSave

CPM:
	dirName$ = "C:\CPM\USER04"
	GOTO FileSave

ADrive:
	dirName$ = "A:"
	GOTO FileSave

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

WSWinDirLE:
	dirName$ = "C:\_philip"
	GOTO FileExport

KUBCLE:
	dirName$ = "C:\_philip\kubc"
	GOTO FileExport

KAMHALE:
	dirName$ = "C:\_philip\kamha"
	GOTO FileExport

LINDALE:
	dirName$ = "C:\_LINDA"
	GOTO FileExport

JAMESLE:
	dirName$ = "C:\_JAMES"
	GOTO FileExport

MATTLE:
	dirName$ = "C:\_MATTHEW"
	GOTO FileExport

CPMLE:
	dirName$ = "C:\CPM\USER04"
	GOTO FileExport

ADriveLE:
	dirName$ = "A:"
	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:
	BEGIN DIALOG grpdlg 170, 134, "Export As Options"

		GROUPBOX       4, 4, 160, 124, "File Export Type:"
		OPTIONGROUP    egroup%
		PUSHBUTTON   20, 18, 130, 12, "Export as &WinWord6", 3
		PUSHBUTTON   20, 31, 130, 12, "Export as Word&Star 7.0", 4
		PUSHBUTTON   20, 44, 130, 12, "Export as W&PWin 6.1", 5
		PUSHBUTTON   20, 57, 130, 12, "Export as &AmiPro", 6
		PUSHBUTTON   20, 70, 130, 12, "Export as WordPerfec&t 5.1", 7
		PUSHBUTTON   20, 83, 130, 12, "Export as &ASCII Formatted Text", 8
		PUSHBUTTON   20, 96, 130, 12, "Export as DOS Text with &Line Breaks", 9
		PUSHBUTTON   20, 109, 130, 12, "Export as DOS Text without Line &Breaks", 10
	END DIALOG
	ret% = DIALOG(grpdlg)
	IF ret% = 2 THEN STOP
	IF ret% = 3 THEN GOTO WinWordS
	IF ret% = 4 THEN GOTO WS7S
	IF ret% = 5 THEN GOTO WPWin61S
	IF ret% = 6 THEN GOTO AmiProS
	IF ret% = 7 THEN GOTO WP51S
	IF ret% = 8 THEN GOTO TXT1S
	IF ret% = 9 THEN GOTO TXT2S
	IF ret% = 10 THEN GOTO TXT3S

FileExport:
	BEGIN DIALOG grpdlg 170, 134, "Export As Options"

		GROUPBOX       4, 4, 160, 124, "File Export Type:"
		OPTIONGROUP    egroup%
		PUSHBUTTON   20, 31, 130, 12, "Export as Word&Star 7.0", 4
		PUSHBUTTON   20, 44, 130, 12, "Export as W&PWin 6.1", 5
		PUSHBUTTON   20, 57, 130, 12, "Export as &AmiPro", 6
		PUSHBUTTON   20, 70, 130, 12, "Export as WordPerfec&t 5.1", 7
		PUSHBUTTON   20, 83, 130, 12, "Export as &ASCII Formatted Text", 8
		PUSHBUTTON   20, 96, 130, 12, "Export as DOS Text with &Line Breaks", 9
		PUSHBUTTON   20, 109, 130, 12, "Export as DOS Text without Line &Breaks", 10
	END DIALOG
	ret% = DIALOG(grpdlg)
	IF ret% = 2 THEN STOP
	IF ret% = 3 THEN GOTO WinWord
	IF ret% = 4 THEN GOTO WS7
	IF ret% = 5 THEN GOTO WPWin61
	IF ret% = 6 THEN GOTO AmiPro
	IF ret% = 7 THEN GOTO WP51
	IF ret% = 8 THEN GOTO TXT1
	IF ret% = 9 THEN GOTO TXT2
	IF ret% = 10 THEN GOTO TXT3

WinWordS:
	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

WS7S:
	SetCurrentDir dirName$
	CHDIR dirName$
	string$ = INPUTBOX$("Please type in a File Name")
	orig$ = string$ + ".WS"
	FileExport dirName$ + "\" + orig$, "WordStar 7.0"
	GOTO FINISH

WPWin61S:
	SetCurrentDir dirName$
	CHDIR dirName$
	string$ = INPUTBOX$("Please type in a File Name")
	orig$ = string$ + ".WPD"
	FileExport dirName$ + "\" + orig$, "WordPerfect for Windows 6.1"
	GOTO FINISH

AmiProS:
	SetCurrentDir dirName$
	CHDIR dirName$
	string$ = INPUTBOX$("Please type in a File Name")
	orig$ = string$ + ".SAM"
	FileExport dirName$ + "\" + orig$, "Ami Pro 2.0, 3.0"
	GOTO FINISH

WP51S:
	SetCurrentDir dirName$
	CHDIR dirName$
	string$ = INPUTBOX$("Please type in a File Name")
	orig$ = string$ + ".WP5"
	FileExport dirName$ + "\" + orig$, "WordPerfect 5.1, 5.2"
	GOTO FINISH

TXT1S:
	SetCurrentDir dirName$
	CHDIR dirName$
	string$ = INPUTBOX$("Please type in a File Name")
	orig$ = string$ + ".TXT"
	FileExport dirName$ + "\" + orig$, "ASCII Formatted Text"
	GOTO FINISH

TXT2S:
	SetCurrentDir dirName$
	CHDIR dirName$
	string$ = INPUTBOX$("Please type in a File Name")
	orig$ = string$ + ".TXT"
	FileExport dirName$ + "\" + orig$, "DOS Text with Line Breaks"
	GOTO FINISH

TXT3S:
	SetCurrentDir dirName$
	CHDIR dirName$
	string$ = INPUTBOX$("Please type in a File Name")
	orig$ = string$ + ".TXT"
	FileExport dirName$ + "\" + orig$, "DOS Text without Line Breaks"
	GOTO FINISH

WinWord:
	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

WS7:
	SetCurrentDir dirName$
	CHDIR dirName$
	string$ = INPUTBOX$("Please type in a Long File Name")
	orig$ = string$ + ".WS"
	FileExport dirName$ + "\" + orig$, "WordStar 7.0"
	GOTO ContinueClose

WPWin61:
	SetCurrentDir dirName$
	CHDIR dirName$
	string$ = INPUTBOX$("Please type in a Long File Name")
	orig$ = string$ + ".WPD"
	FileExport dirName$ + "\" + orig$, "WordPerfect for Windows 6.1"
	GOTO ContinueClose

AmiPro:
	SetCurrentDir dirName$
	CHDIR dirName$
	string$ = INPUTBOX$("Please type in a Long File Name")
	orig$ = string$ + ".SAM"
	FileExport dirName$ + "\" + orig$, "Ami Pro 2.0, 3.0"
	GOTO ContinueClose

WP51:
	SetCurrentDir dirName$
	CHDIR dirName$
	string$ = INPUTBOX$("Please type in a Long File Name")
	orig$ = string$ + ".WP5"
	FileExport dirName$ + "\" + orig$, "WordPerfect 5.1, 5.2"
	GOTO ContinueClose

TXT1:
	SetCurrentDir dirName$
	CHDIR dirName$
	string$ = INPUTBOX$("Please type in a LongFile Name")
	orig$ = string$ + ".TXT"
	FileExport dirName$ + "\" + orig$, "ASCII Formatted Text"
	GOTO ContinueClose

TXT2:
	SetCurrentDir dirName$
	CHDIR dirName$
	string$ = INPUTBOX$("Please type in a Long File Name")
	orig$ = string$ + ".TXT"
	FileExport dirName$ + "\" + orig$, "DOS Text with Line Breaks"
	GOTO ContinueClose

TXT3:
	SetCurrentDir dirName$
	CHDIR dirName$
	string$ = INPUTBOX$("Please type in a Long File Name")
	orig$ = string$ + ".TXT"
	FileExport dirName$ + "\" + orig$, "DOS Text without Line Breaks"
	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

Rename:
REM Description: Rename a file
REM Filename: rename.wmc
REM Created by: Rewrite 2/4/98 of a delete file by Steven Wylie - 11/08/93

start:
REM
rem currentDir$ = GetCurrentDir$()
REM Start at the document directory.  The user can always change it in the dialog box.
GetPrivateProfileString "Preferences", "DocumentDirectory", curDir$, docDir$, "wsw.ini"

Pathname:
	BEGIN DIALOG grpdlg 160, 148, "Quick List Options"

		GROUPBOX       4, 4, 150, 138, "Path Selection:"
		OPTIONGROUP    pgroup%
		PUSHBUTTON   20, 18, 120, 12, "WSWin &Default Directory", 3
		PUSHBUTTON   20, 31, 120, 12, "&Kentville Church Directory", 4
		PUSHBUTTON   20, 44, 120, 12, "Minor &Hockey Directory", 5
		PUSHBUTTON   20, 57, 120, 12, "&Linda's Directory", 6
		PUSHBUTTON   20, 70, 120, 12, "&James' Directory", 7
		PUSHBUTTON   20, 83, 120, 12, "&Matthew's Directory", 8
		PUSHBUTTON   20, 96, 120, 12, "&Working Directory", 9
		PUSHBUTTON   20, 109, 120, 12, "&A:\ Drive", 10
		PUSHBUTTON   20, 122, 120, 12, "Select a New &Path", 11
	END DIALOG
	ret% = DIALOG(grpdlg)
	IF ret% = 2 THEN STOP
	IF ret% = 3 THEN GOTO WSWinDirR
	IF ret% = 4 THEN GOTO KUBCR
	IF ret% = 5 THEN GOTO KAMHAR
	IF ret% = 6 THEN GOTO LINDAR
	IF ret% = 7 THEN GOTO JAMESR
	IF ret% = 8 THEN GOTO MATTR
	IF ret% = 9 THEN GOTO CPMR
	IF ret% = 10 THEN GOTO ADriveR
	IF ret% = 11 THEN GOTO NewPathR

WSWinDirR:
	dirName$ = "C:\_philip"
	GOTO FileRename

KUBCR:
	dirName$ = "C:\_philip\kubc"
	GOTO FileRename

KAMHAR:
	dirName$ = "C:\_philip\kamha"
	GOTO FileRename

LINDAR:
	dirName$ = "C:\_LINDA"
	GOTO FileRename

JAMESR:
	dirName$ = "C:\_JAMES"
	GOTO FileRename

MATTR:
	dirName$ = "C:\_MATTHEW"
	GOTO FileRename

CPMR:
	dirName$ = "C:\CPM\USER04"
	GOTO FileRename

ADriveR:
	dirName$ = "A:"
	GOTO FileRename

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

FileRename:
rem currentDir$ = CHDIR docDir$
CHDIR dirName$

title$ = "Choose a File to Rename"

REM Get a filename from the user.  Only one file at a time will be used.
filename$ = GetFileBox$("*.*", title$)

IF filename$ = "" THEN STOP

IF Access(filename$, 0) = 0 THEN
	msg$ = filename$ + chr$(13) + chr$(13) + "This file does not exist."
	ret% = MESSAGEBOX(msg$, "Rename File Error", 16)
	STOP
ENDIF

DECLARE FUNCTION DOSRENAME LIB "d:\ws\wswin\mscomstf.dll" (file1$, file2$) AS INTEGER
	file1$ = filename$
	string$ = INPUTBOX$("Please type in a new File Name")
	file2$ = string$
	DOSRENAME file1$, file2$
	BEGIN DIALOG grpdlg 160, 57, ""
        GROUPBOX       4, 4, 150, 47, "Open Renamed File:"
        OPTIONGROUP    cgroup%
        PUSHBUTTON   20, 18, 120, 12, "&Yes", 4
        PUSHBUTTON   20, 31, 120, 12, "&No", 3
		END DIALOG
		ret% = DIALOG(grpdlg)
		IF ret% = 2 THEN STOP
		IF ret% = 3 THEN GOTO FINISH
		IF ret% = 4 THEN FileOpen file2$
GOTO FINISH

email:
FileName$ = INPUTBOX$("Please type in the name of a File")
FileExport "f:\" + FileName$ + ".eml", "DOS Text without Line Breaks"
goto FINISH

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: