Code:
Menu channel,status {
  Update Hash List:{
    window -esn @files
    echo -a 11,2Processing File List, Please Wait...................
    echo -a 11,2Adding $findfile($mp3dir,*.mp3,0,aline @files $1- ) files, I am doing further processing now.
    savebuf @files neorawfiles.txt
    window -c @files
    var %songno $lines(neorawfiles.txt)
    while %songno > 0 {
      hadd -m filelist file $+ %songno $read(neorawfiles.txt,%songno)
      dec %songno
    }
    echo -a 11,2Finished adding4,2 $lines(neorawfiles.txt) 11,2files to the filelist hash table
  }
  [color:red]Test update hash list:{
    if $hget(filelist) { hfree filelist }
    hmake filelist 1000
    .!echo -q $findfile($mp3dir,*.mp3,0,hadd filelist $+(file,$calc($hget(filelist,0).item +1)) $1-)
  }
}[/color]