# Edit MortScript
# 2008-07-23
# Chieh Cheng
# http://www.CynosureX.com/

# GNU General Public License (GPL), Version 2, June 1991

  progName = "Edit MortScript"
  configDir = "\Application Data"
  config = configDir \ progName & ".ini"

  If (not DirExists (configDir))
    MkDir (configDir)
  EndIf

  If (FileExists (config))
    last = IniRead (config, "Path", "LastDir")
    file = SelectFile ("Edit MortScript . . .", false, "*.mscr", "Load a MortScript to edit:", last)
  Else
    file = SelectFile ("Edit MortScript . . .", false, "*.mscr", "Load a MortScript to edit:")
  EndIf

  if (file ne "")
    IniWrite (config, "Path", "LastDir", file)
    Run ("\Windows\PWord.exe", file)
  endif