"CODE" 34362;
    "PROCEDURE" BAKLBRCOM(N, N1, N2, D, INT, VR, VI);
    "VALUE" N, N1, N2; "INTEGER" N, N1, N2; "ARRAY" D, VR, VI;
    "INTEGER" "ARRAY" INT;
    "BEGIN"
        BAKLBR(N, N1, N2, D, INT, VR);
        BAKLBR(N, N1, N2, D, INT, VI)
    "END" BAKLBRCOM;
        "EOP"