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*
}