I refined this as follows to make the result more meaningful...
create procedure myproc @mysearch varchar(100)
AS
SELECT sysobjects.name,
substring(syscomments.text,charindex(@mysearch,syscomments.text) - 10, 255)
FROM
sysobjects,syscomments
WHERE
sysobjects.id = syscomments.id
...