Decoder/Encoder

dialog code {
  title "Decoder/Encoder"
  size -1 -1 136 93
  option dbu
  box "Encode ", 1, 2 1 131 36
  edit "", 2, 6 9 124 10, autohs
  edit "N/A", 3, 6 23 124 10, read autohs center
  edit "N/A", 4, 6 61 124 10, read autohs center
  edit "", 5, 6 47 124 10, autohs
  box "Decode ", 6, 2 39 131 36
  button "Close", 7, 2 77 131 12, ok cancel
}
alias dialog_code dialog -mr code code
on 1:dialog:code:edit:2:did -o code 3 1 $encode($encode($did(2).text,t,1),t,1)
on 1:dialog:code:edit:5:did -o code 4 1 $decode($decode($did(5).text,t,1),t,1)