alias yasak { dialog -m yasak yasak }
dialog yasak {
  title "Yasak Kelimeler..."
  size -1 -1 205 210
  option pixels
  edit "", 2, 121 19 68 23, multi return
  button "Ekle", 3, 121 60 60 17, flat
  button "Sil", 4, 121 86 60 17, flat
  button "Tamam", 5, 122 115 60 17, flat ok
  list 1, 11 18 103 183, size
  icon 6, 136 153 32 32
  box "", 7, 5 6 188 202
}
on *:dialog:yasak:sclick:*:{
  if ($did = 4) {
    hdel -s kufur $hfind(kufur,$did($dname,1).seltext,1,W).data 
    hsave kufur Remote\Korumalar\kufur.save
    deneme $dname
  }
  if ($did = 3) { kekle $did($dname,2) | deneme $dname  }
}
alias deneme dialog -x $1 $1 | dialog -m $1 $1
on *:dialog:yasak:init:0: {
  mdx.dll MarkDialog $dname
  mdx SetFont 1,2,3,4,5 14 700 arial
  mdx SetColor $dname 1,2 textbg $rgb(218,218,218)
  mdx.dll SetColor $dname 1,2 background $rgb(218,218,218)
  mdx.dll SetColor $dname 3,4,5 background $rgb(010,180,255)
  mdx SetDialog [ $dname ] bgcolor $rgb(010,180,255)
  var %x = 1 
  while (%x <= $hget(kufur,0).item) { 
    did -ac yasak 1 $hget(kufur,%x).data 
    inc %x 
  }
}
alias kaydet {
  var %q 1
  while (%q <= $hget(kufur,0).item) {
    write kufur.txt $hget(kufur,%q).data
    inc %q
  }