про главная() нч
    печать(«Привет, Мир!\н»);
кц

$ хуяк комп примеры/01-привет.хуя
$ ./примеры/01-привет
Привет, Мир!

*name B compiler
*tape:7/b,40
*library:40
*trans-main:40020
main() {
    printf("Hello, B!*n");
}
*execute
*end file

$ dubna hello.dub
...
*NAME B COMPILER
*TAPE:7/*,40
*LIBRARY:40
*TRANS-MAIN:40020
                     OVERLAY OT  20/04/25
B COMPILER FOR BESM-6, VERSION 04/2025
COMPILED 3 LINES OF CODE, FOUND 0 ERRORS

*NO LIST
*CALL BLOCKERR
*MADLEN
 MAIN          CP 0.0,      ST 0.0,      RT     1.0*
*READ OLD
*EXECUTE
      *LIBRA:40 = B/DIV       B/EQ        B/GT        B/LT        B/MUL       B/NE        B/RET       B/SAVE0     B/SAVE
      B/TOUT      B/TRUE      CHAR        PRINTD      PRINTO      PRINTF      WRITE       WRITEB      OUT*CNT     OUT*SHFT
      OUT*BUFF    FLUSH       FOUT
≠
         MAIN       01000                PRINTD     01413                B/MUL      01757                ISOTCOSY   06002
         PROGRAM  E 01000                PRINTO     01466                B/GT       01766                ISOTCOS1 E 06053
         B/SAVE0    01011                WRITE      01517                FOUT       01771                DRUMTAP*   06073
         B/RET      01016                B/TRUE     01622                WRCARD     01772                CHKWORD* C 06124
         PRINTF     01023                OUT*CNT    01623                WRWORD   E 02014                PRINT8     06125
         B/SAVE     01256                OUT*SHFT   01624                WBEGIN   E 02033                STOP*      06306
         CHAR       01263                OUT*BUFF   01625                WRIEND   E 02042                EXIT     E 06307
         B/NE       01301                FLUSH      01654                B/TOUT     02075                CBOБOДHO   06335
         B/EQ       01304                B/LT       01744                WRWORD/  C 04000
         WRITEB     01307                B/DIV      01747                XWRITE/  C 06000
≠
HELLO, B!

• doors.dub - классическая задачка про 100 дверей
• e-2.dub - вычисление константы e
• fibonacci.dub - числа Фибоначчи
• fizzbuzz.dub - классическая задачка Fizz-Buzz
• isprime.dub - проверка числа на простоту
• mandelbrot.dub - вычисление множества Мандельброта

• Би вполне был возможен на БЭСМ-6 уже тогда, в середине 70-х. Увы, никто из аксакалов-бэсмачей про него не знал.
• Если бы Би тогда состоялся, он мог бы стать важным средством системной разработки. Не судьба. Позже язык ЯРМО пытался занять нишу.
• Результат примерно соответствует мечте Игоря Григорьевича Пасынкова, когда в 1986 году он позвал меня в курчатник заниматься Си для Эльбруса-Б. Ему хотелось видеть Си не только под юниксом, но и в мониторке.

main() {
    auto cx, cy, x, y, x2, y2;
    auto iter;
    auto xmin, xmax, ymin, ymax, maxiter, dx, dy;

    xmin = -8601;
    xmax =  2867;
    ymin = -4915;
    ymax =  4915;

    maxiter = 32;

    dx = (xmax - xmin) / 79;
    dy = (ymax - ymin) / 24;

    cy = ymin;
    while (cy <= ymax) {
        cx = xmin;
        while (cx <= xmax) {
            x = 0;
            y = 0;
            x2 = 0;
            y2 = 0;
            iter = 0;
            while (iter < maxiter) {
                if (x2 + y2 > 16384)
                    goto next;

                y = ((x * y) / 2048) + cy;
                x = x2 - y2 + cx;
                x2 = (x * x) / 4096;
                y2 = (y * y) / 4096;
                iter++;
            }
next:
            write(' ' + iter);
            cx = cx + dx;
        }
        write('*n');
        cy = cy + dy;
    }
    return(0);
}

$ dubna mandelbrot.dub
...
!!!!!!!!!!!!!!!"""""""""""""####################################""""""""""""""""
!!!!!!!!!!!!!"""""""""#######################$$$$$$$%'+)%%%$$$$$#####"""""""""""
!!!!!!!!!!!"""""""#######################$$$$$$$$%%%&&(+,)++&%$$$$$$######""""""
!!!!!!!!!"""""#######################$$$$$$$$$$%%%%&')*5:/+('&%%$$$$$$#######"""
!!!!!!!!""""#####################$$$$$$$$$$%%%&&&''),@@@@@@@,'&%%%%%$$$$########
!!!!!!!"""####################$$$$$$$$%%%&'())((())*,@@@@@@/+))('&&&&)'%$$######
!!!!!!""###################$$$$$%%%%%%&&&'+.@@=/<@@@@@@@@@@@@@@@/++@..93%%$#####
!!!!!"################$$$%%%%%%%%%%&&&&'),+2@@@@@@@@@@@@@@@@@@@@@@@@@1(&&%$$####
!!!!"##########$$$$$%%&(-(''''''''''''(*,5@@@@@@@@@@@@@@@@@@@@@@@@@@@@+)-&%$$###
!!!!####$$$$$$$$%%%%%&'(*-@1.+.@-4+))**@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@4-(&%$$$##
!!!!#$$$$$$$$$%%%%%%'''++.6@@@@@@@@@8/0@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@3(%%$$$$#
!!!#$$$$$$$%&&&&''()/-5.5@@@@@@@@@@@@@>@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@?'&%%$$$$#
!!!(**+/+<523/80/46@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@4+)'&&%%$$$$#
!!!#$$$$$$$%&&&&''().-2.@@@@@@@@@@@@@@?@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@'&%%$$$$#
!!!!#$$$$$$$$$%%%%%&'''/,.7@@@@@@@@@;/0@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@0'%%$$$$#
!!!!####$$$$$$$$%%%%%&'(*-:2.,/?-5+))**@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@4+(&%$$$##
!!!!"##########$$$$$%%&(-(''''(''''''((*,4@@@@@@@@@@@@@@@@@@@@@@@@@@@4+).&%$$###
!!!!!"################$$$%%%%%%%%%%&&&&')<,4@@@@@@@@@@@@@@@@@@@@@@@@@/('&%%$####
!!!!!!""##################$$$$$$%%%%%%&&&'*.@@@0@@@@@@@@@@@@@@@@1,,@//9)%%$#####
!!!!!!!"""####################$$$$$$$$%%%&(())((()**-@@@@@@/+)))'&&&')'%$$######
!!!!!!!!""""#####################$$$$$$$$$$%%%&&&''(,@@@@@@@+'&&%%%%%$$$########
!!!!!!!!!"""""#######################$$$$$$$$$$%%%%&')*7@0+('&%%%$$$$$#######"""
!!!!!!!!!!!"""""""######################$$$$$$$$$%%%&&(+-).*&%$$$$$$######""""""
!!!!!!!!!!!!!"""""""""#######################$$$$$$%%'3(%%%$$$$$######""""""""""
!!!!!!!!!!!!!!!""""""""""""#####################################""""""""""""""""

*name B compiler
*tape:7/b,40
*library:40
*trans-main:40020
main() {
    printf("Hello, B!*n");
}
*execute
*end file

$ dubna b.dub
...
*NAME B COMPILER
*TAPE:7/*,40
*LIBRARY:40
*TRANS-MAIN:40020
                     OVERLAY OT  20/04/25
B COMPILER FOR BESM-6, VERSION 04/2025
COMPILED 3 LINES OF CODE, FOUND 0 ERRORS

*NO LIST
*CALL BLOCKERR
*MADLEN
 MAIN          CP 0.0,      ST 0.0,      RT     1.0*
*READ OLD
*EXECUTE
      *LIBRA:40 = B/DIV       B/EQ        B/GT        B/LT        B/MUL       B/NE        B/RET       B/SAVE0     B/SAVE
      B/TOUT      B/TRUE      CHAR        PRINTD      PRINTO      PRINTF      WRITE       WRITEB      OUT*CNT     OUT*SHFT
      OUT*BUFF    FLUSH       FOUT
≠
         MAIN       01000                PRINTD     01413                B/MUL      01757                ISOTCOSY   06002
         PROGRAM  E 01000                PRINTO     01466                B/GT       01766                ISOTCOS1 E 06053
         B/SAVE0    01011                WRITE      01517                FOUT       01771                DRUMTAP*   06073
         B/RET      01016                B/TRUE     01622                WRCARD     01772                CHKWORD* C 06124
         PRINTF     01023                OUT*CNT    01623                WRWORD   E 02014                PRINT8     06125
         B/SAVE     01256                OUT*SHFT   01624                WBEGIN   E 02033                STOP*      06306
         CHAR       01263                OUT*BUFF   01625                WRIEND   E 02042                EXIT     E 06307
         B/NE       01301                FLUSH      01654                B/TOUT     02075                CBOБOДHO   06335
         B/EQ       01304                B/LT       01744                WRWORD/  C 04000
         WRITEB     01307                B/DIV      01747                XWRITE/  C 06000
≠
HELLO, B!

    writeb: ,name,
         12 ,base,*
c
c Append one byte to output buffer.
c
 b/output:lc,block, w_count, b_shift, buffer(22)
c
    flush:  ,subp,
            ,aax, =377
            ,aex, =12       . compare to linefeed
            ,uza, flush
            ,aex, =12
c
            ,utc, w_count
            ,xts,
            ,aex, =26       . 22 words
            ,u1a, putchar
            ,ita, 13
            ,its,
            ,call, flush
            ,sti,
            ,ati, 13
c
 putchar:   ,bss,           . append byte to buffer
            ,sti,
         11 ,vtm, b/output
         11 ,wtc, 1         . b_shift
            ,asn, 64-40     . shift left
         11 ,wtc, 0         . w_count
         11 ,aox, 2         . read word from buffer
         11 ,wtc, 0         . w_count
         11 ,atx, 2         . write word to buffer
c
         11 ,xta, 1         . b_shift
            ,aex, =50
            ,uza, next_w
            ,aex, =50
            ,arx, =10       . increase shift
         11 ,atx, 1         . b_shift
         13 ,uj,
c
 next_w:    ,bss,           . advance to next word
         11 ,atx, 1         . clear b_shift
         11 ,xta, 0         . w_count
            ,arx, =1        . increment word count
         11 ,atx, 0         . w_count
         13 ,uj,
            ,end,

/*
 * Append one byte to output buffer.
 */
writeb(b) {
    extrn out_cnt, out_shft, out_buff;
    auto p;

    b = b & 0377;
    if (b == '*n') {
        flush();
        return;
    }

    if (out_cnt == 22) {
        flush();
    }

    p = &out_buff[out_cnt];
    *p = *p | (b << (40 - out_shft));

    if (out_shft == 40) {
        /* next word */
        out_shft = 0;
        ++out_cnt;
    } else {
        /* next byte */
        out_shft = out_shft + 8;
    }
}

out_cnt;
out_shft;
out_buff[22];

• Учитывая, что Соединенные Штаты Америки оказали значительную финансовую и материальную поддержку Украине с момента полномасштабного вторжения России в Украину в феврале 2022 года; 

• Учитывая, что американский народ желает инвестировать вместе с украинским народом в свободную, суверенную и безопасную Украину;

• Учитывая, что Соединенные Штаты Америки и Украина стремятся к длительному миру в Украине и крепкому партнерству между их народами и правительствами;

• Учитывая, что Соединенные Штаты Америки и Украина признают вклад Украины в укрепление международного мира и безопасности путем добровольного отказа от третьего по величине в мире ядерного арсенала;

• Учитывая, что Соединенные Штаты Америки и Украина намерены создать инвестиционный фонд для восстановления как часть экономического партнерства между двумя народами и правительствами;

• Учитывая, что Соединенные Штаты Америки и Украина провели продуктивные технические обсуждения в Вашингтоне, округ Колумбия, недавно, с 11 по 12 апреля 2025 года, чтобы завершить переговоры по соглашению о создании инвестиционного фонда для восстановления;

• Учитывая, что Соединенные Штаты уважают намерение Украины избежать конфликтов в разработке соглашения с ее обязательствами в рамках вступления в Европейский Союз или соглашений с международными финансовыми учреждениями и другими официальными кредиторами;

• Учитывая, что без ущерба для любых остаточных политических или юридических процедур, необходимых для завершения договоренностей, премьер-министр Украины Шмыгаль посетит Вашингтон, округ Колумбия, на неделе с 21 апреля 2025 года, чтобы встретиться с министром финансов США Бессент и оказать поддержку на самом высоком уровне для завершения технических обсуждений условий соглашения о создании инвестиционного фонда для восстановления. От переговорных команд ожидается отчет о прогрессе до 26 апреля 2025 года, с целью завершения обсуждений к этой дате и подписания соглашения как можно скорее;