proc pause() { local t0
  t0 = startsw()
  while (startsw()-t0 < $1) { }
}