dialog chr {
  title "$chr table"
  size -1 -1 198 270
  option dbu
  list 1, 24 20 75 176, size
  list 2, 102 20 75 176, size
  text "", 3, 27 200 200 10
  text "$CHR(N)", 4, 27 5 57 15
  text "SYMBOL", 5, 105 5 60 15
  button "MSG ACTIVE", 6, 46 220 126 10
  button "COPY CLIPBOARD", 7, 46 235 126 10 
  button "SET EDITBOX", 8, 46 250 126 10
}
alias chars { 
  dialog $iif($dialog(chr),-v,-m) chr chr  
}
menu nicklist,menubar { 
  .25 $chr(11) $!Chr List:{ dialog $iif($dialog(chr),-v,-m) chr chr } 
}
on *:dialog:chr:init:*:{
  var %x = 33
  while (%x < 255) { 
    if (%x isnum 33-126) || (%x isnum 160-254) { did -a chr 1 %x | did -a chr 2 $chr(%x) }
    inc %x
  }
}
on *:dialog:chr:sclick:1,2:{
  var %id = $iif($did == 1, 2, 1)
  did -c chr %id $did($did).sel
  did -ar chr 3 $!chr( $+ $did(1).seltext $+ ) = $did(2).seltext
}
on *:dialog:chr:sclick:6:{
  msg $active $did(2).seltext
}
on *:dialog:chr:sclick:7:{
  clipboard $did(2).seltext 
}
on *:dialog:chr:sclick:8:{
  editbox $active $did(2).seltext 
}