alias que {
if (!$hget(que)) {
.hmake que 1
hadd que 1 1
.timerQue -m 0 1000 queStack
}
hadd que $calc($hget(que,0).item + 1) $$1-
}
alias queStack {
hinc que 1
if ($hget(que,1) <= $hget(que,0).item) $hget(que,$hget(que,1))
else {
.timerQue off
.hfree que
}
}
alias queStop {
if ($hget(que)) .hfree que
.timerQue off
}