Ошибка C++ compilation failed

CLS
omega = 2.206
gamma = 0.01 'koeffizient zatuhaniya kolebanii
q0 = 100 'raspredelennaya nagruzka
bb = 100
hh = 100
E = 360000
c00 = 35.35
c10 = 25.85
nu = 0.034
L0 = 2000 'dlina balki
mas = 200 'massa
g = 1000 'vert masshtab
g1 = 1000
g2 = 0.0001
q = 500 / LL ' goriz masshtab
h = 0.001 'shag
LL = 300000 'kol-vo shagov
w0 = 0 'nachalnii progib
n = 2 'kolichestvo uravnenii
b1 = 2000
b = L0 / b1 'shag integrirovaniya
EI = E * bb * hh * hh * hh / 12
c0 = c00 * bb
c1 = c10 * bb
CONST pi = 3.141592653589793
DIM A(L0, L0) AS DOUBLE, Iv(L0) AS DOUBLE, k1(2 * n, 5) AS DOUBLE, z(2 * n) AS DOUBLE, z0(2 * n) AS DOUBLE, x0(2 * n) AS DOUBLE, x(2 * n) AS DOUBLE
DIM Jp(n, n) AS DOUBLE, Ip(n, n) AS DOUBLE, s1(L0), m1(L0), s(99), p(L0)
q = 500 / LL
FOR i = 1 TO 2 * n
    x0(i) = 0
NEXT i
FOR i = 1 TO n
    FOR j = 1 TO n
        FOR s = 1 TO b1 - 1
            FOR m = 1 TO b1 - 1
                s1(s) = b * s
                m1(m) = b * m
                A(s, m) = EXP(-nu * ABS(s1(s) - m1(m))) * SIN(i * pi / L0 * s1(s)) * SIN(j * pi / L0 * m1(m))
            NEXT m
        NEXT s
        FOR m = 1 TO b1 - 1
            Iv(m) = 0
            FOR s = 1 TO b1 - 1
                Iv(m) = (Iv(m) + A(m, s))
            NEXT s
            Iv(m) = Iv(m) * b
        NEXT m
        Ip(i, j) = 0
        FOR m = 1 TO b1 - 1
            Ip(i, j) = (Ip(i, j) + Iv(m))
            ' Ip = b * (Ip - (Iv(0) + Iv(L0 - 1)) * 0.5)
        NEXT m
        Jp(i, j) = Ip(i, j) * b
        Jp(i, j) = Jp(i, j) * nu / 2
        'PRINT Jp(i, j);
    NEXT j
    'PRINT
NEXT i
OPEN "w(t)" FOR OUTPUT AS #1
COLOR 9
SCREEN 12
LINE (10, 0)-(10, 400), 12
LINE (0, 200)-(500, 200), 12
LOCATE 12, 1: PRINT "0"
LOCATE 12, 79: PRINT "t"
LOCATE 1, 1: PRINT "f1"
FOR L = 1 TO LL
    FOR i = 1 TO 2 * n
        FOR j = 1 TO 5
            k1(i, j) = 0
        NEXT j
    NEXT i
    FOR k = 1 TO 4
        d = 0.5
        IF k = 1 THEN d = 0
        IF k = 4 THEN d = 1
        FOR i = 1 TO 2 * n
            z(i) = x0(i) + k1(i, k) * d
        NEXT i
        FOR i = 1 TO n
            k1(i, k + 1) = z(i + n) * h
            f = (2 * gamma * omega * z(i + n) + EI / mas * (i * pi / L0) ^ 4 * z(i) + c0 / mas * z(i))
            y = 0
            FOR j = 1 TO n
                y = y + Jp(i, j) * z(j)
            NEXT j
            k1(i + n, k + 1) = -(f - y * c1 / mas * 2 / L0 - q0 * 2 / pi / i / mas * (COS(i * pi) - 1)) * h
        NEXT i
    NEXT k
    FOR i = 1 TO 2 * n
        x(i) = x0(i) + (k1(i, 2) + 2 * k1(i, 3) + 2 * k1(i, 4) + k1(i, 5)) / 6
    NEXT i
    w = 0
    FOR i = 1 TO n
        ww(i) = ((EXP(i * pi) + EXP(-i * pi)) / 2 - COS(i * pi)) * ((EXP(i * pi / 2) - EXP(-i * pi / 2)) / 2 + SIN(i * pi / 2))
        dd(i) = ((EXP(i * pi) - EXP(-i * pi)) / 2 - SIN(i * pi)) * ((EXP(i * pi / 2) + EXP(-i * pi / 2)) / 2 + COS(i * pi / 2))[/COLOR]
        w = w + x(i) * (ww(i) - dd(i))
    NEXT i
    LINE (10 + (L - 1) * q, w0 * g + 200)-(10 + L * q, w * g + 200), 12
    FOR i = 1 TO 2 * n
        x0(i) = x(i)
    NEXT i
    w0 = w
    PRINT #1, w
NEXT L
PRINT w
w0 = 0
FOR i = 1 TO 99
    s(i) = L0 / 100 * i
    w = 0
    FOR j = 1 TO n
        ww(j) = ((EXP(j * pi) + EXP(-j * pi)) / 2 - COS(j * pi)) * ((EXP(j * pi * s(i) / L0) - EXP(-j * pi * s(i) / L0)) / 2 + SIN(j * pi * s(i) / L0))
        dd(j) = ((EXP(j * pi) - EXP(-j * pi)) / 2 - SIN(j * pi)) * ((EXP(j * pi * s(i) / L0) + EXP(-j * pi * s(i) / L0)) / 2 + COS(j * pi * s(i) / L0))
        w = w + x(j) * (ww(j) - dd(j))
    NEXT j
    LINE (10 + s(i - 1) * 500 / L0, w0 * g1 + 200)-(10 + s(i) * 500 / L0, w * g1 + 200), 9
    w0 = w
NEXT i
END