"CODE" 34273;
"INTEGER" "PROCEDURE" QRISNGVALDEC(A, M, N, VAL, V, EM);
"VALUE" M, N; "INTEGER" M, N; "ARRAY" A, VAL, V, EM;
"BEGIN" "ARRAY" B[1:N];

    HSHREABID(A, M, N, VAL, B, EM);
    PSTTFMMAT(A, N, V, B);  PRETFMMAT(A, M, N, VAL);
    QRISNGVALDEC:= QRISNGVALDECBID(VAL, B, M, N, A, V, EM)
"END" QRISNGVALDEC;
        "EOP"