# Edit Text
# 2008-07-29
# Chieh Cheng
# http://www.CynosureX.com/

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

  progName = "Edit Text"
  config = "\Application Data" \ progName & ".ini"

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

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