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....4Mode's0,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 
  } 
}