I came up with this, before you mentioned the files were numbered like that
Code:
alias sort2dir {
  window -sh @filelist
  var %sourcedir = $sdir(*)
  write -c %sourcedir $+ _List.txt
  .echo -q $findfile(%sourcedir,*,0,1,nowdir $1-)
  listdone %sourcedir
}
alias nowdir {
  var %currentFN = $nopath($1-)
  var %currentfnLEN = $calc($len(%currentFN) - 4) 
  var %currentfnSTRIP = $left(%currentFN,%currentfnLEN)
  var %currentDIR = $nofile($1-)
  if (!$isdir(%currentDIR $+ %currentfnSTRIP)) { mkdir %currentDIR $+ %currentfnSTRIP }
  .rename $1- %currentDIR $+ %currentfnSTRIP $+ \ $+ %currentFN
  aline @filelist %currentDIR $+ %currentfnSTRIP $+ \ $+ %currentFN
}
alias listdone {
  var %sourcedir = $1-
  savebuf @filelist %sourcedir $+ _List.txt
  run %sourcedir $+ _List.txt
  window -c @filelist
}


you should test it in a folder with just a few files in it
I did not test it for files with spaces in the path or file name, so it might need tweaking for that.