Forums General Discussion /Filecheck script

alias filecheck {
;To use type /filecheck "file"
  set %lcv 1
  while ($read(files.txt,%lcv) != $null) {
    set %exist $+ %lcv $read(files.txt,%lcv)
    echo $read(files.txt,%lcv)
    inc %lcv
  }
  set %lcv1 1
  while (1) {
    if (%exist [ $+ [ %lcv1 ] ] != $1-) { inc %lcv1 | echo have not found $1- yet }
    if ($lines(files.txt) == %lcv1) { echo  $1- doesn't exist }
    else { echo found $1- | set %foundfile $1- }
  }
  unset %lcv
  unset %lcv1
  unset %exist*
}