if $1 == !sıfırla { sıfırla }

alias sıfırla {
  var %x = 1,%t = $lines(dosya.txt)
  while (%x <= %t) {
    hadd -m aaa $gettok($read(dosya.txt,%x),1,32) 100
    inc %x 1
  }
  write -c dosya.txt
  var %x = 1,%t = $hget(aaa,0).data
  while (%x <= %t) {
    write dosya.txt $hget(aaa,%x).item $hget(aaa,%x).data
    inc %x 1
  }
  .hfree -sw aaa
  msg #kanal data sıfırlandı
}