/ScriptServ

alias NOVIRS.gui {
  %novirs.f = $1-

  guiwin @NOVIRS c c 490 270 $mg(vali1)

  cuag @novirs 20 40 450 170 $gettok(%gui.cc,1,44)

  %novirs.bt = 20 230 120 novirb_v $mg(vali2) |196 230 120 novirb_d $mg(vali3) |336 230 120 novirb_e $mg(vali4)

  dibutext 300 @novirs Verdana 12 30 50 $mg(vali5,$nopath(%novirs.f))
  dibutext 430 @novirs Verdana 9 30 80 $mg(vali6)
  dibutext 430 @novirs Verdana 9 30 120 $mg(vali7)
  dibutext 430 @novirs Verdana 9 30 160 $mg(vali8)

  guidib @novirs
  window -wa @novirs
  sss fallo
}

alias novirb {
  goto $1
  :v | write -il1 %novirs.f ;IRcap8 $md5($lower($nopath(%novirs.f))) | novirs.cierra | return
  :d | unload -rs %novirs.f | novirs.cierra | return
  :e | unload -rs %novirs.f | remove %novirs.f | novirs.cierra | return
}

alias NOVIRS.cierra .timer 1 1 _novirs | unset %novirs.* | window -c @novirs | .unload -rs " $+ $script $+ "
;EOF-dt