#T-SQL (削除) 99 (削除ここまで) 90 bytes

Saved 9 bytes thanks to @t-clausen.dk

DECLARE @ INT=65z:PRINT REPLICATE(CHAR(@)+CHAR(IIF(@=90,65,@+1)),13)SET @+=1IF @<=90GOTO z

Ungolfed:

DECLARE @CurrCharacter INT = 65; --ASCII decimal for 'A'
WHILE (@CurrCharacter <=90) --ASCII decimal for 'Z'
BEGIN 
 PRINT REPLICATE(
 REPLACE(CHAR(@CurrCharacter)+CHAR(@CurrCharacter+1),'[','A')
 ,13); --Replicate the current character and its neighbor 13 times. If the neighbor is '[' (ASCII code 91) then replace it with 'A'.
 SET @CurrCharacter+=1; --Go to the next letter
END

T-SQL (削除) 99 (削除ここまで) 90 bytes

Saved 9 bytes thanks to @t-clausen.dk

DECLARE @ INT=65z:PRINT REPLICATE(CHAR(@)+CHAR(IIF(@=90,65,@+1)),13)SET @+=1IF @<=90GOTO z

Ungolfed:

DECLARE @CurrCharacter INT = 65; --ASCII decimal for 'A'
WHILE (@CurrCharacter <=90) --ASCII decimal for 'Z'
BEGIN 
 PRINT REPLICATE(
 REPLACE(CHAR(@CurrCharacter)+CHAR(@CurrCharacter+1),'[','A')
 ,13); --Replicate the current character and its neighbor 13 times. If the neighbor is '[' (ASCII code 91) then replace it with 'A'.
 SET @CurrCharacter+=1; --Go to the next letter
END

#T-SQL (削除) 99 (削除ここまで) 90 bytes

Saved 7 bytes thanks to @t-clausen.dk

DECLARE @ INT=65z:PRINT REPLICATE(CHAR(@)+CHAR(IIF(@=90,65,@+1)),13)SET @+=1IF @<=90GOTO z

Ungolfed:

DECLARE @CurrCharacter INT = 65; --ASCII decimal for 'A'
WHILE (@CurrCharacter <=90) --ASCII decimal for 'Z'
BEGIN 
 PRINT REPLICATE(
 REPLACE(CHAR(@CurrCharacter)+CHAR(@CurrCharacter+1),'[','A')
 ,13); --Replicate the current character and its neighbor 13 times. If the neighbor is '[' (ASCII code 91) then replace it with 'A'.
 SET @CurrCharacter+=1; --Go to the next letter
END

#T-SQL (削除) 99 (削除ここまで) 90 bytes

Saved 9 bytes thanks to @t-clausen.dk

DECLARE @ INT=65z:PRINT REPLICATE(CHAR(@)+CHAR(IIF(@=90,65,@+1)),13)SET @+=1IF @<=90GOTO z

Ungolfed:

DECLARE @CurrCharacter INT = 65; --ASCII decimal for 'A'
WHILE (@CurrCharacter <=90) --ASCII decimal for 'Z'
BEGIN 
 PRINT REPLICATE(
 REPLACE(CHAR(@CurrCharacter)+CHAR(@CurrCharacter+1),'[','A')
 ,13); --Replicate the current character and its neighbor 13 times. If the neighbor is '[' (ASCII code 91) then replace it with 'A'.
 SET @CurrCharacter+=1; --Go to the next letter
END

#T-SQL 99 bytes

DECLARE @ INT=65WHILE @<=90BEGIN PRINT REPLICATE(REPLACE(CHAR(@)+CHAR(@+1),'[','A'),13)SET @+=1 END

Ungolfed:

DECLARE @CurrCharacter INT = 65; --ASCII decimal for 'A'
WHILE (@CurrCharacter <=90) --ASCII decimal for 'Z'
BEGIN 
 PRINT REPLICATE(
 REPLACE(CHAR(@CurrCharacter)+CHAR(@CurrCharacter+1),'[','A')
 ,13); --Replicate the current character and its neighbor 13 times. If the neighbor is '[' (ASCII code 91) then replace it with 'A'.
 SET @CurrCharacter+=1; --Go to the next letter
END

#T-SQL (削除) 99 (削除ここまで) 90 bytes

Saved 7 bytes thanks to @t-clausen.dk

DECLARE @ INT=65z:PRINT REPLICATE(CHAR(@)+CHAR(IIF(@=90,65,@+1)),13)SET @+=1IF @<=90GOTO z

Ungolfed:

DECLARE @CurrCharacter INT = 65; --ASCII decimal for 'A'
WHILE (@CurrCharacter <=90) --ASCII decimal for 'Z'
BEGIN 
 PRINT REPLICATE(
 REPLACE(CHAR(@CurrCharacter)+CHAR(@CurrCharacter+1),'[','A')
 ,13); --Replicate the current character and its neighbor 13 times. If the neighbor is '[' (ASCII code 91) then replace it with 'A'.
 SET @CurrCharacter+=1; --Go to the next letter
END