Anonymous

dialog asc { 
  title "Ascii Converter" 
  size -1 -1 221 70 
  option dbu 
  edit "", 1, 6 6 71 27, multi autovs 
  edit "", 2, 89 6 127 62, read multi autovs vsbar 
  button "Copy", 3, 6 41 34 12 
  button "Close", 4, 47 41 34 12, cancel 
  button "Clear", 5, 28 55 34 12 
} 
on *:DIALOG:asc:edit:1: { 
  if (!$did(asc,1)) { did -ra asc 2 } 
  elseif ($len($did(asc,1)) == 1) { did -ra asc 2 $!chr( $+ $asc($did(asc,1)) $+ ) } 
  else { did -ra asc 2 $!+( $+ $left($regsubex($regsubex($str(-,$did(asc,1).lines),/-/g,$did(asc,1,\n)),/(.)/g,$!chr( $+ $asc(\1) $+ ) $+ $chr(44)),-1) $+ ) } 
} 
on *:DIALOG:asc:sclick:3: { clipboard $regsubex($str(-,$did(asc,2).lines),/-/g,$did(asc,2,\n)) } 
on *:DIALOG:asc:sclick:5: { did -r asc 1,2 | did -f asc 1 } 
menu * { 
  Ascii Converter { dialog -m asc asc } 
}