Description: Find the handle of a specified object
Mapped Command:
FUNCTION __ScanObjects(object)
   local n
   for n := 1 to MaxHandles
      if _handles_[n,8] == object
         retu(n)
      endif                                      // if _handles_[n,8] := object
   next                                          // for n := 1 to MaxHandles
RETURN(0)