4.3BSD/usr/contrib/icon/book/f/pause.icn

procedure pause(i)
   local j
   j := &time
   while (&time - j) < i
   return
end