"CODE" 34283;
"INTEGER" "PROCEDURE" SOLUND(A, M, N, X, EM);
"VALUE" M, N; "INTEGER" M, N; "ARRAY" A, X, EM;
"BEGIN" "INTEGER" I;
    "ARRAY" VAL[1:N], V[1:N,1:N];

    SOLUND:= I:= QRISNGVALDEC(A, M, N, VAL, V, EM);
    "IF" I = 0 "THEN" SOLSVDUND(A, VAL, V, M, N, X, EM)
"END" SOLUND;
        "EOP"