4.3BSD/usr/contrib/icon/book/01/locate1.icn

procedure locate(s)
   while line := read() do
      if find(s,line) then write(line)
end