scaleexp101

procedure scaleexp101(

  var value: Int64;

  const exp: Integer

); overload;

procedure scaleexp101(

  var value: Integer;

  const exp: Integer

); overload;

procedure scaleexp101(

  var value: currency;

  const exp: Integer

); overload;