declare crlf char( 2 );
crlf = '
';
str = str1 || crlf || str2 || crlf || str3;

SET NAMES WIN1251;
SET SQL DIALECT  3 ;

CONNECT 'localhost:D:\Database\test3.fdb' USER 'SYSDBA' PASSWORD 'masterkey';

SET AUTODDL ON;

--
-- Исправление...
--

set term ^ ;

recreate procedure C
returns (
    STATUS varchar( 100 ))
AS
/* */
    declare variable CRLF CHAR( 2 );
begin
    CRLF = '
';
    STATUS = '!' || CRLF || '!';
    suspend;
end
^

set term ; ^

commit;

...
    declare variable CRLF VARCHAR( 1 );  -- ну или CHAR(1) для любителей CHAR'ов...
...
begin
    CRLF = ascii_char(  10  );
...
end

SET NAMES WIN1251;
SET SQL DIALECT  3 ;

CONNECT 'localhost:D:\Database\test3.fdb' USER 'SYSDBA' PASSWORD 'masterkey';

SET AUTODDL ON;

set term ^ ;

recreate procedure TEST
returns (
    STATUS VarChar( 10 ))
as
/* */
    declare variable CRLF CHAR( 2 );
begin
    CRLF = '
';
    STATUS = '1' || CRLF || '2';
    suspend;
end
^

set term ; ^

commit;

select STATUS from TEST;
commit;

C:\>isql -i y.sql
Use CONNECT or CREATE DATABASE to specify a database

STATUS
==========
1
 2

#include <stdio.h>
#include <string.h>

void main()
{
    // строка состоящая из '1', трех фозвратов каретки и перевода строки
    const char *str = "1\r\r\r\n";
    // запишем строку в файл в режиме двоичный (mode = "wb")
    // файл file_binary будет содержать  5  байт
    FILE *fp = fopen( "file_bin", "wb" );
    if ( fp )  {
        fwrite( str, strlen( str ),  1 , fp );
        fclose( fp );
        }
    
    // прочитаем file_binary в текстовом режиме (mode = "rt")
    FILE *fin = fopen( "file_bin", "rt" );
    if ( fin )  {
        // выходной файл будем писать тоже в текстовом режиме - хотя тут уже без разницы
        // можно заменить записть и на двоичный режим, все будет сделано при чтении из файла
        FILE *fout = fopen( "file_text", "wt" );
        if ( fout )  {
            char mass[ 100 ];
            // читаем построчно файл file_bin и построчно же выводим его в file_text
            while ( fgets( mass, sizeof( mass ), fin ) )  {
                fputs( mass, fout );
                }
            fclose( fout );
            }

        fclose( fin );
        }
}

C:\0\FILE_BIN
0000000000: 31 0D 0D 0D 0A          │                          1♪♪♪◙

C:\0\FILE_TEX
0000000000: 31 0D 0A                │                          1♪◙

static processing_state newoutput(const TEXT* outfile)
{
/**************************************
 *
 *	n e w o u t p u t
 *
 **************************************
 *
 * Functional description
 *	Change the current output file
 *
 *	Parameters:  outfile : Name of file to receive query output
 *
 **************************************/
...

output 'имя_файла';

...
		outfile = path;
		FILE* fp = fopen(outfile, "a");
		if (fp)
		{
...

static processing_state copy_table(TEXT* source,
						 TEXT* destination,
						 TEXT* otherdb)
{
/**************************************
 *
 *	c o p y _ t a b l e
 *
 **************************************
 *
 * Functional description
 *	Create a new table based on an existing one.
...

...
    while (blob.getSegment(sizeof(buffer) -  1 , buffer, length))
    {
        // Need to step through the buffer until we hit a '\n' and then print the
        // line.  This is because '\n' are included in blob text.
        // CVC: The above comment and the code do not match.

        buffer[length] =  0 ;
        if (escape_squote)
        {
            for (const UCHAR* p = (UCHAR*) buffer; *p; ++p)
            {
                if (*p == SINGLE_QUOTE)
                    fputc(*p, fp);
                fputc(*p, fp);
            }
            fflush(fp);
        }
        else
            ISQL_printf(fp, buffer);
    }
...

...
    while (blob.getSegment(sizeof(buffer) -  1 , buffer, length))
    {
        // Need to step through the buffer until we hit a '\n' and then print the
        // line.  This is because '\n' are included in blob text.
        // CVC: The above comment and the code do not match.

        buffer[length] =  0 ;
        for (const UCHAR* p = (UCHAR*) buffer; *p; ++p)
        {
            if (*p != '\r')
            {
                if (escape_squote && *p == SINGLE_QUOTE)
                    fputc(*p, fp);
                fputc(*p, fp);
            }
        }
        fflush(fp);
    }
...

...

...
#ifdef PLATFORM_WITH_CR_ONLY
            if (*p != '\n')
#else
            if (*p != '\r')
#endif
...