Anonymous

alias Ascii {
  if ($dialog(Ascii_Chart)) {
    dialog -voea Ascii_Chart Ascii_Chart
  }
  else { dialog -moda Ascii_Chart Ascii_Chart }
}
dialog Ascii_Chart {
  title "Ascii Table"
  size -1 -1 105 90
  option dbu
  list 1, 5 5 40 65, size
  text "Doubleclick wanted character to send it to clipboard.",2,50 5 50 30, center
  text "¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯", 3, 50 30 50 30, center
  text "Quick help with $chr()'s.", 4, 50 35 50 30, center
  link "http://KingsKrown.co.nr/", 5, 40 75 60 10
  button "Close", 6, 5 75 30 10, ok flat
}

on *:dialog:Ascii_Chart:init:*: {
  var %i 1
  while (%i <= 255) {
    did -a Ascii_Chart  1 $chr(%i) = %i
    inc %i
  }
}
on *:dialog:Ascii_Chart:dclick:*: {
  if ($did == 1) {
    clipboard $left($did(1).seltext,1)
  }
  if ($did == 4) {
    ascii_refresh
  }
  if ($did == 5) {
    .Run http://KingsKrown.co.nr/ 
  }
}
menu * {
  Ascii Table:Ascii
}