'**
' find the arithmetic maximum of Argl and arg2
'**
if ( Arg1! > Arg2! ) then
Max! = Arg1!
else
Max! = Arg2!
endif
end Function
'**
Function Min!(Arg1!, Arg2!)
'**
' find the arithmetic maximum of Arg1 and Arg2
'**
if( Arg1!<arg2! ) then
Max!= Arg1!
else
Max!= Arg2!
endif
end Function
18-76
18-76 Basic
'**
' MATHEMATICAL FUNCTIONS
'
' This module contains the Program's mathematical function.
'**
'--------------------------------------------------------------
Function Max!( Arg1! , Arg2! )
'--------------------------------------------------------------
'find the arithmetic maximum of Arg1 and Arg2
if( Arg1! < arg2! ) then
Max! = Arg1!
else
Max! = Arg2!
endif
end Function