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