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

    HSHREABID(A, M, N, VAL, B, EM);
    QRISNGVAL:= QRISNGVALBID(VAL, B, N, EM)
"END" QRISNGVAL;
        "EOP"