I have played with this a bit more, as its something I can use

Code:
;;;;;;;;;;;;;;;;;;;;;;;;;
;;  List all MRC Files ;;
;; and Delete Unwanted ;;
;; by MikeChat 12/8/05 ;;
;;;;;;;;;;;;;;;;;;;;;;;;;

alias mrc-sort { dialog -dm mrc-sort mrc-sort }
dialog mrc-sort {
  Title "Choose MRC Version"
  size -1 -1 300 100
  option dbu
  list 100, 5 5 290 50, sort
  button "Delete", 900, 125 65 50 20
}
on *:dialog:mrc-sort:init:0:{
  var %null = $findfile($mircdir,*.mrc,0,mrcprop $1-)
}
alias mrcprop {
  did -a mrc-sort 100 $nopath($1-) $itsloaded($1-) Last Modified $asctime($file($1-).mtime) $+  $+ $1-
}
on *:dialog:mrc-sort:sclick:900:{
  var %fullfile = $gettok($did(mrc-sort,100).seltext,2,0144)
  var %check = $input(Are You Sure?,y)
  if (%check == $true) { 
    if ($itsloaded(%fullfile) == Loaded) { unload -rs %fullfile }
    remove -b $+(",%fullfile,")
    did -d mrc-sort 100 $did(mrc-sort,100).sel
  }
}
alias itsloaded {
  var %isload = $1-
  var %i = 1
  while (%i <= $script(0)) { 
    if ($script(%i) == %isload) { var %itsloaded = Loaded }
    inc %i
  }
  if (%itsloaded == $null) { var %itsloaded = Not Loaded }
  return %itsloaded
}


let me know if this is close to what you wanted.