"CODE" 34162;
"COMMENT" MCA 2322;
"INTEGER" "PROCEDURE" QRIVALSYM2(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);
        QRIVALSYM2:= QRIVALSYMTRI(VAL, BB, N, EM)
    "END" QRIVALSYM2

        "EOP"