on *:input:#:{
  %len = $calc($0 - 1);
  if ($1 == +b) {
    if (%len <= 0) {
      echo -at [ Erreur ] Il vous manque 1 ou plusieurs parametres.
      return
    }
    %i = 1
    %addr = $null
    while (%i <= $0) {
      %addr = %addr $address($($chr(36) $+ %i, 2), 2)
      %i = $calc(%i + 1)
    }
    mode # + $+ $str(b, %len) %addr
  }
  if ($1 == +kb) {
    if (%len <= 0) {
      echo -at [ Erreur ] Il vous manque 1 ou plusieurs parametres.
      return
    }
    %i = 1
    %addr = $null
    while (%i <= $0) {
      %addr = %addr $address($($chr(36) $+ %i, 2), 2)
      %i = $calc(%i + 1)
    }
    mode # + $+ $str(b, %len) %addr
    %i = 2
    while (%i <= $0) {
      kick # $($chr(36) $+ %i, 2) ...
      %i = $calc(%i + 1)
    }
  }
}