'
' AbsReal$ - return the absolute value of a real number
'
' Author: Joe Strazzere
'
Function AbsIntReal$(in$)
If val(in$) < 0 or val(Multiply$(in$,"10000000000")) < 0 Then
AbsIntReal$ = Multiply$("-1.0",in$)
Else
AbsIntReal$= in$
EndIf
EndFunction
msgbox("The absolute value of -123.45 is "+AbsIntReal$("-123.45"),0,"AbsIntReal$")
