Raw 322:*: {
  if (ş isin $2) || (ı isin $2) || (ö isin $2) || (ç isin $2) {
    .write tkanal.txt $+($2,$chr(9)) $+($3,$chr(9)) $+($4,$chr(9)) $+($5-,$chr(9))
    .timer2932 1 2 /türkçelerigöster
  }
} 

alias türkçelerigöster {
  if ($window(@@Channel-List2)) { window -c @@Channel-List2 } {
    window -glk0 @@Channel-List2 -1 -1 800 600 Fixedsys 11
    iline @@Channel-List2 1 0,0.4Kanal0,0...4Sayı0,0....4Modes0,0..4Topic0,0................
    titlebar @@Channel-List2 Türkçe Karakter içeren Kanallar Listesi
    var %s = 2
    while %s <= $lines(tkanal.txt) {
      var %k = $read(tkanal.txt,%s)
      iline @@Channel-List2 %s $gettok(%k,1,32) $gettok(%k,2,32) $gettok(%k,3,32) $gettok(%k,4,32) $gettok(%k,5-,32)
      inc %s
      unset %k
    }
    .remove tkanal.txt
  }
  halt
} 

menu @@Channel-List2 {
  [!] Kanala Gir: {
    .join $1
    halt
  }
}