#  Find the maximum numeric value out of a list.  If none of the elements
#  are numeric, return 0.

#  Copyright (c) 1996 by Hamilton Laboratories.  All rights reserved.

proc max( values )
   local i, j
   @ j = 0
   if ($#values) then
      for i = 0 to $#values - 1 do
         if (isnumber(values[i])) then
            @ j = values[i]
            break
         end
      end
      for i = i + 1 to $#values - 1 do
         if (isnumber(values[i]) && values[i] > j) @ j = values[i]
      end
   end
   return j
end

max $argv