Source position: orl.inc line 823
function OCINumberShift(
err: POCIError;
number: POCINumber;
nDig: sword;
result: POCINumber
):sword;