# View Head
# 2008-07-23
# Chieh Cheng
# http://www.CynosureX.com/

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

  progName = "View Head"
  config = "\Application Data" \ progName & ".ini"

  If (FileExists (config))
    last = IniRead (config, "Path", "LastDir")
    file = SelectFile ("Open for Viewing", false, "*", "Load a file for viewing:", last)
  Else
    file = SelectFile ("Open for Viewing", false, "*", "Load a file for viewing:")
  EndIf

  if (file ne "")
    IniWrite (config, "Path", "LastDir", file)
    string = ReadFile (file, 512)
    Message (string, progName)
  endif