"CODE" 34163;
"COMMENT" MCA 2323;
"INTEGER" "PROCEDURE" QRISYM(A, N, VAL, EM); "VALUE" N;
"INTEGER" N; "ARRAY" A, VAL, EM;
"BEGIN" "ARRAY" B, BB[1:N];

        TFMSYMTRI2(A, N, VAL, B, BB, EM); TFMPREVEC(A, N);
        QRISYM:= QRISYMTRI(A, N, VAL, B, BB, EM)
    "END" QRISYM;
        "EOP"