>Veery fast answer :-))))
>I just change it to work with SP code that is longer than 8000 bites:
>

>DECLARE @Test TABLE (Id INT IDENTITY(1,1), Code varchar(max))
>
>INSERT INTO @Test (Code)
>SELECT OBJECT_DEFINITION(OBJECT_ID)
>            from sys.procedures
>            where is_ms_shipped = 0
>DECLARE @lnCurrent int, @lnMax int
>DECLARE @LongName varchar(max)
>
>SELECT @lnMax = MAX(Id) FROM @Test
>SET @lnCurrent = 1
>WHILE @lnCurrent <= @lnMax
>      BEGIN
>            SELECT @LongName = Code FROM @Test WHERE Id = @lnCurrent
>            WHILE @LongName <> ''
>               BEGIN
>                   print LEFT(@LongName,8000)
>                   SET @LongName = SUBSTRING(@LongName, 8001, LEN(@LongName))
>               END
>            SET @lnCurrent = @lnCurrent + 1
>      END
>

I made slight modification, but it's not 100% correct, since I just used dbo schema - may fix it a bit later:

set nocount on
DECLARE @Test TABLE (Id INT IDENTITY(1,1), Code varchar(max))

INSERT INTO @Test (Code)
SELECT 'IF object_ID(N''[dbo].[' + Name + ']'') IS NOT NULL 
           DROP PROCEDURE [dbo].[' + Name + ']' + 
           char(13) + char(10) + char(13) + char(10) + 
           OBJECT_DEFINITION(OBJECT_ID) + char(13) +char(10) + 'GO' + char(13) + char(10)
            from sys.procedures
            where is_ms_shipped = 0
DECLARE @lnCurrent int, @lnMax int
DECLARE @LongName varchar(max)

SELECT @lnMax = MAX(Id) FROM @Test
SET @lnCurrent = 1
WHILE @lnCurrent <= @lnMax
      BEGIN
            SELECT @LongName = Code FROM @Test WHERE Id = @lnCurrent
            WHILE @LongName <> ''
               BEGIN
                   print LEFT(@LongName,8000)
                   SET @LongName = SUBSTRING(@LongName, 8001, LEN(@LongName))
               END
            SET @lnCurrent = @lnCurrent + 1
      END