Forums Scripts & Popups echoingon a .txt

/loadbuf -a list.txt 

alias -l list.filter {
  if ($1) %list.filter = $iif(%list.filter,$v1 $+ $chr(44) $1,$1)
}

alias _list {
  set %list.filter
  filter -k list.txt list.filter
  echo -ag the list contains the ff:
  echo -ag %list.filter
  unset %list.filter
}

alias viewfile {
  if (!$isfile($1-)) {
    echo -abcfilrt Info * /viewfile: No such file ' $+ $1-'
    return
  }
  bread $qt($1-) 0 $file($1-) &file
  breplace &file 10 44
  var %position = 1, %size = $bvar(&file,0)
  if ($bvar(&file,%size) == 44) { bcopy -c &file 1 &file 1 $calc(%size - 1) }
  while (%position < %size) {
    echo -a $remove($bvar(&file,$+(%position,-,$calc(%position + 900))).text,$cr)
    inc %position 900
  }
}

alias viewfile {
  if (!$isfile($1-)) {
    echo -abcfilrt Info * /viewfile: No such file ' $+ $1-'
    return
  }
  bread $qt($1-) 0 $file($1-) &file
  breplace &file 10 44
  var %position = 1, %size = $bvar(&file,0)
  if ($bvar(&file,%size) == 44) { bcopy -c &file 1 &file 1 $calc(%size - 1) }
  while (%position < %size) {
    echo -a $remove($bvar(&file,%position,899).text,$cr)
    inc %position 900
  }
}