alias v2 {
  var %s 1
  var %r $findfile($mircdir,*.*,0,write x.txt $1-) 
  while (%s <= %r) {
    set %bv $read(x.txt,%s)
    echo $read(%bv,w,*korumalar*)
    inc %s
  }
}

;Arama yapmak istediğiniz belge uzantısı birden fazla ise ; (noktalı virgül) seperatörünü kullanınız.
;Tüm içerikte arama (*.*) önerilmez .txt .mrc .ini uzantılı arama öğeleri kod içerisinde hazır durumundadır.
;Arama konumu $mircdir (Ana dizin) konumundadır,konumu kendinize göre değişebilirsiniz.
;Listelenen değerlerin başındaki numaralar bulunan belgedeki satır no'yu temsil eder.
;Aranan kelime kod içerisinde wildcard tanımına tabiidir,ekstra olarak * (wildcard) kullanmayınız.
;Kullanım direktifi: /ara
alias ara {
  $iif(!$window(@ara),window -n @ara) | set -e %word $?="Aranan kelime nedir?"
  var %dify $findfile($mircdir,*.txt;*.mrc;*.ini,0,dify $qt($1-))
}
alias -l dify {
  filter -fwpn $1- @ara $+(*,%word,*)
  if $filtered { echo @ara 03Belge: $nopath($1-) 06Konum: $1- | linesep @ara }
}