Source position: jwawinber.pas line 203
function ber_flatten(
pBerElement: PBerElement;
var pBerVal: PBERVAL
):Integer;