menu channel { 
  - 
  » Ame-Amsg-Muaf:/dncr
  - 
} 
dialog dncr { 
  title "I-DNCR Ame\Amsg" 
  size -1 -1 240 126 
  option dbu 
  edit "" 11, 10 26 60 10 
  list 3, 10 36 60 70 
  button "Ekle", 4, 78 28 32 12 
  button "Sil", 5, 78 48 33 12 
  edit "" 12, 130 26 60 10 
  list 6, 130 36 60 70 
  button "Ekle", 7, 196 28 33 12 
  button "Sil", 8, 196 48 33 12, tab 2 
  box "Muaf Ame ekleyiniz", 9, 5 14 110 90 
  box "Muaf Amsg ekleyiniz", 19, 125 14 110 90 
  button "Tamam", 10, 5 110 230 10, ok 
} 
alias dncr { .dialog -m dncr dncr } 
alias ame { haltdef | var %i 0 | var %t $chan(0) | while %i < %t { inc %i | if $istok(%muafame,$chan(%i),32) != $true { describe $chan(%i) $1- } } } 
alias amsg { haltdef | var %i 0 | var %t $chan(0) | while %i < %t { inc %i | if $istok(%muafamsg,$chan(%i),32) != $true { msg $chan(%i) $1- } } } 
on *:dialog:amele:init:*:{ 
  if (%muafame) .didtok $dname 3 32 $ifmatch 
  if (%muafamsg) .didtok $dname 6 32 $ifmatch 
} 
on *:dialog:dncr:sclick:*: { 
  ;ame için muafiyet 
  if ($did == 4) { if ($did(11) != $null) { set -u %sk $did(11) | if (%sk) && (!$istok(%muafame,%sk,32)) { .set %muafame $addtok(%muafame,%sk,32) | did -a $dname 3 %sk | did -r $dname 11 } } } 
  if ($did == 5) { if ($did(3).sel > 0) { .set %muafame $remtok(%muafame,$did(3).seltext,1,32) | did -d $dname 3 $did(3).sel | did -c $dname 3 1 } } 
  ;amsg için muafiyet 
  if ($did == 7) { if ($did(12) != $null) { set -u %sk $did(12) | if (%sk) && (!$istok(%muafamsg,%sk,32)) { .set %muafamsg $addtok(%muafamsg,%sk,32) | did -a $dname 6 %sk | did -r $dname 12 } } } 
  if ($did == 8) { if ($did(6).sel > 0) { .set %muafamsg $remtok(%muafamsg,$did(6).seltext,1,32) | did -d $dname 6 $did(6).sel | did -c $dname 6 1 } } 
}