.key node/A,ACU
.bra {
.ket }
.def ACU SER

Failat 21

run >"con:////Slave/WAIT/AUTO/CLOSE" rx listserver list secret loop "s:listslave {node}"
setenv masterpid{node} $process
wait 15 mins
unsetenv masterpid{node}

list uuspool:{node} >nil:

changetaskpri 2
uucico -7 -s{node} -ACU {ACU} -pri -n7
changetaskpri 0

IF NOT $error EQ 5 VAL
  IF $mail EQ TRUE
    echo "waiting for listslave.."
    setenv masterpid{node} $process
    setenv stopslave{node} 1
    break >NIL: $slavepid{node} c
    wait 5 mins
    getenv >NIL: stopslave{node}
    IF NOT WARN
      wait 10 mins
    endif
    unsetenv masterpid{node}
ENDIF
echo "uupoll {node} done."