/ScriptServ

alias Setup_Comper {
  window -c @hash1 | window -hls @hash1 | %setup.ls1 = 140 94 406 13 1 0 return @hash1 0,70
  comper.lista

  cuagi @setup 132 74 440 238 gui

  %setup.op = 140 288 #comper $s(30) |224 288 comper.eco/comper.eco $s(298)
  %setup.tx = 380 288 22 comper.pre $s(297)
  %setup.bt = 420 284 8 scomper_+ +|450 284 8 scomper_- -|480 284 60 scomper_ed $s(57)

}
alias -l S return $hget(setup,$1)
alias -l comper.lista var %n = 1 | :L1 | var %a = $readini(%perfil,comper,%n) | if (%a) { aline @hash1 $gettok(%a,1,32) $+ $chr(8) $+ $replacecs($gettok(%a,2-,32),$chr(127),|,<K;>,,<B;>,,<U;>,,<R;>,,<O;>,))  | inc %n | goto L1 } 

on 1:signal:setupedit: {
  if $1 == comper.pre {
    if (!%comper.pre) { %comper.pre = . } | %comper.pre = $left(%comper.pre,1) | guidib @setup
    scomper graba
  }
}
alias comper.eco scomper graba

alias scomper {
  var %a , %b , %l
  goto $1
  :+
  %a = $input($mg(comper2),ev,?,%a) | if (!%a) return | %a = $gettok(%a,1,32)
  %b = $input($mg(comper1),ev,?,%b) | if (!%b) return
  if (%l) { rline @hash1 %l %a $+ $chr(8) $+ %b } | else { aline @hash1 %a $+ $chr(8) $+ %b }
  sline -r @hash1 | muestrasetup | goto graba

  :ed
  %l = $sline(@hash1,1).ln | %a = $gettok($sline(@hash1,1),1,8) | %b = $gettok($sline(@hash1,1),2,8)
  if (%l) goto +
  return
  :-
  %l = $sline(@hash1,1).ln | if (%l) { dline @hash1 %l | muestrasetup } | else return
  :graba
  remini %perfil comper
  %l = 1 | :L1 | %a = $line(@hash1,%l) | if (%a) { writeini %perfil comper %l $gettok(%a,1,8) $replace($gettok(%a,2-,8),|,$chr(127),,<K;>,,<B;>,,<U;>,,<R;>,,<O;>) | inc %l | goto L1 }
  writeini %perfil comper var %comper.eco %comper.pre
  comper carga
} 


;EOF-dt