$ cat bubble_sort.bas
10  RANDOMIZE
    N% = 10
    M% = 15
20  DIM A%(0 : N% - 1, 5 : 5 + M% - 1)
30  FOR I% = 0 TO N% - 1
        FOR J% = 5 TO 5 + M% - 1
            A%[I%][J%] = RND(131)
            PRINT A%[I%][J%]
        NEXT J%
        PRINT;
50  NEXT I%
60  FOR I% = 0 TO N% - 1
70      FOR J% = 5 TO 5 + M% - 1
            FOR II% = 0 TO N% - 1
                FOR JJ% = 5 TO 5 + M% - 1
                    IF A%[I%][J%] < A%[II%][JJ%] THEN
                        TEMP% = A%[I%][J%]
                        A%[I%][J%] = A%[II%][JJ%]
                        A%[II%][JJ%] = TEMP%
                    END IF
                NEXT JJ%
            NEXT II%
130     NEXT J%
140 NEXT I%
    PRINT;
    FOR I% = 0 TO N% - 1
        FOR J% = 5 TO 5 + M% - 1
            PRINT A%[I%][J%]
        NEXT J%
        PRINT;
    NEXT I%


$ ../basic < bubble_sort.bas > bubble_sort.c && gcc -std=c99 bubble_sort.c -o bubble_sort && ./bubble_sort
78 3 105 8 0 125 33 118 24 61 102 9 111 7 30
120 58 28 128 82 120 31 98 5 104 128 113 42 63 70
101 17 81 76 25 88 77 66 76 101 127 54 117 114 61
16 110 127 51 115 85 47 15 52 53 126 49 42 37 112
120 15 5 70 98 31 27 44 104 110 14 100 33 0 83
102 23 69 98 81 53 59 128 69 111 57 64 30 100 109
11 96 124 24 35 91 55 69 11 35 56 32 4 96 32
94 74 62 32 48 19 86 107 23 31 88 81 102 118 57
80 5 22 80 29 64 47 91 9 58 126 72 90 6 38
129 100 112 67 9 30 86 102 6 110 2 101 67 104 88

0 0 2 3 4 5 5 5 6 6 7 8 9 9 9
11 11 14 15 15 16 17 19 22 23 23 24 24 25 27
28 29 30 30 30 31 31 31 32 32 32 33 33 35 35
37 38 42 42 44 47 47 48 49 51 52 53 53 54 55
56 57 57 58 58 59 61 61 62 63 64 64 66 67 67
69 69 69 70 70 72 74 76 76 77 78 80 80 81 81
81 82 83 85 86 86 88 88 88 90 91 91 94 96 96
98 98 98 100 100 100 101 101 101 102 102 102 102 104 104
104 105 107 109 110 110 110 111 111 112 112 113 114 115 117
118 118 120 120 120 124 125 126 126 127 127 128 128 128 129


$ ../basic < bubble_sort.bas > bubble_sort.c && gcc -Wall -Wextra -pedantic bubble_sort.c -o bubble_sort && ./bubble_sort
bubble_sort.c: В функции ‘print’:
bubble_sort.c:328:5: предупреждение: ISO C90 не поддерживает ‘%lf’ в формате gnu_printf
105 88 88 109 24 101 120 75 12 104 35 122 86 10 7
61 15 27 36 62 1 90 49 26 72 19 124 88 128 102
63 109 59 27 87 91 129 76 42 17 56 77 15 19 94
22 80 110 49 116 48 58 83 104 91 24 123 85 119 127
63 52 113 130 86 69 97 84 15 8 108 78 92 123 97
55 21 47 41 71 39 89 5 122 62 96 23 61 57 11
65 128 70 47 127 26 123 100 117 14 108 95 93 69 94
59 124 116 113 42 63 22 0 68 13 70 40 43 7 98
55 79 95 1 2 98 34 126 67 21 9 51 123 102 120
86 38 120 78 20 31 10 49 39 78 70 109 126 113 123

0 1 1 2 5 7 7 8 9 10 10 11 12 13 14
15 15 15 17 19 19 20 21 21 22 22 23 24 24 26
26 27 27 31 34 35 36 38 39 39 40 41 42 42 43
47 47 48 49 49 49 51 52 55 55 56 57 58 59 59
61 61 62 62 63 63 63 65 67 68 69 69 70 70 70
71 72 75 76 77 78 78 78 79 80 83 84 85 86 86
86 87 88 88 88 89 90 91 91 92 93 94 94 95 95
96 97 97 98 98 100 101 102 102 104 104 105 108 108 109
109 109 110 113 113 113 116 116 117 119 120 120 120 122 122
123 123 123 123 123 124 124 126 126 127 127 128 128 129 130

$ echo 'DIM A(0:1) A[0][0]=1' | ../basic > error.c && gcc -Wall -Wextra -pedantic error.c -o error && ./error
error.c: В функции ‘print’:
error.c:328:5: предупреждение: ISO C90 не поддерживает ‘%lf’ в формате gnu_printf
./error: too many indexes: should be 1

$ echo 'DIM A(0:1,1:2,3:4) A[0][3][4]=1' | ../basic > error.c && gcc -Wall -Wextra -pedantic error.c -o error && ./error
error.c: В функции ‘print’:
error.c:328:5: предупреждение: ISO C90 не поддерживает ‘%lf’ в формате gnu_printf
./error: out of bounds: should be between 1 and 2, got 3

$ echo 'A[0][1]=1' | ../basic > error.c && gcc -Wall -Wextra -pedantic error.c -o error && ./error
error.c: В функции ‘print’:
error.c:335:5: предупреждение: ISO C90 не поддерживает ‘%lf’ в формате gnu_printf
./error: array undeclared