alias bilgiler { dialog -a bilgiler bilgiler }
dialog bilgiler {
  title "Sozler Menusu"
  size -1 -1 137 136
  option dbu
  list 1, 5 7 127 53 size
  edit ", 2 29 74 71 10
  button "Ekle", 3, 8 87 25 12
  button "Sil", 4, 89 87 25 12
  button "Gonder", 5, 42 98 37 12
  box "Sozler", 6 1 0 135 63
  box "Fonksiyonlar", 7, 3 67 130 52
  button "Tamam", 8, 48 121 37 12
}
on *:dialog:bilgiler:init:* {
  var %i 1
  while (%i <= $lines(bilgiler.txt) ) (
  did -a bilgiler 1 $read(bilgiler.txt,%i)
  inc %i
}
}
on *:dialog:bilgiler:sclick:*: (
if ($did == 3) ( write bilgiler.txt $did(2) | did -a bilgiler 1 $did(2) )
if ($did == 4) ( write -d bilgiler.txt $did(1). seltext | did -d bilgiler 1 $did(1).sel }
if ($did == 5) ( /msg $active $did(1).seltext }
}

;Kod
alias bilgiler { dialog -m bilgiler bilgiler }
dialog bilgiler {
  title "Sozler Menusu"
  size -1 -1 137 136
  option dbu
  list 1, 5 7 127 53, size
  edit "", 2, 29 74 71 10
  button "Ekle", 3, 8 87 25 12
  button "Sil", 4, 89 87 25 12
  button "Gonder", 5, 42 98 37 12
  box "Sozler", 6, 1 0 135 63
  box "Fonksiyonlar", 7, 3 67 130 52
  button "Tamam", 8, 48 121 37 12, ok
}
on *:dialog:bilgiler:init:*: {
  mdx MarkDialog $dname
  mdx SetDialog $dname bgcolor $rgb(132,112,255)
  mdx SetFont $dname 1,2,3,4,5,6,7,8 +b Turkish 10 600 Arial
  mdx SetColor $dname 1,2,3,4,5,6,7,8 textbg $rgb(132,112,255)
  mdx SetColor $dname 1,2,3,4,5,6,7,8 background $rgb(132,112,255)
  mdx SetColor $dname 1,2,3,4,5,6,7,8 text $rgb(0,0,0)
  var %i 1
  while (%i <= $lines(bilgiler.txt)) {
    did -a bilgiler 1 $read(bilgiler.txt,%i)
    inc %i
  }
}
on *:dialog:bilgiler:sclick:*: {
  if ($did == 3) { write bilgiler.txt $did(2) | did -a bilgiler 1 $did(2) }
  if ($did == 4) { write -d bilgiler.txt $did(1).seltext | did -d bilgiler 1 $did(1).sel }
  if ($did == 5) { /msg $active $did(1).seltext }
}

;Kod
alias bilgiler { dialog -m bilgiler bilgiler }
dialog bilgiler {
  title "Sozler Menusu"
  size -1 -1 137 136
  option dbu
  list 1, 5 7 127 53, size
  edit "", 2, 29 74 71 10
  button "Ekle", 3, 8 87 25 12
  button "Sil", 4, 89 87 25 12
  button "Gonder", 5, 42 98 37 12
  box "Sozler", 6, 1 0 135 63
  box "Fonksiyonlar", 7, 3 67 130 52
  button "Tamam", 8, 48 121 37 12, ok
}
on *:dialog:bilgiler:init:*: {
  var %i 1
  while (%i <= $lines(bilgiler.txt)) {
    did -a bilgiler 1 $read(bilgiler.txt,%i)
    inc %i
  }
}
on *:dialog:bilgiler:sclick:*: {
  if ($did == 3) { write bilgiler.txt $did(2) | did -a bilgiler 1 $did(2) }
  if ($did == 4) { write -d bilgiler.txt $did(1).seltext | did -d bilgiler 1 $did(1).sel }
  if ($did == 5) { /msg $active $did(1).seltext }
}