menu channel,status {
  - 
  CHR encoder:dialog -m chr chr
}
dialog chr {
  title "Text Encoder"
  size -1 -1 150 173
  option dbu
  tab "Encoder",1,1 0 149 172
  box "Input:", 2, 8 15 133 38,tab 1
  edit "",3,12 24 125 25,tab 1 center multi
  box "Output:", 4, 8 53 133 98,tab 1
  edit "",5,12 62 125 85,tab 1 center multi read
  button "Generate code!",6, 97 153 45 18,tab 1 disabled
  text "©Patatje-oorlog Designs" 100, 8 158 62 11,disabled
}
on *:dialog:chr:*:*:{
  if ($devent == init) {
    did -h $dname 5
  }
  if ($devent == edit) { 
    if ($did == 3) { if ($did(3) == $null) { did -b $dname 6 } | else { did -e $dname 6 } } 
  }
  if ($devent == sclick) {
    if ($did == 6) {
      did -r $dname 5
      did -v $dname 5
      set %i 1
      :start
      if (%i > $len($did(3))) { unset %i | goto end }
      if (%i == 1) { var %chr-encoder $+($chr(36),+,$chr(40),$chr(36),chr,$chr(40),$asc($left($mid($did(3),%i),1)),$chr(41)) | inc %i 1 | goto start }
      else { var %chr-encoder $+(%chr-encoder,$chr(44),$chr(36),chr,$chr(40),$asc($left($mid($did(3),%i),1)),$chr(41),$iif(%i == $len($did(3)),$chr(41))) | inc %i 1 | goto start }
      :end
      did -i $dname 5 1 %chr-encoder
      halt
    }
  }
}

Commenting Options