SIMPLE DECODEUR-ENCODEUR

alias decodeur dialog -md decodeur decodeur
dialog decodeur {
  title "encodeur - decodeur"
  size -1 -1 138 124
  option dbu
  button "coder", 4, 19 26 37 12
  button "decoder", 5, 74 26 37 12
  box "decoder ou encoder", 6, 15 12 100 37
  edit "", 7, 15 63 101 45
  box "resultat", 8, 11 56 110 56
  menu "codage", 9
  item "effacer resultat", 10, 9
  item "fermer", 11 , cancel
} 

on 1:dialog:decodeur:sclick:5:{ 
/set %decoder $?="quel est le code a decoder ?" 
/did -a decodeur 7 $decode( $+ %decoder $+ ,m) 
                              }  
on 1:dialog:decodeur:sclick:4:{ 
/set %codage $?="quel est la commande a coder ?" 
/did -a decodeur 7 $encode( $+ %codage $+ ,m) 
                            } 
on 1:dialog:decodeur:menu:10:{ 
/did -r decodeur 7 
                      }