# basename.mscr
# 2008-10-02
# Chieh Cheng
# http://www.CynosureX.com/

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

  Local ()
  path = argv [1]
  charIndex = ReverseFind (path, "\")
  len = Length (path)
  fileName = SubStr (path, charIndex + 1, len - charIndex)
  return (fileName)