dialog chr {
  title "Character"
  size -1 -1 79 39
  option dbu
  edit "", 1, 13 13 10 11
  box "Chr", 2, 5 5 26 25
  button "Done", 3, 36 23 37 12, ok
  edit %chr, 4, 40 7 28 11
}
on *:DIALOG:chr:edit:1:{
  set %chr $did(1)
}