You can create function to perform this and use it in this way (pseudocode used):
Function E(Param:Integer):Decimal
Begin
Result := 1;
for I := 1 to ASB(Param) do
if Param < 0 then
Result := Result / 10;
else
Result := Result * 10;
Exit(Result);
End;
....
myDecimalVar := 1*e(10) ;
....
Answers
http://www.mibuso.com/dl.asp?FileID=745&Type=file
Eric Wauters
MVP - Microsoft Dynamics NAV
My blog
MVP - Dynamics NAV
My BLOG
NAVERTICA a.s.